diff options
Diffstat (limited to 'src/util/et/compile_et.c')
| -rw-r--r-- | src/util/et/compile_et.c | 241 |
1 files changed, 121 insertions, 120 deletions
diff --git a/src/util/et/compile_et.c b/src/util/et/compile_et.c index dfaad5f576..993b3ed873 100644 --- a/src/util/et/compile_et.c +++ b/src/util/et/compile_et.c @@ -1,3 +1,4 @@ +/* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */ /* * * Copyright 1986, 1987, 1988 @@ -36,16 +37,16 @@ extern int yylineno; char * xmalloc (size) unsigned int size; { char * p = malloc (size); if (!p) { - perror (whoami); - exit (1); + perror (whoami); + exit (1); } return p; } static int check_arg (str_list, arg) char const *const *str_list, *arg; { while (*str_list) - if (!strcmp(arg, *str_list++)) - return 1; + if (!strcmp(arg, *str_list++)) + return 1; return 0; } @@ -102,18 +103,18 @@ static const char warning[] = "/*\n * %s:\n * This file is automatically generated; please do not edit it.\n */\n"; /* pathnames */ -char c_file[MAXPATHLEN]; /* output file */ -char h_file[MAXPATHLEN]; /* output */ +char c_file[MAXPATHLEN]; /* output file */ +char h_file[MAXPATHLEN]; /* output */ static void usage () { fprintf (stderr, "%s: usage: %s ERROR_TABLE\n", - whoami, whoami); + whoami, whoami); exit (1); } static void dup_err (type, one, two) char const *type, *one, *two; { fprintf (stderr, "%s: multiple %s specified: `%s' and `%s'\n", - whoami, type, one, two); + whoami, type, one, two); usage (); } @@ -129,60 +130,60 @@ int main (argc, argv) int argc; char **argv; { whoami = argv[0]; p = strrchr (whoami, '/'); if (p) - whoami = p+1; + whoami = p+1; while (argv++, --argc) { - char *arg = *argv; - if (arg[0] != '-') { - if (filename) - dup_err ("filenames", filename, arg); - filename = arg; - } - else { - arg++; - if (check_arg (debug_args, arg)) - debug++; - else if (check_arg (lang_args, arg)) { - got_language++; - arg = *++argv, argc--; - if (!arg) - usage (); - if (language) - dup_err ("languanges", language_names[(int)language], arg); + char *arg = *argv; + if (arg[0] != '-') { + if (filename) + dup_err ("filenames", filename, arg); + filename = arg; + } + else { + arg++; + if (check_arg (debug_args, arg)) + debug++; + else if (check_arg (lang_args, arg)) { + got_language++; + arg = *++argv, argc--; + if (!arg) + usage (); + if (language) + dup_err ("languanges", language_names[(int)language], arg); #define check_lang(x,v) else if (!strcasecmp(arg,x)) language = v - check_lang ("c", lang_C); - check_lang ("ansi_c", lang_C); - check_lang ("ansi-c", lang_C); - check_lang ("krc", lang_KRC); - check_lang ("kr_c", lang_KRC); - check_lang ("kr-c", lang_KRC); - check_lang ("k&r-c", lang_KRC); - check_lang ("k&r_c", lang_KRC); - check_lang ("c++", lang_CPP); - check_lang ("cplusplus", lang_CPP); - check_lang ("c-plus-plus", lang_CPP); + check_lang ("c", lang_C); + check_lang ("ansi_c", lang_C); + check_lang ("ansi-c", lang_C); + check_lang ("krc", lang_KRC); + check_lang ("kr_c", lang_KRC); + check_lang ("kr-c", lang_KRC); + check_lang ("k&r-c", lang_KRC); + check_lang ("k&r_c", lang_KRC); + check_lang ("c++", lang_CPP); + check_lang ("cplusplus", lang_CPP); + check_lang ("c-plus-plus", lang_CPP); #undef check_lang - else { - fprintf (stderr, "%s: unknown language name `%s'\n", - whoami, arg); - fprintf (stderr, "\tpick one of: C K&R-C\n"); - exit (1); - } - } - else { - fprintf (stderr, "%s: unknown control argument -`%s'\n", - whoami, arg); - usage (); - } - } + else { + fprintf (stderr, "%s: unknown language name `%s'\n", + whoami, arg); + fprintf (stderr, "\tpick one of: C K&R-C\n"); + exit (1); + } + } + else { + fprintf (stderr, "%s: unknown control argument -`%s'\n", + whoami, arg); + usage (); + } + } } if (!filename) - usage (); + usage (); if (!got_language) - language = lang_KRC; + language = lang_KRC; else if (language == lang_CPP) { - fprintf (stderr, "%s: Sorry, C++ support is not yet finished.\n", - whoami); - exit (1); + fprintf (stderr, "%s: Sorry, C++ support is not yet finished.\n", + whoami); + exit (1); } p = xmalloc (strlen (filename) + 5); @@ -190,14 +191,14 @@ int main (argc, argv) int argc; char **argv; { filename = p; p = strrchr(filename, '/'); if (p == (char *)NULL) - p = filename; + p = filename; else - p++; + p++; ename = p; len = strlen (ename); p += len - 3; if (strcmp (p, ".et")) - p += 3; + p += 3; *p++ = '.'; /* now p points to where "et" suffix should start */ /* generate new filenames */ @@ -209,48 +210,48 @@ int main (argc, argv) int argc; char **argv; { yyin = fopen(filename, "r"); if (!yyin) { - perror(filename); - exit(1); + perror(filename); + exit(1); } hfile = fopen(h_file, "w"); if (hfile == (FILE *)NULL) { - perror(h_file); - exit(1); + perror(h_file); + exit(1); } fprintf (hfile, warning, h_file); cfile = fopen(c_file, "w"); if (cfile == (FILE *)NULL) { - perror(c_file); - exit(1); + perror(c_file); + exit(1); } fprintf (cfile, warning, c_file); /* prologue */ if (language == lang_C) - cpp = c_src_prolog; + cpp = c_src_prolog; else if (language == lang_KRC) - cpp = krc_src_prolog; + cpp = krc_src_prolog; else - abort (); + abort (); while (*cpp) - fputs (*cpp++, cfile); + fputs (*cpp++, cfile); /* parse it */ yyparse(); - fclose(yyin); /* bye bye input file */ + fclose(yyin); /* bye bye input file */ fputs (" 0\n};\n\n", cfile); for (cpp = struct_def; *cpp; cpp++) - fputs (*cpp, cfile); + fputs (*cpp, cfile); fprintf(cfile, - "const struct error_table et_%s_error_table = { text, %ldL, %d };\n\n", - table_name, table_number, current); + "const struct error_table et_%s_error_table = { text, %ldL, %d };\n\n", + table_name, table_number, current); fputs("static struct et_list link = { 0, 0 };\n\n", - cfile); + cfile); fprintf(cfile, "void initialize_%s_error_table (%s) {\n", - table_name, (language == lang_C) ? "void" : "NOARGS"); + table_name, (language == lang_C) ? "void" : "NOARGS"); fputs(" if (!link.table) {\n", cfile); fputs(" link.next = _et_list;\n", cfile); fprintf(cfile, " link.table = &et_%s_error_table;\n", table_name); @@ -260,19 +261,19 @@ int main (argc, argv) int argc; char **argv; { fclose(cfile); fprintf (hfile, "extern void initialize_%s_error_table ();\n", - table_name); + table_name); fprintf (hfile, "#define ERROR_TABLE_BASE_%s (%ldL)\n", - table_name, table_number); + table_name, table_number); /* compatibility... */ fprintf (hfile, "\n/* for compatibility with older versions... */\n"); fprintf (hfile, "#define init_%s_err_tbl initialize_%s_error_table\n", - table_name, table_name); + table_name, table_name); fprintf (hfile, "#define %s_err_base ERROR_TABLE_BASE_%s\n", table_name, - table_name); - fclose(hfile); /* bye bye include file */ + table_name); + fclose(hfile); /* bye bye include file */ return 0; -} + } int yyerror(s) char *s; { fputs(s, stderr); @@ -280,7 +281,7 @@ int yyerror(s) char *s; { fprintf(stderr, "\nLast token was '%s'\n", current_token); #else fprintf(stderr, "\nLine number %d; last token was '%s'\n", - yylineno, current_token); + yylineno, current_token); #endif } @@ -292,7 +293,7 @@ int yyerror(s) char *s; { * specifies the terms and conditions for redistribution. */ -/* based on @(#)strcasecmp.c 1.3 (Berkeley) 8/3/87 */ +/* based on @(#)strcasecmp.c 1.3 (Berkeley) 8/3/87 */ /* * This array is designed for mapping upper and lower case letter @@ -300,49 +301,49 @@ int yyerror(s) char *s; { * based upon ascii character sequences. */ static char charmap[] = { - '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007', - '\010', '\011', '\012', '\013', '\014', '\015', '\016', '\017', - '\020', '\021', '\022', '\023', '\024', '\025', '\026', '\027', - '\030', '\031', '\032', '\033', '\034', '\035', '\036', '\037', - '\040', '\041', '\042', '\043', '\044', '\045', '\046', '\047', - '\050', '\051', '\052', '\053', '\054', '\055', '\056', '\057', - '\060', '\061', '\062', '\063', '\064', '\065', '\066', '\067', - '\070', '\071', '\072', '\073', '\074', '\075', '\076', '\077', - '\100', '\141', '\142', '\143', '\144', '\145', '\146', '\147', - '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', - '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167', - '\170', '\171', '\172', '\133', '\134', '\135', '\136', '\137', - '\140', '\141', '\142', '\143', '\144', '\145', '\146', '\147', - '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', - '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167', - '\170', '\171', '\172', '\173', '\174', '\175', '\176', '\177', - '\200', '\201', '\202', '\203', '\204', '\205', '\206', '\207', - '\210', '\211', '\212', '\213', '\214', '\215', '\216', '\217', - '\220', '\221', '\222', '\223', '\224', '\225', '\226', '\227', - '\230', '\231', '\232', '\233', '\234', '\235', '\236', '\237', - '\240', '\241', '\242', '\243', '\244', '\245', '\246', '\247', - '\250', '\251', '\252', '\253', '\254', '\255', '\256', '\257', - '\260', '\261', '\262', '\263', '\264', '\265', '\266', '\267', - '\270', '\271', '\272', '\273', '\274', '\275', '\276', '\277', - '\300', '\341', '\342', '\343', '\344', '\345', '\346', '\347', - '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357', - '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367', - '\370', '\371', '\372', '\333', '\334', '\335', '\336', '\337', - '\340', '\341', '\342', '\343', '\344', '\345', '\346', '\347', - '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357', - '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367', - '\370', '\371', '\372', '\373', '\374', '\375', '\376', '\377', + '\000', '\001', '\002', '\003', '\004', '\005', '\006', '\007', + '\010', '\011', '\012', '\013', '\014', '\015', '\016', '\017', + '\020', '\021', '\022', '\023', '\024', '\025', '\026', '\027', + '\030', '\031', '\032', '\033', '\034', '\035', '\036', '\037', + '\040', '\041', '\042', '\043', '\044', '\045', '\046', '\047', + '\050', '\051', '\052', '\053', '\054', '\055', '\056', '\057', + '\060', '\061', '\062', '\063', '\064', '\065', '\066', '\067', + '\070', '\071', '\072', '\073', '\074', '\075', '\076', '\077', + '\100', '\141', '\142', '\143', '\144', '\145', '\146', '\147', + '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', + '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167', + '\170', '\171', '\172', '\133', '\134', '\135', '\136', '\137', + '\140', '\141', '\142', '\143', '\144', '\145', '\146', '\147', + '\150', '\151', '\152', '\153', '\154', '\155', '\156', '\157', + '\160', '\161', '\162', '\163', '\164', '\165', '\166', '\167', + '\170', '\171', '\172', '\173', '\174', '\175', '\176', '\177', + '\200', '\201', '\202', '\203', '\204', '\205', '\206', '\207', + '\210', '\211', '\212', '\213', '\214', '\215', '\216', '\217', + '\220', '\221', '\222', '\223', '\224', '\225', '\226', '\227', + '\230', '\231', '\232', '\233', '\234', '\235', '\236', '\237', + '\240', '\241', '\242', '\243', '\244', '\245', '\246', '\247', + '\250', '\251', '\252', '\253', '\254', '\255', '\256', '\257', + '\260', '\261', '\262', '\263', '\264', '\265', '\266', '\267', + '\270', '\271', '\272', '\273', '\274', '\275', '\276', '\277', + '\300', '\341', '\342', '\343', '\344', '\345', '\346', '\347', + '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357', + '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367', + '\370', '\371', '\372', '\333', '\334', '\335', '\336', '\337', + '\340', '\341', '\342', '\343', '\344', '\345', '\346', '\347', + '\350', '\351', '\352', '\353', '\354', '\355', '\356', '\357', + '\360', '\361', '\362', '\363', '\364', '\365', '\366', '\367', + '\370', '\371', '\372', '\373', '\374', '\375', '\376', '\377', }; strcasecmp(s1, s2) - register char *s1, *s2; +register char *s1, *s2; { - register char *cm = charmap; + register char *cm = charmap; - while (cm[*s1] == cm[*s2++]) - if (*s1++ == '\0') - return(0); - return(cm[*s1] - cm[*--s2]); + while (cm[*s1] == cm[*s2++]) + if (*s1++ == '\0') + return(0); + return(cm[*s1] - cm[*--s2]); } #endif |