X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=src%2Fccltoken.c;h=06ff2a78c8b3a89c127a6dbb13e85334ac1504fd;hp=ae8b4c0ddf8ceadb5d5c0f462c04dfb99f1d55f7;hb=e4baade57ba02d625ecd6452b0f4383b24c25f2d;hpb=7bfa924f0f58b494c4aba33320183374ffd594cd

diff --git a/src/ccltoken.c b/src/ccltoken.c
index ae8b4c0..06ff2a7 100644
--- a/src/ccltoken.c
+++ b/src/ccltoken.c
@@ -44,7 +44,7 @@
 /* CCL - lexical analysis
  * Europagate, 1995
  *
- * $Id: ccltoken.c,v 1.2 2004-08-11 11:44:30 adam Exp $
+ * $Id: ccltoken.c,v 1.3 2004-09-29 20:37:50 adam Exp $
  *
  * Old Europagate Log:
  *
@@ -317,6 +317,22 @@ struct ccl_token *ccl_parser_tokenize (CCL_parser cclp, const char *command)
     return first;
 }
 
+struct ccl_token *ccl_token_add (struct ccl_token *at)
+{
+    struct ccl_token *n = (struct ccl_token *)xmalloc (sizeof(*n));
+    ccl_assert(n);
+    n->next = at->next;
+    n->prev = at;
+    at->next = n;
+    if (n->next)
+	n->next->prev = n;
+
+    n->kind = CCL_TOK_TERM;
+    n->name = 0;
+    n->len = 0;
+    return n;
+}
+    
 struct ccl_token *ccl_tokenize (const char *command)
 {
     CCL_parser cclp = ccl_parser_create ();