Skip to content
Snippets Groups Projects
Commit 7eca0b6c authored by Henrik (Grubba) Grubbström's avatar Henrik (Grubba) Grubbström
Browse files

Removed a few obsolete functions and variables.

Rev: lib/modules/LR.pmod/kernel.pike:1.6
parent 9f7040d6
Branches
Tags
No related merge requests found
/*
* $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);
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment