1 /* This file is part of Pazpar2.
2 Copyright (C) 2006-2009 Index Data
4 Pazpar2 is free software; you can redistribute it and/or modify it under
5 the terms of the GNU General Public License as published by the Free
6 Software Foundation; either version 2, or (at your option) any later
9 Pazpar2 is distributed in the hope that it will be useful, but WITHOUT ANY
10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
21 \brief MARC map implementation
32 #include <libxml/parser.h>
33 #include <libxml/tree.h>
40 struct marcmap *marcmap_load(char *filename, NMEM nmem) {
42 struct marcmap *mmhead;
55 fp = fopen(filename, "r");
57 while ((c = getc(fp) ) != EOF)
59 // allocate some space
64 mm->next = nmem_malloc(nmem, sizeof(struct marcmap));
69 { mm = nmem_malloc(nmem, sizeof(struct marcmap));
74 // whitespace saves and moves on
75 if (c == ' ' || c == '\n' || c == '\t')
85 mm->field = nmem_malloc(nmem, len * sizeof(char));
86 strncpy(mm->field, buf, len);
89 // second, marc subfield, just a char
92 mm->subfield = buf[len-2];
94 // third, pz fieldname
97 mm->pz = nmem_malloc(nmem, len * sizeof(char));
98 strncpy(mm->pz, buf, len);
101 // new line, new record
123 xmlDoc *marcmap_apply(struct marcmap *marcmap, xmlDoc *xml_in)
131 xmlNodePtr xml_out_root;
133 xmlNodePtr meta_node;
134 struct marchash *marchash;
135 struct marcfield *field;
136 struct marcsubfield *subfield;
137 struct marcmap *mmcur;
139 xml_out = xmlNewDoc(BAD_CAST "1.0");
140 xml_out_root = xmlNewNode(NULL, BAD_CAST "record");
141 xmlDocSetRootElement(xml_out, xml_out_root);
142 ns_pz = xmlNewNs(xml_out_root, BAD_CAST "http://www.indexdata.com/pazpar2/1.0", BAD_CAST "pz");
143 nmem = nmem_create();
144 rec_node = xmlDocGetRootElement(xml_in);
145 marchash = marchash_create(nmem);
146 marchash_ingest_marcxml(marchash, rec_node);
149 while (mmcur != NULL)
152 while ((field = marchash_get_field(marchash, mmcur->field, field)) != 0)
155 if ((mmcur->subfield == '$') && (s = field->val))
157 meta_node = xmlNewChild(xml_out_root, ns_pz, BAD_CAST "metadata", BAD_CAST s);
158 xmlSetProp(meta_node, BAD_CAST "type", BAD_CAST mmcur->pz);
160 // catenate all subfields
161 else if ((mmcur->subfield == '*') && (s = marchash_catenate_subfields(field, " ", nmem)))
163 meta_node = xmlNewChild(xml_out_root, ns_pz, BAD_CAST "metadata", BAD_CAST s);
164 xmlSetProp(meta_node, BAD_CAST "type", BAD_CAST mmcur->pz);
167 else if (mmcur->subfield)
171 marchash_get_subfield(mmcur->subfield,
172 field, subfield)) != 0)
174 if ((s = subfield->val) != 0)
176 meta_node = xmlNewChild(xml_out_root, ns_pz, BAD_CAST "metadata", BAD_CAST s);
177 xmlSetProp(meta_node, BAD_CAST "type", BAD_CAST mmcur->pz);
186 // hard coded mappings
189 if ((field = marchash_get_field(marchash, "245", NULL)) && (subfield = marchash_get_subfield('h', field, NULL)))
191 strncpy(medium, subfield->val, 32);
193 else if ((field = marchash_get_field(marchash, "900", NULL)) && (subfield = marchash_get_subfield('a', field, NULL)))
194 strcpy(medium, "electronic resource");
195 else if ((field = marchash_get_field(marchash, "900", NULL)) && (subfield = marchash_get_subfield('b', field, NULL)))
196 strcpy(medium, "electronic resource");
197 else if ((field = marchash_get_field(marchash, "773", NULL)) && (subfield = marchash_get_subfield('t', field, NULL)))
198 strcpy(medium, "article");
200 strcpy(medium, "book");
202 meta_node = xmlNewChild(xml_out_root, ns_pz, BAD_CAST "metadata", BAD_CAST medium);
203 xmlSetProp(meta_node, BAD_CAST "type", BAD_CAST "medium");
206 memset(mergekey, 0, 1024);
207 strcpy(mergekey, "title ");
208 if ((field = marchash_get_field(marchash, "245", NULL)) && (subfield = marchash_get_subfield('a', field, NULL)))
209 strncat(mergekey, subfield->val, 1023 - strlen(mergekey));
210 strncat(mergekey, " author ", 1023 - strlen(mergekey));
211 if ((field = marchash_get_field(marchash, "245", NULL)) && (subfield = marchash_get_subfield('a', field, NULL)))
212 strncat(mergekey, subfield->val, 1023 - strlen(mergekey));
213 strncat(mergekey, " medium ", 1023 - strlen(mergekey));
214 strncat(mergekey, medium, 1023 - strlen(mergekey));
216 xmlSetProp(xml_out_root, BAD_CAST "mergekey", BAD_CAST mergekey);
225 * c-file-style: "Stroustrup"
226 * indent-tabs-mode: nil
228 * vim: shiftwidth=4 tabstop=8 expandtab