![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to setmaps.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / new / jove|
Return to setmaps.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / new / jove |
1.1 root 1: /***************************************************************************
2: * This program is Copyright (C) 1986, 1987, 1988 by Jonathan Payne. JOVE *
3: * is provided to you without charge, and with no warranty. You may give *
4: * away copies of JOVE, including sources, provided that this notice is *
5: * included in all the files. *
6: ***************************************************************************/
7:
8: #define TXT_TO_C 1 /* must be a number for MAC compiler */
9:
10: #include "funcdefs.c"
11:
12: #ifdef MAC
13: #include "vars.c"
14: #endif
15:
16: #undef putchar /* From jove.h via funcdefs.c, conflicts with STDIO */
17: #undef putc
18: #undef getc
19: #undef EOF
20: #undef FILE
21: #undef BUFSIZ
22: #undef NULL
23: #include <stdio.h>
24:
25: matchcmd(choices, what)
26: register struct cmd choices[];
27: register char *what;
28: {
29: register int len;
30: int i,
31: found = 0,
32: save,
33: exactmatch = -1;
34:
35: len = strlen(what);
36: for (i = 0; choices[i].Name != 0; i++) {
37: if (*what != *choices[i].Name)
38: continue;
39: #ifdef MAC /* see "left-margin" and "left-margin-here" */
40: if (strcmp(what, choices[i].Name) == 0)
41: #else
42: if (strncmp(what, choices[i].Name, len) == 0)
43: #endif
44: return i;
45: }
46: return -1;
47: }
48:
49: #ifdef MAC
50: matchvar(choices, what)
51: register struct variable choices[];
52: register char *what;
53: {
54: register int len;
55: int i,
56: found = 0,
57: save,
58: exactmatch = -1;
59:
60: len = strlen(what);
61: for (i = 0; choices[i].Name != 0; i++) {
62: if (*what != *choices[i].Name)
63: continue;
64: if (strcmp(what, choices[i].Name) == 0)
65: return i;
66: }
67: return -1;
68: }
69: #endif
70:
71: char *
72: PPchar(c)
73: int c;
74: {
75: static char str[16];
76: char *cp = str;
77:
78: if (c & 0200) {
79: c &= ~0200;
80: strcpy(cp, "M-");
81: cp += 2;
82: }
83: if (c == '\033')
84: strcpy(cp, "ESC");
85: #ifdef IBMPC
86: else if (c == '\377')
87: strcpy(cp, "M");
88: #endif /* IBMPC */
89: else if (c < ' ')
90: (void) sprintf(cp, "C-%c", c + '@');
91: else if (c == '\177')
92: strcpy(cp, "^?");
93: else
94: (void) sprintf(cp, "%c", c);
95: return str;
96: }
97:
98: void
99: extract(into, from)
100: char *into,
101: *from;
102: {
103: from += 2; /* Past tab and first double quote. */
104: while ((*into = *from++) != '"')
105: into += 1;
106: *into = 0;
107: }
108:
109:
110: void
111:
112: #ifdef MAC
113: _main() /* for Mac, so we can use redirection */
114: #else
115: main()
116: #endif
117: {
118: FILE *ifile,
119: *of;
120: char line[100],
121: #ifdef MAC
122: *which,
123: #endif
124: comname[70];
125: int comnum,
126: ch,
127: #ifdef MAC
128: inmenu = 0,
129: #endif
130: savech = -1,
131: errors = 0;
132:
133: ifile = stdin;
134: of = stdout;
135: if (ifile == NULL || of == NULL) {
136: printf("Cannot read input or write output.\n");
137: exit(1);
138: }
139: while (fgets(line, sizeof line, ifile) != NULL) {
140: if (strncmp(line, "#if", 3) == 0) {
141: savech = ch;
142: fprintf(of, line);
143: continue;
144: } else if (strncmp(line, "#else", 5) == 0) {
145: if (savech == -1)
146: fprintf(stderr, "WARNING: ifdef/endif mismatch!\n");
147: else
148: ch = savech;
149: fprintf(of, line);
150: continue;
151: } else if (strncmp(line, "#endif", 6) == 0) {
152: savech = -1;
153: fprintf(of, line);
154: continue;
155: #ifdef MAC
156: } else if (strncmp(line, "#MENU", 5) == 0) {
157: inmenu = 1;
158: continue;
159: #endif
160: } else if (strncmp(line, "\t\"", 2) != 0) {
161: fprintf(of, line);
162: ch = 0;
163: continue;
164: }
165: extract(comname, line);
166: if (strcmp(comname, "unbound") == 0)
167: comnum = 12345;
168: else {
169: #ifdef MAC
170: which = "commands";
171: #endif
172: comnum = matchcmd(commands, comname);
173: #ifdef MAC
174: if (comnum < 0 && inmenu) {
175: comnum = matchvar(variables, comname);
176: which = "variables";
177: }
178: #endif
179: if (comnum < 0) {
180: #ifdef MAC
181: fprintf(stderr, "Warning: cannot find item \"%s\".\n", comname);
182: #else
183: fprintf(stderr, "Warning: cannot find command \"%s\".\n", comname);
184: #endif
185: errors += 1;
186: comnum = 12345;
187: }
188: }
189: #ifdef MAC
190: if(inmenu) {
191: if (comnum == 12345)
192: fprintf(of, " (data_obj *) 0,\n");
193: else
194: fprintf(of, " (data_obj *) &%s[%d],\n",which, comnum);
195: }
196: else {
197: #endif
198: if (comnum == 12345)
199: fprintf(of, " (data_obj *) 0, /* %s */\n", PPchar(ch++));
200: else
201: fprintf(of, " (data_obj *) &commands[%d], /* %s */\n", comnum, PPchar(ch++));
202: }
203: #ifdef MAC
204: }
205: #endif
206: fclose(of);
207: fclose(ifile);
208: exit(errors);
209: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.