![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to code.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / new / xns / compiler|
Return to code.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / new / xns / compiler |
1.1 root 1: #ifndef lint
2: static char RCSid[] = "$Header: code.c,v 2.4 87/03/17 09:32:16 ed Exp $";
3: #endif
4:
5: /* $Log: code.c,v $
6: * Revision 2.4 87/03/17 09:32:16 ed
7: * changes from Webster integrated
8: *
9: * Revision 2.4 87/03/17 09:32:16 ed
10: * Added -I switch to establish search path for DEPENDS UPON files.
11: *
12: * Revision 2.3 86/06/30 12:50:28 jqj
13: * bugfix to Server() code generation from Jack Callahan -- add "break;" if
14: * new Courier procedure call is for a different module. I'm not convinced
15: * this is the right fix, but have not had time to examine it in detail.
16: *
17: * Revision 2.2 86/06/06 07:28:31 jqj
18: * many mods for better symbol table management: added CurrentModule,
19: * made check_dependency, make_symbol, check_def set/use/use a symbol
20: * table instead of a module name string, etc. Result is that we can
21: * now handle DEPENDS UPON 2 versions of same program.
22: *
23: * Revision 2.1 86/01/21 10:04:02 jqj
24: * changes from Dan Chernikoff: dereferencing null pointer in code
25: * generation for Abort messages from servers.
26: *
27: * Revision 2.0 85/11/21 07:21:28 jqj
28: * 4.3BSD standard release
29: *
30: * Revision 1.6 85/05/23 06:19:16 jqj
31: * *** empty log message ***
32: *
33: * Revision 1.6 85/05/23 06:19:16 jqj
34: * Public Beta-test version, released 24 May 1985
35: *
36: * Revision 1.5 85/05/06 08:12:58 jqj
37: * Almost Beta-test version.
38: *
39: * Revision 1.4 85/03/26 06:09:24 jqj
40: * Revised public alpha-test version, released 26 March 1985
41: *
42: * Revision 1.3 85/03/11 16:38:39 jqj
43: * Public alpha-test version, released 11 March 1985
44: *
45: * Revision 1.2 85/02/21 11:04:47 jqj
46: * alpha test version
47: *
48: * Revision 1.1 85/02/15 13:55:15 jqj
49: * Initial revision
50: *
51: */
52:
53: #include "compiler.h"
54: #include <xnscourier/courierdb.h>
55:
56: char *CurrentProgram = "unknown";
57: struct object *CurrentModule = (struct object *) 0;
58: int CurrentNumber = 0;
59: int CurrentVersion = 0;
60:
61: extern char *dirs[];
62: extern int ndirs;
63:
64: /*
65: * Generate comments, #includes, and client binding.
66: * This action is called before the module body has been reduced.
67: * (jqj)
68: */
69: program_header(symbol, number, version)
70: char *symbol;
71: char *number, *version;
72: {
73: if (check_dependency(symbol)) {
74: error(ERROR,"Module %s already seen.", symbol);
75: return;
76: }
77: CurrentModule = make_module(symbol,number,version);
78: CurrentProgram = symbol;
79: CurrentVersion = stringtocard(version);
80: CurrentNumber = stringtocard(number);
81:
82: /*
83: * only do this stuff for the main Courier program -- generate
84: * minimal code for DEPENDS UPON inclusions.
85: */
86: if (recursive_flag) {
87: fprintf(header1,"/* DEPENDS UPON %s NUMBER %d VERSION %d */\n",
88: CurrentProgram, CurrentNumber, CurrentVersion);
89: return;
90: }
91:
92: /*
93: * Generate initial contents of all sorts of stuff:
94: * (1) set up gensym counter,
95: * (2) generate beginning of header files, support file,
96: * client file, server file
97: */
98: setgensym(number,version);
99: fprintf(header1,
100: "/*\n\
101: * This header file contains inclusions for the main definitions and for\n\
102: * any DEPENDS UPON modules. It also contains #define commands to open\n\
103: * the scope of the main definitons module.\n\
104: *\n\
105: * main inclusion:\n\
106: */\n\
107: #include \"%s%d.h\"\n\n",
108: CurrentProgram, CurrentVersion);
109:
110: /*
111: * In the definitions for this module, make sure we don't
112: * compile things twice by wrapping everything inside of a
113: * #ifndef ... #endif (the #endif is in wrapup_program() ).
114: */
115: fprintf(header,
116: "/*\n\
117: * Definitions for %s VERSION %s NUMBER %s.\n\
118: */\n\
119: #ifndef __%s%d\n\
120: #define __%s%d\n\
121: #include <xnscourier/courier.h>\n\
122: #include <xnscourier/courierconnection.h>\n\n",
123: CurrentProgram, version, number,
124: CurrentProgram, CurrentVersion,
125: CurrentProgram, CurrentVersion);
126:
127: fprintf(support1,
128: "/*\n\
129: * Support routines for %s.\n\
130: */\n\
131: #include \"%s%d.h\"\n",
132: CurrentProgram, CurrentProgram, CurrentVersion);
133:
134: fprintf(client,
135: "/*\n\
136: * Client routines for %s.\n\
137: */\n\
138: #include \"%s%d.h\"\n",
139: CurrentProgram, CurrentProgram, CurrentVersion);
140: fprintf(server,
141: "/*\n\
142: * Server for %s.\n\
143: */\n\
144: #include \"%s%d.h\"\n\
145: #include <xnscourier/except.h>\n\n\
146: extern CourierConnection *_serverConnection;\n",
147: CurrentProgram, CurrentProgram, CurrentVersion);
148: }
149:
150: /*
151: * Recursively parse a program to get types and constants.
152: * as a side effect, enters the program name into the SymbolTables
153: * symbol table.
154: */
155: ref_program(name, number, version)
156: char *name, *number, *version;
157: {
158: long save_offset;
159: char *save_input_file;
160: char buf[MAXSTR];
161: int *p;
162: int intversion, i;
163: extern int *save_parser_state();
164: struct courierdbent *dbent;
165:
166: intversion = stringtocard(version);
167:
168: /*
169: * in a DEPENDS UPON inclusion, generate minimal code, making
170: * sure we don't do it twice. The included program is wrapped in
171: * an #ifdef ... #endif
172: */
173: if (!recursive_flag) {
174: fprintf(header,"\n\
175: /*\n\
176: * Definitions from DEPENDS UPON %s inclusion\n\
177: * (must be linked with %s%d_support.c also)\n\
178: */\n\
179: #include <xnscourier/%s%d.h>\n",
180: name,
181: name, intversion,
182: name, intversion);
183: }
184: if (check_module_def(name,number,version)) {
185: /* we've already parsed this one, so don't bother to redo */
186: /* as a side effect, check_module_def adds this module to */
187: /* the dependency list for CurrentModule */
188: return;
189: }
190:
191: save_offset = ftell(stdin);
192: save_input_file = input_file;
193: sprintf(buf, "%s%d.cr", name, intversion);
194: input_file = buf;
195: if (freopen(input_file, "r", stdin) == NULL) {
196: /*
197: * attempt to find file from include directories
198: * -I switch on command line
199: */
200: for ( i= 0; i < ndirs ; i++ ) {
201: sprintf(buf, "%s%s%s%d.cr", dirs[i],
202: (strcmp(dirs[i], "/") == 0 ? "" : "/"),
203: name, intversion);
204: input_file= buf;
205: if (freopen(input_file, "r", stdin) != NULL)
206: break;
207: }
208: /*
209: * if all else fails, look in courier description file
210: */
211: if ( i >= ndirs ) {
212: dbent = getcourierservice(stringtocard(number),intversion);
213: if (dbent == NULL ||
214: dbent->cr_description == NULL ||
215: (input_file = copy(dbent->cr_description)) == NULL ||
216: freopen(input_file, "r", stdin) == NULL) {
217: error(ERROR, "file %s not found", input_file);
218: input_file = save_input_file;
219: freopen(input_file, "r", stdin);
220: fseek(stdin, save_offset, 0);
221: return;
222: }
223: }
224: }
225: p = save_parser_state();
226: /* note: recursive_flag is now set */
227: (void) yyparse(); /* recursively parse */
228: restore_parser_state(p);
229: input_file = save_input_file;
230: freopen(input_file, "r", stdin);
231: fseek(stdin, save_offset, 0);
232: return;
233: }
234:
235: /*
236: * Generate any code needed after DEPENDS UPON modules have been
237: * parsed, but before declarations.
238: */
239: program_body()
240: {
241: if (recursive_flag)
242: return;
243: fprintf(header1,
244: "/*\n\
245: * Widen scope to include all symbols defined in main inclusion:\n\
246: */\n");
247: }
248:
249: /*
250: * Generate code relating to binding.
251: * This action is called after the entire module has been reduced.
252: */
253: wrapup_program(prog)
254: char *prog;
255: {
256: if (recursive_flag)
257: return;
258: fprintf(header,"\n#endif __%s\n\n", CurrentProgram);
259: if (!streq(prog,CurrentProgram))
260: error(FATAL,"internal error (module): conflicting module names, %s and %s",
261: prog,CurrentProgram);
262: generate_server_binding();
263: generate_client_binding();
264: }
265:
266: /*
267: * Generate export function for server.
268: */
269: generate_server_binding()
270: {
271: list p;
272:
273: fprintf(server,
274: "\nServer(skipcount,skippedwords)\n\
275: \tint skipcount;\n\
276: \tUnspecified skippedwords[];\n\
277: {\n\
278: \tCardinal _procedure;\n\
279: \tregister Unspecified *_buf;\n\
280: \tLongCardinal programnum;\n\
281: \tCardinal versionnum;\n\
282: \tCardinal _n;\n\
283: \n\
284: \tfor (;;) {\n\
285: \t\t_buf = ReceiveCallMessage(&_procedure, skipcount, skippedwords);\n\
286: \t\tDURING switch (_procedure) {\n");
287: /*
288: * Find all the procedures declared in the program.
289: */
290: for (p = Procedures; p != NIL; p = cdr(p)) {
291: fprintf(server,
292: "\t\tcase %s:\n\
293: \t\t\tserver_%s(_buf);\n\
294: \t\t\tbreak;\n",
295: (char *)cdar(p), (char *)caar(p));
296: }
297: fprintf(server,
298: "\t\tdefault:\n\
299: \t\t\tNoSuchProcedureValue(\"%s\", _procedure);\n\
300: \t\t\tbreak;\n\
301: \t\t} HANDLER {\n\
302: \t\t Deallocate(_buf);\n\
303: \t\t switch (Exception.Code) {\n",
304: CurrentProgram);
305: for (p = Errors; p != NIL; p = cdr(p)) {
306: struct constant *errconst;
307: struct type *errtype;
308: errconst = (struct constant *) caar(p);
309: errtype = (struct type *) cdar(p);
310: if (errtype == TNIL)
311: fprintf(server,
312: "\t\t case %s:\n\
313: \t\t\t_buf = Allocate(0);\n\
314: \t\t\tSendAbortMessage(Exception.Code-ERROR_OFFSET, 0, _buf);\n\
315: \t\t\tbreak;\n",
316: errconst->cn_name);
317: /* errtype != TNIL */
318: else if (typename(errtype) == NULL) {
319: error(ERROR,"Internal error (server): unexpanded type for %s",
320: errconst->cn_name);
321: break;
322: }
323: /* errtype != TNIL && typename(errtype) != NULL */
324: else fprintf(server,
325: "\t\t case %s:\n\
326: \t\t\t_n = sizeof_%s((%s *)Exception.Message);\n\
327: \t\t\t_buf = Allocate(_n);\n\
328: \t\t\t(void) %s((%s*)Exception.Message, _buf);\n\
329: \t\t\tSendAbortMessage(Exception.Code-ERROR_OFFSET, _n, _buf);\n\
330: \t\t\tbreak;\n",
331: errconst->cn_name,
332: typename(errtype), typename(errtype),
333: xfn(EXTERNALIZE,errtype), typename(errtype));
334: }
335: fprintf(server,
336: "\t\t default:\n\
337: \t\t\t_buf = Allocate(0);\n\
338: \t\t\tSendRejectMessage(unspecifiedError, 0, _buf);\n\
339: \t\t\tbreak;\n\
340: \t\t }\n\
341: \t\t} END_HANDLER;\n\
342: \t\tDeallocate(_buf);\n\
343: \t\tfor (;;) {\n\
344: \t\t\tskipcount = LookAheadCallMsg(&programnum, &versionnum,\n\
345: \t\t\t\t\tskippedwords);\n\
346: \t\t\tif (skipcount < 0) return(0);\t/* timed out */\n\
347: \t\t\tif (programnum != %d || versionnum != %d)\n\
348: \t\t\t\tExecCourierProgram(programnum, versionnum,\n\
349: \t\t\t\t\t\tskipcount, skippedwords);\n\
350: \t\t\telse break;\n\
351: \t\t\} /* loop if can't exec that program */\n\
352: \t}\n\
353: }\n",
354: CurrentNumber, CurrentVersion
355: );
356: }
357:
358: /*
359: * Generate function for importing server module.
360: */
361: generate_client_binding()
362: {
363: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.