git.maemo.org Git - pkg-perl/blob - deb-src/libhtml-parser-perl/libhtml-parser-perl-3.56/mkpfunc

   1 #!/usr/bin/perl
   2
   3 ($progname = $0) =~ s,.*/,,;
   4
   5 print "/* This file is autogenerated by $progname */\n";
   6
   7 print "typedef char*(*PFUNC)(PSTATE*, char *beg, char *end, U32 utf8, SV* self);\n";
   8 print "static PFUNC parsefunc[] = {\n";
   9
  10 for my $c (0..255) {
  11     local $_ = chr($c);
  12     my $func = "null";
  13     if (/^[A-Za-z]$/) {
  14         $func = "start";
  15     }
  16     elsif ($_ eq "/") {
  17         $func = "end";
  18     }
  19     elsif ($_ eq "!") {
  20         $func = "decl";
  21     }
  22     elsif ($_ eq "?") {
  23         $func = "process";
  24     }
  25     printf "    %-15s /* %3d */\n", "parse_$func,", $c;
  26 }
  27
  28 print "};\n";