124 |
|
disp_result(DS_STARTIMM, 0, NULL); |
125 |
|
bundle_set(BS_ADD, (PACKHEAD *)buf, msg.nbytes/sizeof(PACKHEAD)); |
126 |
|
disp_result(DS_ENDIMM, 0, NULL); |
127 |
< |
disp_check(0); /* hack -- delete usu. follows add */ |
127 |
> |
disp_flush(); |
128 |
|
break; |
129 |
|
case DR_ADJSET: /* adjust calculation set members */ |
130 |
|
if (msg.nbytes % sizeof(PACKHEAD)) |
145 |
|
/* send acknowledgement */ |
146 |
|
disp_result(DS_ACKNOW, 0, NULL); |
147 |
|
return(disp_check(1)); /* block on following request */ |
148 |
+ |
case DR_KILL: /* kill computation process(es) */ |
149 |
+ |
if (msg.nbytes) |
150 |
+ |
error(INTERNAL, "bad DR_KILL from display process"); |
151 |
+ |
if (nprocs > 0) |
152 |
+ |
done_rtrace(); |
153 |
+ |
else |
154 |
+ |
error(WARNING, "no rtrace process to kill"); |
155 |
+ |
break; |
156 |
+ |
case DR_RESTART: /* restart computation process(es) */ |
157 |
+ |
if (msg.nbytes) |
158 |
+ |
error(INTERNAL, "bad DR_RESTART from display process"); |
159 |
+ |
if (ncprocs > nprocs) |
160 |
+ |
new_rtrace(); |
161 |
+ |
else if (nprocs > 0) |
162 |
+ |
error(WARNING, "rtrace already runnning"); |
163 |
+ |
else |
164 |
+ |
error(WARNING, "holodeck not open for writing"); |
165 |
+ |
break; |
166 |
+ |
case DR_CLOBBER: /* clobber holodeck */ |
167 |
+ |
if (msg.nbytes) |
168 |
+ |
error(INTERNAL, "bad DR_CLOBBER from display process"); |
169 |
+ |
if (!force || !ncprocs) |
170 |
+ |
error(WARNING, "request to clobber holodeck denied"); |
171 |
+ |
else { |
172 |
+ |
error(WARNING, "clobbering holodeck contents"); |
173 |
+ |
hdclobber(NULL); |
174 |
+ |
} |
175 |
+ |
break; |
176 |
|
case DR_SHUTDOWN: /* shut down program */ |
177 |
|
if (msg.nbytes) |
178 |
|
error(INTERNAL, "bad DR_SHUTDOWN from display process"); |