Added support (un-optimised) for left and left/right truncation

[idzebra-moved-to-github.git] / index / zlogs.c

diff --git a/index/zlogs.c b/index/zlogs.c
index 30920cc..73942e2 100644 (file)
--- a/index/zlogs.c
+++ b/index/zlogs.c
@@ -1,10 +1,25 @@
 /*
- * Copyright (C) 1994-1995, Index Data I/S 
+ * Copyright (C) 1995-1998, Index Data I/S 
  * All rights reserved.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: zlogs.c,v $
- * Revision 1.3  1996-03-20 09:36:40  adam
+ * Revision 1.8  1998-04-02 14:35:29  adam
+ * First version of Zebra that works with compiled ASN.1.
+ *
+ * Revision 1.7  1998/01/29 13:40:11  adam
+ * Better logging for scan service.
+ *
+ * Revision 1.6  1997/09/29 09:06:41  adam
+ * Removed static var to make this module thread safe.
+ *
+ * Revision 1.5  1997/04/30 08:56:07  quinn
+ * null
+ *
+ * Revision 1.4  1996/10/08  09:41:25  quinn
+ * Fixed diagnostic.
+ *
+ * Revision 1.3  1996/03/20  09:36:40  adam
  * Function dict_lookup_grep got extra parameter, init_pos, which marks
  * from which position in pattern approximate pattern matching should occur.
  * Approximate pattern matching is used in relevance=re-2.
@@ -21,10 +36,8 @@
 
 #include "zserver.h"
 
-static char *attrStr (int type, int value, enum oid_value ast)
+static void attrStr (int type, int value, enum oid_value ast, char *str)
 {
-    static char str[80];
-
     *str = '\0';
     switch (ast)
     {
@@ -197,7 +210,6 @@ static char *attrStr (int type, int value, enum oid_value ast)
         sprintf (str + strlen(str), " (%d=%d)", type, value);
     else
         sprintf (str, "%d=%d", type, value);
-    return str;
 }
 
 /*
@@ -207,16 +219,28 @@ static void zlog_attributes (Z_AttributesPlusTerm *t, int level,
                              enum oid_value ast)
 {
     int of, i;
-    for (of = 0; of < t->num_attributes; of++)
+    char str[80];
+#ifdef ASN_COMPILED
+    int num_attributes = t->attributes->num_attributes;
+#else
+    int num_attributes = t->num_attributes;
+#endif
+    
+    for (of = 0; of < num_attributes; of++)
     {
         Z_AttributeElement *element;
+#ifdef ASN_COMPILED
+       element = t->attributes->attributes[of];
+#else
         element = t->attributeList[of];
+#endif
 
         switch (element->which) 
         {
         case Z_AttributeValue_numeric:
-            logf (LOG_LOG, "%*.s %s", level, "",
-                  attrStr (*element->attributeType, *element->value.numeric, ast));
+           attrStr (*element->attributeType,
+                    *element->value.numeric, ast, str);
+            logf (LOG_LOG, "%*.s %s", level, "", str);
             break;
         case Z_AttributeValue_complex:
             logf (LOG_LOG, "%*.s attributeType=%d complex", level, "",
@@ -252,7 +276,7 @@ static void zlog_structure (Z_RPNStructure *zs, int level, enum oid_value ast)
             logf (LOG_LOG, "%*.s or", level, "");
             break;
         case Z_Operator_and_not:
-            logf (LOG_LOG, "%*.s and", level, "");
+            logf (LOG_LOG, "%*.s and-not", level, "");
             break;
         default:
             logf (LOG_LOG, "%*.s unknown complex", level, "");
@@ -299,3 +323,16 @@ void zlog_rpn (Z_RPNQuery *rpn)
     logf (LOG_LOG, "RPN query. Type: %s", attrset->desc);
     zlog_structure (rpn->RPNStructure, 0, ast);
 }
+
+void zlog_scan (Z_AttributesPlusTerm *zapt, oid_value ast)
+{
+    int level = 0;
+    if (zapt->term->which == Z_Term_general) 
+    {
+       logf (LOG_LOG, "%*.s term '%.*s' (general)", level, "",
+             zapt->term->u.general->len, zapt->term->u.general->buf);
+    }
+    else
+       logf (LOG_LOG, "%*.s term (not general)", level, "");
+    zlog_attributes (zapt, level+2, ast);
+}