symbian/funca.pl

   1 use strict;
   2 print "#ifndef FUNCA\n";
   3 print "#define FUNCA\n\n\n";
   4 print "/*Generated file - do not edit*/\n\n";
   5 print "struct _SFunca\n";
   6 print "\t{\n";
   7 print "\tTInt iOrd;\n";
   8 print "\tconst char* iName;\n";
   9 print "\t};\n\n";
  10 print "\tconst _SFunca _Ordinals[] = { \n";
  11 while(<>)
  12         {
  13         if(/(\S+)\s+@\s+(\d*)/)
  14                 {
  15                 print "\t{$2, \"$1\"},\n";
  16                 }
  17         }
  18 print "\t{-1, \"\"}\n";
  19 print "\t};\n";
  20 print "#endif\n";