src/xcqlutil.c

   1 /* $Id: xcqlutil.c,v 1.6 2005-06-25 15:46:06 adam Exp $
   2    Copyright (C) 1995-2005, Index Data ApS
   3    Index Data Aps
   4
   5 This file is part of the YAZ toolkit.
   6
   7 See the file LICENSE.
   8 */
   9
  10 /**
  11  * \file xcqlutil.c
  12  * \brief Implements CQL to XCQL conversion.
  13  */
  14
  15 #include <stdlib.h>
  16 #include <string.h>
  17 #include <stdio.h>
  18
  19 #include <yaz/cql.h>
  20
  21 static void pr_n(const char *buf,
  22                 void (*pr)(const char *buf, void *client_data),
  23                 void *client_data, int n)
  24 {
  25     int i;
  26     for (i = 0; i<n; i++)
  27         (*pr)(" ", client_data);
  28     (*pr)(buf, client_data);
  29 }
  30
  31 static void pr_cdata(const char *buf,
  32                      void (*pr)(const char *buf, void *client_data),
  33                      void *client_data)
  34 {
  35     const char *src = buf;
  36     char bf[2];
  37     while (*src)
  38     {
  39         switch(*src)
  40         {
  41         case '&':
  42             (*pr)("&amp;", client_data);
  43             break;
  44         case '<':
  45             (*pr)("&lt;", client_data);
  46             break;
  47         case '>':
  48             (*pr)("&gt;", client_data);
  49             break;
  50         default:
  51             bf[0] = *src;
  52             bf[1] = 0;
  53             (*pr)(bf, client_data);
  54         }
  55         src++;
  56     }
  57 }
  58
  59 static void prefixes(struct cql_node *cn,
  60                      void (*pr)(const char *buf, void *client_data),
  61                      void *client_data, int level)
  62 {
  63     int head = 0;
  64     if (cn->u.st.index_uri)
  65     {
  66         pr_n("<prefixes>\n", pr, client_data, level);
  67         head = 1;
  68
  69         pr_n("<prefix>\n", pr, client_data, level+2);
  70         pr_n("<identifier>", pr, client_data, level+4);
  71         pr_cdata(cn->u.st.index_uri, pr, client_data);
  72         pr_n("</identifier>\n", pr, client_data, 0);
  73         pr_n("</prefix>\n", pr, client_data, level+2);
  74     }
  75     if (cn->u.st.relation_uri && cn->u.st.relation)
  76     {
  77         if (!head)
  78             pr_n("<prefixes>\n", pr, client_data, level);
  79         pr_n("<prefix>\n", pr, client_data, level+2);
  80         pr_n("<name>", pr, client_data, level+4);
  81         pr_cdata("rel", pr, client_data);
  82         pr_n("</name>\n", pr, client_data, 0);
  83         pr_n("<identifier>", pr, client_data, level+4);
  84         pr_cdata(cn->u.st.relation_uri, pr, client_data);
  85         pr_n("</identifier>\n", pr, client_data, 0);
  86         pr_n("</prefix>\n", pr, client_data, level+2);
  87     }
  88     if (head)
  89         pr_n("</prefixes>\n", pr, client_data, level);
  90 }
  91
  92 static void cql_to_xml_mod(struct cql_node *m,
  93                            void (*pr)(const char *buf, void *client_data),
  94                            void *client_data, int level)
  95 {
  96     if (m)
  97     {
  98         pr_n("<modifiers>\n", pr, client_data, level);
  99         for (; m; m = m->u.st.modifiers)
 100         {
 101             pr_n("<modifier>\n", pr, client_data, level+2);
 102             pr_n("<type>", pr, client_data, level+4);
 103             pr_cdata(m->u.st.index, pr, client_data);
 104             pr_n("</type>\n", pr, client_data, 0);
 105             if (m->u.st.relation)
 106             {
 107                 pr_n("<relation>", pr, client_data, level+4);
 108                 pr_cdata(m->u.st.relation, pr, client_data);
 109                 pr_n("</relation>\n", pr, client_data, 0);
 110             }
 111             if (m->u.st.term)
 112             {
 113                 pr_n("<value>", pr, client_data, level+4);
 114                 pr_cdata(m->u.st.term, pr, client_data);
 115                 pr_n("</value>\n", pr, client_data, 0);
 116             }
 117             pr_n("</modifier>\n", pr, client_data, level+2);
 118         }
 119         pr_n("</modifiers>\n", pr, client_data, level);
 120     }
 121 }
 122
 123 static void cql_to_xml_r(struct cql_node *cn,
 124                          void (*pr)(const char *buf, void *client_data),
 125                          void *client_data, int level)
 126 {
 127     if (!cn)
 128         return;
 129     switch (cn->which)
 130     {
 131     case CQL_NODE_ST:
 132         pr_n("<searchClause>\n", pr, client_data, level);
 133         prefixes(cn, pr, client_data, level+2);
 134         if (cn->u.st.index)
 135         {
 136             pr_n("<index>", pr, client_data, level+2);
 137             pr_cdata(cn->u.st.index, pr, client_data);
 138             pr_n("</index>\n", pr, client_data, 0);
 139         }
 140         if (cn->u.st.relation)
 141         {
 142             pr_n("<relation>\n", pr, client_data, level+2);
 143             pr_n("<value>", pr, client_data, level+4);
 144             if (cn->u.st.relation_uri)
 145                 pr_cdata("rel.", pr, client_data);
 146             pr_cdata(cn->u.st.relation, pr, client_data);
 147             pr_n("</value>\n", pr, client_data, 0);
 148
 149             if (cn->u.st.relation_uri)
 150             {
 151                 pr_n("<identifier>", pr, client_data, level+4);
 152                 pr_cdata(cn->u.st.relation_uri, pr, client_data);
 153                 pr_n("</identifier>\n", pr, client_data, 0);
 154             }
 155             cql_to_xml_mod(cn->u.st.modifiers,
 156                            pr, client_data, level+4);
 157
 158             pr_n("</relation>\n", pr, client_data, level+2);
 159         }
 160         if (cn->u.st.term)
 161         {
 162             pr_n("<term>", pr, client_data, level+2);
 163             pr_cdata(cn->u.st.term, pr, client_data);
 164             pr_n("</term>\n", pr, client_data, 0);
 165         }
 166         pr_n("</searchClause>\n", pr, client_data, level);
 167         break;
 168     case CQL_NODE_BOOL:
 169         pr_n("<triple>\n", pr, client_data, level);
 170         if (cn->u.boolean.value)
 171         {
 172             pr_n("<boolean>\n", pr, client_data, level+2);
 173
 174             pr_n("<value>", pr, client_data, level+4);
 175             pr_cdata(cn->u.boolean.value, pr, client_data);
 176             pr_n("</value>\n", pr, client_data, 0);
 177
 178             cql_to_xml_mod(cn->u.boolean.modifiers,
 179                            pr, client_data, level+4);
 180
 181             pr_n("</boolean>\n", pr, client_data, level+2);
 182         }
 183         if (cn->u.boolean.left)
 184         {
 185             printf ("%*s<leftOperand>\n", level+2, "");
 186             cql_to_xml_r(cn->u.boolean.left, pr, client_data, level+4);
 187             printf ("%*s</leftOperand>\n", level+2, "");
 188         }
 189         if (cn->u.boolean.right)
 190         {
 191             printf ("%*s<rightOperand>\n", level+2, "");
 192             cql_to_xml_r(cn->u.boolean.right, pr, client_data, level+4);
 193             printf ("%*s</rightOperand>\n", level+2, "");
 194         }
 195         pr_n("</triple>\n", pr, client_data, level);
 196     }
 197 }
 198
 199 void cql_to_xml(struct cql_node *cn,
 200                 void (*pr)(const char *buf, void *client_data),
 201                 void *client_data)
 202 {
 203     cql_to_xml_r(cn, pr, client_data, 0);
 204 }
 205
 206 void cql_to_xml_stdio(struct cql_node *cn, FILE *f)
 207 {
 208     cql_to_xml(cn, cql_fputs, f);
 209 }
 210
 211 void cql_buf_write_handler (const char *b, void *client_data)
 212 {
 213     struct cql_buf_write_info *info = (struct cql_buf_write_info *)client_data;
 214     int l = strlen(b);
 215     if (info->off < 0 || (info->off + l >= info->max))
 216     {
 217         info->off = -1;
 218         return;
 219     }
 220     memcpy (info->buf + info->off, b, l);
 221     info->off += l;
 222 }
 223
 224 int cql_to_xml_buf(struct cql_node *cn, char *out, int max)
 225 {
 226     struct cql_buf_write_info info;
 227     info.off = 0;
 228     info.max = max;
 229     info.buf = out;
 230     cql_to_xml(cn, cql_buf_write_handler, &info);
 231     if (info.off >= 0)
 232         info.buf[info.off] = '\0';
 233     return info.off;
 234 }
 235
 236 /*
 237  * Local variables:
 238  * c-basic-offset: 4
 239  * indent-tabs-mode: nil
 240  * End:
 241  * vim: shiftwidth=4 tabstop=8 expandtab
 242  */
 243