mdocml: Fix whatis(1) to correctly match words instead of any

[schwarze@mdocml.bsd.lv]

Log Message:
-----------
Fix whatis(1) to correctly match words instead of any substrings.
While here, also provide an internal mode (MANSEARCH_MAN) to match
complete names, to be used by man.cgi(8).

Modified Files:
--------------
    mdocml:
        mansearch.c
        mansearch.h

Revision Data
-------------
Index: mansearch.h
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/mansearch.h,v
retrieving revision 1.13
retrieving revision 1.14
diff -Lmansearch.h -Lmansearch.h -u -p -r1.13 -r1.14
--- mansearch.h
+++ mansearch.h
@@ -82,7 +82,8 @@ struct	mansearch {
 	const char	*sec; /* mansection/NULL */
 	uint64_t	 deftype; /* type if no key  */
 	int		 flags;
-#define	MANSEARCH_WHATIS 0x01 /* whatis mode: equality, no key */
+#define	MANSEARCH_WHATIS 0x01 /* whatis(1) mode: whole words, no keys */
+#define	MANSEARCH_MAN    0x02 /* man(1) mode: string equality, no keys */
 };
 
 int	mansearch_setup(int);
Index: mansearch.c
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/mansearch.c,v
retrieving revision 1.37
retrieving revision 1.38
diff -Lmansearch.c -Lmansearch.c -u -p -r1.37 -r1.38
--- mansearch.c
+++ mansearch.c
@@ -64,13 +64,14 @@ extern const char *const mansearch_keyna
 	} while (0)
 
 struct	expr {
-	uint64_t	 bits;    /* type-mask */
-	const char	*substr;  /* to search for, if applicable */
 	regex_t		 regexp;  /* compiled regexp, if applicable */
+	const char	*substr;  /* to search for, if applicable */
+	struct expr	*next;    /* next in sequence */
+	uint64_t	 bits;    /* type-mask */
+	int		 equal;   /* equality, not subsring match */
 	int		 open;    /* opening parentheses before */
 	int		 and;	  /* logical AND before */
 	int		 close;   /* closing parentheses after */
-	struct expr	*next;    /* next in sequence */
 };
 
 struct	match {
@@ -561,6 +562,9 @@ sql_statement(const struct expr *e)
 		    ? (NULL == e->substr
 			? "pageid IN (SELECT pageid FROM names "
 			  "WHERE name REGEXP ?)"
+			: e->equal
+			? "pageid IN (SELECT pageid FROM names "
+			  "WHERE name = ?)"
 			: "pageid IN (SELECT pageid FROM names "
 			  "WHERE name MATCH ?)")
 		    : (NULL == e->substr
@@ -702,7 +706,7 @@ exprterm(const struct mansearch *search,
 {
 	char		 errbuf[BUFSIZ];
 	struct expr	*e;
-	char		*key, *v;
+	char		*key, *val;
 	uint64_t	 iterbit;
 	int		 i, irc;
 
@@ -711,40 +715,64 @@ exprterm(const struct mansearch *search,
 
 	e = mandoc_calloc(1, sizeof(struct expr));
 
-	/*"whatis" mode uses an opaque string and default fields. */
-
-	if (MANSEARCH_WHATIS & search->flags) {
-		e->substr = buf;
+	if (MANSEARCH_MAN & search->flags) {
 		e->bits = search->deftype;
+		e->substr = buf;
+		e->equal = 1;
 		return(e);
 	}
 
 	/*
-	 * If no =~ is specified, search with equality over names and
-	 * descriptions.
-	 * If =~ begins the phrase, use name and description fields.
+	 * Look for an '=' or '~' operator,
+	 * unless forced to some fixed macro keys.
 	 */
 
-	if (NULL == (v = strpbrk(buf, "=~"))) {
-		e->substr = buf;
-		e->bits = search->deftype;
-		return(e);
-	} else if (v == buf)
+	if (MANSEARCH_WHATIS & search->flags)
+		val = NULL;
+	else
+		val = strpbrk(buf, "=~");
+
+	if (NULL == val) {
 		e->bits = search->deftype;
+		e->substr = buf;
 
-	if ('~' == *v++) {
+	/*
+	 * Found an operator.
+	 * Regexp search is requested by !e->substr.
+	 */
+
+	} else {
+		if (val == buf)
+			e->bits = search->deftype;
+		if ('=' == *val)
+			e->substr = val + 1;
+		*val++ = '\0';
 		if (NULL != strstr(buf, "arch"))
 			cs = 0;
-		if (0 != (irc = regcomp(&e->regexp, v,
-		    REG_EXTENDED | REG_NOSUB | (cs ? 0 : REG_ICASE)))) {
+	}
+
+	/* Compile regular expressions. */
+
+	if (MANSEARCH_WHATIS & search->flags) {
+		e->substr = NULL;
+		mandoc_asprintf(&val, "[[:<:]]%s[[:>:]]", buf);
+	}
+
+	if (NULL == e->substr) {
+		irc = regcomp(&e->regexp, val,
+		    REG_EXTENDED | REG_NOSUB | (cs ? 0 : REG_ICASE));
+		if (MANSEARCH_WHATIS & search->flags)
+			free(val);
+		if (irc) {
 			regerror(irc, &e->regexp, errbuf, sizeof(errbuf));
 			fprintf(stderr, "regcomp: %s\n", errbuf);
 			free(e);
 			return(NULL);
 		}
-	} else
-		e->substr = v;
-	v[-1] = '\0';
+	}
+
+	if (e->bits)
+		return(e);
 
 	/*
 	 * Parse out all possible fields.
--
 To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv