symbian/gendefdata.pl

   1 use strict;
   2 open(IN, $ARGV[0]);
   3 open(OUT, ">$ARGV[1]");
   4 print OUT "struct ccontent_type\n";
   5 print OUT "\t{\n";
   6 print OUT "\tconst char* const name;\n";
   7 print OUT "\tconst int ord;\n";
   8 print OUT "\t};\n\n";
   9
  10 print OUT "const ccontent_type G_ordinals[] =\n";
  11 print OUT "\t{\n";
  12 my $count = 0;
  13 while(<IN>)
  14         {
  15         if(/(\w*)\s@\s(\d*)/)
  16                 {
  17                 print OUT ",\n" if $count > 0;
  18                 $count++;
  19                 print OUT "\t\t{\"$1\",$2}";
  20                 }
  21         }
  22
  23 print OUT "\t};\n\n";
  24
  25 print OUT "#define G_ordinals_count (sizeof( G_ordinals) / sizeof(ccontent_type))\n\n";
  26
  27
  28