src/external/ours/application/LagOMatic/build.pl

   1 #!
   2
   3 open( OUTPUT, ">w.h" ) || die $!;
   4 print OUTPUT "// this file is autogenerated - do not modify\n";
   5
   6 while (<STDIN>)
   7 {
   8         ($ord,$func) = /(\d+).*\)\s+(\S+)/;
   9
  10         print OUTPUT "W( $func ) // $ord\n";
  11         $table[$i++] = $func;
  12         $ordinal{ $func } = $ord
  13 }
  14
  15 open( OUTPUT, ">wrap.h" ) || die $!;
  16 print OUTPUT "// this file is autogenerated - do not modify\n";
  17
  18 for ( $i = 0; $i <= $#table; ++$i )
  19 {
  20         print OUTPUT "WRAP( $table[$i], $i )\n";
  21 }
  22
  23 open( OUTPUT, ">wrap.def" ) || die $!;
  24
  25 print OUTPUT "LIBRARY WS2_32.DLL\n\nEXPORTS\n";
  26
  27 for ( $i = 0; $i <= $#table; ++$i )
  28 {
  29         print OUTPUT " " . $table[$i] . "=WRAP_" . $table[$i] . " @" . $ordinal{ $table[ $i ] } ."\n";
  30 }
  31
  32 exit;
  33
  34
  35 while (<STDIN>)
  36 {
  37         s/[\r\n]//g;
  38         if ( !/ / )
  39         {
  40                 print "W( $_ ) // $foo\n";
  41                 $table[$i++] = $_;
  42                 $ordinal{ $_ } = $line + 1;
  43                 $foo++;
  44         }
  45         $line++;
  46 }
  47
  48 for ( $i = 0; $i <= $#table; ++$i )
  49 {
  50         print "WRAP( $table[$i], $i )\n";
  51 }
  52
  53 for ( $i = 0; $i <= $#table; ++$i )
  54 {
  55         print " " . $table[$i] . "=WRAP_" . $table[$i] . " @" . $ordinal{ $table[ $i ] } ."\n";
  56 }