Cleanup
This commit is contained in:
parent
6dadff2d3b
commit
13aa4b823c
|
@ -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";
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue