![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to compile_et.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / kerberosIV / compile_et|
Return to compile_et.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / kerberosIV / compile_et |
1.1 root 1: /*
2: *
3: * Copyright 1986, 1987 by MIT Student Information Processing Board
4: *
5: * For copyright info, see "mit-sipb-copyright.h".
6: *
7: */
8:
9: #include <stdio.h>
10: #include <sys/file.h>
11: #include <strings.h>
12: #include <sys/param.h>
13: #include "mit-sipb-copyright.h"
14:
15: static char copyright[] = "Copyright 1987 by MIT Student Information Processing Board";
16:
17: extern char *gensym();
18: extern char *current_token;
19: extern int table_number, current;
20: char buffer[BUFSIZ];
21: char *table_name = (char *)NULL;
22: FILE *hfile, *cfile;
23:
24: /* C library */
25: extern char *malloc();
26: extern int errno;
27:
28: /* lex stuff */
29: extern FILE *yyin;
30: extern int yylineno;
31:
32: /* pathnames */
33: char c_file[MAXPATHLEN]; /* temporary file */
34: char h_file[MAXPATHLEN]; /* output */
35: char o_file[MAXPATHLEN]; /* output */
36: char et_file[MAXPATHLEN]; /* input */
37:
38: main(argc, argv)
39: int argc;
40: char **argv;
41: {
42: register char *p;
43: int n_flag = 0, debug = 0;
44:
45: while (argc > 2) {
46: register char *arg, ch;
47: arg = argv[--argc];
48: if (strlen(arg) != 2 || arg[0] != '-')
49: goto usage;
50: ch = arg[1];
51: if (ch == 'n')
52: n_flag++;
53: else if (ch == 'd')
54: debug++;
55: else
56: goto usage;
57: }
58:
59: if (argc != 2) {
60: usage:
61: fprintf(stderr, "Usage: %s et_file [-n]\n", argv[0]);
62: exit(1);
63: }
64:
65: strcpy(et_file, argv[1]);
66: p = rindex(et_file, '/');
67: if (p == (char *)NULL)
68: p = et_file;
69: else
70: p++;
71: p = rindex(p, '.');
72: if (!strcmp(p, ".et"))
73: *++p = '\0';
74: else {
75: if (!p)
76: p = et_file;
77: while (*p)
78: p++;
79: *p++ = '.';
80: *p = '\0';
81: }
82: /* p points at null where suffix should be */
83: strcpy(p, "et.c");
84: strcpy(c_file, et_file);
85: p[0] = 'h';
86: p[1] = '\0';
87: strcpy(h_file, et_file);
88: p[0] = 'o';
89: strcpy(o_file, et_file);
90: p[0] = 'e';
91: p[1] = 't';
92: p[2] = '\0';
93:
94: yyin = fopen(et_file, "r");
95: if (!yyin) {
96: perror(et_file);
97: exit(1);
98: }
99:
100: hfile = fopen(h_file, "w");
101: if (hfile == (FILE *)NULL) {
102: perror(h_file);
103: exit(1);
104: }
105:
106: cfile = fopen(c_file, "w");
107: if (cfile == (FILE *)NULL) {
108: perror("Can't open temp file");
109: exit(1);
110: }
111:
112: /* parse it */
113: fputs("#define NULL 0\n", cfile);
114: fputs("static char *_et[] = {\n", cfile);
115:
116: yyparse();
117: fclose(yyin); /* bye bye input file */
118:
119: fputs("\t(char *)0\n};\n", cfile);
120: fputs("extern int init_error_table();\n\n", cfile);
121: fprintf(cfile, "int %s_err_base = %d;\n\n", table_name, table_number);
122: fprintf(cfile, "int\ninit_%s_err_tbl()\n", table_name);
123: fprintf(cfile, "{\n\treturn(init_error_table(_et, %d, %d));\n}\n",
124: table_number, current);
125: fclose(cfile);
126:
127: fputs("extern int init_", hfile);
128: fputs(table_name, hfile);
129: fputs("_err_tbl();\nextern int ", hfile);
130: fputs(table_name, hfile);
131: fputs("_err_base;\n", hfile);
132: fclose(hfile); /* bye bye hfile */
133:
134: if (n_flag)
135: exit(0);
136:
137: if (!fork()) {
138: p = rindex(c_file, '/');
139: if (p) {
140: *p++ = '\0';
141: chdir(c_file);
142: }
143: else
144: p = c_file;
145: execlp("cc", "cc", "-c", "-R", "-O", p, 0);
146: perror("cc");
147: exit(1);
148: }
149: else wait(0);
150:
151: if (!debug)
152: (void) unlink(c_file);
153: /* make it .o file name */
154: c_file[strlen(c_file)-1] = 'o';
155: if (!fork()) {
156: execlp("cp", "cp", c_file, o_file, 0);
157: perror("cp");
158: exit(1);
159: }
160: else wait(0);
161: if (!debug)
162: (void) unlink(c_file);
163:
164: exit(0);
165: }
166:
167: yyerror(s)
168: char *s;
169: {
170: fputs(s, stderr);
171: fprintf(stderr, "\nLine number %d; last token was '%s'\n",
172: yylineno, current_token);
173: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.