Bell 32V development

Work on file usr/src/cmd/refer/what3.c

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v

diff --git a/usr/src/cmd/refer/what3.c b/usr/src/cmd/refer/what3.c
new file mode 100644 (file)
index 0000000..c727da9
--- /dev/null
+++ b/usr/src/cmd/refer/what3.c
@@ -0,0 +1,71 @@
+# include "what..c"
+
+doclook(argc, argv, colevel)
+       char *argv[];
+{
+       int fpa[2], fpb[2], fpc[2], pid1, pid2, st;
+       int iarg;
+       char *s;
+       FILE *ansf;
+       struct filans *af;
+       struct stat statbuf;
+# define RD 0
+# define WR 1
+# define fmv(x,y) close(y); dup(x); close(x);
+/* we want to run chkbib and then lhunt and pipe in & out */
+pipe (fpa); /* from this program to chkbib */
+pipe (fpb); /* from chkbib to lhunt */
+pipe (fpc); /* from lhunt to us */
+if (  (pid1 = fork())  ==0)
+       {
+       fmv(fpa[RD], 0);
+       fmv(fpb[WR], 1);
+       close(fpa[WR]); close(fpb[RD]); close(fpc[RD]); close(fpc[WR]); 
+       execl("/usr/lib/refer/mkey", "mkey", "-s", 0);
+       _assert(0);
+       }
+if (  (pid2 = fork()) == 0)
+       {
+       char coarg[20];
+       sprintf(coarg, "-C%d", colevel);
+       fmv(fpb[RD], 0);
+       fmv(fpc[WR], 1);
+       close(fpa[RD]); close(fpa[WR]); close(fpb[WR]); close(fpc[RD]);
+       execl("/usr/lib/refer/hunt", "hunt",
+               /* "-P", */
+               coarg, "-Ty", "-Fn", "/usr/dict/lookall/All", 0);
+       _assert(0);
+       }
+_assert (pid1 != -1); _assert(pid2 != -1);
+close(fpb[RD]); close(fpb[WR]); close(fpa[RD]); close(fpc[WR]);
+ansf = fopen("/dev/null", "r");
+fmv (fpc[RD], ansf->_file);
+for(iarg=1; iarg<argc; iarg++)
+       prod(fpa[WR], argv[iarg]);
+close(fpa[WR]);
+s=fnames;
+af=files;
+while (af < files+NFILES)
+       {
+       if (fgets(af->nm=s, NAMES, ansf)==0)
+               break;
+       trimnl(s);
+       if (*s==0) continue;
+       while (*s++);
+       _assert(s<fnames+NAMES);
+       st = stat(af->nm, &statbuf);
+       if (st<0) continue;
+       af->uid = statbuf.st_uid;
+       af->fdate = statbuf.st_mtime;
+       af->size = statbuf.st_size;
+       af++;
+       }
+fclose(ansf);
+return(af-files);
+}
+prod(f,s)
+       char *s;
+{
+write (f, s, strlen(s));
+write (f, "\n", 1);
+}