X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=recctrl%2Frecgrs.c;h=ccfed56273704e6d2c2639cdb5c071404a1b346a;hb=98ef679b7434b0f25befe4e012ce3b309a4f4fd8;hp=46821bcbe9a5d9501f7904fd9feb31cc54ef9ff1;hpb=687f4b034335c161ed1b7b04275857c7fbc69211;p=idzebra-moved-to-github.git

diff --git a/recctrl/recgrs.c b/recctrl/recgrs.c
index 46821bc..ccfed56 100644
--- a/recctrl/recgrs.c
+++ b/recctrl/recgrs.c
@@ -1,10 +1,16 @@
 /*
- * Copyright (C) 1994-1997, Index Data I/S 
+ * Copyright (C) 1994-1998, Index Data I/S 
  * All rights reserved.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: recgrs.c,v $
- * Revision 1.13  1997-10-31 12:35:44  adam
+ * Revision 1.15  1998-01-26 10:37:57  adam
+ * Better diagnostics.
+ *
+ * Revision 1.14  1997/11/06 11:41:01  adam
+ * Implemented "begin variant" for the sgml.regx filter.
+ *
+ * Revision 1.13  1997/10/31 12:35:44  adam
  * Added a few log statements.
  *
  * Revision 1.12  1997/10/29 12:02:22  adam
@@ -492,9 +498,15 @@ static int process_comp(data1_handle dh, data1_node *n, Z_RecordComposition *c)
 		return 26; /* fix */
     }
     if (espec)
+    {
+        logf (LOG_LOG, "Element: Espec-1 match");
 	return data1_doespec1(dh, n, espec);
+    }
     else
+    {
+	logf (LOG_DEBUG, "Element: all match");
 	return -1;
+    }
 }
 
 static int grs_retrieve(struct recRetrieveCtrl *p)
@@ -520,7 +532,7 @@ static int grs_retrieve(struct recRetrieveCtrl *p)
     node = read_grs_type (&gri, p->subType);
     if (!node)
     {
-	p->diagnostic = 2;
+	p->diagnostic = 14;
         nmem_destroy (mem);
 	return 0;
     }
@@ -628,39 +640,33 @@ static int grs_retrieve(struct recRetrieveCtrl *p)
 	    dummy = 0;
 	    if (!(p->rec_buf = data1_nodetogr(p->dh, node, selected,
 					      p->odr, &dummy)))
-		p->diagnostic = 2; /* this should be better specified */
+		p->diagnostic = 238; /* not available in requested syntax */
 	    else
 		p->rec_len = -1;
 	    break;
 	case VAL_EXPLAIN:
 	    if (!(p->rec_buf = data1_nodetoexplain(p->dh, node, selected,
 						   p->odr)))
-		p->diagnostic = 2; /* this should be better specified */
+		p->diagnostic = 238;
 	    else
 		p->rec_len = -1;
 	    break;
 	case VAL_SUMMARY:
 	    if (!(p->rec_buf = data1_nodetosummary(p->dh, node, selected,
 						   p->odr)))
-		p->diagnostic = 2;
+		p->diagnostic = 238;
 	    else
 		p->rec_len = -1;
 	    break;
 	case VAL_SUTRS:
 	    if (!(p->rec_buf = data1_nodetobuf(p->dh, node, selected,
 		(int*)&p->rec_len)))
-	    {
-		p->diagnostic = 2;
-		break;
-	    }
+		p->diagnostic = 238;
 	    break;
 	case VAL_SOIF:
 	    if (!(p->rec_buf = data1_nodetosoif(p->dh, node, selected,
 						(int*)&p->rec_len)))
-	    {
-		p->diagnostic = 2;
-		break;
-	    }
+		p->diagnostic = 238;
 	    break;
 	default:
 	    for (marctab = node->u.root.absyn->marc; marctab;
@@ -669,14 +675,14 @@ static int grs_retrieve(struct recRetrieveCtrl *p)
 		    break;
 	    if (!marctab)
 	    {
-		p->diagnostic = 227;
+		p->diagnostic = 238;
 		break;
 	    }
 	    if (!(p->rec_buf = data1_nodetomarc(p->dh, marctab, node,
 						selected,
 						(int*)&p->rec_len)))
 	    {
-		p->diagnostic = 2;
+		p->diagnostic = 238;
 		break;
 	    }
     }