X-Git-Url: http://sru.miketaylor.org.uk/?a=blobdiff_plain;f=recctrl%2Fregxread.c;h=cc74152915daf333d1fc733b78c97ce4ff370004;hb=ef696645cc3b7e0f4027008d1dc589c0f0f90c1f;hp=bb26858b7fe941dc9913d4a5d4e1d60e83b62a91;hpb=0a50c507e32a11d9ef0d1f8458b02590044f25d5;p=idzebra-moved-to-github.git

diff --git a/recctrl/regxread.c b/recctrl/regxread.c
index bb26858..cc74152 100644
--- a/recctrl/regxread.c
+++ b/recctrl/regxread.c
@@ -4,7 +4,13 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: regxread.c,v $
- * Revision 1.24  1999-05-21 11:08:46  adam
+ * Revision 1.26  1999-05-26 07:49:14  adam
+ * C++ compilation.
+ *
+ * Revision 1.25  1999/05/25 12:33:32  adam
+ * Fixed bug in Tcl filter.
+ *
+ * Revision 1.24  1999/05/21 11:08:46  adam
  * Tcl filter attempts to read <filt>.tflt. Improvements to configure
  * script so that it reads uninstalled Tcl source.
  *
@@ -292,7 +298,7 @@ static char *f_win_get (struct lexSpec *spec, off_t start_pos, off_t end_pos,
         spec->f_win_start = start_pos;
 
         if (!spec->f_win_buf)
-            spec->f_win_buf = xmalloc (spec->f_win_size);
+            spec->f_win_buf = (char *) xmalloc (spec->f_win_size);
         *size = (*spec->f_win_rf)(spec->f_win_fh, spec->f_win_buf,
                                   spec->f_win_size);
         spec->f_win_end = spec->f_win_start + *size;
@@ -348,8 +354,8 @@ static void regxCodeMk (struct regxCode **pp, const char *buf, int len)
 {
     struct regxCode *p;
 
-    p = xmalloc (sizeof(*p));
-    p->str = xmalloc (len+1);
+    p = (struct regxCode *) xmalloc (sizeof(*p));
+    p->str = (char *) xmalloc (len+1);
     memcpy (p->str, buf, len);
     p->str[len] = '\0';
     *pp = p;
@@ -389,7 +395,7 @@ static void actionListDel (struct lexRuleAction **rap)
 
 static struct lexContext *lexContextCreate (const char *name)
 {
-    struct lexContext *p = xmalloc (sizeof(*p));
+    struct lexContext *p = (struct lexContext *) xmalloc (sizeof(*p));
 
     p->name = xstrdup (name);
     p->ruleNo = 1;
@@ -426,8 +432,8 @@ static struct lexSpec *lexSpecCreate (const char *name, data1_handle dh)
     struct lexSpec *p;
     int i;
     
-    p = xmalloc (sizeof(*p));
-    p->name = xmalloc (strlen(name)+1);
+    p = (struct lexSpec *) xmalloc (sizeof(*p));
+    p->name = (char *) xmalloc (strlen(name)+1);
     strcpy (p->name, name);
 
 #if HAVE_TCL_H
@@ -436,19 +442,21 @@ static struct lexSpec *lexSpecCreate (const char *name, data1_handle dh)
     p->dh = dh;
     p->context = NULL;
     p->context_stack_size = 100;
-    p->context_stack = xmalloc (sizeof(*p->context_stack) *
-				p->context_stack_size);
+    p->context_stack = (struct lexContext **)
+	xmalloc (sizeof(*p->context_stack) * p->context_stack_size);
     p->f_win_buf = NULL;
 
     p->maxLevel = 128;
-    p->concatBuf = xmalloc (sizeof(*p->concatBuf) * p->maxLevel);
+    p->concatBuf = (struct lexConcatBuf **)
+	xmalloc (sizeof(*p->concatBuf) * p->maxLevel);
     for (i = 0; i < p->maxLevel; i++)
     {
-	p->concatBuf[i] = xmalloc (sizeof(**p->concatBuf));
+	p->concatBuf[i] = (struct lexConcatBuf *)
+	    xmalloc (sizeof(**p->concatBuf));
 	p->concatBuf[i]->len = p->concatBuf[i]->max = 0;
 	p->concatBuf[i]->buf = 0;
     }
-    p->d1_stack = xmalloc (sizeof(*p->d1_stack) * p->maxLevel);
+    p->d1_stack = (data1_node **) xmalloc (sizeof(*p->d1_stack) * p->maxLevel);
     p->d1_level = 0;
     return p;
 }
@@ -528,7 +536,7 @@ static int readParseToken (const char **cpp, int *len)
                 cmd[i] = *cp + 'a' - 'A';
             else
                 break;
-            if (i < sizeof(cmd)-2)
+            if (i < (int) sizeof(cmd)-2)
 		i++;
             cp++;
         }
@@ -576,13 +584,13 @@ static int actionListMk (struct lexSpec *spec, const char *s,
             bodyMark = 1;
             continue;
         case REGX_CODE:
-            *ap = xmalloc (sizeof(**ap));
+            *ap = (struct lexRuleAction *) xmalloc (sizeof(**ap));
             (*ap)->which = tok;
             regxCodeMk (&(*ap)->u.code, s, len);
             s += len+1;
             break;
         case REGX_PATTERN:
-            *ap = xmalloc (sizeof(**ap));
+            *ap = (struct lexRuleAction *) xmalloc (sizeof(**ap));
             (*ap)->which = tok;
             (*ap)->u.pattern.body = bodyMark;
             bodyMark = 0;
@@ -606,7 +614,7 @@ static int actionListMk (struct lexSpec *spec, const char *s,
             logf (LOG_WARN, "cannot use INIT here");
             continue;
         case REGX_END:
-            *ap = xmalloc (sizeof(**ap));
+            *ap = (struct lexRuleAction *) xmalloc (sizeof(**ap));
             (*ap)->which = tok;
             break;
         }
@@ -674,7 +682,7 @@ int readOneSpec (struct lexSpec *spec, const char *s)
             return -1;
         }
         s++;
-        rp = xmalloc (sizeof(*rp));
+        rp = (struct lexRule *) xmalloc (sizeof(*rp));
         rp->info.no = spec->context->ruleNo++;
         rp->next = spec->context->rules;
         spec->context->rules = rp;
@@ -691,7 +699,7 @@ int readFileSpec (struct lexSpec *spec)
     int c, i, errors = 0;
     FILE *spec_inf = 0;
 
-    lineBuf = xmalloc (1+lineSize);
+    lineBuf = (char *) xmalloc (1+lineSize);
 #if HAVE_TCL_H
     if (spec->tcl_interp)
     {
@@ -710,15 +718,7 @@ int readFileSpec (struct lexSpec *spec)
         xfree (lineBuf);
         return -1;
     }
-    logf (LOG_LOG, "reading regx filter %s.flt", lineBuf);
-    sprintf (lineBuf, "%s.flt", spec->name);
-    if (!(spec_inf = yaz_path_fopen (data1_get_tabpath(spec->dh),
-				     lineBuf, "r")))
-    {
-        logf (LOG_ERRNO|LOG_WARN, "cannot read spec file %s", spec->name);
-        xfree (lineBuf);
-        return -1;
-    }
+    logf (LOG_LOG, "reading regx filter %s", lineBuf);
 #if HAVE_TCL_H
     if (spec->tcl_interp)
 	logf (LOG_LOG, "Tcl enabled");
@@ -774,7 +774,8 @@ int readFileSpec (struct lexSpec *spec)
     for (lc = spec->context; lc; lc = lc->next)
     {
 	struct lexRule *rp;
-	lc->fastRule = xmalloc (sizeof(*lc->fastRule) * lc->ruleNo);
+	lc->fastRule = (struct lexRuleInfo **)
+	    xmalloc (sizeof(*lc->fastRule) * lc->ruleNo);
 	for (i = 0; i < lc->ruleNo; i++)
 	    lc->fastRule[i] = NULL;
 	for (rp = lc->rules; rp; rp = rp->next)
@@ -850,7 +851,7 @@ static void execData (struct lexSpec *spec,
 	char *old_buf, *new_buf;
 
 	spec->concatBuf[spec->d1_level]->max = org_len + elen + 256;
-	new_buf = xmalloc (spec->concatBuf[spec->d1_level]->max);
+	new_buf = (char *) xmalloc (spec->concatBuf[spec->d1_level]->max);
 	if ((old_buf = spec->concatBuf[spec->d1_level]->buf))
 	{
 	    memcpy (new_buf, old_buf, org_len);
@@ -880,7 +881,7 @@ static void tagDataRelease (struct lexSpec *spec)
 	assert (!res->u.data.data);
 	assert (res->u.data.len > 0);
 	if (res->u.data.len > DATA1_LOCALDATA)
-	    res->u.data.data = nmem_malloc (spec->m, res->u.data.len);
+	    res->u.data.data = (char *) nmem_malloc (spec->m, res->u.data.len);
 	else
 	    res->u.data.data = res->lbuf;
 	memcpy (res->u.data.data, spec->concatBuf[spec->d1_level]->buf,
@@ -1016,7 +1017,7 @@ static void tagBegin (struct lexSpec *spec,
     res->u.tag.get_bytes = -1;
 
     if (len >= DATA1_LOCALDATA)
-	res->u.tag.tag = nmem_malloc (spec->m, len+1);
+	res->u.tag.tag = (char *) nmem_malloc (spec->m, len+1);
     else
 	res->u.tag.tag = res->lbuf;
 
@@ -1218,7 +1219,7 @@ static char *regxStrz (const char *src, int len, char *str)
 static int cmd_tcl_begin (ClientData clientData, Tcl_Interp *interp,
 			  int argc, char **argv)
 {
-    struct lexSpec *spec = clientData;
+    struct lexSpec *spec = (struct lexSpec *) clientData;
     if (argc < 2)
 	return TCL_ERROR;
     if (!strcmp(argv[1], "record") && argc == 3)
@@ -1278,7 +1279,7 @@ static int cmd_tcl_begin (ClientData clientData, Tcl_Interp *interp,
 static int cmd_tcl_end (ClientData clientData, Tcl_Interp *interp,
 			int argc, char **argv)
 {
-    struct lexSpec *spec = clientData;
+    struct lexSpec *spec = (struct lexSpec *) clientData;
     if (argc < 2)
 	return TCL_ERROR;
     
@@ -1298,17 +1299,15 @@ static int cmd_tcl_end (ClientData clientData, Tcl_Interp *interp,
     {
 	int min_level = 1;
 	char *element = 0;
-	if (!strcmp(argv[2], "-record"))
+	if (argc >= 3 && !strcmp(argv[2], "-record"))
 	{
 	    min_level = 0;
 	    if (argc == 4)
 		element = argv[3];
 	}
 	else
-	{
 	    if (argc == 3)
 		element = argv[2];
-	}
 	tagEnd (spec, min_level, element, (element ? strlen(element) : 0));
 	if (spec->d1_level == 0)
 	{
@@ -1337,7 +1336,7 @@ static int cmd_tcl_data (ClientData clientData, Tcl_Interp *interp,
     int argi = 1;
     int textFlag = 0;
     const char *element = 0;
-    struct lexSpec *spec = clientData;
+    struct lexSpec *spec = (struct lexSpec *) clientData;
     
     while (argi < argc)
     {
@@ -1371,7 +1370,7 @@ static int cmd_tcl_data (ClientData clientData, Tcl_Interp *interp,
 static int cmd_tcl_unread (ClientData clientData, Tcl_Interp *interp,
 			   int argc, char **argv)
 {
-    struct lexSpec *spec = clientData;
+    struct lexSpec *spec = (struct lexSpec *) clientData;
     int argi = 1;
     int offset = 0;
     int no;
@@ -1962,7 +1961,7 @@ static data1_node *lexRoot (struct lexSpec *spec, off_t offset,
 
 void grs_destroy(void *clientData)
 {
-    struct lexSpecs *specs = clientData;
+    struct lexSpecs *specs = (struct lexSpecs *) clientData;
     if (specs->spec)
     {
 	lexSpecDestroy(&specs->spec);
@@ -1972,7 +1971,7 @@ void grs_destroy(void *clientData)
 
 void *grs_init(void)
 {
-    struct lexSpecs *specs = xmalloc (sizeof(*specs));
+    struct lexSpecs *specs = (struct lexSpecs *) xmalloc (sizeof(*specs));
     specs->spec = 0;
     return specs;
 }
@@ -1980,7 +1979,7 @@ void *grs_init(void)
 data1_node *grs_read_regx (struct grs_read_info *p)
 {
     int res;
-    struct lexSpecs *specs = p->clientData;
+    struct lexSpecs *specs = (struct lexSpecs *) p->clientData;
     struct lexSpec **curLexSpec = &specs->spec;
 
 #if REGX_DEBUG
@@ -2026,7 +2025,7 @@ RecTypeGrs recTypeGrs_regx = &regx_type;
 data1_node *grs_read_tcl (struct grs_read_info *p)
 {
     int res;
-    struct lexSpecs *specs = p->clientData;
+    struct lexSpecs *specs = (struct lexSpecs *) p->clientData;
     struct lexSpec **curLexSpec = &specs->spec;
 
 #if REGX_DEBUG