79 lines
1.7 KiB
C
79 lines
1.7 KiB
C
#ifndef lint
|
|
static char sccsid[] = "@(#)lookbib.c 1.1 94/10/31 SMI"; /* from UCB 4.3 6/28/83 */
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
|
|
main(argc, argv) /* look in biblio for record matching keywords */
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
FILE *hfp, *fopen(), *popen();
|
|
char s[BUFSIZ], hunt[64], *sprintf();
|
|
|
|
if (argc == 1 || argc > 2) {
|
|
fputs("Usage: lookbib database\n",
|
|
stderr);
|
|
fputs("\tfinds citations specified on standard input\n",
|
|
stderr);
|
|
exit(1);
|
|
}
|
|
sprintf(s, "%s.ia", argv[1]);
|
|
if (access(s, 0) == -1) {
|
|
sprintf (s, "%s", argv[1]);
|
|
if (access(s, 0) == -1) {
|
|
perror(s);
|
|
fprintf(stderr, "\tNeither index file %s.ia ", s);
|
|
fprintf(stderr, "nor reference file %s found\n", s);
|
|
exit(1);
|
|
}
|
|
}
|
|
sprintf(hunt, "/usr/lib/refer/hunt %s", argv[1]);
|
|
if (isatty(fileno(stdin))) {
|
|
fprintf(stderr, "Instructions? ");
|
|
fgets(s, BUFSIZ, stdin);
|
|
if (*s == 'y')
|
|
instruct();
|
|
}
|
|
again:
|
|
fprintf(stderr, "> ");
|
|
if (fgets(s, BUFSIZ, stdin)) {
|
|
if (*s == '\n')
|
|
goto again;
|
|
if (strlen(s) <= 3)
|
|
goto again;
|
|
if ((hfp = popen(hunt, "w")) == NULL) {
|
|
perror("lookbib: /usr/lib/refer/hunt");
|
|
exit(1);
|
|
}
|
|
map_lower(s);
|
|
fputs(s, hfp);
|
|
pclose(hfp);
|
|
goto again;
|
|
}
|
|
fprintf(stderr, "EOT\n");
|
|
exit(0);
|
|
/* NOTREACHED */
|
|
}
|
|
|
|
map_lower(s) /* map string s to lower case */
|
|
char *s;
|
|
{
|
|
for ( ; *s; ++s)
|
|
if (isupper(*s))
|
|
*s = tolower(*s);
|
|
}
|
|
|
|
instruct()
|
|
{
|
|
fputs("\nType keywords (such as author and date) after the > prompt.\n",
|
|
stderr);
|
|
fputs("References with those keywords are printed if they exist;\n",
|
|
stderr);
|
|
fputs("\tif nothing matches you are given another prompt.\n",
|
|
stderr);
|
|
fputs("To quit lookbib, press CTRL-d after the > prompt.\n\n",
|
|
stderr);
|
|
}
|