/* * ** Utility program to build the data files. * ** Alf, June 1990 */ #include "kernel.h" void make_data (int argc, char **argv); void crapup (char *p) { perror (p); exit (1); } /* * ** Open file for read/write or die trying */ static FILE * Do_fopen (char *name, char *mode) { FILE *file; if (*name == '-' && !name[1]) return *mode == 'w' ? stdout : stdin; if (!(file = fopen (name, mode))) { perror (name); (void) fprintf (stderr, "Unable to open %s for %s\n", name, *mode == 'w' ? "write" : "read"); exit (1); } return file; } typedef struct _XTABLE { /* move this inside make verbs ? */ struct _XTABLE *next; int code; char name[30]; } XTABLE; /* * ** Make header file verbs.h */ static void make_verbs (int argc, char *argv[]) { FILE *In, *Out, *H; char *p, *q; int vcode, num_v; XTABLE *first, *last, *v, *w; char buff[128], verb[30]; if (argc < 3) { (void) fprintf (stderr, "Usage error: See Makefile\n"); exit (1); } In = Do_fopen (argv[1], "r"); Out = Do_fopen (argv[2], "w"); H = Do_fopen (argv[3], "w"); first = last = NULL; vcode = num_v = 0; while (fgets (buff, sizeof buff, In)) { for (p = buff, q = verb; isalpha (*p);) *q++ = *p++; if (q == verb) continue; *q = 0; lowercase (verb); v = (XTABLE *) xmalloc (1, sizeof (XTABLE)); strcpy (v->name, verb); ++num_v; if (*p != '=') { v->code = ++vcode; } else { for (q = verb, ++p; isalpha (*p);) *q++ = *p++; *q = 0; lowercase (verb); for (w = first; w != NULL && strcmp (w->name, verb) != 0; w = w->next) ; if (w == NULL) { v->code = ++vcode; } else { v->code = w->code; } } v->next = NULL; if (first == NULL) { first = last = v; } else { last = (last->next = v); } } fclose (In); /* Print out header */ (void) fprintf (H, "\ /*\n\ **\tVerb file header generated from %s\n\ **\tDON'T MAKE CHANGES HERE -- THEY WILL GO AWAY!\n\ */\n\n\ #ifndef _VERBS_H\n\ #define _VERBS_H\n\n", argv[1]); fprintf (Out, "%d\n", num_v); /* Read thru verb file, creating #define's for each verb */ for (w = first; w != NULL; w = w->next) { strcpy (verb, w->name); (void) fprintf (Out, "%s %d\n", verb, w->code); uppercase (verb); (void) fprintf (H, "#define\tVERB_%s\t%d\n", verb, w->code); } fclose (Out); fprintf (H, "\n#endif\n"); fclose (H); exit (0); } int main (int argc, char *argv[]) { argc--; argv++; if (argc) { if (EQ (*argv, "verbs")) { make_verbs (argc, argv); } else { if (EQ (*argv, "data")) { make_data (argc, argv); } else { (void) fprintf (stderr, "Usage error: See Makefile\n"); return 1; } } } return 0; }