subs.c revision 1.12
1 /* $NetBSD: subs.c,v 1.12 1999/09/08 21:45:25 jsm Exp $ */ 2 3 /* 4 * Copyright (c) 1980, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. All advertising materials mentioning features or use of this software 16 * must display the following acknowledgement: 17 * This product includes software developed by the University of 18 * California, Berkeley and its contributors. 19 * 4. Neither the name of the University nor the names of its contributors 20 * may be used to endorse or promote products derived from this software 21 * without specific prior written permission. 22 * 23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 * SUCH DAMAGE. 34 */ 35 36 #include <sys/cdefs.h> 37 #ifndef lint 38 #if 0 39 static char sccsid[] = "@(#)subs.c 8.1 (Berkeley) 5/31/93"; 40 #else 41 __RCSID("$NetBSD: subs.c,v 1.12 1999/09/08 21:45:25 jsm Exp $"); 42 #endif 43 #endif /* not lint */ 44 45 #include "back.h" 46 47 int buffnum; 48 char outbuff[BUFSIZ]; 49 50 static const char plred[] = "Player is red, computer is white."; 51 static const char plwhite[] = "Player is white, computer is red."; 52 static const char nocomp[] = "(No computer play.)"; 53 54 const char *const descr[] = { 55 "Usage: backgammon [-] [n r w b pr pw pb t3a]\n", 56 "\t-\tgets this list\n\tn\tdon't ask for rules or instructions", 57 "\tr\tplayer is red (implies n)\n\tw\tplayer is white (implies n)", 58 "\tb\ttwo players, red and white (implies n)", 59 "\tpr\tprint the board before red's turn", 60 "\tpw\tprint the board before white's turn", 61 "\tpb\tprint the board before both player's turn", 62 "\tterm\tterminal is a term", 63 "\tsfile\trecover saved game from file", 64 0 65 }; 66 67 void 68 errexit(s) 69 const char *s; 70 { 71 write(2, "\n", 1); 72 perror(s); 73 getout(0); 74 } 75 76 void 77 addbuf(c) 78 int c; 79 { 80 buffnum++; 81 if (buffnum == BUFSIZ) { 82 if (write(1, outbuff, BUFSIZ) != BUFSIZ) 83 errexit("addbuf (write):"); 84 buffnum = 0; 85 } 86 outbuff[buffnum] = c; 87 } 88 89 void 90 buflush() 91 { 92 if (buffnum < 0) 93 return; 94 buffnum++; 95 if (write(1, outbuff, buffnum) != buffnum) 96 errexit("buflush (write):"); 97 buffnum = -1; 98 } 99 100 int 101 readc() 102 { 103 char c; 104 105 if (tflag) { 106 cline(); 107 newpos(); 108 } 109 buflush(); 110 if (read(0, &c, 1) != 1) 111 errexit("readc"); 112 #ifdef WHY_IS_THIS_HARDWIRED_IN_HERE 113 if (c == '\177') 114 getout(0); 115 #endif 116 if (c == '\033' || c == '\015') 117 return ('\n'); 118 if (cflag) 119 return (c); 120 if (c == '\014') 121 return ('R'); 122 if (c >= 'a' && c <= 'z') 123 return (c & 0137); 124 return (c); 125 } 126 127 void 128 writec(c) 129 char c; 130 { 131 if (tflag) 132 fancyc(c); 133 else 134 addbuf(c); 135 } 136 137 void 138 writel(l) 139 const char *l; 140 { 141 #ifdef DEBUG 142 const char *s; 143 144 if (trace == NULL) 145 trace = fopen("bgtrace", "w"); 146 147 fprintf(trace, "writel: \""); 148 for (s = l; *s; s++) { 149 if (*s < ' ' || *s == '\177') 150 fprintf(trace, "^%c", (*s) ^ 0100); 151 else 152 putc(*s, trace); 153 } 154 fprintf(trace, "\"\n"); 155 fflush(trace); 156 #endif 157 158 while (*l) 159 writec(*l++); 160 } 161 162 void 163 proll() 164 { 165 if (d0) 166 swap; 167 if (cturn == 1) 168 writel("Red's roll: "); 169 else 170 writel("White's roll: "); 171 writec(D0 + '0'); 172 writec('\040'); 173 writec(D1 + '0'); 174 if (tflag) 175 cline(); 176 } 177 178 void 179 wrint(n) 180 int n; 181 { 182 int i, j, t; 183 184 for (i = 4; i > 0; i--) { 185 t = 1; 186 for (j = 0; j < i; j++) 187 t *= 10; 188 if (n > t - 1) 189 writec((n / t) % 10 + '0'); 190 } 191 writec(n % 10 + '0'); 192 } 193 194 void 195 gwrite() 196 { 197 int r, c; 198 199 r = c = 0; 200 if (tflag) { 201 r = curr; 202 c = curc; 203 curmove(16, 0); 204 } 205 if (gvalue > 1) { 206 writel("Game value: "); 207 wrint(gvalue); 208 writel(". "); 209 if (dlast == -1) 210 writel(color[0]); 211 else 212 writel(color[1]); 213 writel(" doubled last."); 214 } else { 215 switch (pnum) { 216 case -1: /* player is red */ 217 writel(plred); 218 break; 219 case 0: /* player is both colors */ 220 writel(nocomp); 221 break; 222 case 1: /* player is white */ 223 writel(plwhite); 224 } 225 } 226 227 if (rscore || wscore) { 228 writel(" "); 229 wrscore(); 230 } 231 if (tflag) { 232 cline(); 233 curmove(r, c); 234 } 235 } 236 237 int 238 quit() 239 { 240 241 if (tflag) { 242 curmove(20, 0); 243 clend(); 244 } else 245 writec('\n'); 246 writel("Are you sure you want to quit?"); 247 if (yorn(0)) { 248 if (rfl) { 249 writel("Would you like to save this game?"); 250 if (yorn(0)) 251 save(0); 252 } 253 cturn = 0; 254 return (1); 255 } 256 return (0); 257 } 258 259 int 260 yorn(special) 261 char special; /* special response */ 262 { 263 char c; 264 int i; 265 266 i = 1; 267 while ((c = readc()) != 'Y' && c != 'N') { 268 if (special && c == special) 269 return (2); 270 if (i) { 271 if (special) { 272 writel(" (Y, N, or "); 273 writec(special); 274 writec(')'); 275 } else 276 writel(" (Y or N)"); 277 i = 0; 278 } else 279 writec('\007'); 280 } 281 if (c == 'Y') 282 writel(" Yes.\n"); 283 else 284 writel(" No.\n"); 285 if (tflag) 286 buflush(); 287 return (c == 'Y'); 288 } 289 290 void 291 wrhit(i) 292 int i; 293 { 294 writel("Blot hit on "); 295 wrint(i); 296 writec('.'); 297 writec('\n'); 298 } 299 300 void 301 nexturn() 302 { 303 int c; 304 305 cturn = -cturn; 306 c = cturn / abs(cturn); 307 home = bar; 308 bar = 25 - bar; 309 offptr += c; 310 offopp -= c; 311 inptr += c; 312 inopp -= c; 313 Colorptr += c; 314 colorptr += c; 315 } 316 317 void 318 getarg(arg) 319 char ***arg; 320 { 321 char **s; 322 323 /* process arguments here. dashes are ignored, nbrw are ignored if 324 * the game is being recovered */ 325 326 s = *arg; 327 while (*s && s[0][0] == '-') { 328 switch (s[0][1]) { 329 330 /* don't ask if rules or instructions needed */ 331 case 'n': 332 if (rflag) 333 break; 334 aflag = 0; 335 args[acnt++] = 'n'; 336 break; 337 338 /* player is both red and white */ 339 case 'b': 340 if (rflag) 341 break; 342 pnum = 0; 343 aflag = 0; 344 args[acnt++] = 'b'; 345 break; 346 347 /* player is red */ 348 case 'r': 349 if (rflag) 350 break; 351 pnum = -1; 352 aflag = 0; 353 args[acnt++] = 'r'; 354 break; 355 356 /* player is white */ 357 case 'w': 358 if (rflag) 359 break; 360 pnum = 1; 361 aflag = 0; 362 args[acnt++] = 'w'; 363 break; 364 365 /* print board after move according to following 366 * character */ 367 case 'p': 368 if (s[0][2] != 'r' && s[0][2] != 'w' && s[0][2] != 'b') 369 break; 370 args[acnt++] = 'p'; 371 args[acnt++] = s[0][2]; 372 if (s[0][2] == 'r') 373 bflag = 1; 374 if (s[0][2] == 'w') 375 bflag = -1; 376 if (s[0][2] == 'b') 377 bflag = 0; 378 break; 379 380 case 't': 381 if (s[0][2] == '\0') { /* get terminal caps */ 382 s++; 383 tflag = getcaps(*s); 384 } else 385 tflag = getcaps(&s[0][2]); 386 break; 387 388 case 's': 389 s++; 390 /* recover file */ 391 if (s[0] == NULL) { 392 writel("No save file named\n"); 393 getout(0); 394 } else 395 recover(s[0]); 396 break; 397 } 398 s++; 399 } 400 if (s[0] != 0) 401 recover(s[0]); 402 } 403 404 void 405 init() 406 { 407 int i; 408 409 for (i = 0; i < 26;) 410 board[i++] = 0; 411 board[1] = 2; 412 board[6] = board[13] = -5; 413 board[8] = -3; 414 board[12] = board[19] = 5; 415 board[17] = 3; 416 board[24] = -2; 417 off[0] = off[1] = -15; 418 in[0] = in[1] = 5; 419 gvalue = 1; 420 dlast = 0; 421 } 422 423 void 424 wrscore() 425 { 426 writel("Score: "); 427 writel(color[1]); 428 writec(' '); 429 wrint(rscore); 430 writel(", "); 431 writel(color[0]); 432 writec(' '); 433 wrint(wscore); 434 } 435 436 void 437 fixtty(t) 438 struct termios *t; 439 { 440 if (tflag) 441 newpos(); 442 buflush(); 443 if (tcsetattr(0, TCSADRAIN, t) < 0) 444 errexit("fixtty"); 445 } 446 447 void 448 getout(dummy) 449 int dummy __attribute__((__unused__)); 450 { 451 /* go to bottom of screen */ 452 if (tflag) { 453 curmove(23, 0); 454 cline(); 455 } else 456 writec('\n'); 457 458 /* fix terminal status */ 459 fixtty(&old); 460 exit(0); 461 } 462 463 void 464 roll() 465 { 466 char c; 467 int row; 468 int col; 469 470 row = col = 0; 471 if (iroll) { 472 if (tflag) { 473 row = curr; 474 col = curc; 475 curmove(17, 0); 476 } else 477 writec('\n'); 478 writel("ROLL: "); 479 c = readc(); 480 if (c != '\n') { 481 while (c < '1' || c > '6') 482 c = readc(); 483 D0 = c - '0'; 484 writec(' '); 485 writec(c); 486 c = readc(); 487 while (c < '1' || c > '6') 488 c = readc(); 489 D1 = c - '0'; 490 writec(' '); 491 writec(c); 492 if (tflag) { 493 curmove(17, 0); 494 cline(); 495 curmove(row, col); 496 } else 497 writec('\n'); 498 return; 499 } 500 if (tflag) { 501 curmove(17, 0); 502 cline(); 503 curmove(row, col); 504 } else 505 writec('\n'); 506 } 507 D0 = rnum(6) + 1; 508 D1 = rnum(6) + 1; 509 d0 = 0; 510 } 511
Indexes created Mon Sep 29 21:09:56 GMT 2025