xref: /plan9/sys/src/cmd/postscript/common/request.c (revision 219b2ee8daee37f4aad58d63f21287faa8e4ffdc)
1*219b2ee8SDavid du Colombier /*
2*219b2ee8SDavid du Colombier  *
3*219b2ee8SDavid du Colombier  * Things used to handle special requests (eg. manual feed) globally or on a per
4*219b2ee8SDavid du Colombier  * page basis. Requests are passed through to the translator using the -R option.
5*219b2ee8SDavid du Colombier  * The argument to -R can be "request", "request:page", or "request:page:file".
6*219b2ee8SDavid du Colombier  * If page is omitted (as in the first form) or set to 0 request will be applied
7*219b2ee8SDavid du Colombier  * to the global environment. In all other cases it applies only to the selected
8*219b2ee8SDavid du Colombier  * page. If a file is given, page must be supplied, and the lookup is in that file
9*219b2ee8SDavid du Colombier  * rather than *requestfile.
10*219b2ee8SDavid du Colombier  *
11*219b2ee8SDavid du Colombier  */
12*219b2ee8SDavid du Colombier 
13*219b2ee8SDavid du Colombier #include <stdio.h>
14*219b2ee8SDavid du Colombier 
15*219b2ee8SDavid du Colombier #include "gen.h"			/* general purpose definitions */
16*219b2ee8SDavid du Colombier #include "request.h"			/* a few special definitions */
17*219b2ee8SDavid du Colombier #include "path.h"			/* for the default request file */
18*219b2ee8SDavid du Colombier 
19*219b2ee8SDavid du Colombier Request	request[MAXREQUEST];		/* next page or global request */
20*219b2ee8SDavid du Colombier int	nextreq = 0;			/* goes in request[nextreq] */
21*219b2ee8SDavid du Colombier char	*requestfile = REQUESTFILE;	/* default lookup file */
22*219b2ee8SDavid du Colombier 
23*219b2ee8SDavid du Colombier /*****************************************************************************/
24*219b2ee8SDavid du Colombier 
25*219b2ee8SDavid du Colombier saverequest(want)
26*219b2ee8SDavid du Colombier 
27*219b2ee8SDavid du Colombier     char	*want;			/* grab code for this stuff */
28*219b2ee8SDavid du Colombier 
29*219b2ee8SDavid du Colombier {
30*219b2ee8SDavid du Colombier 
31*219b2ee8SDavid du Colombier     char	*page;			/* and save it for this page */
32*219b2ee8SDavid du Colombier     char	*strtok();
33*219b2ee8SDavid du Colombier 
34*219b2ee8SDavid du Colombier /*
35*219b2ee8SDavid du Colombier  *
36*219b2ee8SDavid du Colombier  * Save the request until we get to appropriate page - don't even bother with
37*219b2ee8SDavid du Colombier  * the lookup right now. Format of *want string is "request", "request:page", or
38*219b2ee8SDavid du Colombier  * "request:page:file", and we assume we can change the string here as needed.
39*219b2ee8SDavid du Colombier  * If page is omitted or given as 0 the request will be done globally. If *want
40*219b2ee8SDavid du Colombier  * includes a file, request and page must also be given, and in that case *file
41*219b2ee8SDavid du Colombier  * will be used for the lookup.
42*219b2ee8SDavid du Colombier  *
43*219b2ee8SDavid du Colombier  */
44*219b2ee8SDavid du Colombier 
45*219b2ee8SDavid du Colombier     if ( nextreq < MAXREQUEST )  {
46*219b2ee8SDavid du Colombier 	request[nextreq].want = strtok(want, ": ");
47*219b2ee8SDavid du Colombier 	if ( (page = strtok(NULL, ": ")) == NULL )
48*219b2ee8SDavid du Colombier 	    request[nextreq].page = 0;
49*219b2ee8SDavid du Colombier 	else request[nextreq].page = atoi(page);
50*219b2ee8SDavid du Colombier 	if ( (request[nextreq].file = strtok(NULL, ": ")) == NULL )
51*219b2ee8SDavid du Colombier 	    request[nextreq].file = requestfile;
52*219b2ee8SDavid du Colombier 	nextreq++;
53*219b2ee8SDavid du Colombier     } else error(NON_FATAL, "too many requests - ignoring %s", want);
54*219b2ee8SDavid du Colombier 
55*219b2ee8SDavid du Colombier }   /* End of saverequest */
56*219b2ee8SDavid du Colombier 
57*219b2ee8SDavid du Colombier /*****************************************************************************/
58*219b2ee8SDavid du Colombier 
59*219b2ee8SDavid du Colombier writerequest(page, fp_out)
60*219b2ee8SDavid du Colombier 
61*219b2ee8SDavid du Colombier     int		page;			/* write everything for this page */
62*219b2ee8SDavid du Colombier     FILE	*fp_out;		/* to this file */
63*219b2ee8SDavid du Colombier 
64*219b2ee8SDavid du Colombier {
65*219b2ee8SDavid du Colombier 
66*219b2ee8SDavid du Colombier     int		i;			/* loop index */
67*219b2ee8SDavid du Colombier 
68*219b2ee8SDavid du Colombier /*
69*219b2ee8SDavid du Colombier  *
70*219b2ee8SDavid du Colombier  * Writes out all the requests that have been saved for page. Page 0 refers to
71*219b2ee8SDavid du Colombier  * the global environment and is done during initial setup.
72*219b2ee8SDavid du Colombier  *
73*219b2ee8SDavid du Colombier  */
74*219b2ee8SDavid du Colombier 
75*219b2ee8SDavid du Colombier     for ( i = 0; i < nextreq; i++ )
76*219b2ee8SDavid du Colombier 	if ( request[i].page == page )
77*219b2ee8SDavid du Colombier 	    dumprequest(request[i].want, request[i].file, fp_out);
78*219b2ee8SDavid du Colombier 
79*219b2ee8SDavid du Colombier }   /* End of writerequest */
80*219b2ee8SDavid du Colombier 
81*219b2ee8SDavid du Colombier /*****************************************************************************/
82*219b2ee8SDavid du Colombier 
83*219b2ee8SDavid du Colombier dumprequest(want, file, fp_out)
84*219b2ee8SDavid du Colombier 
85*219b2ee8SDavid du Colombier     char	*want;			/* look for this string */
86*219b2ee8SDavid du Colombier     char	*file;			/* in this file */
87*219b2ee8SDavid du Colombier     FILE	*fp_out;		/* and write the value out here */
88*219b2ee8SDavid du Colombier 
89*219b2ee8SDavid du Colombier {
90*219b2ee8SDavid du Colombier 
91*219b2ee8SDavid du Colombier     char	buf[100];		/* line buffer for reading *file */
92*219b2ee8SDavid du Colombier     FILE	*fp_in;
93*219b2ee8SDavid du Colombier 
94*219b2ee8SDavid du Colombier /*
95*219b2ee8SDavid du Colombier  *
96*219b2ee8SDavid du Colombier  * Looks for *want in the request file and if it's found the associated value
97*219b2ee8SDavid du Colombier  * is copied to the output file. Keywords (ie. the *want strings) begin an @ in
98*219b2ee8SDavid du Colombier  * the first column of file, while the values (ie. the stuff that's copied to
99*219b2ee8SDavid du Colombier  * the output file) starts on the next line and extends to the next keyword or
100*219b2ee8SDavid du Colombier  * to the end of file.
101*219b2ee8SDavid du Colombier  *
102*219b2ee8SDavid du Colombier  */
103*219b2ee8SDavid du Colombier 
104*219b2ee8SDavid du Colombier     if ( (fp_in = fopen(file, "r")) != NULL )  {
105*219b2ee8SDavid du Colombier 	while ( fgets(buf, sizeof(buf), fp_in) != NULL )
106*219b2ee8SDavid du Colombier 	    if ( buf[0] == '@' && strncmp(want, &buf[1], strlen(want)) == 0 )
107*219b2ee8SDavid du Colombier 		while ( fgets(buf, sizeof(buf), fp_in) != NULL )
108*219b2ee8SDavid du Colombier 		    if ( buf[0] == '#' || buf[0] == '%' )
109*219b2ee8SDavid du Colombier 			continue;
110*219b2ee8SDavid du Colombier 		    else if ( buf[0] != '@' )
111*219b2ee8SDavid du Colombier 			fprintf(fp_out, "%s", buf);
112*219b2ee8SDavid du Colombier 		    else break;
113*219b2ee8SDavid du Colombier 	fclose(fp_in);
114*219b2ee8SDavid du Colombier     }	/* End if */
115*219b2ee8SDavid du Colombier 
116*219b2ee8SDavid du Colombier }   /* End of dumprequest */
117*219b2ee8SDavid du Colombier 
118*219b2ee8SDavid du Colombier /*****************************************************************************/
119*219b2ee8SDavid du Colombier 
120