Cleanup

diff --git a/tools/trace2name.pl b/tools/trace2name.pl
deleted file mode 100644 (file)
index 905c20c..0000000
--- a/tools/trace2name.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-# Author James Laird-Wah <james@laird-wah.net>
-# This is free and unencumbered software released into the public domain.
-#
-# Anyone is free to copy, modify, publish, use, compile, sell, or
-# distribute this software, either in source code form or as a compiled
-# binary, for any purpose, commercial or non-commercial, and by any
-# means.
-#
-# In jurisdictions that recognize copyright laws, the author or authors
-# of this software dedicate any and all copyright interest in the
-# software to the public domain. We make this dedication for the benefit
-# of the public at large and to the detriment of our heirs and
-# successors. We intend this dedication to be an overt act of
-# relinquishment in perpetuity of all present and future rights to this
-# software under copyright law.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-# IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
-# OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-# ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-# OTHER DEALINGS IN THE SOFTWARE.
-
-# For more information, please refer to <http://unlicense.org/>
-open HDR, '<trace.h';
-$next = 0;
-$enum = 0;
-for (<HDR>) {
-    chomp;
-    /^enum trace_event/ || $enum or next;
-    $enum++;
-    /}/ && break;
-    /trace_(\S+)(\s*=\s*(\S+))?\s*,\s*$/ or next;
-    ($name, $valmatch, $val) = ($1, $2, $3);
-    $next = hex $val if defined $val;
-    $names{$next} = $name;
-    $next++;
-}
-    
-while (!eof STDIN) {
-    $ch = ord getc;
-    if ($ch==1 || $ch==9) {
-        $data = ord getc;
-        print "ISR: " if $ch==9;
-        $name = $names{$data} // sprintf "unk: 0x%X", $data;
-        print $names{$data}, "\n"
-    } else {
-        print "<dropped>\n";
-    }
-}