1 /* $Id: dom1.c,v 1.1 2007-02-07 12:08:54 adam Exp $
2 Copyright (C) 1995-2007
5 This file is part of the Zebra server.
7 Zebra is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
12 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
26 ZebraHandle index_some(ZebraService zs,
27 const char *filter, const char *file)
30 char profile_path[256];
32 ZebraHandle zh = zebra_open(zs, 0);
34 tl_check_filter(zs, "dom");
36 YAZ_CHECK(zebra_select_database(zh, "Default") == ZEBRA_OK);
40 sprintf(profile_path, "%.80s:%.80s/../../tab",
41 tl_get_srcdir(), tl_get_srcdir());
42 zebra_set_resource(zh, "profilePath", profile_path);
44 zebra_set_resource(zh, "recordType", filter);
46 YAZ_CHECK(zebra_begin_trans(zh, 1) == ZEBRA_OK);
47 sprintf(path, "%.80s/%.80s", tl_get_srcdir(), file);
49 YAZ_CHECK(zebra_repository_update(zh, path) == ZEBRA_OK);
50 YAZ_CHECK(zebra_end_trans(zh) == ZEBRA_OK);
55 void tst(int argc, char **argv)
59 ZebraService zs = tl_start_up(0, argc, argv);
61 zh = index_some(zs, "dom.bad.xml", "marc-col.xml");
64 zh = index_some(zs, "dom.dom-config-col.xml", "marc-col.xml");
65 YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 3));
66 YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
67 YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
68 YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
71 zh = index_some(zs, "dom.dom-config-one.xml", "marc-one.xml");
72 YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 1));
73 YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
74 YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
75 YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
78 zh = index_some(zs, "dom.dom-config-marc.xml", "marc-col.mrc");
79 YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 3));
80 YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
81 YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
82 YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
85 YAZ_CHECK(tl_close_down(0, zs));
93 * indent-tabs-mode: nil
95 * vim: shiftwidth=4 tabstop=8 expandtab