|
134
|
1 #!/usr/bin/perl
|
|
|
2
|
|
|
3 $in="conv_func.tbl";
|
|
|
4 $out="conv/conv.h";
|
|
|
5 $def="conv/convdef.h";
|
|
|
6 $nul="conv/null.c";
|
|
|
7
|
|
|
8 open(IN,"<$in") or die("can't open $in");
|
|
|
9 open(OUT,">$out") or die("can't open $out");
|
|
|
10 print OUT "/* Do not edit this file. This is automatically generated. */\n";
|
|
140
|
11 print OUT "/* Edit $in */\n";
|
|
134
|
12 open(DEF,">$def") or die("can't open $def");
|
|
|
13 print DEF "/* Do not edit this file. This is automatically generated. */\n";
|
|
140
|
14 print DEF "/* Edit $in */\n";
|
|
134
|
15 open(NUL,">$nul") or die("can't open $nul");
|
|
|
16 print NUL "/* Do not edit this file. This is automatically generated. */\n";
|
|
140
|
17 print NUL "/* Edit $in */\n";
|
|
134
|
18
|
|
|
19 print OUT "typedef struct converter {\n";
|
|
|
20 print NUL "#define EXTERN /**/\n";
|
|
|
21 print NUL "#include \"mc.h\"\n";
|
|
|
22 print NUL "#include \"conv/convdef.h\"\n\n";
|
|
|
23 print NUL "#include \"conv/null.h\"\n\n";
|
|
|
24
|
|
|
25 while(<IN>) {
|
|
|
26 if (/([^\s]*)\s+([_a-zA-Z0-9]*)\((.*)\)/) {
|
|
|
27 $type=$1; $name=$2; $arg=$3;
|
|
|
28 # print OUT "$type=$name=$arg\n";
|
|
|
29 $return = ($type && $type ne "void")? "return ($type)0;" : "";
|
|
|
30 print OUT " $type (*$name)($arg);\n";
|
|
|
31 print NUL "static $type\n$name($arg)\n{ $return}\n\n";
|
|
|
32 print DEF "static $_";
|
|
|
33 }
|
|
|
34 }
|
|
|
35
|
|
|
36 print OUT "} Converter;\n";
|
|
|
37
|
|
|
38 foreach $def ('conv/c.h','conv/null.h' ) {
|
|
|
39 $def =~ m-conv/(.*)\.h-; $m = $1;
|
|
|
40 open(DEF,">$def") or die("can't open $def");
|
|
|
41 print DEF "/* Do not edit this file. This is automatically generated. */\n";
|
|
|
42
|
|
|
43 print OUT "extern Converter ${m}_converter;\n";
|
|
|
44 print DEF "\nextern Converter $1_converter;\n";
|
|
|
45 print DEF "\n\n\nConverter $1_converter = {\n";
|
|
|
46 open(IN,"<$in") or die("can't open $in");
|
|
|
47 while(<IN>) {
|
|
|
48 if (/([^\s]*)\s+([_a-zA-Z0-9]*)\((.*)\)/) {
|
|
|
49 $type=$1; $name=$2; $arg=$3;
|
|
|
50 print DEF " \&$name,\n";
|
|
|
51 }
|
|
|
52 }
|
|
|
53 print DEF "};\n";
|
|
|
54 }
|
|
|
55
|
