[Encode] 1.77 Released
[p5sagit/p5-mst-13.2.git] / regcomp.pl
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 static const 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 static const 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 static const 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 static const 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';