Mercurial > projects > ddbg_continued
view udis86-1.4/libudis86/mnemonics.pl @ 5:496dfd8f7342 default tip
added:
-repeat option for "in", "ov"
-run until a line option
-run until a function option
-break on a function start
-n is an alias for ov
author | marton@basel.hu |
---|---|
date | Sun, 17 Apr 2011 11:05:31 +0200 |
parents | 4a9dcbd9e54f |
children |
line wrap: on
line source
#!/usr/bin/perl # # mnemonics.pl - generates mnemonic{.h,.c} from mnemonics.dat # # Copyright (c) 2002, 2003, 2004 Vivek Mohan <vivek@sig9.com> # All rights reserved. # See (LICENSE) # # open(mnm_c,">mnemonics.c") || die "Couldn't create mnemonics.c."; open(mnm_h,">mnemonics.h") || die "Couldn't create mnemonics.h."; print mnm_c "/* Do not edit, generated by mnemonics.pl */ \n"; print mnm_c "const char* ud_mnemonics[] = \n{\n"; print mnm_h "/* Do not edit, Generated by mnemonics.pl */ \n\n"; print mnm_h "#ifndef UD_MNEMONICS_H\n"; print mnm_h "#define UD_MNEMONICS_H\n\n"; print mnm_h "extern const char* ud_mnemonics[];\n\n"; print mnm_h "enum ud_mnemonic_code \n{ \n"; while($mnm = <STDIN>) { chop($mnm); print mnm_c " \"$mnm\",\n"; print mnm_h " UD_I$mnm,\n"; } print mnm_c " \"I3vil\",\n"; print mnm_h " UD_I3vil\n"; print mnm_c "};\n"; print mnm_h "};\n"; print mnm_h "#endif\n"; close(mnm_c); close(mnm_h);