* Sebastian Hammer, Adam Dickmeiss
*
* $Log: recgrs.c,v $
- * Revision 1.16 1998-01-29 13:38:17 adam
+ * Revision 1.18 1998-03-05 08:41:31 adam
+ * Minor changes.
+ *
+ * Revision 1.17 1998/02/10 12:03:06 adam
+ * Implemented Sort.
+ *
+ * Revision 1.16 1998/01/29 13:38:17 adam
* Fixed problem with mapping to record with unknown schema.
*
* Revision 1.15 1998/01/26 10:37:57 adam
#include <oid.h>
#include <recctrl.h>
-#include <charmap.h>
#include "grsread.h"
#define GRS_MAX_WORD 512
{
}
-static void dumpkeys_incomplete_field(data1_node *n, struct recExtractCtrl *p,
- data1_att *att, int reg_type)
-{
- const char *b = n->u.data.data;
- int remain;
- const char **map = 0;
-
- remain = n->u.data.len - (b - n->u.data.data);
- if (remain > 0)
- map = zebra_maps_input(p->zebra_maps, reg_type, &b, remain);
-
- while (map)
- {
- RecWord wrd;
- char buf[GRS_MAX_WORD+1];
- int i, remain;
-
- /* Skip spaces */
- while (map && *map && **map == *CHR_SPACE)
- {
- remain = n->u.data.len - (b - n->u.data.data);
- if (remain > 0)
- map = zebra_maps_input(p->zebra_maps, reg_type, &b, remain);
- else
- map = 0;
- }
- if (!map)
- break;
- i = 0;
- while (map && *map && **map != *CHR_SPACE)
- {
- const char *cp = *map;
-
- while (i < GRS_MAX_WORD && *cp)
- buf[i++] = *(cp++);
- remain = n->u.data.len - (b - n->u.data.data);
- if (remain > 0)
- map = zebra_maps_input(p->zebra_maps, reg_type, &b, remain);
- else
- map = 0;
- }
- if (!i)
- return;
- buf[i] = '\0';
- (*p->init)(&wrd); /* set defaults */
- wrd.reg_type = reg_type;
- wrd.seqno = seqno++;
- wrd.string = buf;
- wrd.attrSet = att->parent->ordinal;
- wrd.attrUse = att->locals->local;
- (*p->add)(&wrd);
- }
-}
-
-static void dumpkeys_complete_field(data1_node *n, struct recExtractCtrl *p,
- data1_att *att, int reg_type)
-{
- const char *b = n->u.data.data;
- char buf[GRS_MAX_WORD+1];
- const char **map = 0;
- RecWord wrd;
- int i = 0, remain;
-
- remain = n->u.data.len - (b - n->u.data.data);
- if (remain > 0)
- map = zebra_maps_input (p->zebra_maps, reg_type, &b, remain);
-
- while (remain > 0 && i < GRS_MAX_WORD)
- {
- while (map && *map && **map == *CHR_SPACE)
- {
- remain = n->u.data.len - (b - n->u.data.data);
- if (remain > 0)
- map = zebra_maps_input(p->zebra_maps, reg_type, &b, remain);
- else
- map = 0;
- }
- if (!map)
- break;
-
- if (i && i < GRS_MAX_WORD)
- buf[i++] = *CHR_SPACE;
- while (map && *map && **map != *CHR_SPACE)
- {
- const char *cp = *map;
-
- if (i >= GRS_MAX_WORD)
- break;
- while (i < GRS_MAX_WORD && *cp)
- buf[i++] = *(cp++);
- remain = n->u.data.len - (b - n->u.data.data);
- if (remain > 0)
- map = zebra_maps_input (p->zebra_maps, reg_type, &b, remain);
- else
- map = 0;
- }
- }
- if (!i)
- return;
- buf[i] = '\0';
- (*p->init)(&wrd);
-
- wrd.reg_type = reg_type;
- wrd.seqno = seqno++;
- wrd.string = buf;
- wrd.attrSet = att->parent->ordinal;
- wrd.attrUse = att->locals->local;
- (*p->add)(&wrd);
-}
-
static int dumpkeys(data1_node *n, struct recExtractCtrl *p, int level)
{
+ RecWord wrd;
+ (*p->init)(p, &wrd); /* set defaults */
for (; n; n = n->next)
{
if (p->flagShowRecords) /* display element description to user */
{
printf("%*s", level * 4, "");
printf("Data: ");
- if (n->u.data.len > 20)
- printf("'%.20s...'\n", n->u.data.data);
+ if (n->u.data.len > 32)
+ printf("'%.24s ... %.6s'\n", n->u.data.data,
+ n->u.data.data + n->u.data.len-6);
else if (n->u.data.len > 0)
printf("'%.*s'\n", n->u.data.len, n->u.data.data);
else
tlist->att->name, tlist->att->value);
}
else
- if (zebra_maps_is_complete (p->zebra_maps,
- *tlist->structure))
- dumpkeys_complete_field(n, p, tlist->att,
- *tlist->structure);
- else
- dumpkeys_incomplete_field(n, p, tlist->att,
- *tlist->structure);
+ {
+ wrd.reg_type = *tlist->structure;
+ wrd.seqno = seqno;
+ wrd.string = n->u.data.data;
+ wrd.length = n->u.data.len;
+ wrd.attrSet = tlist->att->parent->ordinal;
+ wrd.attrUse = tlist->att->locals->local;
+ (*p->add)(&wrd);
+ seqno = wrd.seqno;
+ }
}
}
if (p->flagShowRecords && n->which == DATA1N_root)
static int grs_retrieve(struct recRetrieveCtrl *p)
{
data1_node *node = 0, *onode = 0;
- data1_node *new;
+ data1_node *dnew;
data1_maptab *map;
int res, selected = 0;
NMEM mem;
nmem_destroy (mem);
return 0;
}
+ logf (LOG_DEBUG, "grs_retrieve: size");
+ if ((dnew = data1_insert_taggeddata(p->dh, node, node,
+ "size", mem)))
+ {
+ dnew->u.data.what = DATA1I_text;
+ dnew->u.data.data = dnew->lbuf;
+ sprintf(dnew->u.data.data, "%d", p->recordSize);
+ dnew->u.data.len = strlen(dnew->u.data.data);
+ }
+
logf (LOG_DEBUG, "grs_retrieve: score");
- if (p->score >= 0 && (new =
+ if (p->score >= 0 && (dnew =
data1_insert_taggeddata(p->dh, node,
node, "rank",
mem)))
{
- new->u.data.what = DATA1I_num;
- new->u.data.data = new->lbuf;
- sprintf(new->u.data.data, "%d", p->score);
- new->u.data.len = strlen(new->u.data.data);
+ dnew->u.data.what = DATA1I_num;
+ dnew->u.data.data = dnew->lbuf;
+ sprintf(dnew->u.data.data, "%d", p->score);
+ dnew->u.data.len = strlen(dnew->u.data.data);
}
+
logf (LOG_DEBUG, "grs_retrieve: localControlNumber");
- if ((new = data1_insert_taggeddata(p->dh, node, node,
+ if ((dnew = data1_insert_taggeddata(p->dh, node, node,
"localControlNumber", mem)))
{
- new->u.data.what = DATA1I_text;
- new->u.data.data = new->lbuf;
- sprintf(new->u.data.data, "%d", p->localno);
- new->u.data.len = strlen(new->u.data.data);
+ dnew->u.data.what = DATA1I_text;
+ dnew->u.data.data = dnew->lbuf;
+ sprintf(dnew->u.data.data, "%d", p->localno);
+ dnew->u.data.len = strlen(dnew->u.data.data);
}
+
logf (LOG_DEBUG, "grs_retrieve: schemaIdentifier");
if (p->input_format == VAL_GRS1 && node->u.root.absyn &&
node->u.root.absyn->reference != VAL_NONE)
}
*(p++) = '\0';
- if ((new = data1_insert_taggeddata(dh, node, node,
+ if ((dnew = data1_insert_taggeddata(dh, node, node,
"schemaIdentifier", mem)))
{
- new->u.data.what = DATA1I_oid;
- new->u.data.data = nmem_malloc(mem, p - tmp);
- memcpy(new->u.data.data, tmp, p - tmp);
- new->u.data.len = p - tmp;
+ dnew->u.data.what = DATA1I_oid;
+ dnew->u.data.data = nmem_malloc(mem, p - tmp);
+ memcpy(dnew->u.data.data, tmp, p - tmp);
+ dnew->u.data.len = p - tmp;
}
}
}