Removed a few obsolete functions and variables.

Rev: lib/modules/LR.pmod/kernel.pike:1.6

lib/modules/LR.pmod/kernel.pike

 /*
- * $Id: kernel.pike,v 1.5 1998/11/13 02:37:06 grubba Exp $
+ * $Id: kernel.pike,v 1.6 1998/11/13 20:22:32 grubba Exp $
  *
  * Implements a LR(1) state;
  *
@@ -8,7 +8,7 @@
 
 //.
 //. File:	kernel.pike
-//. RCSID:	$Id: kernel.pike,v 1.5 1998/11/13 02:37:06 grubba Exp $
+//. RCSID:	$Id: kernel.pike,v 1.6 1998/11/13 20:22:32 grubba Exp $
 //. Author:	Henrik Grubbström
 //.
 //. Synopsis:	Implements an LR(1) state.
@@ -39,10 +39,6 @@ mapping(int : multiset(object(item))) symbol_items = ([]);
 //.   object(rule)	REDUCE according to this rule on this symbol.
 mapping(int|string : object /* (kernel) */|object(rule)) action = ([]);
 
-//. + kernel_hash
-//.   Hash value used by equalp
-string kernel_hash;
-
 /*
  * Functions
  */
@@ -68,34 +64,3 @@ void add_item(object(item) i)
   kernel_hash = 0;
 }
 
-//. - make_kernel_hash
-//.   Computes the kernel hash.
-void make_kernel_hash()
-{
-  if (!kernel_hash) {
-    kernel_hash = (string)sort(items->item_id);
-    // kernel_hash = sprintf("%4c:%@4c", sizeof(items), sort(items->item_id));
-    // werror("Kernel hash:%O\n", kernel_hash);
-  }
-}
-
-//. - equalp
-//.   Compare with another state. (OBSOLETE)
-//. > state
-//.   State to compare with.
-int equalp(object /* (kernel) */ state)
-{
-  /* Two states are the same if they contain the same items */
-  if (sizeof(state->items) != sizeof(items)) {
-    return(0);
-  }
-
-  if (!kernel_hash) {
-    make_kernel_hash();
-  }
-  if (!state->kernel_hash) {
-    state->make_kernel_hash();
-  }
-  return(kernel_hash == state->kernel_hash);
-}
-