6 * Copyright (C) 1987 by the Massachusetts Institute of Technology
9 * Revision 1.9 1987-08-04 02:41:22 wesommer
12 * Revision 1.8 87/07/16 15:43:19 wesommer
13 * Fixed bug where the argv was not copied to private storage
14 * (it got changed out from under us before it got sent..).
16 * Revision 1.7 87/07/14 00:39:01 wesommer
19 * Revision 1.6 87/06/30 20:04:43 wesommer
20 * Free returned tuples when possible.
22 * Revision 1.5 87/06/26 10:55:53 wesommer
23 * Added sms_access, now paiys attention to return code from
24 * sms_process_query, sms_check_access.
26 * Revision 1.4 87/06/21 16:42:00 wesommer
27 * Performance work, rearrangement of include files.
29 * Revision 1.3 87/06/04 01:35:01 wesommer
30 * Added a working query request handler.
32 * Revision 1.2 87/06/03 16:07:50 wesommer
35 * Revision 1.1 87/06/02 20:07:10 wesommer
41 static char *rcsid_sms_scall_c = "$Header$";
46 #include "sms_server.h"
50 extern char *malloc();
52 extern void clist_delete(), do_auth(), do_shutdown();
56 * Welcome to the (finite state) machine (highest level).
63 if (OP_STATUS(cp->pending_op) == OP_CANCELLED) {
64 com_err(whoami, 0, "Closed connection (now %d client%s)",
73 /* Start recieving next request */
74 initialize_operation(cp->pending_op, sms_start_recv,
75 (char *)&cp->args, (int (*)())NULL);
76 queue_operation(cp->con, CON_INPUT, cp->pending_op);
77 cp->action = CL_RECEIVE;
80 /* Data is here. Process it & start it heading back */
81 do_call(cp); /* This may block for a while. */
82 initialize_operation(cp->pending_op, sms_start_send,
83 (char *)&cp->reply, (int (*)())NULL);
84 queue_operation(cp->con, CON_OUTPUT, cp->pending_op);
104 cl->reply.sms_argc = 0;
105 cl->reply.sms_status = 0;
106 if (((pn = cl->args->sms_procno) < 0) ||
107 (pn > SMS_MAX_PROC)) {
108 com_err(whoami, 0, "procno out of range");
109 cl->reply.sms_status = SMS_UNKNOWN_PROC;
112 if (log_flags & LOG_ARGS)
113 log_args(procnames[pn], cl->args->sms_argc,
115 else if (log_flags & LOG_REQUESTS)
116 com_err(whoami, 0, "%s", procnames[pn]);
120 cl->reply.sms_status = 0;
144 register returned_tuples *temp;
145 for (temp=cp->first; temp && OP_DONE(temp->op); ) {
146 register returned_tuples *t1=temp;
148 if (t1 == cp->last) cp->last = NULL;
150 sms_destroy_reply(t1->retval);
153 register sms_params *p = t1->retval;
154 if (p->sms_flattened)
155 free(p->sms_flattened);
161 delete_operation(t1->op);
167 retr_callback(argc, argv, p_cp)
169 register char **argv;
172 register client *cp = (client *)p_cp;
174 * This takes too much advantage of the fact that
175 * serialization of the data happens during the queue operation.
177 sms_params *arg_tmp = (sms_params *)db_alloc(sizeof(sms_params));
178 returned_tuples *tp = (returned_tuples *)
179 db_alloc(sizeof(returned_tuples));
180 register char **nargv = (char **)malloc(argc * sizeof(char *));
183 OPERATION op_tmp = create_operation();
185 if (log_flags & LOG_RESP)
186 log_args("return: ", argc, argv);
189 tp->retval = arg_tmp;
192 arg_tmp->sms_status = SMS_MORE_DATA;
193 arg_tmp->sms_argc = argc;
194 arg_tmp->sms_argv = nargv;
195 for (i = 0; i < argc; i++) {
196 register int len = strlen(argv[i]) + 1;
197 nargv[i] = malloc(len);
198 bcopy(argv[i], nargv[i], len);
200 arg_tmp->sms_flattened = (char *)NULL;
201 arg_tmp->sms_argl = (int *)NULL;
207 cp->last = cp->first = tp;
210 reset_operation(op_tmp);
211 initialize_operation(op_tmp, sms_start_send, (char *)arg_tmp,
213 queue_operation(cp->con, CON_OUTPUT, op_tmp);
220 cl->reply.sms_argc = 0;
221 cl->reply.sms_status = 0;
223 cl->reply.sms_status =
224 sms_process_query(cl,
225 cl->args->sms_argv[0],
226 cl->args->sms_argc-1,
227 cl->args->sms_argv+1,
230 if (log_flags & LOG_RES)
231 com_err(whoami, 0, "Query complete.");
237 cl->reply.sms_argc = 0;
239 cl->reply.sms_status =
241 cl->args->sms_argv[0],
242 cl->args->sms_argc-1,
243 cl->args->sms_argv+1);
245 com_err(whoami, 0, "Access check complete.");