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