home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / regcomp.pl < prev    next >
Text File  |  1999-07-20  |  2KB  |  120 lines
  1. #use Fatal qw(open close rename chmod unlink);
  2. open DESC, 'regcomp.sym';
  3. $ind = 0;
  4.  
  5. while (<DESC>) {
  6.   next if /^\s*($|\#)/;
  7.   $ind++;
  8.   chomp;
  9.   ($name[$ind], $desc, $rest[$ind]) = split /\t+/, $_, 3;
  10.   ($type[$ind], $code[$ind], $args[$ind], $longj[$ind]) 
  11.     = split /[,\s]\s*/, $desc, 4;
  12. }
  13. close DESC;
  14. $tot = $ind;
  15.  
  16. $tmp_h = 'tmp_reg.h';
  17.  
  18. unlink $tmp_h if -f $tmp_h;
  19.  
  20. open OUT, ">$tmp_h";
  21.  
  22. print OUT <<EOP;
  23. /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  24.    This file is built by regcomp.pl from regcomp.sym.
  25.    Any changes made here will be lost!
  26. */
  27.  
  28. EOP
  29.  
  30. $ind = 0;
  31. while (++$ind <= $tot) {
  32.   $oind = $ind - 1;
  33.   $hind = sprintf "%#4x", $oind;
  34.   print OUT <<EOP;
  35. #define    $name[$ind]    $oind    /* $hind $rest[$ind] */
  36. EOP
  37. }
  38.  
  39. print OUT <<EOP;
  40.  
  41. #ifndef DOINIT
  42. EXTCONST U8 PL_regkind[];
  43. #else
  44. EXTCONST U8 PL_regkind[] = {
  45. EOP
  46.  
  47. $ind = 0;
  48. while (++$ind <= $tot) {
  49.   print OUT <<EOP;
  50.     $type[$ind],        /* $name[$ind] */
  51. EOP
  52. }
  53.  
  54. print OUT <<EOP;
  55. };
  56. #endif
  57.  
  58.  
  59. #ifdef REG_COMP_C
  60. const static U8 regarglen[] = {
  61. EOP
  62.  
  63. $ind = 0;
  64. while (++$ind <= $tot) {
  65.   $size = 0;
  66.   $size = "EXTRA_SIZE(struct regnode_$args[$ind])" if $args[$ind];
  67.   
  68.   print OUT <<EOP;
  69.     $size,        /* $name[$ind] */
  70. EOP
  71. }
  72.  
  73. print OUT <<EOP;
  74. };
  75.  
  76. const static char reg_off_by_arg[] = {
  77. EOP
  78.  
  79. $ind = 0;
  80. while (++$ind <= $tot) {
  81.   $size = $longj[$ind] || 0;
  82.  
  83.   print OUT <<EOP;
  84.     $size,        /* $name[$ind] */
  85. EOP
  86. }
  87.  
  88. print OUT <<EOP;
  89. };
  90.  
  91. #ifdef DEBUGGING
  92. const static char * const reg_name[] = {
  93. EOP
  94.  
  95. $ind = 0;
  96. while (++$ind <= $tot) {
  97.   $hind = sprintf "%#4x", $ind-1;
  98.   $size = $longj[$ind] || 0;
  99.  
  100.   print OUT <<EOP;
  101.     "$name[$ind]",        /* $hind */
  102. EOP
  103. }
  104.  
  105. print OUT <<EOP;
  106. };
  107.  
  108. const static int reg_num = $tot;
  109.  
  110. #endif /* DEBUGGING */
  111. #endif /* REG_COMP_C */
  112.  
  113. EOP
  114.  
  115. close OUT;
  116.  
  117. chmod 0666, 'regnodes.h';
  118. unlink 'regnodes.h';
  119. rename $tmp_h, 'regnodes.h';
  120.