BSD 4_4_Lite2 release

[unix-history] / usr / src / usr.bin / apropos / apropos.c

diff --git a/usr/src/usr.bin/apropos/apropos.c b/usr/src/usr.bin/apropos/apropos.c
index 4ed7166..112aada 100644 (file)
--- a/usr/src/usr.bin/apropos/apropos.c
+++ b/usr/src/usr.bin/apropos/apropos.c
@@ -1,212 +1,224 @@
 /*
 /*

- * Copyright (c) 1987 Regents of the University of California.
- * All rights reserved.
+ * Copyright (c) 1987, 1993, 1994
+ *     The Regents of the University of California.  All rights reserved.

  *
  *

- * Redistribution and use in source and binary forms are permitted
- * provided that this notice is preserved and that due credit is given
- * to the University of California at Berkeley. The name of the University
- * may not be used to endorse or promote products derived from this
- * software without specific prior written permission. This software
- * is provided ``as is'' without express or implied warranty.
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.

  */
 
 #ifndef lint
  */
 
 #ifndef lint

-char copyright[] =
-"@(#) Copyright (c) 1987 Regents of the University of California.\n\
- All rights reserved.\n";
+static char copyright[] =
+"@(#) Copyright (c) 1987, 1993, 1994\n\
+       The Regents of the University of California.  All rights reserved.\n";

 #endif /* not lint */
 
 #ifndef lint
 #endif /* not lint */
 
 #ifndef lint

-static char sccsid[] = "@(#)apropos.c  5.5 (Berkeley) %G%";
+static char sccsid[] = "@(#)apropos.c  8.8 (Berkeley) 5/4/95";

 #endif /* not lint */
 
 #include <sys/param.h>
 #endif /* not lint */
 
 #include <sys/param.h>

-#include <stdio.h>
+#include <sys/queue.h>
+

 #include <ctype.h>
 #include <ctype.h>

-#include <strings.h>
+#include <err.h>
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>

 
 

-#define        DEF_PATH        "/usr/man:/usr/new/man:/usr/local/man"
-#define        MAXLINELEN      1000                    /* max line handled */
-#define        WHATIS          "whatis"                /* database name */
+#include "../man/config.h"
+#include "../man/pathnames.h"

 
 

-#define        NO      0                               /* no/false */
-#define        YES     1                               /* yes/true */
+static int *found, foundman;

 
 

-static char *myname;
+void apropos __P((char **, char *, int));
+void lowstr __P((char *, char *));
+int match __P((char *, char *));
+void usage __P((void));

 
 

+int

 main(argc, argv)
        int argc;
 main(argc, argv)
        int argc;

-       char **argv;
+       char *argv[];

 {
 {

-       extern char *optarg;
-       extern int optind;
-       register char *beg, *end, **C;
-       int ch, foundman = NO, *found, isapropos;
-       int a_match(), w_match(), (*match)();
-       char *manpath = NULL, buf[MAXLINELEN + 1], fname[MAXPATHLEN + 1];
-       char wbuf[MAXLINELEN + 1], *getenv(), *malloc();
-
-       myname = (beg = rindex(*argv, '/')) ? beg + 1 : *argv;
-       if (!strcmp(myname, "apropos")) {
-               isapropos = YES;
-               match = a_match;
-       }
-       else {
-               isapropos = NO;
-               match = w_match;
-       }
-       while ((ch = getopt(argc, argv, "M:P:")) != EOF)
-               switch((char)ch) {
-                       case 'M':
-                       case 'P':               /* backward contemptible */
-                               manpath = optarg;
-                               break;
-                       case '?':
-                       default:
-                               usage();
+       ENTRY *ep;
+       TAG *tp;
+       int ch, rv;
+       char *conffile, **p, *p_augment, *p_path;
+
+       conffile = NULL;
+       p_augment = p_path = NULL;
+       while ((ch = getopt(argc, argv, "C:M:m:P:")) != EOF)
+               switch (ch) {
+               case 'C':
+                       conffile = optarg;
+                       break;
+               case 'M':
+               case 'P':               /* backward compatible */
+                       p_path = optarg;
+                       break;
+               case 'm':
+                       p_augment = optarg;
+                       break;
+               case '?':
+               default:
+                       usage();

                }
        argv += optind;
        argc -= optind;
                }
        argv += optind;
        argc -= optind;

+

        if (argc < 1)
                usage();
 
        if (argc < 1)
                usage();
 

-       if (!(manpath = getenv("MANPATH")))
-               manpath = DEF_PATH;
+       if ((found = malloc((u_int)argc * sizeof(int))) == NULL)
+               err(1, NULL);
+       memset(found, 0, argc * sizeof(int));

 
 

-       /*NOSTRICT*/
-       if (!(found = (int *)malloc((u_int)argc))) {
-               fprintf(stderr, "%s: out of space.\n", myname);
-               exit(1);
+       for (p = argv; *p; ++p)                 /* convert to lower-case */
+               lowstr(*p, *p);
+
+       if (p_augment)
+               apropos(argv, p_augment, 1);
+       if (p_path || (p_path = getenv("MANPATH")))
+               apropos(argv, p_path, 1);
+       else {
+               config(conffile);
+               ep = (tp = getlist("_whatdb")) == NULL ?
+                   NULL : tp->list.tqh_first;
+               for (; ep != NULL; ep = ep->q.tqe_next)
+                       apropos(argv, ep->s, 0);

        }
        }

-       bzero((char *)found, argc * sizeof(int));
-
-       if (isapropos)
-               for (C = argv; *C; ++C)         /* convert to lower-case */
-                       lowstr(*C, *C);
-       else for (C = argv; *C; ++C)            /* trim full paths */
-               if (beg = rindex(*C, '/'))
-                       *C = beg + 1;
-
-       for (beg = manpath; beg; beg = end) {   /* through path list */
-               end = index(beg, ':');
-               if (!end)
-                       (void)sprintf(fname, "%s/%s", beg, WHATIS);
-               else {
-                       (void)sprintf(fname, "%.*s/%s", end - beg, beg, WHATIS);
-                       ++end;
+
+       if (!foundman)
+               errx(1, "no %s file found", _PATH_WHATIS);
+
+       rv = 1;
+       for (p = argv; *p; ++p)
+               if (found[p - argv])
+                       rv = 0;
+               else
+                       (void)printf("%s: nothing appropriate\n", *p);
+       exit(rv);
+}
+
+void
+apropos(argv, path, buildpath)
+       char **argv, *path;
+       int buildpath;
+{
+       char *end, *name, **p;
+       char buf[LINE_MAX + 1], wbuf[LINE_MAX + 1];
+
+       for (name = path; name; name = end) {   /* through name list */
+               if (end = strchr(name, ':'))
+                       *end++ = '\0';
+
+               if (buildpath) {
+                       char hold[MAXPATHLEN + 1];
+
+                       (void)sprintf(hold, "%s/%s", name, _PATH_WHATIS);
+                       name = hold;

                }
                }

-               if (!freopen(fname, "r", stdin))
+
+               if (!freopen(name, "r", stdin))

                        continue;
 
                        continue;
 

-                                               /* for each file found */
-               for (foundman = YES; gets(buf);) {
-                       if (isapropos)
-                               lowstr(buf, wbuf);
-                       else
-                               dashtrunc(buf, wbuf);
-                       for (C = argv; *C; ++C)
-                               if ((*match)(wbuf, *C)) {
-                                       puts(buf);
-                                       found[C - argv] = YES;
+               foundman = 1;
+
+               /* for each file found */
+               while (fgets(buf, sizeof(buf), stdin)) {
+                       if (!strchr(buf, '\n')) {
+                               warnx("%s: line too long", name);
+                               continue;
+                       }
+                       lowstr(buf, wbuf);
+                       for (p = argv; *p; ++p)
+                               if (match(wbuf, *p)) {
+                                       (void)printf("%s", buf);
+                                       found[p - argv] = 1;

 
                                        /* only print line once */
 
                                        /* only print line once */

-                                       while (*++C)
-                                               if ((*match)(wbuf, *C))
-                                                       found[C - argv] = YES;
+                                       while (*++p)
+                                               if (match(wbuf, *p))
+                                                       found[p - argv] = 1;

                                        break;
                                }
                }
        }
                                        break;
                                }
                }
        }

-       if (!foundman) {
-               fprintf(stderr, "%s: no %s file found in %s.\n", myname, WHATIS, manpath);
-               exit(1);
-       }
-       for (C = argv; *C; ++C)
-               if (!found[C - argv])
-                       printf("%s: %s\n", *C, isapropos ? "nothing appropriate" : "not found");

 }
 
 /*
 }
 
 /*

- * a_match --
- *     match for apropos; anywhere the string appears
+ * match --
+ *     match anywhere the string appears

  */
  */

-static
-a_match(bp, str)
-       register char *bp, *str;
+int
+match(bp, str)
+       char *bp, *str;

 {
 {

-       register int len;
-       register char test;
+       int len;
+       char test;

 
        if (!*bp)
 
        if (!*bp)

-               return(NO);
+               return (0);

        /* backward compatible: everything matches empty string */
        if (!*str)
        /* backward compatible: everything matches empty string */
        if (!*str)

-               return(YES);
+               return (1);

        for (test = *str++, len = strlen(str); *bp;)
                if (test == *bp++ && !strncmp(bp, str, len))
        for (test = *str++, len = strlen(str); *bp;)
                if (test == *bp++ && !strncmp(bp, str, len))

-                       return(YES);
-       return(NO);
-}
-
-/*
- * w_match --
- *     match for whatis; looks for full word match
- */
-static
-w_match(bp, str)
-       register char *bp, *str;
-{
-       register int len;
-       register char *start;
-
-       if (!*str || !*bp)
-               return(NO);
-       for (len = strlen(str);;) {
-               for (; *bp && !isdigit(*bp) && !isalpha(*bp); ++bp);
-               if (!*bp)
-                       break;
-               for (start = bp++; *bp && (isdigit(*bp) || isalpha(*bp)); ++bp);
-               if (bp - start == len && !strncasecmp(start, str, len))
-                       return(YES);
-       }
-       return(NO);
-}
-
-/*
- * dashtrunc --
- *     truncate a string at " - "
- */
-static
-dashtrunc(from, to)
-       register char *from, *to;
-{
-       do {
-               if (from[0] == ' ' && from[1] == '-' && from[2] == ' ')
-                       break;
-       } while (*to++ = *from++);
-       *to = '\0';
+                       return (1);
+       return (0);

 }
 
 /*
  * lowstr --
  *     convert a string to lower case
  */
 }
 
 /*
  * lowstr --
  *     convert a string to lower case
  */

-static
+void

 lowstr(from, to)
 lowstr(from, to)

-       register char *from, *to;
+       char *from, *to;

 {
 {

-       do {
-               *to++ = isupper(*from) ? tolower(*from) : *from;
-       } while (*from++);
+       char ch;
+
+       while ((ch = *from++) && ch != '\n')
+               *to++ = isupper(ch) ? tolower(ch) : ch;
+       *to = '\0';

 }
 
 /*
  * usage --
  *     print usage message and die
  */
 }
 
 /*
  * usage --
  *     print usage message and die
  */

-static
+void

 usage()
 {
 usage()
 {

-       fprintf(stderr, "usage: %s [-M path] string ...\n", myname);
+
+       (void)fprintf(stderr,
+           "usage: apropos [-C file] [-M path] [-m path] keyword ...\n");

        exit(1);
 }
        exit(1);
 }