X-Git-Url: http://git.cascardo.info/?p=cascardo%2Fgrammar.git;a=blobdiff_plain;f=grammar.c;h=2b56a3a073a9877e226e030401131a9ff677cef8;hp=9795468861faae8d6cb2e3a5c4c743f53a6a645e;hb=045ec14b737624b1290c3cc7f5601a71f9fc4a0d;hpb=d9258d06fc616367741428b0346f985fcb68ef75

diff --git a/grammar.c b/grammar.c
index 9795468..2b56a3a 100644
--- a/grammar.c
+++ b/grammar.c
@@ -14,6 +14,11 @@ symbol_t* symbol_new (gboolean terminal, gint value)
   return symbol;
 }
 
+symbol_t* symbol_copy (symbol_t* symbol)
+{
+  return symbol_new (symbol->terminal, symbol->value);
+}
+
 guint symbol_hash (gconstpointer data)
 {
   symbol_t* symbol;
@@ -44,6 +49,33 @@ void rule_append (rule_t* rule, symbol_t* right)
   rule->right = g_list_append (rule->right, right);
 }
 
+rule_t* rule_copy (rule_t* rule)
+{
+  rule_t* new_rule;
+  GList* r;
+  new_rule = rule_new ();
+  r = rule->right;
+  while (r != NULL)
+    {
+      rule_append (new_rule, symbol_copy (r->data));
+      r = g_list_next (r);
+    }
+  return new_rule;
+}
+
+symbol_t* rule_pop (rule_t* rule)
+{
+  GList* r;
+  if ((r = g_list_first (rule->right)) == NULL)
+    return NULL;
+  rule->right = g_list_remove_link (r, r);
+  g_free (r->data);
+  g_list_free (r);
+  if (rule->right == NULL)
+    return NULL;
+  return rule->right->data;
+}
+
 void rule_delete (rule_t* rule)
 {
   GList* l;
@@ -136,11 +168,6 @@ rule_t* grammar_rule_new (Grammar* grammar, symbol_t* left)
 
 }
 
-void grammar_rule_append (rule_t* rule, symbol_t* right)
-{
-  rule_append (rule, right);
-}
-
 GList* grammar_get_rules (Grammar* grammar, symbol_t* left)
 {
   GList** l;