New libregexp and APE ported to native

1 files changed, 66 insertions, 0 deletions

diff --git a/sys/src/libregexp/regprint.c b/sys/src/libregexp/regprint.c
new file mode 100644
index 000000000..673ca1f7b
--- /dev/null
+++ b/sys/src/libregexp/regprint.c
@@ -0,0 +1,66 @@
+#include <u.h>
+#include <libc.h>
+#include <regexp.h>
+#include <regimpl.h>
+
+static int
+fmtprinst(Fmt *f, Reinst *inst)
+{
+	int r;
+
+	r = fmtprint(f, "%p ", inst);
+	switch(inst->op) {
+	case ORUNE:
+		r += fmtprint(f, "ORUNE\t%C\n", inst->r);
+		break;
+	case ONOTNL:
+		r += fmtprint(f, "ONOTNL\n");
+		break;
+	case OCLASS:
+		r += fmtprint(f, "OCLASS\t%C-%C %p\n", inst->r, inst->r1, inst->a);
+		break;
+	case OSPLIT:
+		r += fmtprint(f, "OSPLIT\t%p %p\n", inst->a, inst->b);
+		break;
+	case OJMP:
+		r += fmtprint(f, "OJMP \t%p\n", inst->a);
+		break;
+	case OSAVE:
+		r += fmtprint(f, "OSAVE\t%d\n", inst->sub);
+		break;
+	case OUNSAVE:
+		r += fmtprint(f, "OUNSAVE\t%d\n", inst->sub);
+		break;
+	case OANY:
+		r += fmtprint(f, "OANY \t.\n");
+		break;
+	case OEOL:
+		r += fmtprint(f, "OEOL \t$\n");
+		break;
+	case OBOL:
+		r += fmtprint(f, "OBOL \t^\n");
+		break;
+	}
+	return r;
+}
+
+static int
+fmtprprog(Fmt *f, Reprog *reprog)
+{
+	Reinst *inst;
+	int r;
+
+	r = 0;
+	for(inst = reprog->startinst; inst < reprog->startinst + reprog->len; inst++)
+		r += fmtprinst(f, inst);
+	return r;
+}
+
+int
+reprogfmt(Fmt *f)
+{
+	Reprog *r;
+
+	r = va_arg(f->args, Reprog*);
+	return fmtprprog(f, r);
+}