From 2f253cfc85ffd55a8acb988e91f0bc5ab348124c Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@lorry>
Date: Wed, 8 May 2013 22:21:52 +0000
Subject: HTML-Parser-3.71

---
 mkpfunc | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 mkpfunc

(limited to 'mkpfunc')

diff --git a/mkpfunc b/mkpfunc
new file mode 100755
index 0000000..810bc1f
--- /dev/null
+++ b/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";
-- 
cgit v1.2.1