X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=fml%2Ffmlmarc.c;h=efce9b2c18e390cedae909c9b028a066624c3ce5;hb=9f5629c93687790acce8ef189cfac986f3c2d2e6;hp=97071b305ae33f857bc5f7a3e37bd5373df20c69;hpb=3f6af0f3aa9f114cf562c28f2ed0b954e4c5d659;p=egate.git diff --git a/fml/fmlmarc.c b/fml/fmlmarc.c index 97071b3..efce9b2 100644 --- a/fml/fmlmarc.c +++ b/fml/fmlmarc.c @@ -1,7 +1,59 @@ /* + * Copyright (c) 1995, the EUROPAGATE consortium (see below). + * + * The EUROPAGATE consortium members are: + * + * University College Dublin + * Danmarks Teknologiske Videnscenter + * An Chomhairle Leabharlanna + * Consejo Superior de Investigaciones Cientificas + * + * Permission to use, copy, modify, distribute, and sell this software and + * its documentation, in whole or in part, for any purpose, is hereby granted, + * provided that: + * + * 1. This copyright and permission notice appear in all copies of the + * software and its documentation. Notices of copyright or attribution + * which appear at the beginning of any file must remain unchanged. + * + * 2. The names of EUROPAGATE or the project partners may not be used to + * endorse or promote products derived from this software without specific + * prior written permission. + * + * 3. Users of this software (implementors and gateway operators) agree to + * inform the EUROPAGATE consortium of their use of the software. This + * information will be used to evaluate the EUROPAGATE project and the + * software, and to plan further developments. The consortium may use + * the information in later publications. + * + * 4. Users of this software agree to make their best efforts, when + * documenting their use of the software, to acknowledge the EUROPAGATE + * consortium, and the role played by the software in their work. + * + * THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND, + * EXPRESS, IMPLIED, OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY + * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. + * IN NO EVENT SHALL THE EUROPAGATE CONSORTIUM OR ITS MEMBERS BE LIABLE + * FOR ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF + * ANY KIND, OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA + * OR PROFITS, WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND + * ON ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE + * USE OR PERFORMANCE OF THIS SOFTWARE. + * + */ +/* * FML interpreter. Europagate, 1995 * - * fmlmarc.c,v + * $Log: fmlmarc.c,v $ + * Revision 1.6 1995/05/16 09:39:33 adam + * LICENSE. + * + * Revision 1.5 1995/03/30 14:22:02 adam + * Uses MARC anchor functions now. + * + * Revision 1.4 1995/02/23 08:32:05 adam + * Changed header. + * * Revision 1.2 1995/02/10 16:52:08 adam * Indicator field moved in MARC structure. The FML list representation * of a MARC record has changed. @@ -18,48 +70,10 @@ #include #include -#include +#include #include "fmlp.h" -#if 0 -struct fml_node *marc_to_fml (Fml fml, Iso2709Rec rec) -{ - struct fml_node *ptr_0 = NULL, *ptr_1; - struct iso2709_dir *dir; - - for (dir = rec->directory; dir; dir=dir->next) - { - struct fml_node *ptr; - - ptr = fml_node_alloc (fml); - if (ptr_0) - ptr_1->p[1] = ptr; - else - ptr_0 = ptr_1 = ptr; - - ptr_1 = ptr; - - if (dir->fields) - { - struct iso2709_field *fields = dir->fields; - - ptr = fml_node_alloc (fml); - ptr->p[0] = fml_atom_alloc (fml, fields->data); - ptr->is_atom = 1; - - while ((fields = fields->next)) - { - ptr = ptr->p[0] = fml_node_alloc (fml); - ptr->p[0] = fml_atom_alloc (fml, fields->data); - ptr->is_atom = 1; - } - } - } - return ptr_0; -} -#endif - static void add_string (const char *str, char **buf, int *max, int *size) { if (*size + strlen(str) >= *max) @@ -83,45 +97,49 @@ static void add_string (const char *str, char **buf, int *max, int *size) char *marc_to_str (Fml fml, Iso2709Rec rec) { - struct iso2709_dir *dir; static char *buf = NULL; static int max = 0; int size = 0; + Iso2709Anchor a; + char *tag, *indicator, *identifier, *data; add_string ("{", &buf, &max, &size); - for (dir = rec->directory; dir; dir=dir->next) + a = iso2709_a_mk (rec); + do { - struct iso2709_field *fields; - + if (!iso2709_a_info_line (a, &tag, &indicator)) + break; add_string ("{\'", &buf, &max, &size); - add_string (dir->tag, &buf, &max, &size); + add_string (tag, &buf, &max, &size); add_string ("\'",&buf, &max, &size); - if (dir->indicator) + if (indicator) { add_string ("\'", &buf, &max, &size); - add_string (dir->indicator, &buf, &max, &size); + add_string (indicator, &buf, &max, &size); add_string ("\'", &buf, &max, &size); } else add_string ("{}", &buf, &max, &size); add_string ("{", &buf, &max, &size); - for (fields = dir->fields; fields; fields=fields->next) + do { + iso2709_a_info_field (a, NULL, NULL, &identifier, &data); add_string ("{", &buf, &max, &size); - if (fields->identifier) + if (identifier) { add_string ("\'", &buf, &max, &size); - add_string (fields->identifier, &buf, &max, &size); + add_string (identifier, &buf, &max, &size); add_string ("\'", &buf, &max, &size); } else add_string ("{}", &buf, &max, &size); add_string (" \'", &buf, &max, &size); - add_string (fields->data, &buf, &max, &size); + add_string (data, &buf, &max, &size); add_string ("\'}", &buf, &max, &size); - } + } while (iso2709_a_next_field (a)); add_string ("}}\n", &buf, &max, &size); - } + } while (iso2709_a_next_line (a)); add_string ("}", &buf, &max, &size); + iso2709_a_rm (a); return buf; }