1 files changed, 118 insertions, 0 deletions
diff --git a/rx/rxbasic.c b/rx/rxbasic.c
new file mode 100644
index 00000000..e6e0e594
--- /dev/null
+++ b/rx/rxbasic.c
@@ -0,0 +1,118 @@
+/*	Copyright (C) 1995, 1996 Tom Lord
+ * 
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Library General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ * 
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Library General Public License for more details.
+ * 
+ * You should have received a copy of the GNU Library General Public License
+ * along with this software; see the file COPYING.  If not, write to
+ * the Free Software Foundation, 59 Temple Place - Suite 330, 
+ * Boston, MA 02111-1307, USA. 
+ */
+
+
+
+#include "rxall.h"
+#include "rxbasic.h"
+#include "rxstr.h"
+
+
+
+
+int rx_basic_unfaniverse_delay = RX_DEFAULT_NFA_DELAY;
+static struct rx_unfaniverse * rx_basic_uv = 0;
+
+
+
+static int
+init_basic_once ()
+{
+  if (rx_basic_uv)
+    return 0;
+  rx_basic_uv = rx_make_unfaniverse (rx_basic_unfaniverse_delay);
+  return (rx_basic_uv ? 0 : -1);
+}
+
+
+#ifdef __STDC__
+struct rx_unfaniverse *
+rx_basic_unfaniverse (void)
+#else
+struct rx_unfaniverse *
+rx_basic_unfaniverse ()
+#endif
+{
+  if (init_basic_once ())
+    return 0;
+  return rx_basic_uv;
+}
+
+
+static char * silly_hack = 0;
+
+#ifdef __STDC__
+struct rx_solutions *
+rx_basic_make_solutions (struct rx_registers * regs, struct rexp_node * expression, struct rexp_node ** subexps, int start, int end, struct rx_context_rules * rules, const unsigned char * str)
+#else
+struct rx_solutions *
+rx_basic_make_solutions (regs, expression, subexps, start, end, rules, str)
+     struct rx_registers * regs;
+     struct rexp_node * expression;
+     struct rexp_node ** subexps;
+     int start;
+     int end;
+     struct rx_context_rules * rules;
+     const unsigned char * str;
+#endif
+{
+  struct rx_str_closure * closure;
+  if (init_basic_once ())
+    return 0;			/* bogus but rare */
+  if (   expression
+      && (expression->len >= 0)
+      && (expression->len != (end - start)))
+    return &rx_no_solutions;
+  if (silly_hack)
+    {
+      closure = (struct rx_str_closure *)silly_hack;
+      silly_hack = 0;
+    }
+  else
+    closure = (struct rx_str_closure *)malloc (sizeof (*closure));
+  if (!closure)
+    return 0;
+  closure->str = str;
+  closure->len = end;
+  closure->rules = *rules;
+  return rx_make_solutions (regs, rx_basic_uv, expression, subexps, 256,
+			    start, end, rx_str_vmfn, rx_str_contextfn,
+			    (void *)closure);
+}
+
+
+
+#ifdef __STDC__
+void
+rx_basic_free_solutions (struct rx_solutions * solns)
+#else
+     void
+     rx_basic_free_solutions (solns)
+     struct rx_solutions * solns;
+#endif
+{
+  if (solns == &rx_no_solutions)
+    return;
+
+  if (!silly_hack)
+    silly_hack = (char *)solns->closure;
+  else
+    free (solns->closure);
+  solns->closure = 0;
+  rx_free_solutions (solns);
+}