From c3062bccc09b40a93b902c6e43bafa262cd18ee3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Wed, 22 Apr 1998 21:48:45 +0200
Subject: [PATCH] Now works again.
This file should probably be somewhere else.
Rev: lib/modules/LR.pmod/lr.pike:1.2
---
lib/modules/LR.pmod/lr.pike | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/lib/modules/LR.pmod/lr.pike b/lib/modules/LR.pmod/lr.pike
index e786ba1207..d670cdb32e 100755
--- a/lib/modules/LR.pmod/lr.pike
+++ b/lib/modules/LR.pmod/lr.pike
@@ -1,7 +1,7 @@
-#!/home/grubba/src/pike/build/sol2.5/pike
+#!/usr/local/bin/pike
/*
- * $Id: lr.pike,v 1.1 1997/03/03 23:50:17 grubba Exp $
+ * $Id: lr.pike,v 1.2 1998/04/22 19:48:45 grubba Exp $
*
* An LR(1) Parser in Pike
*
@@ -114,7 +114,7 @@ string a_init(string ... args)
{
if (sizeof(args)) {
werror(sprintf("Reducing %s => \"%s\"\n",
- map(args, g->symbol_to_string) * ", ",
+ Array.map(args, g->symbol_to_string) * ", ",
args * ""));
return (`+(@args));
} else {
@@ -141,7 +141,7 @@ void create()
{
g = parser();
- g->symbol_to_string = symbol_to_string;
+ g->set_symbol_to_string(symbol_to_string);
#if 0
foreach (g_init, array(string|int) i) {
@@ -203,9 +203,7 @@ int main(int argc, string *argv)
werror(sprintf("Memory usage:\n%O\n", _memory_usage()));
#endif
- g->scanner=scanner;
-
- result = g->parse();
+ result = g->parse(scanner->scan);
werror(sprintf("Result of parsing: \"%s\"\n", result + ""));
}
--
GitLab