![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to worms.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games|
Return to worms.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games |
1.1 ! root 1: /* ! 2: * Copyright (c) 1980 Regents of the University of California. ! 3: * All rights reserved. ! 4: * ! 5: * Redistribution and use in source and binary forms are permitted ! 6: * provided that the above copyright notice and this paragraph are ! 7: * duplicated in all such forms and that any documentation, ! 8: * advertising materials, and other materials related to such ! 9: * distribution and use acknowledge that the software was developed ! 10: * by the University of California, Berkeley. The name of the ! 11: * University may not be used to endorse or promote products derived ! 12: * from this software without specific prior written permission. ! 13: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 14: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 15: * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 16: */ ! 17: ! 18: #ifndef lint ! 19: char copyright[] = ! 20: "@(#) Copyright (c) 1980 Regents of the University of California.\n\ ! 21: All rights reserved.\n"; ! 22: #endif /* not lint */ ! 23: ! 24: #ifndef lint ! 25: static char sccsid[] = "@(#)worms.c 5.5 (Berkeley) 6/27/88"; ! 26: #endif /* not lint */ ! 27: ! 28: /* ! 29: * ! 30: * @@@ @@@ @@@@@@@@@@ @@@@@@@@@@@ @@@@@@@@@@@@ ! 31: * @@@ @@@ @@@@@@@@@@@@ @@@@@@@@@@@@ @@@@@@@@@@@@@ ! 32: * @@@ @@@ @@@@ @@@@ @@@@ @@@@ @@@ @@@@ ! 33: * @@@ @@ @@@ @@@ @@@ @@@ @@@ @@@ @@@ ! 34: * @@@ @@@@ @@@ @@@ @@@ @@@ @@@ @@@ @@@ ! 35: * @@@@ @@@@ @@@@ @@@ @@@ @@@ @@@ @@@ @@@ ! 36: * @@@@@@@@@@@@ @@@@ @@@@ @@@ @@@ @@@ @@@ ! 37: * @@@@ @@@@ @@@@@@@@@@@@ @@@ @@@ @@@ @@@ ! 38: * @@ @@ @@@@@@@@@@ @@@ @@@ @@@ @@@ ! 39: * ! 40: * Eric P. Scott ! 41: * Caltech High Energy Physics ! 42: * October, 1980 ! 43: * ! 44: */ ! 45: #include <sys/types.h> ! 46: #include <stdio.h> ! 47: #ifdef USG ! 48: #include <termio.h> ! 49: #else ! 50: #include <sgtty.h> ! 51: #endif ! 52: #include <signal.h> ! 53: ! 54: static struct options { ! 55: int nopts; ! 56: int opts[3]; ! 57: } ! 58: normal[8] = { ! 59: { 3, { 7, 0, 1 } }, ! 60: { 3, { 0, 1, 2 } }, ! 61: { 3, { 1, 2, 3 } }, ! 62: { 3, { 2, 3, 4 } }, ! 63: { 3, { 3, 4, 5 } }, ! 64: { 3, { 4, 5, 6 } }, ! 65: { 3, { 5, 6, 7 } }, ! 66: { 3, { 6, 7, 0 } } ! 67: }, upper[8] = { ! 68: { 1, { 1, 0, 0 } }, ! 69: { 2, { 1, 2, 0 } }, ! 70: { 0, { 0, 0, 0 } }, ! 71: { 0, { 0, 0, 0 } }, ! 72: { 0, { 0, 0, 0 } }, ! 73: { 2, { 4, 5, 0 } }, ! 74: { 1, { 5, 0, 0 } }, ! 75: { 2, { 1, 5, 0 } } ! 76: }, ! 77: left[8] = { ! 78: { 0, { 0, 0, 0 } }, ! 79: { 0, { 0, 0, 0 } }, ! 80: { 0, { 0, 0, 0 } }, ! 81: { 2, { 2, 3, 0 } }, ! 82: { 1, { 3, 0, 0 } }, ! 83: { 2, { 3, 7, 0 } }, ! 84: { 1, { 7, 0, 0 } }, ! 85: { 2, { 7, 0, 0 } } ! 86: }, ! 87: right[8] = { ! 88: { 1, { 7, 0, 0 } }, ! 89: { 2, { 3, 7, 0 } }, ! 90: { 1, { 3, 0, 0 } }, ! 91: { 2, { 3, 4, 0 } }, ! 92: { 0, { 0, 0, 0 } }, ! 93: { 0, { 0, 0, 0 } }, ! 94: { 0, { 0, 0, 0 } }, ! 95: { 2, { 6, 7, 0 } } ! 96: }, ! 97: lower[8] = { ! 98: { 0, { 0, 0, 0 } }, ! 99: { 2, { 0, 1, 0 } }, ! 100: { 1, { 1, 0, 0 } }, ! 101: { 2, { 1, 5, 0 } }, ! 102: { 1, { 5, 0, 0 } }, ! 103: { 2, { 5, 6, 0 } }, ! 104: { 0, { 0, 0, 0 } }, ! 105: { 0, { 0, 0, 0 } } ! 106: }, ! 107: upleft[8] = { ! 108: { 0, { 0, 0, 0 } }, ! 109: { 0, { 0, 0, 0 } }, ! 110: { 0, { 0, 0, 0 } }, ! 111: { 0, { 0, 0, 0 } }, ! 112: { 0, { 0, 0, 0 } }, ! 113: { 1, { 3, 0, 0 } }, ! 114: { 2, { 1, 3, 0 } }, ! 115: { 1, { 1, 0, 0 } } ! 116: }, ! 117: upright[8] = { ! 118: { 2, { 3, 5, 0 } }, ! 119: { 1, { 3, 0, 0 } }, ! 120: { 0, { 0, 0, 0 } }, ! 121: { 0, { 0, 0, 0 } }, ! 122: { 0, { 0, 0, 0 } }, ! 123: { 0, { 0, 0, 0 } }, ! 124: { 0, { 0, 0, 0 } }, ! 125: { 1, { 5, 0, 0 } } ! 126: }, ! 127: lowleft[8] = { ! 128: { 3, { 7, 0, 1 } }, ! 129: { 0, { 0, 0, 0 } }, ! 130: { 0, { 0, 0, 0 } }, ! 131: { 1, { 1, 0, 0 } }, ! 132: { 2, { 1, 7, 0 } }, ! 133: { 1, { 7, 0, 0 } }, ! 134: { 0, { 0, 0, 0 } }, ! 135: { 0, { 0, 0, 0 } } ! 136: }, ! 137: lowright[8] = { ! 138: { 0, { 0, 0, 0 } }, ! 139: { 1, { 7, 0, 0 } }, ! 140: { 2, { 5, 7, 0 } }, ! 141: { 1, { 5, 0, 0 } }, ! 142: { 0, { 0, 0, 0 } }, ! 143: { 0, { 0, 0, 0 } }, ! 144: { 0, { 0, 0, 0 } }, ! 145: { 0, { 0, 0, 0 } } ! 146: }; ! 147: ! 148: #define cursor(c, r) tputs(tgoto(CM, c, r), 1, fputchar) ! 149: ! 150: static char *TE; ! 151: static int fputchar(); ! 152: ! 153: static char flavor[] = { ! 154: 'O', '*', '#', '$', '%', '0' ! 155: }; ! 156: static short xinc[] = { ! 157: 1, 1, 1, 0, -1, -1, -1, 0 ! 158: }, yinc[] = { ! 159: -1, 0, 1, 1, 1, 0, -1, -1 ! 160: }; ! 161: static struct worm { ! 162: int orientation, head; ! 163: short *xpos, *ypos; ! 164: } worm[40]; ! 165: ! 166: main(argc, argv) ! 167: int argc; ! 168: char **argv; ! 169: { ! 170: extern int optind; ! 171: extern short ospeed; ! 172: extern char *optarg, *UP; ! 173: register int x, y, h, n; ! 174: register struct worm *w; ! 175: register struct options *op; ! 176: register short *ip; ! 177: register char *term; ! 178: int CO, IN, LI, last, bottom, ch, length, number, trail, Wrap, ! 179: onsig(); ! 180: short **ref; ! 181: char *AL, *BC, *CM, *EI, *HO, *IC, *IM, *IP, *SR, *tcp, ! 182: *field, tcb[100], *mp, *malloc(), *getenv(), *tgetstr(), ! 183: *tgoto(); ! 184: long random(); ! 185: #ifdef USG ! 186: struct termio sg; ! 187: #else ! 188: struct sgttyb sg; ! 189: #endif ! 190: ! 191: length = 16; ! 192: number = 3; ! 193: trail = ' '; ! 194: field = NULL; ! 195: while ((ch = getopt(argc, argv, "fl:n:t")) != EOF) ! 196: switch((char)ch) { ! 197: case 'f': ! 198: field = "WORM"; ! 199: break; ! 200: case 'l': ! 201: if ((length = atoi(optarg)) < 2 || length > 1024) { ! 202: fprintf(stderr, "%s: invalid length; range %d - %d.\n", *argv, 2, 1024); ! 203: exit(1); ! 204: } ! 205: break; ! 206: case 'n': ! 207: if ((number = atoi(optarg)) < 1 || number > 40) { ! 208: fprintf(stderr, "%s: invalid number of worms; range %d - %d.\n", *argv, 1, 40); ! 209: exit(1); ! 210: } ! 211: break; ! 212: case 't': ! 213: trail = '.'; ! 214: break; ! 215: case '?': ! 216: default: ! 217: fprintf(stderr, "usage: %s [-ft] [-length #] [-number #]\n", *argv); ! 218: exit(1); ! 219: } ! 220: ! 221: if (!(term = getenv("TERM"))) { ! 222: fprintf(stderr, "%s: TERM: parameter not set\n", *argv); ! 223: exit(1); ! 224: } ! 225: if (!(mp = malloc((u_int)1024))) { ! 226: fprintf(stderr, "%s: out of space.\n", *argv); ! 227: exit(1); ! 228: } ! 229: if (tgetent(mp, term) <= 0) { ! 230: fprintf(stderr, "%s: %s: unknown terminal type\n", *argv, term); ! 231: exit(1); ! 232: } ! 233: tcp = tcb; ! 234: if (!(CM = tgetstr("cm", &tcp))) { ! 235: fprintf(stderr, "%s: terminal not capable of cursor motion\n", *argv); ! 236: exit(1); ! 237: } ! 238: AL = tgetstr("al", &tcp); ! 239: BC = tgetflag("bs") ? "\b" : tgetstr("bc", &tcp); ! 240: if ((CO = tgetnum("co")) <= 0) ! 241: CO = 80; ! 242: last = CO - 1; ! 243: EI = tgetstr("ei", &tcp); ! 244: HO = tgetstr("ho", &tcp); ! 245: IC = tgetstr("ic", &tcp); ! 246: IM = tgetstr("im", &tcp); ! 247: IN = tgetflag("in"); ! 248: IP = tgetstr("ip", &tcp); ! 249: if ((LI = tgetnum("li")) <= 0) ! 250: LI = 24; ! 251: bottom = LI - 1; ! 252: SR = tgetstr("sr", &tcp); ! 253: TE = tgetstr("te", &tcp); ! 254: UP = tgetstr("up", &tcp); ! 255: #ifdef USG ! 256: ioctl(1, TCGETA, &sg); ! 257: ospeed = sg.c_cflag&CBAUD; ! 258: #else ! 259: gtty(1, &sg); ! 260: ospeed = sg.sg_ospeed; ! 261: #endif ! 262: Wrap = tgetflag("am"); ! 263: if (!(ip = (short *)malloc((u_int)(LI * CO * sizeof(short))))) { ! 264: fprintf(stderr, "%s: out of memory\n", *argv); ! 265: exit(1); ! 266: } ! 267: if (!(ref = (short **)malloc((u_int)(LI * sizeof(short *))))) { ! 268: fprintf(stderr, "%s: out of memory\n", *argv); ! 269: exit(1); ! 270: } ! 271: for (n = 0; n < LI; ++n) { ! 272: ref[n] = ip; ! 273: ip += CO; ! 274: } ! 275: for (ip = ref[0], n = LI * CO; --n >= 0;) ! 276: *ip++ = 0; ! 277: if (Wrap) ! 278: ref[bottom][last] = 1; ! 279: for (n = number, w = &worm[0]; --n >= 0; w++) { ! 280: w->orientation = w->head = 0; ! 281: if (!(ip = (short *)malloc((u_int)(length * sizeof(short))))) { ! 282: fprintf(stderr, "%s: out of memory\n", *argv); ! 283: exit(1); ! 284: } ! 285: w->xpos = ip; ! 286: for (x = length; --x >= 0;) ! 287: *ip++ = -1; ! 288: if (!(ip = (short *)malloc((u_int)(length * sizeof(short))))) { ! 289: fprintf(stderr, "%s: out of memory\n", *argv); ! 290: exit(1); ! 291: } ! 292: w->ypos = ip; ! 293: for (y = length; --y >= 0;) ! 294: *ip++ = -1; ! 295: } ! 296: ! 297: (void)signal(SIGHUP, onsig); ! 298: (void)signal(SIGINT, onsig); ! 299: (void)signal(SIGQUIT, onsig); ! 300: (void)signal(SIGSTOP, onsig); ! 301: (void)signal(SIGTSTP, onsig); ! 302: (void)signal(SIGTERM, onsig); ! 303: ! 304: tputs(tgetstr("ti", &tcp), 1, fputchar); ! 305: tputs(tgetstr("cl", &tcp), 1, fputchar); ! 306: if (field) { ! 307: register char *p = field; ! 308: ! 309: for (y = bottom; --y >= 0;) { ! 310: for (x = CO; --x >= 0;) { ! 311: fputchar(*p++); ! 312: if (!*p) ! 313: p = field; ! 314: } ! 315: if (!Wrap) ! 316: fputchar('\n'); ! 317: (void)fflush(stdout); ! 318: } ! 319: if (Wrap) { ! 320: if (IM && !IN) { ! 321: for (x = last; --x > 0;) { ! 322: fputchar(*p++); ! 323: if (!*p) ! 324: p = field; ! 325: } ! 326: y = *p++; ! 327: if (!*p) ! 328: p = field; ! 329: fputchar(*p); ! 330: if (BC) ! 331: tputs(BC, 1, fputchar); ! 332: else ! 333: cursor(last - 1, bottom); ! 334: tputs(IM, 1, fputchar); ! 335: if (IC) ! 336: tputs(IC, 1, fputchar); ! 337: fputchar(y); ! 338: if (IP) ! 339: tputs(IP, 1, fputchar); ! 340: tputs(EI, 1, fputchar); ! 341: } ! 342: else if (SR || AL) { ! 343: if (HO) ! 344: tputs(HO, 1, fputchar); ! 345: else ! 346: cursor(0, 0); ! 347: if (SR) ! 348: tputs(SR, 1, fputchar); ! 349: else ! 350: tputs(AL, LI, fputchar); ! 351: for (x = CO; --x >= 0;) { ! 352: fputchar(*p++); ! 353: if (!*p) ! 354: p = field; ! 355: } ! 356: } ! 357: else for (x = last; --x >= 0;) { ! 358: fputchar(*p++); ! 359: if (!*p) ! 360: p = field; ! 361: } ! 362: } ! 363: else for (x = CO; --x >= 0;) { ! 364: fputchar(*p++); ! 365: if (!*p) ! 366: p = field; ! 367: } ! 368: } ! 369: for (;;) { ! 370: (void)fflush(stdout); ! 371: for (n = 0, w = &worm[0]; n < number; n++, w++) { ! 372: if ((x = w->xpos[h = w->head]) < 0) { ! 373: cursor(x = w->xpos[h] = 0, ! 374: y = w->ypos[h] = bottom); ! 375: fputchar(flavor[n % 6]); ! 376: ref[y][x]++; ! 377: } ! 378: else ! 379: y = w->ypos[h]; ! 380: if (++h == length) ! 381: h = 0; ! 382: if (w->xpos[w->head = h] >= 0) { ! 383: register int x1, y1; ! 384: ! 385: x1 = w->xpos[h]; ! 386: y1 = w->ypos[h]; ! 387: if (--ref[y1][x1] == 0) { ! 388: cursor(x1, y1); ! 389: if (trail) ! 390: fputchar(trail); ! 391: } ! 392: } ! 393: op = &(!x ? (!y ? upleft : (y == bottom ? lowleft : left)) : (x == last ? (!y ? upright : (y == bottom ? lowright : right)) : (!y ? upper : (y == bottom ? lower : normal))))[w->orientation]; ! 394: switch (op->nopts) { ! 395: case 0: ! 396: (void)fflush(stdout); ! 397: abort(); ! 398: return; ! 399: case 1: ! 400: w->orientation = op->opts[0]; ! 401: break; ! 402: default: ! 403: w->orientation = op->opts[(int)random() % op->nopts]; ! 404: } ! 405: cursor(x += xinc[w->orientation], y += yinc[w->orientation]); ! 406: if (!Wrap || x != last || y != bottom) ! 407: fputchar(flavor[n % 6]); ! 408: ref[w->ypos[h] = y][w->xpos[h] = x]++; ! 409: } ! 410: } ! 411: } ! 412: ! 413: static ! 414: onsig() ! 415: { ! 416: tputs(TE, 1, fputchar); ! 417: exit(0); ! 418: } ! 419: ! 420: static ! 421: fputchar(c) ! 422: char c; ! 423: { ! 424: putchar(c); ! 425: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.