[cvs] bogofilter/src token.c,1.95,1.96

[<m-...@us...>]

Update of /cvsroot/bogofilter/bogofilter/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7533

Modified Files:
	token.c 
Log Message:
Add debug info for set_tag() and clr_tag().

Index: token.c
===================================================================
RCS file: /cvsroot/bogofilter/bogofilter/src/token.c,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -d -r1.95 -r1.96
--- token.c	9 Jan 2005 17:32:34 -0000	1.95
+++ token.c	14 Jan 2005 11:32:43 -0000	1.96
@@ -350,6 +350,8 @@
 void clr_tag(void)
 {
     token_prefix = NULL;
+    if (DEBUG_LEXER(2))
+	fprintf(dbgout,"--- clr_tag()\n");
 }
 
 void set_tag(const char *text)
@@ -392,6 +394,12 @@
 		text);
 	exit(EX_ERROR);
     }
+    if (DEBUG_LEXER(2)) {
+	fprintf(dbgout,"--- set_tag(%s) -> prefix=", text);
+	if (token_prefix)
+	    word_puts(token_prefix, 0, dbgout);
+	fputc('\n', dbgout);
+    }
     return;
 }