Add ARM files

[dh-make-perl] / dev / arm / libhtml-parser-perl / libhtml-parser-perl-3.56 / mkpfunc

diff --git a/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/mkpfunc b/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/mkpfunc
new file mode 100755 (executable)
index 0000000..810bc1f
--- /dev/null
+++ b/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/mkpfunc
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+($progname = $0) =~ s,.*/,,;
+
+print "/* This file is autogenerated by $progname */\n";
+
+print "typedef char*(*PFUNC)(PSTATE*, char *beg, char *end, U32 utf8, SV* self);\n";
+print "static PFUNC parsefunc[] = {\n";
+
+for my $c (0..255) {
+    local $_ = chr($c);
+    my $func = "null";
+    if (/^[A-Za-z]$/) {
+       $func = "start";
+    }
+    elsif ($_ eq "/") {
+       $func = "end";
+    }
+    elsif ($_ eq "!") {
+       $func = "decl";
+    }
+    elsif ($_ eq "?") {
+       $func = "process";
+    }
+    printf "    %-15s /* %3d */\n", "parse_$func,", $c;
+}
+
+print "};\n";