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 cfbd253..112aada 100644 (file)
--- a/usr/src/usr.bin/apropos/apropos.c
+++ b/usr/src/usr.bin/apropos/apropos.c
@@ -1,175 +1,224 @@
 /*
 /*

- * Copyright (c) 1987 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+ * Copyright (c) 1987, 1993, 1994
+ *     The Regents of the University of California.  All rights reserved.
+ *
+ * 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";
-#endif not lint
+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
 
 #ifndef lint

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

 
 #include <sys/param.h>
 
 #include <sys/param.h>

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

 #include <ctype.h>
 #include <ctype.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        NO              0                       /* no/false */
-#define        WHATIS          "whatis"                /* database name */
-#define        YES             1                       /* yes/true */
+#include "../man/config.h"
+#include "../man/pathnames.h"

 
 

-static char    *myname;
+static int *found, foundman;

 
 

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

 main(argc, argv)
 main(argc, argv)

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

 {
 {

-       extern char     *optarg;
-       extern int      optind;
-       register char   *beg, *end, **C;
-       int     ch, foundman = NO, *found, isapropos,
-               a_match(), w_match(), (*match)();
-       char    *manpath = NULL,
-               buf[MAXLINELEN + 1], fname[MAXPATHLEN + 1],
-               wbuf[MAXLINELEN + 1],
-               *getenv(), *index(), *malloc(), *rindex();
-
-       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));
+
+       for (p = argv; *p; ++p)                 /* convert to lower-case */
+               lowstr(*p, *p);

 
 

-       /*NOSTRICT*/
-       if (!(found = (int *)malloc((u_int)argc))) {
-               fprintf(stderr, "%s: out of space.\n", myname);
-               exit(1);
+       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));       /* calloc is silly */

 
 

-       if (!isapropos)
-               for (C = argv; *C; ++C) {               /* trim full paths */
-                       if (beg = rindex(*C, '/'))
-                               *C = beg + 1;
-               }
-       for (C = argv; *C; ++C)                 /* convert to lower-case */
-               lowstr(*C, *C);
-
-       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;

                }
                }

-                                               /* for each file found */
-               if (freopen(fname, "r", stdin)) {
-                       foundman = YES;
-                       while (gets(buf)) {     /* read & convert to lcase */
-                               lowstr(buf, wbuf);
-                               for (C = argv; *C; ++C)
-                                       if ((*match)(wbuf, *C)) {
-                                               puts(buf);
-                                               found[C - argv] = YES;
-
-                                               /* only print line once */
-                                               while (*++C)
-                                                       if ((*match)(wbuf, *C))
-                                                               found[C - argv] = YES;
-                                               break;
-                                       }
+
+               if (!freopen(name, "r", stdin))
+                       continue;
+
+               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 */
+                                       while (*++p)
+                                               if (match(wbuf, *p))
+                                                       found[p - argv] = 1;
+                                       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");

 }
 
 }
 

-static
-a_match(bp, str)
-       register char   *bp, *str;
+/*
+ * match --
+ *     match anywhere the string appears
+ */
+int
+match(bp, str)
+       char *bp, *str;

 {
 {

-       register char   test, *Cs, *Cb;
+       int len;
+       char test;

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

-               return(NO);
-       /* backward contemptible: everything matches empty string */
+               return (0);
+       /* backward compatible: everything matches empty string */

        if (!*str)
        if (!*str)

-               return(YES);
-       for (test = *str++; *bp;)
-               if (test == *bp++) {
-                       Cs = str;
-                       Cb = bp;
-                       do {
-                               if (!*Cs)
-                                       return(YES);
-                       } while (*Cb++ == *Cs++);
-               }
-       return(NO);
+               return (1);
+       for (test = *str++, len = strlen(str); *bp;)
+               if (test == *bp++ && !strncmp(bp, str, len))
+                       return (1);
+       return (0);

 }
 
 }
 

-static
-w_match(bp, str)
-       register char   *bp, *str;
-{
-       register char   test, *Cs, *Cb;
-
-       if (!*str || !*bp)
-               return(NO);
-       for (test = *str++; *bp;)
-               if (test == *bp++) {
-                       for (Cs = str, Cb = bp; *Cs == *Cb; ++Cs, ++Cb);
-                       if (!*Cs && (isspace(*Cb) || *Cb == '(' || *Cb == ','))
-                               return(YES);
-               }
-       return(NO);
-}
-
-static
+/*
+ * lowstr --
+ *     convert a string to lower case
+ */
+void

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

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

 {
 {

-       for (; *from; ++from, ++to)
-               *to = isupper(*from) ? tolower(*from) : *from;
+       char ch;
+
+       while ((ch = *from++) && ch != '\n')
+               *to++ = isupper(ch) ? tolower(ch) : ch;

        *to = '\0';
 }
 
        *to = '\0';
 }
 

-static
+/*
+ * usage --
+ *     print usage message and die
+ */
+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);
 }