* Sebastian Hammer, Adam Dickmeiss
*
* $Log: zebramap.c,v $
- * Revision 1.16 1999-09-07 07:19:21 adam
+ * Revision 1.22 2001-11-14 22:06:27 adam
+ * Rank-weight may be controlled via query.
+ *
+ * Revision 1.21 2001/01/22 10:42:56 adam
+ * Added numerical sort.
+ *
+ * Revision 1.20 2000/03/02 14:35:19 adam
+ * Added structure year and date.
+ *
+ * Revision 1.19 1999/11/30 13:48:04 adam
+ * Improved installation. Updated for inclusion of YAZ header files.
+ *
+ * Revision 1.18 1999/10/15 08:27:46 adam
+ * Fixed replace handler. 8-bit fix.
+ *
+ * Revision 1.17 1999/09/08 12:13:21 adam
+ * Fixed minor bug "replace"-mappings. Removed some logging messages.
+ *
+ * Revision 1.16 1999/09/07 07:19:21 adam
* Work on character mapping. Implemented replace rules.
*
* Revision 1.15 1999/05/26 07:49:14 adam
#include <assert.h>
#include <ctype.h>
-#include <yaz-util.h>
+#include <yaz/yaz-util.h>
#include <charmap.h>
#include <zebramap.h>
#define ZEBRA_MAP_TYPE_SORT 1
#define ZEBRA_MAP_TYPE_INDEX 2
+#define ZEBRA_REPLACE_ANY 300
+
struct zm_token {
- char *token_from;
+ int *token_from;
char *token_to;
int token_min;
struct zm_token *next;
(*zm)->maptab = NULL;
(*zm)->completeness = 0;
(*zm)->positioned = 0;
+ (*zm)->replace_tokens = 0;
}
else if (zm && !yaz_matchstr (argv[0], "charmap") && argc == 2)
{
else if (zm && !yaz_matchstr (argv[0], "replace") && argc >= 2)
{
struct zm_token *token = nmem_malloc (zms->nmem, sizeof(*token));
- char *cp, *dp;
token->next = (*zm)->replace_tokens;
(*zm)->replace_tokens = token;
- dp = token->token_from = nmem_strdup (zms->nmem, cp = argv[1]);
- while (*cp)
- {
- if (*cp == '$')
- {
- *dp++ = ' ';
- cp++;
- }
- else
- *dp++ = zebra_prim(&cp);
+#if 0
+ logf (LOG_LOG, "replace %s", argv[1]);
+#endif
+ token->token_from = 0;
+ if (argc >= 2)
+ {
+ char *cp = argv[1];
+ int *dp = token->token_from = (int *)
+ nmem_malloc (zms->nmem, (1+strlen(cp))*sizeof(int));
+ while (*cp)
+ if (*cp == '$')
+ {
+ *dp++ = ' ';
+ cp++;
+ }
+ else if (*cp == '.')
+ {
+ *dp++ = ZEBRA_REPLACE_ANY;
+ cp++;
+ }
+ else
+ {
+ *dp++ = zebra_prim(&cp);
+#if 0
+ logf (LOG_LOG, " char %2X %c", dp[-1], dp[-1]);
+#endif
+ }
+ *dp = '\0';
}
- *dp = '\0';
-
if (argc >= 3)
{
- dp = token->token_to = nmem_strdup (zms->nmem, cp = argv[2]);
+ char *cp = argv[2];
+ char *dp = token->token_to =
+ nmem_malloc (zms->nmem, strlen(cp)+1);
while (*cp)
- {
if (*cp == '$')
{
*dp++ = ' ';
}
else
*dp++ = zebra_prim(&cp);
- }
*dp = '\0';
}
else
logf (LOG_WARN, "Unknown register type: %c", reg_id);
zm->reg_id = reg_id;
- zm->maptab_name = NULL;
+ zm->maptab_name = nmem_strdup (zms->nmem, "@");
zm->maptab = NULL;
zm->type = ZEBRA_MAP_TYPE_INDEX;
zm->completeness = 0;
return 0;
}
-int zebra_maps_sort (ZebraMaps zms, Z_SortAttributes *sortAttributes)
+int zebra_maps_sort (ZebraMaps zms, Z_SortAttributes *sortAttributes,
+ int *numerical)
{
AttrType use;
+ AttrType structure;
+ int structure_value;
attr_init_AttrList (&use, sortAttributes->list, 1);
+ attr_init_AttrList (&structure, sortAttributes->list, 4);
+ *numerical = 0;
+ structure_value = attr_find (&structure, 0);
+ if (structure_value == 109)
+ *numerical = 1;
return attr_find (&use, NULL);
}
int zebra_maps_attr (ZebraMaps zms, Z_AttributesPlusTerm *zapt,
- unsigned *reg_id, char **search_type, char **rank_type,
+ unsigned *reg_id, char **search_type, char *rank_type,
int *complete_flag, int *sort_flag)
{
AttrType completeness;
AttrType structure;
AttrType relation;
AttrType sort_relation;
+ AttrType weight;
int completeness_value;
int structure_value;
int relation_value;
int sort_relation_value;
+ int weight_value;
attr_init_APT (&structure, zapt, 4);
attr_init_APT (&completeness, zapt, 6);
attr_init_APT (&relation, zapt, 2);
attr_init_APT (&sort_relation, zapt, 7);
+ attr_init_APT (&weight, zapt, 9);
completeness_value = attr_find (&completeness, NULL);
structure_value = attr_find (&structure, NULL);
relation_value = attr_find (&relation, NULL);
sort_relation_value = attr_find (&sort_relation, NULL);
+ weight_value = attr_find (&weight, NULL);
if (completeness_value == 2 || completeness_value == 3)
*complete_flag = 1;
*sort_flag = (sort_relation_value > 0) ? 1 : 0;
*search_type = "phrase";
- *rank_type = "void";
+ strcpy (rank_type, "void");
if (relation_value == 102)
- *rank_type = "rank";
-
+ {
+ if (weight_value == -1)
+ weight_value == 34;
+ sprintf (rank_type, "rank,%d", weight_value);
+ }
if (*complete_flag)
*reg_id = 'p';
else
*reg_id = '0';
*search_type = "phrase";
break;
+ case 4: /* year */
+ *reg_id = 'y';
+ *search_type = "phrase";
+ break;
+ case 5: /* date */
+ *reg_id = 'd';
+ *search_type = "phrase";
+ break;
default:
return -1;
}
wrbuf_rewind(zms->wrbuf_1);
wrbuf_write(zms->wrbuf_1, input_str, input_len);
- if (!zm->replace_tokens)
+ if (!zm || !zm->replace_tokens)
return zms->wrbuf_1;
-
-#if 0
- logf (LOG_LOG, "zebra_replace");
+
+#if 0
logf (LOG_LOG, "in:%.*s:", wrbuf_len(zms->wrbuf_1),
wrbuf_buf(zms->wrbuf_1));
#endif
if (i+j < 0 || j+i >= input_len)
c = ' ';
else
- c = tolower(input_str[j+i]);
- if (token->token_from[j] == '.')
+ c = input_str[j+i] & 255;
+ if (token->token_from[j] == ZEBRA_REPLACE_ANY)
{
if (c == ' ')
break;
else
{
if (c != token->token_from[j])
+ {
break;
+ }
if (!replace_done)
{
const char *cp = token->token_to;
projects / idzebra-moved-to-github.git / blobdiff