123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300 |
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
- /* $Header$ */
- /* @cc tab.c -o $INSTALLDIR/tab@
- tab - table generator
- Author: Erik Baalbergen (..tjalk!erikb)
- */
- #include <stdio.h>
- #define MAXTAB 10000
- #define MAXBUF 10000
- #define COMCOM '-'
- #define FILECOM '%'
- int InputForm = 'c';
- char OutputForm[MAXBUF] = "%s,\n";
- int TabSize = 257;
- char *Table[MAXTAB];
- char *ProgCall;
- main(argc, argv)
- char *argv[];
- {
- ProgCall = *argv++;
- argc--;
- while (argc-- > 0) {
- if (**argv == COMCOM) {
- option(*argv++);
- }
- else {
- process(*argv++, InputForm);
- }
- }
- exit(0);
- }
- char *
- Salloc(s)
- char *s;
- {
- extern char *malloc(), *strcpy();
- char *ns = malloc((unsigned int)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).
- */
- extern char *sprintf();
-
- 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 'S':
- {
- register i = stoi(++str);
- if (i <= 0 || i > MAXTAB) {
- fprintf(stderr, "%s: size would exceed maximum\n",
- ProgCall);
- }
- else {
- TabSize = i;
- }
- break;
- }
- default:
- fprintf(stderr, "%s: bad option -%s\n", ProgCall, str);
- }
- }
- ClearTable()
- {
- register i;
- for (i = 0; i < MAXTAB; 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();
- 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;
- }
- if (ch >= 0 && ch2 <= 255)
- while (ch <= ch2)
- Table[ch++] = Salloc(Name);
- }
- else {
- if (ch >= 0 && ch <= 255)
- Table[ch] = Salloc(Name);
- }
- }
- 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);
- }
- }
- }
|