X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=retrieval%2Fd1_marc.c;fp=retrieval%2Fd1_marc.c;h=3c65dfed47e1ca401cceba8546ef7c523ce49a68;hb=2c73c63dbd44310ca9a06b20d82e01f7ad617ddc;hp=69a06d61af76b1681908647da98ac85487e9f5d2;hpb=191f86396f357a0d26df67ce6b7d9ccb23f3e207;p=yaz-moved-to-github.git

diff --git a/retrieval/d1_marc.c b/retrieval/d1_marc.c
index 69a06d6..3c65dfe 100644
--- a/retrieval/d1_marc.c
+++ b/retrieval/d1_marc.c
@@ -4,7 +4,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: d1_marc.c,v $
- * Revision 1.8  1997-09-17 12:10:37  adam
+ * Revision 1.9  1997-09-24 13:35:45  adam
+ * Added two members to data1_marctab to ease reading of weird MARC records.
+ *
+ * Revision 1.8  1997/09/17 12:10:37  adam
  * YAZ version 1.4.
  *
  * Revision 1.7  1997/09/05 09:50:57  adam
@@ -71,6 +74,8 @@ data1_marctab *data1_read_marctab (data1_handle dh, const char *file)
     strcpy(res->implementation_codes, "    ");
     res->indicator_length = 2;
     res->identifier_length = 2;
+    res->force_indicator_length = -1;
+    res->force_identifier_length = -1;
     strcpy(res->user_systems, "z  ");
 
     while ((argc = readconf_line(f, line, 512, argv, 50)))
@@ -133,6 +138,24 @@ data1_marctab *data1_read_marctab (data1_handle dh, const char *file)
 	    }
 	    strncpy(res->future_use, argv[1], 2);
 	}
+	else if (!strcmp(argv[0], "force-indicator-length"))
+	{
+	    if (argc != 2)
+	    {
+		logf(LOG_WARN, "%s: Bad future-use");
+		continue;
+	    }
+	    res->force_indicator_length = atoi(argv[1]);
+	}
+	else if (!strcmp(argv[0], "force-identifier-length"))
+	{
+	    if (argc != 2)
+	    {
+		logf(LOG_WARN, "%s: Bad future-use");
+		continue;
+	    }
+	    res->force_identifier_length = atoi(argv[1]);
+	}
 	else
 	    logf(LOG_WARN, "%s: Bad directive '%s'", file, argv[0]);