Data1 module now lives in YAZ.

diff --git a/include/data1.h b/include/data1.h
new file mode 100644 (file)
index 0000000..65cc658
--- /dev/null
+++ b/include/data1.h
@@ -0,0 +1,296 @@
+/*
+ * Copyright (C) 1994, Index Data I/S 
+ * All rights reserved.
+ * Sebastian Hammer, Adam Dickmeiss
+ *
+ * $Log: data1.h,v $
+ * Revision 1.1  1995-11-01 13:07:18  quinn
+ * Data1 module now lives in YAZ.
+ *
+ * Revision 1.13  1995/10/25  16:00:49  quinn
+ * USMARC support is now almost operational
+ *
+ * Revision 1.12  1995/10/16  14:02:59  quinn
+ * Changes to support element set names and espec1
+ *
+ * Revision 1.11  1995/10/13  16:05:10  quinn
+ * Adding Espec1-processing
+ *
+ * Revision 1.10  1995/10/11  14:53:46  quinn
+ * Work on variants.
+ *
+ * Revision 1.9  1995/10/10  16:27:59  quinn
+ * *** empty log message ***
+ *
+ * Revision 1.8  1995/10/06  16:44:14  quinn
+ * Work on attribute set mapping, etc.
+ *
+ * Revision 1.7  1995/10/06  12:58:36  quinn
+ * SUTRS support
+ *
+ * Revision 1.6  1995/10/04  09:29:51  quinn
+ * Adjustments to support USGS test data
+ *
+ * Revision 1.5  1995/10/03  17:56:44  quinn
+ * Fixing GRS code.
+ *
+ * Revision 1.4  1995/10/02  14:55:43  quinn
+ * *** empty log message ***
+ *
+ * Revision 1.3  1995/09/15  14:41:43  quinn
+ * GRS1 work
+ *
+ * Revision 1.2  1995/09/14  15:18:14  quinn
+ * Work
+ *
+ * Revision 1.1  1995/09/12  11:24:33  quinn
+ * Beginning to add code for structured records.
+ *
+ *
+ */
+
+#ifndef DATA1_H
+#define DATA1_H
+
+#include <stdio.h>
+
+#include <oid.h>
+#include <proto.h>
+
+#include <d1_attset.h>
+#include "d1_map.h"
+
+#define DATA1_MAX_SYMBOL 31
+
+typedef struct data1_name
+{
+    char *name;
+    struct data1_name *next;
+} data1_name;
+
+typedef enum data1_datatype
+{
+    DATA1K_structured = 1,
+    DATA1K_string,
+    DATA1K_numeric,
+    DATA1K_bool,
+    DATA1K_oid,
+    DATA1K_generalizedtime,
+    DATA1K_intunit,
+    DATA1K_int,
+    DATA1K_octetstring,
+    DATA1K_null
+} data1_datatype;
+
+typedef struct data1_marctab
+{
+    char *name;
+    oid_value reference;
+
+    char record_status[2];
+    char implementation_codes[5];
+    int  indicator_length;
+    int  identifier_length;
+    char user_systems[4];
+
+    int  length_data_entry;
+    int  length_starting;
+    int  length_implementation;
+    char future_use[2];
+
+    struct data1_marctab *next;
+} data1_marctab;
+
+typedef struct data1_esetname
+{
+    char *name;
+    Z_Espec1 *spec;
+    struct data1_esetname *next;
+} data1_esetname;
+
+/*
+ * Variant set definitions.
+ */
+
+typedef struct data1_vartype
+{
+    char *name;
+    struct data1_varclass *class;
+    int type;
+    data1_datatype datatype;
+    struct data1_vartype *next;
+} data1_vartype;
+
+typedef struct data1_varclass
+{
+    char *name;
+    struct data1_varset *set;
+    int class;
+    data1_vartype *types;
+    struct data1_varclass *next;
+} data1_varclass;
+
+typedef struct data1_varset
+{
+    char *name;
+    oid_value reference;
+    data1_varclass *classes;
+} data1_varset;
+
+/*
+ * Tagset definitions
+ */
+
+struct data1_tagset;
+
+typedef struct data1_tag
+{
+    data1_name *names;
+    enum
+    {
+       DATA1T_numeric,
+       DATA1T_string
+    } which;
+    union
+    {
+       int numeric;
+       char *string;
+    } value;
+    data1_datatype kind;
+
+    struct data1_tagset *tagset;
+    struct data1_tag *next;
+} data1_tag;
+
+typedef struct data1_tagset
+{
+    char *name;                      /* symbolic name */
+    oid_value reference;
+    int type;                        /* type of tagset in current context */
+    data1_tag *tags;                 /* tags defined by this set */
+    struct data1_tagset *children;   /* included tagsets */
+    struct data1_tagset *next;       /* sibling */
+} data1_tagset;
+
+/*
+ * abstract syntax specification
+ */
+
+typedef struct data1_element
+{
+    char *name;
+    data1_tag *tag;
+    data1_att *att;
+    struct data1_element *children;
+    struct data1_element *next;
+} data1_element;
+
+typedef struct data1_absyn
+{
+    char *name;
+    oid_value reference;
+    data1_tagset *tagset;
+    data1_attset *attset;
+    data1_varset *varset;
+    data1_esetname *esetnames;
+    data1_maptab *maptabs;
+    data1_marctab *marc;
+    data1_element *elements;
+} data1_absyn;
+
+/*
+ * record data node (tag/data/variant)
+ */
+
+typedef struct data1_node
+{
+    enum 
+    {
+       DATA1N_root,
+       DATA1N_tag,         /* a tag */
+       DATA1N_data,        /* */
+       DATA1N_variant,     /* variant specification */
+       DATA1N_indicator    /* ISO2709 indicator */
+    } which;
+
+    union
+    {
+       struct
+       {
+           char *type;
+           data1_absyn *absyn;  /* abstract syntax for this type */
+       } root;
+
+       struct 
+       {
+           char *tag;
+           data1_element *element;
+           int node_selected;
+       } tag;
+
+       struct
+       {
+           enum
+           {
+               DATA1I_inctxt,      /* text inclusion */
+               DATA1I_incbin,      /* binary data inclusion */
+               DATA1I_text,        /* text data */
+               DATA1I_num          /* numerical data */
+           } what;
+           int len;
+           char *data;      /* filename or data */
+#define DATA1_LOCALDATA 15
+           char lbuf[DATA1_LOCALDATA]; /* small buffer for local data */
+       } data;
+
+       struct
+       {
+           data1_vartype *type;
+           char *value;
+       } variant;
+
+       struct
+       {
+           char *ind;
+       } indicator;
+    } u;
+
+    int line;
+    int num_children;
+    struct data1_node *next;
+    struct data1_node *child;
+    struct data1_node *parent;
+    struct data1_node *root;
+} data1_node;
+
+data1_node *get_parent_tag(data1_node *n);
+data1_node *data1_read_node(char **buf, data1_node *parent, int *line,
+    data1_absyn *absyn);
+data1_node *data1_read_record(int (*rf)(int, char *, size_t), int fd);
+data1_absyn *data1_read_absyn(char *file);
+data1_tag *data1_gettagbynum(data1_tagset *s, int type, int value);
+data1_tagset *data1_read_tagset(char *file);
+data1_element *data1_getelementbytagname(data1_absyn *abs,
+    data1_element *parent, char *tagname);
+Z_GenericRecord *data1_nodetogr(data1_node *n, int select, ODR o);
+int data1_matchstr(char *s1, char *s2);
+data1_tag *data1_gettagbyname(data1_tagset *s, char *name);
+void data1_free_tree(data1_node *t);
+char *data1_nodetobuf(data1_node *n, int select, int *len);
+data1_node *data1_insert_taggeddata(data1_node *root, data1_node *at,
+    char *tagname);
+data1_datatype data1_maptype(char *t);
+data1_varset *data1_read_varset(char *file);
+data1_vartype *data1_getvartypebyct(data1_varset *set, char *class, char *type);
+Z_Espec1 *data1_read_espec1(char *file, ODR o);
+int data1_doespec1(data1_node *n, Z_Espec1 *e);
+data1_esetname *data1_getesetbyname(data1_absyn *a, char *name);
+data1_element *data1_getelementbyname(data1_absyn *absyn, char *name);
+data1_node *data1_mk_node(void);
+data1_absyn *data1_get_absyn(char *name);
+data1_maptab *data1_read_maptab(char *file);
+data1_node *data1_map_record(data1_node *n, data1_maptab *map);
+data1_marctab *data1_read_marctab(char *file);
+char *data1_nodetomarc(data1_marctab *p, data1_node *n, int selected, int *len);
+
+#endif