X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=retrieval%2Fd1_absyn.c;h=71e35de0afdcb2154ba7ee643028856d398f5f3f;hb=68f9c30763ddbba9f25b6e893078ead2583c6f21;hp=6b9a413245cd0fe1999aa6191c458fe2822770f6;hpb=db9513f9eca4ef13d3cea779a695bb822fd973a9;p=yaz-moved-to-github.git

diff --git a/retrieval/d1_absyn.c b/retrieval/d1_absyn.c
index 6b9a413..71e35de 100644
--- a/retrieval/d1_absyn.c
+++ b/retrieval/d1_absyn.c
@@ -4,7 +4,11 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: d1_absyn.c,v $
- * Revision 1.22  1998-10-13 16:09:47  adam
+ * Revision 1.23  1998-10-15 08:29:16  adam
+ * Tag set type may be specified in reference to it using "tagset"
+ * directive in .abs-files and "include" directive in .tag-files.
+ *
+ * Revision 1.22  1998/10/13 16:09:47  adam
  * Added support for arbitrary OID's for tagsets, schemas and attribute sets.
  * Added support for multiple attribute set references and tagset references
  * from an abstract syntax file.
@@ -637,14 +641,18 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file)
 	else if (!strcmp(cmd, "tagset"))
 	{
 	    char *name;
-	    if (argc != 2)
+	    int type = 0;
+	    if (argc < 2)
 	    {
 		logf(LOG_WARN, "%s:%d: Bad # of args to tagset",
 		     file, lineno);
 		continue;
 	    }
 	    name = argv[1];
-	    if (!(*tagset_childp = data1_read_tagset (dh, name)))
+	    if (argc == 3)
+		type = atoi(argv[2]);
+	    *tagset_childp = data1_read_tagset (dh, name, type);
+	    if (!(*tagset_childp))
 	    {
 		logf(LOG_WARN, "%s:%d: Couldn't load tagset %s",
 		     file, lineno, name);