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 * @(#) Copyright (c) 1980, 1993 The Regents of the University of California. All rights reserved. 34 * @(#)xstr.c 8.1 (Berkeley) 6/9/93 35 * $FreeBSD: src/usr.bin/xstr/xstr.c,v 1.4.2.1 2002/11/16 01:01:21 tjr Exp $ 36 * $DragonFly: src/usr.bin/xstr/xstr.c,v 1.2 2003/06/17 04:29:34 dillon Exp $ 37 */ 38 39 #include <sys/types.h> 40 41 #include <ctype.h> 42 #include <err.h> 43 #include <stdio.h> 44 #include <stdlib.h> 45 #include <signal.h> 46 #include <string.h> 47 #include <unistd.h> 48 49 #include "pathnames.h" 50 51 /* 52 * xstr - extract and hash strings in a C program 53 * 54 * Bill Joy UCB 55 * November, 1978 56 */ 57 58 #define ignore(a) ((void) a) 59 60 off_t tellpt; 61 62 off_t mesgpt; 63 char cstrings[] = "strings"; 64 char *strings = cstrings; 65 66 int cflg; 67 int vflg; 68 int readstd; 69 70 char lastchr(char *); 71 72 int fgetNUL(char *, int, FILE *); 73 int istail(char *, char *); 74 int octdigit(char); 75 int xgetc(FILE *); 76 77 off_t hashit(char *, int); 78 off_t yankstr(char **); 79 80 static void usage(void); 81 82 void flushsh(void); 83 void found(int, off_t, char *); 84 void inithash(void); 85 void onintr(int); 86 void process(const char *); 87 void prstr(char *); 88 void xsdotc(void); 89 90 int 91 main(int argc, char *argv[]) 92 { 93 int c; 94 95 while ((c = getopt(argc, argv, "-cv")) != -1) 96 switch (c) { 97 case '-': 98 readstd++; 99 break; 100 case 'c': 101 cflg++; 102 break; 103 case 'v': 104 vflg++; 105 break; 106 default: 107 usage(); 108 } 109 argc -= optind; 110 argv += optind; 111 112 if (signal(SIGINT, SIG_IGN) == SIG_DFL) 113 signal(SIGINT, onintr); 114 if (cflg || (argc == 0 && !readstd)) 115 inithash(); 116 else 117 strings = mktemp(strdup(_PATH_TMP)); 118 while (readstd || argc > 0) { 119 if (freopen("x.c", "w", stdout) == NULL) 120 err(1, "x.c"); 121 if (!readstd && freopen(argv[0], "r", stdin) == NULL) 122 err(2, "%s", argv[0]); 123 process("x.c"); 124 if (readstd == 0) 125 argc--, argv++; 126 else 127 readstd = 0; 128 }; 129 flushsh(); 130 if (cflg == 0) 131 xsdotc(); 132 if (strings[0] == '/') 133 ignore(unlink(strings)); 134 exit(0); 135 } 136 137 static void 138 usage(void) 139 { 140 fprintf(stderr, "usage: xstr [-v] [-c] [-] [name ...]\n"); 141 exit (1); 142 } 143 144 char linebuf[BUFSIZ]; 145 146 void 147 process(const char *name) 148 { 149 char *cp; 150 int c; 151 int incomm = 0; 152 int ret; 153 154 printf("extern char\txstr[];\n"); 155 for (;;) { 156 if (fgets(linebuf, sizeof linebuf, stdin) == NULL) { 157 if (ferror(stdin)) 158 err(3, "%s", name); 159 break; 160 } 161 if (linebuf[0] == '#') { 162 if (linebuf[1] == ' ' && isdigit(linebuf[2])) 163 printf("#line%s", &linebuf[1]); 164 else 165 printf("%s", linebuf); 166 continue; 167 } 168 for (cp = linebuf; (c = *cp++);) switch (c) { 169 170 case '"': 171 if (incomm) 172 goto def; 173 if ((ret = (int) yankstr(&cp)) == -1) 174 goto out; 175 printf("(&xstr[%d])", ret); 176 break; 177 178 case '\'': 179 if (incomm) 180 goto def; 181 putchar(c); 182 if (*cp) 183 putchar(*cp++); 184 break; 185 186 case '/': 187 if (incomm || *cp != '*') 188 goto def; 189 incomm = 1; 190 cp++; 191 printf("/*"); 192 continue; 193 194 case '*': 195 if (incomm && *cp == '/') { 196 incomm = 0; 197 cp++; 198 printf("*/"); 199 continue; 200 } 201 goto def; 202 203 def: 204 default: 205 putchar(c); 206 break; 207 } 208 } 209 out: 210 if (ferror(stdout)) 211 warn("x.c"), onintr(0); 212 } 213 214 off_t 215 yankstr(char **cpp) 216 { 217 char *cp = *cpp; 218 int c, ch; 219 char dbuf[BUFSIZ]; 220 char *dp = dbuf; 221 char *tp; 222 static char tmp[] = "b\bt\tr\rn\nf\f\\\\\"\""; 223 224 while ((c = *cp++)) { 225 if (dp == dbuf + sizeof(dbuf) - 3) 226 errx(1, "message too long"); 227 switch (c) { 228 229 case '"': 230 cp++; 231 goto out; 232 233 case '\\': 234 c = *cp++; 235 if (c == 0) 236 break; 237 if (c == '\n') { 238 if (fgets(linebuf, sizeof linebuf, stdin) 239 == NULL) { 240 if (ferror(stdin)) 241 err(3, "x.c"); 242 return(-1); 243 } 244 cp = linebuf; 245 continue; 246 } 247 for (tp = tmp; (ch = *tp++); tp++) 248 if (c == ch) { 249 c = *tp; 250 goto gotc; 251 } 252 if (!octdigit(c)) { 253 *dp++ = '\\'; 254 break; 255 } 256 c -= '0'; 257 if (!octdigit(*cp)) 258 break; 259 c <<= 3, c += *cp++ - '0'; 260 if (!octdigit(*cp)) 261 break; 262 c <<= 3, c += *cp++ - '0'; 263 break; 264 } 265 gotc: 266 *dp++ = c; 267 } 268 out: 269 *cpp = --cp; 270 *dp = 0; 271 return (hashit(dbuf, 1)); 272 } 273 274 int 275 octdigit(char c) 276 { 277 return (isdigit(c) && c != '8' && c != '9'); 278 } 279 280 void 281 inithash(void) 282 { 283 char buf[BUFSIZ]; 284 FILE *mesgread = fopen(strings, "r"); 285 286 if (mesgread == NULL) 287 return; 288 for (;;) { 289 mesgpt = tellpt; 290 if (fgetNUL(buf, sizeof buf, mesgread) == 0) 291 break; 292 ignore(hashit(buf, 0)); 293 } 294 ignore(fclose(mesgread)); 295 } 296 297 int 298 fgetNUL(char *obuf, int rmdr, FILE *file) 299 { 300 int c; 301 char *buf = obuf; 302 303 while (--rmdr > 0 && (c = xgetc(file)) != 0 && c != EOF) 304 *buf++ = c; 305 *buf++ = 0; 306 return ((feof(file) || ferror(file)) ? 0 : 1); 307 } 308 309 int 310 xgetc(FILE *file) 311 { 312 313 tellpt++; 314 return (getc(file)); 315 } 316 317 #define BUCKETS 128 318 319 struct hash { 320 off_t hpt; 321 char *hstr; 322 struct hash *hnext; 323 short hnew; 324 } bucket[BUCKETS]; 325 326 off_t 327 hashit(char *str, int new) 328 { 329 int i; 330 struct hash *hp, *hp0; 331 332 hp = hp0 = &bucket[lastchr(str) & 0177]; 333 while (hp->hnext) { 334 hp = hp->hnext; 335 i = istail(str, hp->hstr); 336 if (i >= 0) 337 return (hp->hpt + i); 338 } 339 if ((hp = (struct hash *) calloc(1, sizeof (*hp))) == NULL) 340 errx(8, "calloc"); 341 hp->hpt = mesgpt; 342 if (!(hp->hstr = strdup(str))) 343 err(1, NULL); 344 mesgpt += strlen(hp->hstr) + 1; 345 hp->hnext = hp0->hnext; 346 hp->hnew = new; 347 hp0->hnext = hp; 348 return (hp->hpt); 349 } 350 351 void 352 flushsh(void) 353 { 354 int i; 355 struct hash *hp; 356 FILE *mesgwrit; 357 int old = 0, new = 0; 358 359 for (i = 0; i < BUCKETS; i++) 360 for (hp = bucket[i].hnext; hp != NULL; hp = hp->hnext) 361 if (hp->hnew) 362 new++; 363 else 364 old++; 365 if (new == 0 && old != 0) 366 return; 367 mesgwrit = fopen(strings, old ? "r+" : "w"); 368 if (mesgwrit == NULL) 369 perror(strings), exit(4); 370 for (i = 0; i < BUCKETS; i++) 371 for (hp = bucket[i].hnext; hp != NULL; hp = hp->hnext) { 372 found(hp->hnew, hp->hpt, hp->hstr); 373 if (hp->hnew) { 374 fseek(mesgwrit, hp->hpt, 0); 375 ignore(fwrite(hp->hstr, strlen(hp->hstr) + 1, 1, mesgwrit)); 376 if (ferror(mesgwrit)) 377 err(4, "%s", strings); 378 } 379 } 380 if (fclose(mesgwrit) == EOF) 381 err(4, "%s", strings); 382 } 383 384 void 385 found(int new, off_t off, char *str) 386 { 387 if (vflg == 0) 388 return; 389 if (!new) 390 fprintf(stderr, "found at %d:", (int) off); 391 else 392 fprintf(stderr, "new at %d:", (int) off); 393 prstr(str); 394 fprintf(stderr, "\n"); 395 } 396 397 void 398 prstr(char *cp) 399 { 400 int c; 401 402 while ((c = (*cp++ & 0377))) 403 if (c < ' ') 404 fprintf(stderr, "^%c", c + '`'); 405 else if (c == 0177) 406 fprintf(stderr, "^?"); 407 else if (c > 0200) 408 fprintf(stderr, "\\%03o", c); 409 else 410 fprintf(stderr, "%c", c); 411 } 412 413 void 414 xsdotc(void) 415 { 416 FILE *strf = fopen(strings, "r"); 417 FILE *xdotcf; 418 419 if (strf == NULL) 420 err(5, "%s", strings); 421 xdotcf = fopen("xs.c", "w"); 422 if (xdotcf == NULL) 423 err(6, "xs.c"); 424 fprintf(xdotcf, "char\txstr[] = {\n"); 425 for (;;) { 426 int i, c; 427 428 for (i = 0; i < 8; i++) { 429 c = getc(strf); 430 if (ferror(strf)) { 431 warn("%s", strings); 432 onintr(0); 433 } 434 if (feof(strf)) { 435 fprintf(xdotcf, "\n"); 436 goto out; 437 } 438 fprintf(xdotcf, "0x%02x,", c); 439 } 440 fprintf(xdotcf, "\n"); 441 } 442 out: 443 fprintf(xdotcf, "};\n"); 444 ignore(fclose(xdotcf)); 445 ignore(fclose(strf)); 446 } 447 448 char 449 lastchr(char *cp) 450 { 451 452 while (cp[0] && cp[1]) 453 cp++; 454 return (*cp); 455 } 456 457 int 458 istail(char *str, char *of) 459 { 460 int d = strlen(of) - strlen(str); 461 462 if (d < 0 || strcmp(&of[d], str) != 0) 463 return (-1); 464 return (d); 465 } 466 467 void 468 onintr(int dummy __unused) 469 { 470 471 ignore(signal(SIGINT, SIG_IGN)); 472 if (strings[0] == '/') 473 ignore(unlink(strings)); 474 ignore(unlink("x.c")); 475 ignore(unlink("xs.c")); 476 exit(7); 477 } 478