2 * Copyright (c) 1995-1996, Index Data.
4 * Permission to use, copy, modify, distribute, and sell this software and
5 * its documentation, in whole or in part, for any purpose, is hereby granted,
8 * 1. This copyright and permission notice appear in all copies of the
9 * software and its documentation. Notices of copyright or attribution
10 * which appear at the beginning of any file must remain unchanged.
12 * 2. The names of Index Data or the individual authors may not be used to
13 * endorse or promote products derived from this software without specific
14 * prior written permission.
16 * THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND,
17 * EXPRESS, IMPLIED, OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
18 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
19 * IN NO EVENT SHALL INDEX DATA BE LIABLE FOR ANY SPECIAL, INCIDENTAL,
20 * INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND, OR ANY DAMAGES
21 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER OR
22 * NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
23 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
27 * Revision 1.21 1997-05-14 06:53:38 adam
30 * Revision 1.20 1996/10/29 13:34:39 adam
31 * New functions to get/set data1_tabpath.
33 * Revision 1.19 1996/10/11 11:57:16 quinn
36 * Revision 1.18 1996/10/07 15:29:16 quinn
39 * Revision 1.17 1996/07/06 19:58:32 quinn
40 * System headerfiles gathered in yconfig
42 * Revision 1.16 1996/06/10 08:55:34 quinn
43 * Added Summary. Unfinished work
45 * Revision 1.15 1996/06/03 09:46:03 quinn
48 * Revision 1.14 1996/05/09 07:27:11 quinn
49 * Multiple local values supported.
51 * Revision 1.13 1996/02/20 16:32:48 quinn
54 * Revision 1.12 1996/01/18 09:46:34 adam
55 * Changed prototype for reader function parsed to data1_read_record.
57 * Revision 1.11 1995/12/15 16:19:45 quinn
58 * Added formatted_text.
60 * Revision 1.10 1995/12/14 11:09:43 quinn
63 * Revision 1.9 1995/12/13 15:32:47 quinn
66 * Revision 1.8 1995/12/13 13:44:23 quinn
67 * Modified Data1-system to use nmem
69 * Revision 1.7 1995/12/12 16:37:05 quinn
70 * Added destroy element to data1_node.
72 * Revision 1.6 1995/12/11 15:22:12 quinn
73 * Added last_child field to the node.
75 * Revision 1.5 1995/12/05 14:26:40 quinn
76 * Added global lbuf to data1_node.
78 * Revision 1.4 1995/11/13 09:27:29 quinn
79 * Fiddling with the variant stuff.
81 * Revision 1.3 1995/11/01 16:34:52 quinn
82 * Making data1 look for tables in data1_tabpath
84 * Revision 1.2 1995/11/01 13:54:35 quinn
87 * Revision 1.1 1995/11/01 13:07:18 quinn
88 * Data1 module now lives in YAZ.
90 * Revision 1.13 1995/10/25 16:00:49 quinn
91 * USMARC support is now almost operational
93 * Revision 1.12 1995/10/16 14:02:59 quinn
94 * Changes to support element set names and espec1
96 * Revision 1.11 1995/10/13 16:05:10 quinn
97 * Adding Espec1-processing
99 * Revision 1.10 1995/10/11 14:53:46 quinn
102 * Revision 1.9 1995/10/10 16:27:59 quinn
103 * *** empty log message ***
105 * Revision 1.8 1995/10/06 16:44:14 quinn
106 * Work on attribute set mapping, etc.
108 * Revision 1.7 1995/10/06 12:58:36 quinn
111 * Revision 1.6 1995/10/04 09:29:51 quinn
112 * Adjustments to support USGS test data
114 * Revision 1.5 1995/10/03 17:56:44 quinn
117 * Revision 1.4 1995/10/02 14:55:43 quinn
118 * *** empty log message ***
120 * Revision 1.3 1995/09/15 14:41:43 quinn
123 * Revision 1.2 1995/09/14 15:18:14 quinn
126 * Revision 1.1 1995/09/12 11:24:33 quinn
127 * Beginning to add code for structured records.
141 #include <d1_attset.h>
148 #define data1_matchstr(s1, s2) yaz_matchstr(s1, s2)
150 extern char *data1_tabpath; /* global path for tables */
152 #define DATA1_MAX_SYMBOL 31
154 typedef struct data1_name
157 struct data1_name *next;
160 typedef enum data1_datatype
162 DATA1K_structured = 1,
167 DATA1K_generalizedtime,
174 typedef enum data1_structure
180 typedef struct data1_marctab
185 char record_status[2];
186 char implementation_codes[5];
187 int indicator_length;
188 int identifier_length;
189 char user_systems[4];
191 int length_data_entry;
193 int length_implementation;
196 struct data1_marctab *next;
199 typedef struct data1_esetname
203 struct data1_esetname *next;
207 * Variant set definitions.
210 typedef struct data1_vartype
213 struct data1_varclass *zclass;
215 data1_datatype datatype;
216 struct data1_vartype *next;
219 typedef struct data1_varclass
222 struct data1_varset *set;
224 data1_vartype *types;
225 struct data1_varclass *next;
228 typedef struct data1_varset
232 data1_varclass *classes;
241 typedef struct data1_tag
244 #define DATA1T_numeric 1
245 #define DATA1T_string 2
254 struct data1_tagset *tagset;
255 struct data1_tag *next;
258 typedef struct data1_tagset
260 char *name; /* symbolic name */
262 int type; /* type of tagset in current context */
263 data1_tag *tags; /* tags defined by this set */
264 struct data1_tagset *children; /* included tagsets */
265 struct data1_tagset *next; /* sibling */
268 typedef struct data1_termlist
271 data1_structure structure;
272 struct data1_termlist *next;
276 * abstract syntax specification
279 typedef struct data1_element
283 data1_termlist *termlists;
284 struct data1_element *parent;
285 struct data1_element *children;
286 struct data1_element *next;
289 typedef struct data1_absyn
293 data1_tagset *tagset;
294 data1_attset *attset;
295 data1_varset *varset;
296 data1_esetname *esetnames;
297 data1_maptab *maptabs;
299 data1_element *elements;
303 * record data node (tag/data/variant)
306 typedef struct data1_node
308 /* the root of a record (containing global data) */
309 #define DATA1N_root 1
312 /* some data under a leaf tag or variant */
313 #define DATA1N_data 3
314 /* variant specification (a triple, actually) */
315 #define DATA1N_variant 4
316 /* ISO2709 indicator */
317 #define DATA1N_indicator 5
325 data1_absyn *absyn; /* abstract syntax for this type */
331 data1_element *element;
333 int make_variantlist;
334 int no_data_requested;
341 #define DATA1I_inctxt 1
342 /* binary data inclusion */
343 #define DATA1I_incbin 2
345 #define DATA1I_text 3
348 /* object identifier */
351 int formatted_text; /* newlines are significant */
353 char *data; /* filename or data */
354 #define DATA1_LOCALDATA 40
355 char lbuf[DATA1_LOCALDATA]; /* small buffer for local data */
370 void (*destroy)(struct data1_node *n);
371 char lbuf[DATA1_LOCALDATA]; /* small buffer for local data */
374 struct data1_node *next;
375 struct data1_node *child;
376 struct data1_node *last_child;
377 struct data1_node *parent;
378 struct data1_node *root;
381 data1_node *get_parent_tag(data1_node *n);
382 data1_node *data1_read_node(char **buf, data1_node *parent, int *line,
383 data1_absyn *absyn, NMEM m);
384 data1_node *data1_read_record(int (*rf)(void *, char *, size_t),
386 data1_absyn *data1_read_absyn(char *file);
387 data1_tag *data1_gettagbynum(data1_tagset *s, int type, int value);
388 data1_tagset *data1_read_tagset(char *file);
389 data1_element *data1_getelementbytagname(data1_absyn *abs,
390 data1_element *parent, char *tagname);
391 Z_GenericRecord *data1_nodetogr(data1_node *n, int select, ODR o, int *len);
392 int data1_matchstr(char *s1, char *s2);
393 data1_tag *data1_gettagbyname(data1_tagset *s, char *name);
394 void data1_free_tree(data1_node *t);
395 char *data1_nodetobuf(data1_node *n, int select, int *len);
396 data1_node *data1_insert_taggeddata(data1_node *root, data1_node *at,
397 char *tagname, NMEM m);
398 data1_datatype data1_maptype(char *t);
399 data1_varset *data1_read_varset(char *file);
400 data1_vartype *data1_getvartypebyct(data1_varset *set, char *zclass, char *type);
401 Z_Espec1 *data1_read_espec1(char *file, ODR o);
402 int data1_doespec1(data1_node *n, Z_Espec1 *e);
403 data1_esetname *data1_getesetbyname(data1_absyn *a, char *name);
404 data1_element *data1_getelementbyname(data1_absyn *absyn, char *name);
405 data1_node *data1_mk_node(NMEM m);
406 data1_absyn *data1_get_absyn(char *name);
407 data1_maptab *data1_read_maptab(char *file);
408 data1_node *data1_map_record(data1_node *n, data1_maptab *map, NMEM m);
409 data1_marctab *data1_read_marctab(char *file);
410 char *data1_nodetomarc(data1_marctab *p, data1_node *n, int selected, int *len);
411 char *data1_nodetoidsgml(data1_node *n, int select, int *len);
412 Z_ExplainRecord *data1_nodetoexplain(data1_node *n, int select, ODR o);
413 Z_BriefBib *data1_nodetosummary(data1_node *n, int select, ODR o);
414 char *data1_nodetosoif(data1_node *n, int select, int *len);
415 void data1_set_tabpath(const char *path);
416 const char *data1_get_tabpath(void);