Commit | Line | Data |
---|---|---|
15e30c53 | 1 | #ifndef lint |
33873692 | 2 | static char *sccsid = "@(#)sync.c 2.9 85/04/22"; |
15e30c53 EW |
3 | #endif |
4 | ||
5 | #include "externs.h" | |
61aabc59 EW |
6 | #include <sys/file.h> |
7 | #include <sys/errno.h> | |
15e30c53 | 8 | |
ba28d9ed EW |
9 | #define BUFSIZE 4096 |
10 | ||
15e30c53 | 11 | static char sync_buf[BUFSIZE]; |
0022de6e | 12 | static char *sync_bp = sync_buf; |
15e30c53 EW |
13 | static char sync_lock[25]; |
14 | static char sync_file[25]; | |
15 | static long sync_seek; | |
16 | static FILE *sync_fp; | |
17 | #define SF "/tmp/#sailsink.%d" | |
18 | #define LF "/tmp/#saillock.%d" | |
19 | ||
20 | /*VARARGS3*/ | |
21 | makesignal(from, fmt, ship, a, b, c) | |
ba28d9ed EW |
22 | struct ship *from; |
23 | char *fmt; | |
24 | register struct ship *ship; | |
15e30c53 EW |
25 | { |
26 | char message[80]; | |
27 | ||
28 | if (ship == 0) | |
29 | (void) sprintf(message, fmt, a, b, c); | |
30 | else | |
31 | (void) sprintf(message, fmt, | |
32 | ship->shipname, colours(ship), | |
33 | sterncolour(ship), a, b, c); | |
34 | Write(W_SIGNAL, from, 1, (int)message, 0, 0, 0); | |
35 | } | |
36 | ||
30d1a80b EW |
37 | #include <sys/types.h> |
38 | #include <sys/stat.h> | |
15e30c53 EW |
39 | sync_exists(game) |
40 | { | |
41 | char buf[sizeof sync_file]; | |
30d1a80b EW |
42 | struct stat s; |
43 | time_t t; | |
15e30c53 EW |
44 | |
45 | (void) sprintf(buf, SF, game); | |
6ca45914 | 46 | (void) time(&t); |
30d1a80b EW |
47 | if (stat(buf, &s) < 0) |
48 | return 0; | |
49 | if (s.st_mtime < t - 60*60*2) { /* 2 hours */ | |
61aabc59 EW |
50 | (void) unlink(buf); |
51 | (void) sprintf(buf, LF, game); | |
6ca45914 | 52 | (void) unlink(buf); |
30d1a80b EW |
53 | return 0; |
54 | } else | |
55 | return 1; | |
15e30c53 EW |
56 | } |
57 | ||
58 | sync_open() | |
59 | { | |
3e8dc8d1 EW |
60 | if (sync_fp != NULL) |
61 | (void) fclose(sync_fp); | |
62 | (void) sprintf(sync_lock, LF, game); | |
63 | (void) sprintf(sync_file, SF, game); | |
64 | if (access(sync_file, 0) < 0) { | |
65 | int omask = umask(issetuid ? 077 : 011); | |
66 | sync_fp = fopen(sync_file, "w+"); | |
67 | (void) umask(omask); | |
68 | } else | |
69 | sync_fp = fopen(sync_file, "r+"); | |
70 | if (sync_fp == NULL) | |
71 | return -1; | |
15e30c53 | 72 | sync_seek == 0; |
9224751f | 73 | return 0; |
15e30c53 EW |
74 | } |
75 | ||
76 | sync_close(remove) | |
ba28d9ed | 77 | char remove; |
15e30c53 | 78 | { |
7cd3d9ac EW |
79 | if (sync_fp != 0) |
80 | (void) fclose(sync_fp); | |
15e30c53 EW |
81 | if (remove) |
82 | (void) unlink(sync_file); | |
83 | } | |
84 | ||
85 | Write(type, ship, isstr, a, b, c, d) | |
ba28d9ed EW |
86 | int type; |
87 | struct ship *ship; | |
88 | char isstr; | |
89 | int a, b, c, d; | |
15e30c53 EW |
90 | { |
91 | if (isstr) | |
0022de6e | 92 | (void) sprintf(sync_bp, "%d %d %d %s\n", |
6ca45914 | 93 | type, ship->file->index, isstr, a); |
15e30c53 | 94 | else |
0022de6e | 95 | (void) sprintf(sync_bp, "%d %d %d %d %d %d %d\n", |
6ca45914 | 96 | type, ship->file->index, isstr, a, b, c, d); |
0022de6e | 97 | while (*sync_bp++) |
15e30c53 | 98 | ; |
0022de6e EW |
99 | sync_bp--; |
100 | if (sync_bp >= &sync_buf[sizeof sync_buf]) | |
15e30c53 | 101 | abort(); |
61aabc59 | 102 | (void) sync_update(type, ship, a, b, c, d); |
15e30c53 EW |
103 | } |
104 | ||
105 | Sync() | |
106 | { | |
107 | int (*sig1)(), (*sig2)(); | |
44c566e8 | 108 | register n; |
61aabc59 EW |
109 | int type, shipnum, isstr, a, b, c, d; |
110 | char buf[80]; | |
111 | char erred = 0; | |
112 | extern errno; | |
15e30c53 EW |
113 | |
114 | sig1 = signal(SIGHUP, SIG_IGN); | |
115 | sig2 = signal(SIGINT, SIG_IGN); | |
44c566e8 | 116 | for (n = TIMEOUT; --n >= 0;) { |
61aabc59 EW |
117 | #ifdef LOCK_EX |
118 | if (flock(fileno(sync_fp), LOCK_EX|LOCK_NB) >= 0) | |
119 | break; | |
120 | if (errno != EWOULDBLOCK) | |
121 | return -1; | |
122 | #else | |
123 | if (link(sync_file, sync_lock) >= 0) | |
124 | break; | |
125 | if (errno != EEXIST) | |
126 | return -1; | |
127 | #endif | |
44c566e8 | 128 | sleep(1); |
61aabc59 | 129 | } |
44c566e8 | 130 | if (n <= 0) |
61aabc59 | 131 | return -1; |
15e30c53 | 132 | (void) fseek(sync_fp, sync_seek, 0); |
61aabc59 EW |
133 | for (;;) { |
134 | switch (fscanf(sync_fp, "%d%d%d", &type, &shipnum, &isstr)) { | |
135 | case 3: | |
136 | break; | |
137 | case EOF: | |
138 | goto out; | |
139 | default: | |
140 | goto bad; | |
141 | } | |
142 | if (shipnum < 0 || shipnum >= cc->vessels) | |
143 | goto bad; | |
144 | if (isstr != 0 && isstr != 1) | |
145 | goto bad; | |
15e30c53 | 146 | if (isstr) { |
61aabc59 | 147 | register char *p; |
15e30c53 EW |
148 | for (p = buf;;) { |
149 | switch (*p++ = getc(sync_fp)) { | |
150 | case '\n': | |
151 | p--; | |
152 | case EOF: | |
153 | break; | |
154 | default: | |
61aabc59 EW |
155 | if (p >= buf + sizeof buf) |
156 | p--; | |
15e30c53 EW |
157 | continue; |
158 | } | |
159 | break; | |
160 | } | |
161 | *p = 0; | |
162 | for (p = buf; *p == ' '; p++) | |
163 | ; | |
164 | a = (int)p; | |
165 | b = c = d = 0; | |
166 | } else | |
61aabc59 EW |
167 | if (fscanf(sync_fp, "%d%d%d%d", &a, &b, &c, &d) != 4) |
168 | goto bad; | |
169 | if (sync_update(type, SHIP(shipnum), a, b, c, d) < 0) | |
170 | goto bad; | |
15e30c53 | 171 | } |
61aabc59 EW |
172 | bad: |
173 | erred++; | |
174 | out: | |
175 | if (!erred && sync_bp != sync_buf) { | |
15e30c53 EW |
176 | (void) fseek(sync_fp, 0L, 2); |
177 | (void) fputs(sync_buf, sync_fp); | |
178 | (void) fflush(sync_fp); | |
0022de6e | 179 | sync_bp = sync_buf; |
15e30c53 EW |
180 | } |
181 | sync_seek = ftell(sync_fp); | |
61aabc59 EW |
182 | #ifdef LOCK_EX |
183 | (void) flock(fileno(sync_fp), LOCK_UN); | |
184 | #else | |
15e30c53 | 185 | (void) unlink(sync_lock); |
61aabc59 | 186 | #endif |
15e30c53 EW |
187 | (void) signal(SIGHUP, sig1); |
188 | (void) signal(SIGINT, sig2); | |
61aabc59 | 189 | return erred ? -1 : 0; |
15e30c53 EW |
190 | } |
191 | ||
192 | sync_update(type, ship, a, b, c, d) | |
ba28d9ed EW |
193 | int type; |
194 | register struct ship *ship; | |
195 | int a, b, c, d; | |
15e30c53 EW |
196 | { |
197 | switch (type) { | |
198 | case W_DBP: { | |
199 | register struct BP *p = &ship->file->DBP[a]; | |
200 | p->turnsent = b; | |
201 | p->toship = SHIP(c); | |
202 | p->mensent = d; | |
203 | break; | |
204 | } | |
205 | case W_OBP: { | |
206 | register struct BP *p = &ship->file->OBP[a]; | |
207 | p->turnsent = b; | |
208 | p->toship = SHIP(c); | |
209 | p->mensent = d; | |
210 | break; | |
211 | } | |
212 | case W_FOUL: { | |
6ca45914 EW |
213 | register struct snag *p = &ship->file->foul[a]; |
214 | if (SHIP(a)->file->dir == 0) | |
215 | break; | |
216 | if (p->sn_count++ == 0) | |
217 | p->sn_turn = turn; | |
218 | ship->file->nfoul++; | |
15e30c53 EW |
219 | break; |
220 | } | |
221 | case W_GRAP: { | |
6ca45914 EW |
222 | register struct snag *p = &ship->file->grap[a]; |
223 | if (SHIP(a)->file->dir == 0) | |
224 | break; | |
225 | if (p->sn_count++ == 0) | |
226 | p->sn_turn = turn; | |
227 | ship->file->ngrap++; | |
228 | break; | |
229 | } | |
230 | case W_UNFOUL: { | |
231 | register struct snag *p = &ship->file->foul[a]; | |
232 | if (p->sn_count > 0) | |
233 | if (b) { | |
234 | ship->file->nfoul -= p->sn_count; | |
235 | p->sn_count = 0; | |
236 | } else { | |
237 | ship->file->nfoul--; | |
238 | p->sn_count--; | |
239 | } | |
240 | break; | |
241 | } | |
242 | case W_UNGRAP: { | |
243 | register struct snag *p = &ship->file->grap[a]; | |
244 | if (p->sn_count > 0) | |
245 | if (b) { | |
246 | ship->file->ngrap -= p->sn_count; | |
247 | p->sn_count = 0; | |
248 | } else { | |
249 | ship->file->ngrap--; | |
250 | p->sn_count--; | |
251 | } | |
15e30c53 EW |
252 | break; |
253 | } | |
254 | case W_SIGNAL: | |
ba28d9ed | 255 | if (mode == MODE_PLAYER) |
33873692 EW |
256 | if (nobells) |
257 | Signal("%s (%c%c): %s", ship, a); | |
258 | else | |
259 | Signal("\7%s (%c%c): %s", ship, a); | |
15e30c53 EW |
260 | break; |
261 | case W_CREW: { | |
262 | register struct shipspecs *s = ship->specs; | |
263 | s->crew1 = a; | |
264 | s->crew2 = b; | |
265 | s->crew3 = c; | |
266 | break; | |
267 | } | |
268 | case W_CAPTAIN: | |
269 | (void) strncpy(ship->file->captain, (char *)a, | |
270 | sizeof ship->file->captain - 1); | |
271 | ship->file->captain[sizeof ship->file->captain - 1] = 0; | |
272 | break; | |
273 | case W_CAPTURED: | |
66e5ed8a EW |
274 | if (a < 0) |
275 | ship->file->captured = 0; | |
276 | else | |
277 | ship->file->captured = SHIP(a); | |
15e30c53 EW |
278 | break; |
279 | case W_CLASS: | |
280 | ship->specs->class = a; | |
281 | break; | |
282 | case W_DRIFT: | |
283 | ship->file->drift = a; | |
284 | break; | |
285 | case W_EXPLODE: | |
286 | if ((ship->file->explode = a) == 2) | |
287 | ship->file->dir = 0; | |
288 | break; | |
289 | case W_FS: | |
290 | ship->file->FS = a; | |
291 | break; | |
292 | case W_GUNL: { | |
293 | register struct shipspecs *s = ship->specs; | |
294 | s->gunL = a; | |
295 | s->carL = b; | |
296 | break; | |
297 | } | |
298 | case W_GUNR: { | |
299 | register struct shipspecs *s = ship->specs; | |
300 | s->gunR = a; | |
301 | s->carR = b; | |
302 | break; | |
303 | } | |
304 | case W_HULL: | |
305 | ship->specs->hull = a; | |
306 | break; | |
6ca45914 EW |
307 | case W_MOVE: |
308 | (void) strncpy(ship->file->movebuf, (char *)a, | |
309 | sizeof ship->file->movebuf - 1); | |
310 | ship->file->movebuf[sizeof ship->file->movebuf - 1] = 0; | |
15e30c53 EW |
311 | break; |
312 | case W_PCREW: | |
313 | ship->file->pcrew = a; | |
314 | break; | |
315 | case W_POINTS: | |
316 | ship->file->points = a; | |
317 | break; | |
318 | case W_QUAL: | |
319 | ship->specs->qual = a; | |
320 | break; | |
321 | case W_RIGG: { | |
322 | register struct shipspecs *s = ship->specs; | |
323 | s->rig1 = a; | |
324 | s->rig2 = b; | |
325 | s->rig3 = c; | |
326 | s->rig4 = d; | |
327 | break; | |
328 | } | |
329 | case W_RIG1: | |
330 | ship->specs->rig1 = a; | |
331 | break; | |
332 | case W_RIG2: | |
333 | ship->specs->rig2 = a; | |
334 | break; | |
335 | case W_RIG3: | |
336 | ship->specs->rig3 = a; | |
337 | break; | |
338 | case W_RIG4: | |
339 | ship->specs->rig4 = a; | |
340 | break; | |
6ca45914 | 341 | case W_COL: |
15e30c53 EW |
342 | ship->file->col = a; |
343 | break; | |
6ca45914 | 344 | case W_DIR: |
15e30c53 EW |
345 | ship->file->dir = a; |
346 | break; | |
6ca45914 | 347 | case W_ROW: |
15e30c53 EW |
348 | ship->file->row = a; |
349 | break; | |
350 | case W_SINK: | |
351 | if ((ship->file->sink = a) == 2) | |
352 | ship->file->dir = 0; | |
353 | break; | |
354 | case W_STRUCK: | |
355 | ship->file->struck = a; | |
356 | break; | |
357 | case W_TA: | |
358 | ship->specs->ta = a; | |
359 | break; | |
360 | case W_ALIVE: | |
361 | alive = 1; | |
362 | break; | |
363 | case W_TURN: | |
364 | turn = a; | |
365 | break; | |
366 | case W_WIND: | |
367 | winddir = a; | |
368 | windspeed = b; | |
369 | break; | |
370 | case W_BEGIN: | |
371 | (void) strcpy(ship->file->captain, "begin"); | |
372 | people++; | |
373 | break; | |
374 | case W_END: | |
61aabc59 EW |
375 | *ship->file->captain = 0; |
376 | ship->file->points = 0; | |
15e30c53 EW |
377 | people--; |
378 | break; | |
61aabc59 EW |
379 | case W_DDEAD: |
380 | hasdriver = 0; | |
15e30c53 | 381 | break; |
61aabc59 EW |
382 | default: |
383 | fprintf(stderr, "sync_update: unknown type %d\r\n", type); | |
384 | return -1; | |
15e30c53 | 385 | } |
61aabc59 | 386 | return 0; |
15e30c53 | 387 | } |