/* * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands. * See the copyright notice in the ACK home directory, in the file "Copyright". */ /* chtab - character table generator Author: Erik Baalbergen (..tjalk!erikb) Modified by Ceriel Jacobs */ #include static char *RcsId = "$Header$"; #define MAXBUF 256 #define TABSIZE 257 #define COMCOM '-' #define FILECOM '%' int InputForm = 'c'; char OutputForm[MAXBUF] = "%s,\n"; char *Table[TABSIZE]; char *Name; char *ProgCall; int signedch = 0; char *OutputName; char *chroffsetfile = "charoffset.h"; main(argc, argv) char *argv[]; { char c = 0200; int i = c; if (i < 0) signedch = 1; ProgCall = *argv++; argc--; while (argc-- > 0) { if (**argv == COMCOM) { option(*argv++); } else { process(*argv++, InputForm); } } MkCharIndex(); exit(0); } MkCharIndex() { FILE *fp; if ((fp = fopen(chroffsetfile, "w")) == NULL) { fprintf(stderr, "%s: cannot write file %s\n", ProgCall, chroffsetfile); exit(1); } if (signedch) { fputs("#define CharOffset 128\n", fp); } else fputs("#define CharOffset 0\n", fp); fclose(fp); } char * Salloc(s) char *s; { char *malloc(); char *ns = malloc(strlen(s) + 1); if (ns) { strcpy(ns, s); } return ns; } option(str) char *str; { /* note that *str indicates the source of the option: either COMCOM (from command line) or FILECOM (from a file). */ switch (*++str) { case ' ': /* command */ case '\t': case '\0': break; case 'I': InputForm = *++str; break; case 'f': if (*++str == '\0') { fprintf(stderr, "%s: -f: name expected\n", ProgCall); exit(1); } DoFile(str); break; case 'F': sprintf(OutputForm, "%s\n", ++str); break; case 'T': printf("%s\n", ++str); break; case 'p': PrintTable(); break; case 'C': ClearTable(); break; case 'H': if (*++str == '\0') { fprintf(stderr, "%s: -H: name expected\n", ProgCall); } else chroffsetfile = ++str; break; default: fprintf(stderr, "%s: bad option -%s\n", ProgCall, str); } } ClearTable() { register i; for (i = 0; i < TABSIZE; i++) { Table[i] = 0; } } PrintTable() { register i; for (i = 0; i < TABSIZE; i++) { if (Table[i]) { printf(OutputForm, Table[i]); } else { printf(OutputForm, "0"); } } } process(str, format) char *str; { char *cstr = str; char *Name = cstr; /* overwrite original string! */ /* strip of the entry name */ while (*str && *str != ':') { if (*str == '\\') { ++str; } *cstr++ = *str++; } if (*str != ':') { fprintf(stderr, "%s: bad specification: \"%s\", ignored\n", ProgCall, Name); return 0; } *cstr = '\0'; str++; switch (format) { case 'c': return c_proc(str, Name); default: fprintf(stderr, "%s: bad input format\n", ProgCall); } return 0; } c_proc(str, Name) char *str; char *Name; { int ch, ch2; int quoted(); char *name = Salloc(Name); while (*str) { if (*str == '\\') { ch = quoted(&str); } else { ch = *str++; } if (*str == '-') { if (*++str == '\\') { ch2 = quoted(&str); } else { if (ch2 = *str++); else str--; } if (ch > ch2) { fprintf(stderr, "%s: bad range\n", ProgCall); return 0; } #define ind(X) (signedch?(X>=128?X-128:X+128):X) while (ch <= ch2) { Table[ind(ch)] = name; ch++; } } else { if (ch >= 0 && ch <= 255) Table[ind(ch)] = name; } } Table[256] = Table[0]; return 1; } int quoted(pstr) char **pstr; { register int ch; register int i; register char *str = *pstr; if ((*++str >= '0') && (*str <= '9')) { ch = 0; for (i = 0; i < 3; i++) { ch = 8 * ch + (*str - '0'); if (*++str < '0' || *str > '9') break; } } else { switch (*str++) { case 'n': ch = '\n'; break; case 't': ch = '\t'; break; case 'b': ch = '\b'; break; case 'r': ch = '\r'; break; case 'f': ch = '\f'; break; default : ch = *str; } } *pstr = str; return ch & 0377; } int stoi(str) char *str; { register i = 0; while (*str >= '0' && *str <= '9') { i = i * 10 + *str++ - '0'; } return i; } char * getline(s, n, fp) char *s; FILE *fp; { register c = getc(fp); char *str = s; while (n--) { if (c == EOF) { return NULL; } else if (c == '\n') { *str++ = '\0'; return s; } *str++ = c; c = getc(fp); } s[n - 1] = '\0'; return s; } #define BUFSIZE 1024 DoFile(name) char *name; { char text[BUFSIZE]; FILE *fp; if ((fp = fopen(name, "r")) == NULL) { fprintf(stderr, "%s: cannot read file %s\n", ProgCall, name); exit(1); } while (getline(text, BUFSIZE, fp) != NULL) { if (text[0] == FILECOM) { option(text); } else { process(text, InputForm); } } }