[BACK]Return to apropos_db.c CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / mandoc

Diff for /mandoc/Attic/apropos_db.c between version 1.14 and 1.21

version 1.14, 2011/11/27 23:11:37 version 1.21, 2011/12/03 18:47:09
Line 15 
Line 15 
  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF   * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.   * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  */   */
   #ifdef HAVE_CONFIG_H
   #include "config.h"
   #endif
   
 #include <assert.h>  #include <assert.h>
 #include <fcntl.h>  #include <fcntl.h>
 #include <regex.h>  #include <regex.h>
Line 24 
Line 28 
 #include <string.h>  #include <string.h>
 #include <unistd.h>  #include <unistd.h>
   
 #ifdef __linux__  #if defined(__linux__)
   # include <endian.h>
 # include <db_185.h>  # include <db_185.h>
   #elif defined(__APPLE__)
   # include <libkern/OSByteOrder.h>
   # include <db.h>
 #else  #else
 # include <db.h>  # include <db.h>
 #endif  #endif
Line 52  struct expr {
Line 60  struct expr {
         int              regex; /* is regex? */          int              regex; /* is regex? */
         int              index; /* index in match array */          int              index; /* index in match array */
         uint64_t         mask; /* type-mask */          uint64_t         mask; /* type-mask */
         int              cs; /* is case-sensitive? */  
         int              and; /* is rhs of logical AND? */          int              and; /* is rhs of logical AND? */
         char            *v; /* search value */          char            *v; /* search value */
         regex_t          re; /* compiled re, if regex */          regex_t          re; /* compiled re, if regex */
Line 115  static const struct type types[] = {
Line 122  static const struct type types[] = {
 };  };
   
 static  DB      *btree_open(void);  static  DB      *btree_open(void);
 static  int      btree_read(const DBT *,  static  int      btree_read(const DBT *, const DBT *,
                         const struct mchars *, char **);                          const struct mchars *,
                           struct db_val *, char **);
 static  int      expreval(const struct expr *, int *);  static  int      expreval(const struct expr *, int *);
 static  void     exprexec(const struct expr *,  static  void     exprexec(const struct expr *,
                         const char *, uint64_t, struct rec *);                          const char *, uint64_t, struct rec *);
Line 159  btree_open(void)
Line 167  btree_open(void)
  * Return 0 if the database is insane, else 1.   * Return 0 if the database is insane, else 1.
  */   */
 static int  static int
 btree_read(const DBT *v, const struct mchars *mc, char **buf)  btree_read(const DBT *k, const DBT *v,
                   const struct mchars *mc,
                   struct db_val *dbv, char **buf)
 {  {
           const struct db_val *vp;
   
         /* Sanity: are we nil-terminated? */          /* Are our sizes sane? */
           if (k->size < 2 || sizeof(struct db_val) != v->size)
                   return(0);
   
         assert(v->size > 0);          /* Is our string nil-terminated? */
           if ('\0' != ((const char *)k->data)[(int)k->size - 1])
         if ('\0' != ((char *)v->data)[(int)v->size - 1])  
                 return(0);                  return(0);
   
         norm_string((char *)v->data, mc, buf);          vp = v->data;
           norm_string((const char *)k->data, mc, buf);
           dbv->rec = betoh32(vp->rec);
           dbv->mask = betoh64(vp->mask);
         return(1);          return(1);
 }  }
   
Line 443  single_search(struct rectree *tree, const struct opts 
Line 458  single_search(struct rectree *tree, const struct opts 
                 struct mchars *mc, int vol)                  struct mchars *mc, int vol)
 {  {
         int              root, leaf, ch;          int              root, leaf, ch;
         uint64_t         mask;  
         DBT              key, val;          DBT              key, val;
         DB              *btree, *idx;          DB              *btree, *idx;
         char            *buf;          char            *buf;
         recno_t          rec;  
         struct rec      *rs;          struct rec      *rs;
         struct rec       r;          struct rec       r;
         struct db_val   *vbuf;          struct db_val    vb;
   
         root    = -1;          root    = -1;
         leaf    = -1;          leaf    = -1;
Line 470  single_search(struct rectree *tree, const struct opts 
Line 483  single_search(struct rectree *tree, const struct opts 
         }          }
   
         while (0 == (ch = (*btree->seq)(btree, &key, &val, R_NEXT))) {          while (0 == (ch = (*btree->seq)(btree, &key, &val, R_NEXT))) {
                 if (key.size < 2 || sizeof(struct db_val) != val.size)                  if ( ! btree_read(&key, &val, mc, &vb, &buf))
                         break;                          break;
                 if ( ! btree_read(&key, mc, &buf))  
                         break;  
   
                 vbuf = val.data;  
                 rec = vbuf->rec;  
                 mask = vbuf->mask;  
   
                 /*                  /*
                  * See if this keyword record matches any of the                   * See if this keyword record matches any of the
                  * expressions we have stored.                   * expressions we have stored.
                  */                   */
                 if ( ! exprmark(expr, buf, mask, NULL))                  if ( ! exprmark(expr, buf, vb.mask, NULL))
                         continue;                          continue;
   
                 /*                  /*
Line 493  single_search(struct rectree *tree, const struct opts 
Line 500  single_search(struct rectree *tree, const struct opts 
                  */                   */
   
                 for (leaf = root; leaf >= 0; )                  for (leaf = root; leaf >= 0; )
                         if (rec > rs[leaf].res.rec &&                          if (vb.rec > rs[leaf].res.rec &&
                                         rs[leaf].rhs >= 0)                                          rs[leaf].rhs >= 0)
                                 leaf = rs[leaf].rhs;                                  leaf = rs[leaf].rhs;
                         else if (rec < rs[leaf].res.rec &&                          else if (vb.rec < rs[leaf].res.rec &&
                                         rs[leaf].lhs >= 0)                                          rs[leaf].lhs >= 0)
                                 leaf = rs[leaf].lhs;                                  leaf = rs[leaf].lhs;
                         else                          else
Line 508  single_search(struct rectree *tree, const struct opts 
Line 515  single_search(struct rectree *tree, const struct opts 
                  * try to evaluate it now and continue anyway.                   * try to evaluate it now and continue anyway.
                  */                   */
   
                 if (leaf >= 0 && rs[leaf].res.rec == rec) {                  if (leaf >= 0 && rs[leaf].res.rec == vb.rec) {
                         if (0 == rs[leaf].matched)                          if (0 == rs[leaf].matched)
                                 exprexec(expr, buf, mask, &rs[leaf]);                                  exprexec(expr, buf, vb.mask, &rs[leaf]);
                         continue;                          continue;
                 }                  }
   
Line 520  single_search(struct rectree *tree, const struct opts 
Line 527  single_search(struct rectree *tree, const struct opts 
                  * database, then begin partial evaluation.                   * database, then begin partial evaluation.
                  */                   */
   
                 key.data = &rec;                  key.data = &vb.rec;
                 key.size = sizeof(recno_t);                  key.size = sizeof(recno_t);
   
                 if (0 != (*idx->get)(idx, &key, &val, 0))                  if (0 != (*idx->get)(idx, &key, &val, 0))
Line 544  single_search(struct rectree *tree, const struct opts 
Line 551  single_search(struct rectree *tree, const struct opts 
                 rs[tree->len].matches =                  rs[tree->len].matches =
                         mandoc_calloc(terms, sizeof(int));                          mandoc_calloc(terms, sizeof(int));
   
                 exprexec(expr, buf, mask, &rs[tree->len]);                  exprexec(expr, buf, vb.mask, &rs[tree->len]);
   
                 /* Append to our tree. */                  /* Append to our tree. */
   
                 if (leaf >= 0) {                  if (leaf >= 0) {
                         if (rec > rs[leaf].res.rec)                          if (vb.rec > rs[leaf].res.rec)
                                 rs[leaf].rhs = tree->len;                                  rs[leaf].rhs = tree->len;
                         else                          else
                                 rs[leaf].lhs = tree->len;                                  rs[leaf].lhs = tree->len;
Line 571  static void
Line 578  static void
 recfree(struct rec *rec)  recfree(struct rec *rec)
 {  {
   
           free(rec->res.type);
         free(rec->res.file);          free(rec->res.file);
         free(rec->res.cat);          free(rec->res.cat);
         free(rec->res.title);          free(rec->res.title);
Line 599  termcomp(int argc, char *argv[], size_t *tt)
Line 607  termcomp(int argc, char *argv[], size_t *tt)
         e = NULL;          e = NULL;
         *tt = 0;          *tt = 0;
   
         for (pos = 0; pos < argc; pos++) {          for (pos = argc - 1; pos >= 0; pos--) {
                 sz = strlen(argv[pos]) + 16;                  sz = strlen(argv[pos]) + 18;
                 buf = mandoc_realloc(buf, sz);                  buf = mandoc_realloc(buf, sz);
                 strlcpy(buf, "~[[:<:]]", sz);                  strlcpy(buf, "Nm~[[:<:]]", sz);
                 strlcat(buf, argv[pos], sz);                  strlcat(buf, argv[pos], sz);
                 strlcat(buf, "[[:>:]]", sz);                  strlcat(buf, "[[:>:]]", sz);
                 if (NULL == (next = exprterm(buf, 0))) {                  if (NULL == (next = exprterm(buf, 0))) {
Line 610  termcomp(int argc, char *argv[], size_t *tt)
Line 618  termcomp(int argc, char *argv[], size_t *tt)
                         exprfree(e);                          exprfree(e);
                         return(NULL);                          return(NULL);
                 }                  }
                 if (NULL != e)                  next->next = e;
                         e->next = next;  
                 e = next;                  e = next;
                 (*tt)++;                  (*tt)++;
         }          }
Line 695  exprexpr(int argc, char *argv[], int *pos, int *lvl, s
Line 702  exprexpr(int argc, char *argv[], int *pos, int *lvl, s
                         ++(*pos);                          ++(*pos);
                         ++(*lvl);                          ++(*lvl);
                         next = mandoc_calloc(1, sizeof(struct expr));                          next = mandoc_calloc(1, sizeof(struct expr));
                         next->cs = 1;  
                         next->subexpr = exprexpr(argc, argv, pos, lvl, tt);                          next->subexpr = exprexpr(argc, argv, pos, lvl, tt);
                         if (NULL == next->subexpr) {                          if (NULL == next->subexpr) {
                                 free(next);                                  free(next);
Line 746  exprterm(char *buf, int cs)
Line 752  exprterm(char *buf, int cs)
   
         memset(&e, 0, sizeof(struct expr));          memset(&e, 0, sizeof(struct expr));
   
         e.cs = cs;  
   
         /* Choose regex or substring match. */          /* Choose regex or substring match. */
   
         if (NULL == (e.v = strpbrk(buf, "=~"))) {          if (NULL == (e.v = strpbrk(buf, "=~"))) {
Line 819  exprmark(const struct expr *p, const char *cp,
Line 823  exprmark(const struct expr *p, const char *cp,
                 if (p->regex) {                  if (p->regex) {
                         if (regexec(&p->re, cp, 0, NULL, 0))                          if (regexec(&p->re, cp, 0, NULL, 0))
                                 continue;                                  continue;
                 } else if (p->cs) {                  } else if (NULL == strcasestr(cp, p->v))
                         if (NULL == strstr(cp, p->v))                          continue;
                                 continue;  
                 } else {  
                         if (NULL == strcasestr(cp, p->v))  
                                 continue;  
                 }  
   
                 if (NULL == ms)                  if (NULL == ms)
                         return(1);                          return(1);
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.21
CVSweb