![[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] / 43BSDReno / contrib / jove|
Return to setmaps.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / 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 <stdio.h>
11:
12: #include "funcdefs.c"
13:
14: #ifdef MAC
15: #include "vars.c"
16: #endif
17:
18: private int
19: matchcmd(choices, what)
20: register const struct cmd choices[];
21: register char *what;
22: {
23: register int i;
24: #ifndef MAC
25: size_t len = strlen(what);
26: #endif
27:
28: for (i = 0; choices[i].Name != 0; i++) {
29: if (*what != *choices[i].Name)
30: continue;
31: #ifdef MAC /* see "left-margin" and "left-margin-here" */
32: if (strcmp(what, choices[i].Name) == 0)
33: #else
34: if (strncmp(what, choices[i].Name, len) == 0)
35: #endif
36: return i;
37: }
38: return -1;
39: }
40:
41: #ifdef MAC
42: matchvar(choices, what)
43: register struct variable choices[];
44: register char *what;
45: {
46: register int len;
47: int i;
48:
49: len = strlen(what);
50: for (i = 0; choices[i].Name != 0; i++) {
51: if (*what != *choices[i].Name)
52: continue;
53: if (strcmp(what, choices[i].Name) == 0)
54: return i;
55: }
56: return -1;
57: }
58: #endif
59:
60: private char *
61: PPchar(c)
62: int c;
63: {
64: static char str[16];
65: char *cp = str;
66:
67: if (c & 0200) {
68: c &= ~0200;
69: strcpy(cp, "M-");
70: cp += 2;
71: }
72: if (c == '\033')
73: strcpy(cp, "ESC");
74: #ifdef IBMPC
75: else if (c == '\377')
76: strcpy(cp, "M");
77: #endif /* IBMPC */
78: else if (c < ' ')
79: (void) sprintf(cp, "C-%c", c + '@');
80: else if (c == '\177')
81: strcpy(cp, "^?");
82: else
83: (void) sprintf(cp, "%c", c);
84: return str;
85: }
86:
87: private void
88: extract(into, from)
89: char *into,
90: *from;
91: {
92: from += 2; /* Past tab and first double quote. */
93: while ((*into = *from++) != '"')
94: into += 1;
95: *into = 0;
96: }
97:
98:
99: void
100:
101: #ifdef MAC
102: _main() /* for Mac, so we can use redirection */
103: #else
104: main(argc, argv)
105: int argc;
106: char *argv[];
107: #endif
108: {
109: FILE *ifile,
110: *of;
111: char line[100],
112: #ifdef MAC
113: *which,
114: #endif
115: comname[70];
116: int comnum,
117: ch = 0,
118: #ifdef MAC
119: inmenu = 0,
120: #endif
121: savech = -1,
122: errors = 0;
123:
124: ifile = stdin;
125: of = stdout;
126: if (ifile == NULL || of == NULL) {
127: printf("Cannot read input or write output.\n");
128: exit(1);
129: }
130: while (fgets(line, sizeof line, ifile) != NULL) {
131: if (strncmp(line, "#if", (size_t) 3) == 0) {
132: savech = ch;
133: fprintf(of, line);
134: continue;
135: } else if (strncmp(line, "#else", (size_t) 5) == 0) {
136: if (savech == -1)
137: fprintf(stderr, "WARNING: ifdef/endif mismatch!\n");
138: else
139: ch = savech;
140: fprintf(of, line);
141: continue;
142: } else if (strncmp(line, "#endif", (size_t) 6) == 0) {
143: savech = -1;
144: fprintf(of, line);
145: continue;
146: #ifdef MAC
147: } else if (strncmp(line, "#MENU", (size_t) 5) == 0) {
148: inmenu = 1;
149: continue;
150: #endif
151: } else if (strncmp(line, "\t\"", (size_t) 2) != 0) {
152: fprintf(of, line);
153: ch = 0;
154: continue;
155: }
156: extract(comname, line);
157: if (strcmp(comname, "unbound") == 0)
158: comnum = 12345;
159: else {
160: #ifdef MAC
161: which = "commands";
162: #endif
163: comnum = matchcmd(commands, comname);
164: #ifdef MAC
165: if (comnum < 0 && inmenu) {
166: comnum = matchvar(variables, comname);
167: which = "variables";
168: }
169: #endif
170: if (comnum < 0) {
171: #ifdef MAC
172: fprintf(stderr, "Warning: cannot find item \"%s\".\n", comname);
173: #else
174: fprintf(stderr, "Warning: cannot find command \"%s\".\n", comname);
175: #endif
176: errors += 1;
177: comnum = 12345;
178: }
179: }
180: #ifdef MAC
181: if(inmenu) {
182: if (comnum == 12345)
183: fprintf(of, " (data_obj *) 0,\n");
184: else
185: fprintf(of, " (data_obj *) &%s[%d],\n",which, comnum);
186: }
187: else {
188: #endif
189: if (comnum == 12345)
190: fprintf(of, " (data_obj *) 0, /* %s */\n", PPchar(ch++));
191: else
192: fprintf(of, " (data_obj *) &commands[%d], /* %s */\n", comnum, PPchar(ch++));
193: }
194: #ifdef MAC
195: }
196: #endif
197: fclose(of);
198: fclose(ifile);
199: exit(errors);
200: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.