3 61f5c35c 2004-05-15 devnull * General purpose routines.
7 61f5c35c 2004-05-15 devnull #include <stdio.h>
8 359c1e01 2005-01-14 devnull #include <stdlib.h>
9 61f5c35c 2004-05-15 devnull #include <ctype.h>
10 61f5c35c 2004-05-15 devnull #include <sys/types.h>
11 61f5c35c 2004-05-15 devnull #include <fcntl.h>
12 b855148c 2004-05-16 devnull #include <unistd.h>
13 b855148c 2004-05-16 devnull #include <string.h>
15 61f5c35c 2004-05-15 devnull #include "gen.h"
16 61f5c35c 2004-05-15 devnull #include "ext.h"
17 61f5c35c 2004-05-15 devnull #include "path.h"
19 61f5c35c 2004-05-15 devnull int nolist = 0; /* number of specified ranges */
20 61f5c35c 2004-05-15 devnull int olist[50]; /* processing range pairs */
22 e8fb1d3e 2004-05-17 devnull int str_convert(char **str, int err);
23 e8fb1d3e 2004-05-17 devnull void error(int kind, char *mesg, unsigned int a1, unsigned int a2, unsigned int a3);
24 e8fb1d3e 2004-05-17 devnull int cat(char *file);
26 61f5c35c 2004-05-15 devnull /*****************************************************************************/
27 b855148c 2004-05-16 devnull extern int str_convert();
30 61f5c35c 2004-05-15 devnull out_list(str)
32 61f5c35c 2004-05-15 devnull char *str;
36 61f5c35c 2004-05-15 devnull int start, stop;
40 61f5c35c 2004-05-15 devnull * Grab page ranges from str, save them in olist[], and update the nolist
41 61f5c35c 2004-05-15 devnull * count. Range syntax matches nroff/troff syntax.
45 61f5c35c 2004-05-15 devnull while ( *str && nolist < sizeof(olist) - 2 ) {
46 61f5c35c 2004-05-15 devnull start = stop = str_convert(&str, 0);
48 61f5c35c 2004-05-15 devnull if ( *str == '-' && *str++ )
49 61f5c35c 2004-05-15 devnull stop = str_convert(&str, 9999);
51 61f5c35c 2004-05-15 devnull if ( start > stop )
52 e8fb1d3e 2004-05-17 devnull error(FATAL, "illegal range %d-%d", start, stop, 0);
54 61f5c35c 2004-05-15 devnull olist[nolist++] = start;
55 61f5c35c 2004-05-15 devnull olist[nolist++] = stop;
57 61f5c35c 2004-05-15 devnull if ( *str != '\0' ) str++;
58 61f5c35c 2004-05-15 devnull } /* End while */
60 61f5c35c 2004-05-15 devnull olist[nolist] = 0;
62 61f5c35c 2004-05-15 devnull } /* End of out_list */
64 61f5c35c 2004-05-15 devnull /*****************************************************************************/
66 61f5c35c 2004-05-15 devnull in_olist(num)
76 61f5c35c 2004-05-15 devnull * Return ON if num is in the current page range list. Print everything if
77 61f5c35c 2004-05-15 devnull * there's no list.
80 61f5c35c 2004-05-15 devnull if ( nolist == 0 )
81 61f5c35c 2004-05-15 devnull return(ON);
83 61f5c35c 2004-05-15 devnull for ( i = 0; i < nolist; i += 2 )
84 61f5c35c 2004-05-15 devnull if ( num >= olist[i] && num <= olist[i+1] )
85 61f5c35c 2004-05-15 devnull return(ON);
87 61f5c35c 2004-05-15 devnull return(OFF);
89 61f5c35c 2004-05-15 devnull } /* End of in_olist */
91 61f5c35c 2004-05-15 devnull /*****************************************************************************/
93 61f5c35c 2004-05-15 devnull setencoding(name)
95 61f5c35c 2004-05-15 devnull char *name;
99 61f5c35c 2004-05-15 devnull char path[150];
103 61f5c35c 2004-05-15 devnull * Include the font encoding file selected by name. It's a full pathname if
104 61f5c35c 2004-05-15 devnull * it begins with /, otherwise append suffix ".enc" and look for the file in
105 61f5c35c 2004-05-15 devnull * ENCODINGDIR. Missing files are silently ignored.
109 61f5c35c 2004-05-15 devnull if ( name == NULL )
110 61f5c35c 2004-05-15 devnull name = "Default";
112 61f5c35c 2004-05-15 devnull if ( *name == '/' )
113 61f5c35c 2004-05-15 devnull strcpy(path, name);
114 61f5c35c 2004-05-15 devnull else sprintf(path, "%s/%s.enc", ENCODINGDIR, name);
116 61f5c35c 2004-05-15 devnull if ( cat(path) == TRUE )
117 61f5c35c 2004-05-15 devnull writing = strncmp(name, "UTF", 3) == 0;
119 61f5c35c 2004-05-15 devnull } /* End of setencoding */
121 61f5c35c 2004-05-15 devnull /*****************************************************************************/
123 61f5c35c 2004-05-15 devnull cat(file)
125 61f5c35c 2004-05-15 devnull char *file;
129 61f5c35c 2004-05-15 devnull int fd_in;
130 61f5c35c 2004-05-15 devnull int fd_out;
131 61f5c35c 2004-05-15 devnull char buf[512];
132 61f5c35c 2004-05-15 devnull int count;
136 61f5c35c 2004-05-15 devnull * Copy *file to stdout. Return FALSE is there was a problem.
140 61f5c35c 2004-05-15 devnull fflush(stdout);
142 61f5c35c 2004-05-15 devnull if ( (fd_in = open(file, O_RDONLY)) == -1 )
143 61f5c35c 2004-05-15 devnull return(FALSE);
145 61f5c35c 2004-05-15 devnull fd_out = fileno(stdout);
146 61f5c35c 2004-05-15 devnull while ( (count = read(fd_in, buf, sizeof(buf))) > 0 )
147 61f5c35c 2004-05-15 devnull write(fd_out, buf, count);
149 61f5c35c 2004-05-15 devnull close(fd_in);
151 61f5c35c 2004-05-15 devnull return(TRUE);
153 61f5c35c 2004-05-15 devnull } /* End of cat */
155 61f5c35c 2004-05-15 devnull /*****************************************************************************/
158 61f5c35c 2004-05-15 devnull str_convert(str, err)
160 61f5c35c 2004-05-15 devnull char **str;
161 61f5c35c 2004-05-15 devnull int err;
169 61f5c35c 2004-05-15 devnull * Grab the next integer from **str and return its value or err if *str
170 61f5c35c 2004-05-15 devnull * isn't an integer. *str is modified after each digit is read.
174 61f5c35c 2004-05-15 devnull if ( ! isdigit(**str) )
175 61f5c35c 2004-05-15 devnull return(err);
177 61f5c35c 2004-05-15 devnull for ( i = 0; isdigit(**str); *str += 1 )
178 61f5c35c 2004-05-15 devnull i = 10 * i + **str - '0';
180 61f5c35c 2004-05-15 devnull return(i);
182 61f5c35c 2004-05-15 devnull } /* End of str_convert */
184 61f5c35c 2004-05-15 devnull /*****************************************************************************/
187 61f5c35c 2004-05-15 devnull error(kind, mesg, a1, a2, a3)
189 61f5c35c 2004-05-15 devnull int kind;
190 61f5c35c 2004-05-15 devnull char *mesg;
191 61f5c35c 2004-05-15 devnull unsigned a1, a2, a3;
197 61f5c35c 2004-05-15 devnull * Print an error message and quit if kind is FATAL.
201 61f5c35c 2004-05-15 devnull if ( mesg != NULL && *mesg != '\0' ) {
202 61f5c35c 2004-05-15 devnull fprintf(stderr, "%s: ", prog_name);
203 61f5c35c 2004-05-15 devnull fprintf(stderr, mesg, a1, a2, a3);
204 61f5c35c 2004-05-15 devnull if ( lineno > 0 )
205 b855148c 2004-05-16 devnull fprintf(stderr, " (line %ld)", lineno);
206 61f5c35c 2004-05-15 devnull if ( position > 0 )
207 b855148c 2004-05-16 devnull fprintf(stderr, " (near byte %ld)", position);
208 61f5c35c 2004-05-15 devnull putc('\n', stderr);
209 61f5c35c 2004-05-15 devnull } /* End if */
211 61f5c35c 2004-05-15 devnull if ( kind == FATAL && ignore == OFF ) {
212 61f5c35c 2004-05-15 devnull if ( temp_file != NULL )
213 61f5c35c 2004-05-15 devnull unlink(temp_file);
214 61f5c35c 2004-05-15 devnull exit(x_stat | 01);
215 61f5c35c 2004-05-15 devnull } /* End if */
217 61f5c35c 2004-05-15 devnull } /* End of error */
219 61f5c35c 2004-05-15 devnull /*****************************************************************************/
221 61f5c35c 2004-05-15 devnull void interrupt(sig)
223 61f5c35c 2004-05-15 devnull int sig;
229 61f5c35c 2004-05-15 devnull * Signal handler for translators.
233 61f5c35c 2004-05-15 devnull if ( temp_file != NULL )
234 61f5c35c 2004-05-15 devnull unlink(temp_file);
236 61f5c35c 2004-05-15 devnull exit(1);
238 61f5c35c 2004-05-15 devnull } /* End of interrupt */
240 61f5c35c 2004-05-15 devnull /*****************************************************************************/