1 /* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 3. All advertising materials mentioning features or use of this software 14 * must display the following acknowledgement: 15 * This product includes software developed by the University of 16 * California, Berkeley and its contributors. 17 * 4. Neither the name of the University nor the names of its contributors 18 * may be used to endorse or promote products derived from this software 19 * without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 * SUCH DAMAGE. 32 */ 33 34 #ifndef lint 35 static const char copyright[] = 36 "@(#) Copyright (c) 1980, 1993\n\ 37 The Regents of the University of California. All rights reserved.\n"; 38 #endif /* not lint */ 39 40 #ifndef lint 41 #if 0 42 static char sccsid[] = "@(#)mkstr.c 8.1 (Berkeley) 6/6/93"; 43 #endif 44 #endif /* not lint */ 45 46 #include <sys/cdefs.h> 47 __FBSDID("$FreeBSD$"); 48 49 #include <err.h> 50 #include <errno.h> 51 #include <stdio.h> 52 #include <stdlib.h> 53 #include <string.h> 54 55 #define ungetchar(c) ungetc(c, stdin) 56 57 /* 58 * mkstr - create a string error message file by massaging C source 59 * 60 * Bill Joy UCB August 1977 61 * 62 * Modified March 1978 to hash old messages to be able to recompile 63 * without addding messages to the message file (usually) 64 * 65 * Based on an earlier program conceived by Bill Joy and Chuck Haley 66 * 67 * Program to create a string error message file 68 * from a group of C programs. Arguments are the name 69 * of the file where the strings are to be placed, the 70 * prefix of the new files where the processed source text 71 * is to be placed, and the files to be processed. 72 * 73 * The program looks for 'error("' in the source stream. 74 * Whenever it finds this, the following characters from the '"' 75 * to a '"' are replaced by 'seekpt' where seekpt is a 76 * pointer into the error message file. 77 * If the '(' is not immediately followed by a '"' no change occurs. 78 * 79 * The optional '-' causes strings to be added at the end of the 80 * existing error message file for recompilation of single routines. 81 */ 82 83 FILE *mesgread, *mesgwrite; 84 char name[100], *np; 85 86 void copystr(void); 87 int fgetNUL(char *, int, FILE *); 88 unsigned hashit(char *, int, unsigned); 89 void inithash(void); 90 int match(const char *); 91 int octdigit(char); 92 void process(void); 93 void usage(void); 94 95 int 96 main(int argc, char *argv[]) 97 { 98 char addon = 0; 99 size_t namelen; 100 101 argc--, argv++; 102 if (argc > 1 && argv[0][0] == '-') 103 addon++, argc--, argv++; 104 if (argc < 3) 105 usage(); 106 mesgwrite = fopen(argv[0], addon ? "a" : "w"); 107 if (mesgwrite == NULL) 108 err(1, "%s", argv[0]); 109 mesgread = fopen(argv[0], "r"); 110 if (mesgread == NULL) 111 err(1, "%s", argv[0]); 112 inithash(); 113 argc--, argv++; 114 namelen = strlcpy(name, argv[0], sizeof(name)); 115 if (namelen >= sizeof(name)) { 116 errno = ENAMETOOLONG; 117 err(1, "%s", argv[0]); 118 } 119 np = name + namelen; 120 argc--, argv++; 121 do { 122 if (strlcpy(np, argv[0], sizeof(name) - namelen) >= 123 sizeof(name) - namelen) { 124 errno = ENAMETOOLONG; 125 err(1, "%s%s", name, argv[0]); 126 } 127 if (freopen(name, "w", stdout) == NULL) 128 err(1, "%s", name); 129 if (freopen(argv[0], "r", stdin) == NULL) 130 err(1, "%s", argv[0]); 131 process(); 132 argc--, argv++; 133 } while (argc > 0); 134 exit(0); 135 } 136 137 void 138 usage(void) 139 { 140 fprintf(stderr, "usage: mkstr [-] mesgfile prefix file ...\n"); 141 exit(1); 142 } 143 144 void 145 process(void) 146 { 147 int c; 148 149 for (;;) { 150 c = getchar(); 151 if (c == EOF) 152 return; 153 if (c != 'e') { 154 putchar(c); 155 continue; 156 } 157 if (match("error(")) { 158 printf("error("); 159 c = getchar(); 160 if (c != '"') 161 putchar(c); 162 else 163 copystr(); 164 } 165 } 166 } 167 168 int 169 match(const char *ocp) 170 { 171 const char *cp; 172 int c; 173 174 for (cp = ocp + 1; *cp; cp++) { 175 c = getchar(); 176 if (c != *cp) { 177 while (ocp < cp) 178 putchar(*ocp++); 179 ungetchar(c); 180 return (0); 181 } 182 } 183 return (1); 184 } 185 186 void 187 copystr(void) 188 { 189 int c, ch; 190 char buf[512]; 191 char *cp = buf; 192 193 for (;;) { 194 c = getchar(); 195 if (c == EOF) 196 break; 197 switch (c) { 198 199 case '"': 200 *cp++ = 0; 201 goto out; 202 case '\\': 203 c = getchar(); 204 switch (c) { 205 206 case 'b': 207 c = '\b'; 208 break; 209 case 't': 210 c = '\t'; 211 break; 212 case 'r': 213 c = '\r'; 214 break; 215 case 'n': 216 c = '\n'; 217 break; 218 case '\n': 219 continue; 220 case 'f': 221 c = '\f'; 222 break; 223 case '0': 224 c = 0; 225 break; 226 case '\\': 227 break; 228 default: 229 if (!octdigit(c)) 230 break; 231 c -= '0'; 232 ch = getchar(); 233 if (!octdigit(ch)) 234 break; 235 c <<= 7, c += ch - '0'; 236 ch = getchar(); 237 if (!octdigit(ch)) 238 break; 239 c <<= 3, c+= ch - '0', ch = -1; 240 break; 241 } 242 } 243 *cp++ = c; 244 } 245 out: 246 *cp = 0; 247 printf("%d", hashit(buf, 1, NULL)); 248 } 249 250 int 251 octdigit(char c) 252 { 253 254 return (c >= '0' && c <= '7'); 255 } 256 257 void 258 inithash(void) 259 { 260 char buf[512]; 261 int mesgpt = 0; 262 263 rewind(mesgread); 264 while (fgetNUL(buf, sizeof buf, mesgread) != 0) { 265 hashit(buf, 0, mesgpt); 266 mesgpt += strlen(buf) + 2; 267 } 268 } 269 270 #define NBUCKETS 511 271 272 struct hash { 273 long hval; 274 unsigned hpt; 275 struct hash *hnext; 276 } *bucket[NBUCKETS]; 277 278 unsigned 279 hashit(char *str, int really, unsigned fakept) 280 { 281 int i; 282 struct hash *hp; 283 char buf[512]; 284 long hashval = 0; 285 char *cp; 286 287 if (really) 288 fflush(mesgwrite); 289 for (cp = str; *cp;) 290 hashval = (hashval << 1) + *cp++; 291 i = hashval % NBUCKETS; 292 if (i < 0) 293 i += NBUCKETS; 294 if (really != 0) 295 for (hp = bucket[i]; hp != 0; hp = hp->hnext) 296 if (hp->hval == hashval) { 297 fseek(mesgread, (long) hp->hpt, 0); 298 fgetNUL(buf, sizeof buf, mesgread); 299 /* 300 fprintf(stderr, "Got (from %d) %s\n", hp->hpt, buf); 301 */ 302 if (strcmp(buf, str) == 0) 303 break; 304 } 305 if (!really || hp == 0) { 306 hp = (struct hash *) calloc(1, sizeof *hp); 307 if (hp == NULL) 308 err(1, NULL); 309 hp->hnext = bucket[i]; 310 hp->hval = hashval; 311 hp->hpt = really ? ftell(mesgwrite) : fakept; 312 if (really) { 313 fwrite(str, sizeof (char), strlen(str) + 1, mesgwrite); 314 fwrite("\n", sizeof (char), 1, mesgwrite); 315 } 316 bucket[i] = hp; 317 } 318 /* 319 fprintf(stderr, "%s hashed to %ld at %d\n", str, hp->hval, hp->hpt); 320 */ 321 return (hp->hpt); 322 } 323 324 int 325 fgetNUL(char *obuf, int rmdr, FILE *file) 326 { 327 int c; 328 char *buf = obuf; 329 330 while (--rmdr > 0 && (c = getc(file)) != 0 && c != EOF) 331 *buf++ = c; 332 *buf++ = 0; 333 getc(file); 334 return ((feof(file) || ferror(file)) ? 0 : 1); 335 } 336