X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=recctrl%2Frecgrs.c;h=28ce920c6d927fc720faa56a57cc940ec4ad25e5;hb=c8a333d48c42e2a51f43fd42ef79e23d40a565a7;hp=12ad348bce02d3287c785a54fbbd48f1bdff7bc8;hpb=4ed19ee90fcd394f986d52c10ecf866888abc729;p=idzebra-moved-to-github.git

diff --git a/recctrl/recgrs.c b/recctrl/recgrs.c
index 12ad348..28ce920 100644
--- a/recctrl/recgrs.c
+++ b/recctrl/recgrs.c
@@ -1,4 +1,4 @@
-/* $Id: recgrs.c,v 1.64 2002-08-29 15:10:47 adam Exp $
+/* $Id: recgrs.c,v 1.70 2002-12-02 16:55:14 adam Exp $
    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
    Index Data Aps
 
@@ -102,6 +102,9 @@ static void *grs_init(RecType recType)
 #if HAVE_EXPAT_H
     grs_add_handler (h, recTypeGrs_xml);
 #endif
+#if HAVE_PERL
+    grs_add_handler (h, recTypeGrs_perl);
+#endif
     return h;
 }
 
@@ -592,28 +595,52 @@ static int process_comp(data1_handle dh, data1_node *n, Z_RecordComposition *c)
     }
 }
 
-static void add_idzebra_info (struct recRetrieveCtrl *p, data1_node *top,
-                              NMEM mem)
+/* Add Zebra info in separate namespace ...
+        <root 
+         ...
+         <metadata xmlns="http://www.indexdata.dk/zebra/">
+          <size>359</size>
+          <localnumber>447</localnumber>
+          <filename>records/genera.xml</filename>
+         </metadata>
+        </root>
+*/
+
+static void zebra_xml_metadata (struct recRetrieveCtrl *p, data1_node *top,
+                                NMEM mem)
 {
-    const char *idzebra_ns[7];
+    const char *idzebra_ns[3];
+    const char *i2 = "\n  ";
+    const char *i4 = "\n    ";
+    data1_node *n;
 
-    idzebra_ns[0] = "xmlns:idzebra";
+    idzebra_ns[0] = "xmlns";
     idzebra_ns[1] = "http://www.indexdata.dk/zebra/";
     idzebra_ns[2] = 0;
 
-    data1_tag_add_attr (p->dh, mem, top, idzebra_ns);
+    data1_mk_text (p->dh, mem, i2, top);
 
-    data1_mk_tag_data_int (p->dh, top, "idzebra:size", p->recordSize,
-                           mem);
-    if (p->score != -1)
-        data1_mk_tag_data_int (p->dh, top, "idzebra:score",
-                               p->score, mem);
+    n = data1_mk_tag (p->dh, mem, "idzebra", idzebra_ns, top);
+
+    data1_mk_text (p->dh, mem, "\n", top);
+
+    data1_mk_text (p->dh, mem, i4, n);
     
-    data1_mk_tag_data_int (p->dh, top, "idzebra:localnumber", p->localno,
-                           mem);
+    data1_mk_tag_data_int (p->dh, n, "size", p->recordSize, mem);
+
+    if (p->score != -1)
+    {
+        data1_mk_text (p->dh, mem, i4, n);
+        data1_mk_tag_data_int (p->dh, n, "score", p->score, mem);
+    }
+    data1_mk_text (p->dh, mem, i4, n);
+    data1_mk_tag_data_int (p->dh, n, "localnumber", p->localno, mem);
     if (p->fname)
-        data1_mk_tag_data_text(p->dh, top, "idzebra:filename",
-                               p->fname, mem);
+    {
+        data1_mk_text (p->dh, mem, i4, n);
+        data1_mk_tag_data_text(p->dh, n, "filename", p->fname, mem);
+    }
+    data1_mk_text (p->dh, mem, i2, n);
 }
 
 static int grs_retrieve(void *clientData, struct recRetrieveCtrl *p)
@@ -624,7 +651,7 @@ static int grs_retrieve(void *clientData, struct recRetrieveCtrl *p)
     int res, selected = 0;
     NMEM mem;
     struct grs_read_info gri;
-    char *tagname;
+    const char *tagname;
     struct grs_handlers *h = (struct grs_handlers *) clientData;
     int requested_schema = VAL_NONE;
     data1_marctab *marctab;
@@ -656,22 +683,24 @@ static int grs_retrieve(void *clientData, struct recRetrieveCtrl *p)
     /* ensure our data1 tree is UTF-8 */
     data1_iconv (p->dh, mem, node, "UTF-8", data1_get_encoding(p->dh, node));
 
-#if 1
+#if 0
     data1_pr_tree (p->dh, node, stdout);
 #endif
     top = data1_get_root_tag (p->dh, node);
 
     logf (LOG_DEBUG, "grs_retrieve: size");
-    if ((dnew = data1_mk_tag_data_wd(p->dh, top, "size", mem)))
+    tagname = data1_systag_lookup(node->u.root.absyn, "size", "size");
+    if (tagname &&
+        (dnew = data1_mk_tag_data_wd(p->dh, top, tagname, mem)))
     {
 	dnew->u.data.what = DATA1I_text;
 	dnew->u.data.data = dnew->lbuf;
 	sprintf(dnew->u.data.data, "%d", p->recordSize);
 	dnew->u.data.len = strlen(dnew->u.data.data);
     }
-
-    tagname = res_get_def(p->res, "tagrank", "rank");
-    if (strcmp(tagname, "0") && p->score >= 0 &&
+    
+    tagname = data1_systag_lookup(node->u.root.absyn, "rank", "rank");
+    if (tagname && p->score >= 0 &&
 	(dnew = data1_mk_tag_data_wd(p->dh, top, tagname, mem)))
     {
         logf (LOG_DEBUG, "grs_retrieve: %s", tagname);
@@ -681,14 +710,15 @@ static int grs_retrieve(void *clientData, struct recRetrieveCtrl *p)
 	dnew->u.data.len = strlen(dnew->u.data.data);
     }
 
-    tagname = res_get_def(p->res, "tagsysno", "localControlNumber");
-    if (strcmp(tagname, "0") && p->localno > 0 &&
-   	 (dnew = data1_mk_tag_data_wd(p->dh, top, tagname, mem)))
+    tagname = data1_systag_lookup(node->u.root.absyn, "sysno",
+                                  "localControlNumber");
+    if (tagname && p->localno > 0 &&
+        (dnew = data1_mk_tag_data_wd(p->dh, top, tagname, mem)))
     {
         logf (LOG_DEBUG, "grs_retrieve: %s", tagname);
 	dnew->u.data.what = DATA1I_text;
 	dnew->u.data.data = dnew->lbuf;
-
+        
 	sprintf(dnew->u.data.data, "%d", p->localno);
 	dnew->u.data.len = strlen(dnew->u.data.data);
     }
@@ -780,9 +810,7 @@ static int grs_retrieve(void *clientData, struct recRetrieveCtrl *p)
 		sprintf(p, "%d", *ii);
 		p += strlen(p);
 	    }
-	    *(p++) = '\0';
-		
-	    if ((dnew = data1_mk_tag_data_wd(dh, node, 
+	    if ((dnew = data1_mk_tag_data_wd(dh, top, 
                                              "schemaIdentifier", mem)))
 	    {
 		dnew->u.data.what = DATA1I_oid;
@@ -814,7 +842,11 @@ static int grs_retrieve(void *clientData, struct recRetrieveCtrl *p)
 				p->input_format : VAL_SUTRS))
     {
     case VAL_TEXT_XML:
-        add_idzebra_info (p, top, mem);
+        zebra_xml_metadata (p, top, mem);
+
+#if 0
+        data1_pr_tree (p->dh, node, stdout);
+#endif
 
         if (p->encoding)
             data1_iconv (p->dh, mem, node, p->encoding, "UTF-8");