xref: /illumos-gate/usr/src/cmd/refer/lookbib.c (revision 8f0999b69c0d6e5d9e9706bcfac26b45bc5ef32a)
1 /*
2  * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
3  * Use is subject to license terms.
4  */
5 
6 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
7 /*	  All Rights Reserved  	*/
8 
9 /*
10  * Copyright (c) 1980 Regents of the University of California.
11  * All rights reserved. The Berkeley software License Agreement
12  * specifies the terms and conditions for redistribution.
13  */
14 
15 #include <stdio.h>
16 #include <ctype.h>
17 #include <locale.h>
18 
19 static void instruct(void);
20 static void map_lower(char *);
21 
22 /* look in biblio for record matching keywords */
23 int
24 main(int argc, char **argv)
25 {
26 	FILE *hfp, *fopen(), *popen();
27 	char s[BUFSIZ], hunt[64];
28 
29 	(void) setlocale(LC_ALL, "");
30 
31 #if !defined(TEXT_DOMAIN)
32 #define	TEXT_DOMAIN "SYS_TEST"
33 #endif
34 	(void) textdomain(TEXT_DOMAIN);
35 
36 	if (argc == 1 || argc > 2) {
37 		fputs(gettext("Usage:  lookbib database\n\
38 \tfinds citations specified on standard input\n"), stderr);
39 		exit(1);
40 	}
41 	sprintf(s, "%s.ia", argv[1]);
42 	if (access(s, 0) == -1) {
43 		sprintf(s, "%s", argv[1]);
44 		if (access(s, 0) == -1) {
45 			perror(s);
46 			fprintf(stderr, gettext("\tNeither index file %s.ia \
47 nor reference file %s found\n"), s, s);
48 			exit(1);
49 		}
50 	}
51 	sprintf(hunt, "/usr/lib/refer/hunt %s", argv[1]);
52 	if (isatty(fileno(stdin))) {
53 		fprintf(stderr, gettext("Instructions? "));
54 		fgets(s, BUFSIZ, stdin);
55 		if (*s == 'y')
56 			instruct();
57 	}
58 again:
59 	fprintf(stderr, "> ");
60 	if (fgets(s, BUFSIZ, stdin)) {
61 		if (*s == '\n')
62 			goto again;
63 		if (strlen(s) <= 3)
64 			goto again;
65 		if ((hfp = popen(hunt, "w")) == NULL) {
66 			perror(gettext("lookbib: /usr/lib/refer/hunt"));
67 			exit(1);
68 		}
69 		map_lower(s);
70 		fputs(s, hfp);
71 		pclose(hfp);
72 		goto again;
73 	}
74 	fprintf(stderr, gettext("EOT\n"));
75 	return (0);
76 }
77 
78 static void
79 map_lower(char *s)		/* map string s to lower case */
80 {
81 	for (; *s; ++s)
82 		if (isupper(*s))
83 			*s = tolower(*s);
84 }
85 
86 static void
87 instruct(void)
88 {
89 	fputs(gettext(
90 "\nType keywords (such as author and date) after the > prompt.\n\
91 References with those keywords are printed if they exist;\n\
92 \tif nothing matches you are given another prompt.\n\
93 To quit lookbib, press CTRL-d after the > prompt.\n\n"), stderr);
94 
95 }
96