Initial import of the CDE 2.1.30 sources from the Open Group.

cde/lib/DtSearch/hilite.c

@@ -0,0 +1,160 @@
+/*
+ *   COMPONENT_NAME: austext
+ *
+ *   FUNCTIONS: hilite_cleartext
+ *
+ *   ORIGINS: 27
+ *
+ *
+ *   (C) COPYRIGHT International Business Machines Corp. 1992,1996
+ *   All Rights Reserved
+ *   Licensed Materials - Property of IBM
+ *   US Government Users Restricted Rights - Use, duplication or
+ *   disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
+ */
+/******************************* HILITE.C ********************************
+ * $XConsortium: hilite.c /main/5 1996/05/07 13:36:46 drk $
+ * January 1992.
+ * Opera Engine (OE) functions that create the usrblk.hitwords 
+ * array in response to several user requests.
+ * The hitwords array identifies the offset and
+ * length of words or substrings in cleartext to be hilited
+ * by the User Interface (UI).
+ * Formerly the hilite.c module was named oehitw.c
+ *
+ * $Log$
+ * Revision 2.4  1996/03/20  19:33:36  miker
+ * Changed hilite_cleartext() usage to pass in stems array
+ * so code could be reused for collocations searches.
+ *
+ * Revision 2.3  1996/02/01  19:06:53  miker
+ * AusText 2.1.11, DtSearch 0.3:  Major rewrite for new parsers.
+ * Replaced oe_stems_to_hitwords with hilite_cleartext.
+ *
+ * Revision 2.2  1995/10/24  22:03:53  miker
+ * Add prolog.
+ *
+ * Revision 2.1  1995/09/22  20:53:52  miker
+ * Freeze DtSearch 0.1, AusText 2.1.8
+ *
+ * Revision 1.1  1995/08/31  21:02:32  miker
+ * Initial revision
+ */
+#include "SearchE.h"
+#include <stdlib.h>
+#include <string.h>
+
+#define PROGNAME	"HILITE"
+
+
+
+/****************************************/
+/*					*/
+/*	     hilite_cleartext		*/
+/*					*/
+/****************************************/
+/* Builds usrblk.hitwords array from usrblk.cleartext
+ * and passed stems array.  Arg parse_type must
+ * contain 'W' or 'S' to correctly indicate whether
+ * the stems array is loaded with parsed words or stems.
+ * Stems array must be same format at usrblk.stems (double
+ * indexed array with max DtSrMAXWIDTH_HWORD columns per row).
+ * (Formerly this function was named 'build_hitwords',
+ * then 'oe_stems_to_hitwords').
+ * Returns new value of usrblk.hitwords.
+ * If zero hitwords, returns NULL in usrblk.hitwords.
+ */
+long	hilite_cleartext (int parse_type, char *stems, int stemcount)
+{
+    int			i;
+    char		*textp, *stemp;
+    DBLK		*dblk =		usrblk.dblk;
+    PARG		parg;
+    char *		(*parser)() =	usrblk.dblk->parser;
+    char *		(*stemmer)() =	usrblk.dblk->stemmer;
+    DtSrHitword		*hitwords;
+    size_t		hitwords_size =	0;
+    long		hitwcount =	0;
+    long		offset;
+    int			wordlen;
+    int			debugging_hilite = (usrblk.debug & USRDBG_HILITE);
+
+    /* Ensure current usrblk.hitwords values are clear */
+    clear_hitwords ();
+
+    memset (&parg, 0, sizeof(PARG));
+    parg.dblk =		dblk;
+    parg.string =	usrblk.cleartext;
+    parg.offsetp =	&offset;
+    parg.flags |=	PA_HILITING;
+
+    /* OUTER LOOP: Parse/stem each word in cleartext */
+    for (	textp = parser (&parg);
+		textp;
+		textp = parser (NULL)) {
+	wordlen = strlen (textp);
+	if (parse_type == 'S')
+	    textp = stemmer (textp, dblk);
+	if (debugging_hilite) {
+	    fprintf (aa_stderr,
+		PROGNAME"127 offs:%5ld '%s' %n",
+		offset, textp, &i);
+	    while (i++ < 35)
+		fputc (' ', aa_stderr);
+	}
+
+	/* INNER LOOP: Search for word in stems array */
+	stemp =	stems;
+	for (i=stemcount; i;  i--) {
+	    if (strcmp (textp, stemp) == 0)
+		break;
+	    stemp += DtSrMAXWIDTH_HWORD;
+	}
+
+	/* Miss.  If text word is not in
+	 * stems array, go parse next word.
+	 */
+	if (i == 0) {
+	    if (debugging_hilite)
+		fprintf (aa_stderr, "miss.\n");
+	    continue;
+	}
+
+	/* HIT!  Add to hitwords table. */
+	if (hitwcount >= hitwords_size) {
+	    if (hitwords_size == 0) {
+		hitwords_size = 200;
+		hitwords = malloc (
+		    hitwords_size * sizeof(DtSrHitword) + 16);
+	    }
+	    else {
+		hitwords_size += hitwords_size >> 1;	/* 1.5 times */
+		if (debugging_hilite || (usrblk.debug & USRDBG_RETRVL))
+		    fprintf (aa_stderr,
+			PROGNAME"098 realloc for %ld hitwords.\n",
+			hitwords_size);
+		hitwords = realloc (hitwords,
+		    hitwords_size * sizeof(DtSrHitword) + 16);
+	    }
+	    if (!hitwords) {
+		fputs (PROGNAME"091 Out of Memory!\n", aa_stderr);
+		DtSearchExit (91);
+	    }
+	}
+	hitwords[hitwcount].offset =	offset;
+	hitwords[hitwcount].length =	wordlen;
+	hitwcount++;
+	if (debugging_hilite)
+	    fprintf (aa_stderr, "HIT!  hwct=%ld.\n", hitwcount);
+    } /* end OUTER parse loop */
+
+    usrblk.hitwcount = hitwcount;
+    usrblk.hitwords = (hitwcount)? hitwords : NULL;
+    if (debugging_hilite || (usrblk.debug & USRDBG_RETRVL))
+	fprintf (aa_stderr,
+	    PROGNAME"138 parstyp='%c' stemct=%d hitwcount=%ld\n",
+	    parse_type, stemcount, usrblk.hitwcount);
+    return hitwcount;
+}  /* hilite_cleartext() */
+
+/******************************* HILITE.C ********************************/