[unix-history] / usr / src / games / backgammon / common_source / subs.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

#ifndef lint
static char sccsid[] = "@(#)subs.c	5.4 (Berkeley) %G%";
#endif /* not lint */

#include <stdio.h>
#include "back.h"

int	buffnum;
char	outbuff[BUFSIZ];

static char	plred[] = "Player is red, computer is white.";
static char	plwhite[] = "Player is white, computer is red.";
static char	nocomp[] = "(No computer play.)";

char  *descr[] = {
	"Usage:  backgammon [-] [n r w b pr pw pb t3a]\n",
	"\t-\tgets this list\n\tn\tdon't ask for rules or instructions",
	"\tr\tplayer is red (implies n)\n\tw\tplayer is white (implies n)",
	"\tb\ttwo players, red and white (implies n)",
	"\tpr\tprint the board before red's turn",
	"\tpw\tprint the board before white's turn",
	"\tpb\tprint the board before both player's turn",
	"\tterm\tterminal is a term",
	"\tsfile\trecover saved game from file",
	0
};

errexit (s)
register char	*s;
{
	write (2,"\n",1);
	perror (s);
	getout();
}

strset (s1,s2)
register char	*s1, *s2;
{
	while ( (*s1++ = *s2++) != '\0');
}

addbuf (c)
register char	c;

{
	buffnum++;
	if (buffnum == BUFSIZ)  {
		if (write(1,outbuff,BUFSIZ) != BUFSIZ)
			errexit ("addbuf (write):");
		buffnum = 0;
	}
	outbuff[buffnum] = c;
}

buflush ()  {
	if (buffnum < 0)
		return;
	buffnum++;
	if (write (1,outbuff,buffnum) != buffnum)
		errexit ("buflush (write):");
	buffnum = -1;
}

readc () {
	char	c;

	if (tflag)  {
		cline();
		newpos();
	}
	buflush();
	if (read(0,&c,1) != 1)
		errexit ("readc");
#ifdef WHY_IS_THIS_HARDWIRED_IN_HERE
	if (c == '\177')
		getout();
#endif
	if (c == '\033' || c == '\015')
		return ('\n');
	if (cflag)
		return (c);
	if (c == '\014')
		return ('R');
	if (c >= 'a' && c <= 'z')
		return (c & 0137);
	return (c);
}

writec (c)
char	c;
{
	if (tflag)
		fancyc (c);
	else
		addbuf (c);
}

writel (l)
register char	*l;
{
#ifdef DEBUG
	register char	*s;

	if (trace == NULL)
		trace = fopen ("bgtrace","w");
	
	fprintf (trace,"writel: \"");
	for (s = l; *s; s++) {
		if (*s < ' ' || *s == '\177')
			fprintf (trace,"^%c",(*s)^0100);
		else
			putc (*s,trace);
	}
	fprintf (trace,"\"\n");
	fflush (trace);
#endif

	while (*l)
		writec (*l++);
}

proll ()   {
	if (d0)
		swap;
	if (cturn == 1)
		writel ("Red's roll:  ");
	else
		writel ("White's roll:  ");
	writec (D0+'0');
	writec ('\040');
	writec (D1+'0');
	if (tflag)
		cline();
}

wrint (n)
int	n;
{
	register int	i, j, t;

	for (i = 4; i > 0; i--)  {
		t = 1;
		for (j = 0; j<i; j++)
			t *= 10;
		if (n > t-1)
			writec ((n/t)%10+'0');
	}
	writec (n%10+'0');
}

gwrite()  {
	register int	r, c;

	if (tflag)  {
		r = curr;
		c = curc;
		curmove (16,0);
	}

	if (gvalue > 1)  {
		writel ("Game value:  ");
		wrint (gvalue);
		writel (".  ");
		if (dlast == -1)
			writel (color[0]);
		else
			writel (color[1]);
		writel (" doubled last.");
	} else  {
		switch (pnum)  {
		case -1:			    /* player is red */
			writel (plred);
			break;
		case 0:				    /* player is both colors */
			writel (nocomp);
			break;
		case 1:				    /* player is white */
			writel (plwhite);
		}
	}

	if (rscore || wscore)  {
		writel ("  ");
		wrscore();
	}

	if (tflag)  {
		cline();
		curmove (r,c);
	}
}

quit ()  {
	register int	i;

	if (tflag)  {
		curmove (20,0);
		clend();
	} else
		writec ('\n');
	writel ("Are you sure you want to quit?");
	if (yorn (0))  {
		if (rfl)  {
			writel ("Would you like to save this game?");
			if (yorn(0))
				save(0);
		}
		cturn = 0;
		return (1);
	}
	return (0);
}

yorn (special)
register char	special;			/* special response */
{
	register char	c;
	register int	i;

	i = 1;
	while ( (c = readc()) != 'Y' && c != 'N')  {
		if (special && c == special)
			return (2);
		if (i)  {
			if (special)  {
				writel ("  (Y, N, or ");
				writec (special);
				writec (')');
			} else
				writel ("  (Y or N)");
			i = 0;
		} else
			writec ('\007');
	}
	if (c == 'Y')
		writel ("  Yes.\n");
	else
		writel ("  No.\n");
	if (tflag)
		buflush();
	return (c == 'Y');
}

wrhit (i)
register int	i;
{
	writel ("Blot hit on ");
	wrint (i);
	writec ('.');
	writec ('\n');
}

nexturn ()  {
	register int	c;

	cturn = -cturn;
	c = cturn/abs(cturn);
	home = bar;
	bar = 25-bar;
	offptr += c;
	offopp -= c;
	inptr += c;
	inopp -= c;
	Colorptr += c;
	colorptr += c;
}

getarg (arg)
register char	***arg;

{
	register char	**s;

	/* process arguments here.  dashes are ignored, nbrw are ignored
	   if the game is being recovered */

	s = *arg;
	while (s[0][0] == '-') {
		switch (s[0][1])  {

		/* don't ask if rules or instructions needed */
		case 'n':
			if (rflag)
				break;
			aflag = 0;
			args[acnt++] = 'n';
			break;

		/* player is both read and white */
		case 'b':
			if (rflag)
				break;
			pnum = 0;
			aflag = 0;
			args[acnt++] = 'b';
			break;

		/* player is red */
		case 'r':
			if (rflag)
				break;
			pnum = -1;
			aflag = 0;
			args[acnt++] = 'r';
			break;

		/* player is white */
		case 'w':
			if (rflag)
				break;
			pnum = 1;
			aflag = 0;
			args[acnt++] = 'w';
			break;

		/* print board after move according to following character */
		case 'p':
			if (s[0][2] != 'r' && s[0][2] != 'w' && s[0][2] != 'b')
				break;
			args[acnt++] = 'p';
			args[acnt++] = s[0][2];
			if (s[0][2] == 'r')
				bflag = 1;
			if (s[0][2] == 'w')
				bflag = -1;
			if (s[0][2] == 'b')
				bflag = 0;
			break;

		case 't':
			if (s[0][2] == '\0') {	/* get terminal caps */
				s++;
				tflag = getcaps (*s);
			} else
				tflag = getcaps (&s[0][2]);
			break;

		case 's':
			s++;
			/* recover file */
			recover (s[0]);
			break;
		}
		s++;
	}
	if (s[0] != 0)
		recover(s[0]);
}

init ()  {
	register int	i;
	for (i = 0; i < 26;)
		board[i++] = 0;
	board[1] = 2;
	board[6] = board[13] = -5;
	board[8] = -3;
	board[12] = board[19] = 5;
	board[17] = 3;
	board[24] = -2;
	off[0] = off[1] = -15;
	in[0] = in[1] = 5;
	gvalue = 1;
	dlast = 0;
}

wrscore ()  {
	writel ("Score:  ");
	writel (color[1]);
	writec (' ');
	wrint (rscore);
	writel (", ");
	writel (color[0]);
	writec (' ');
	wrint (wscore);
}

fixtty (mode)
int	mode;
{
	if (tflag)
		newpos();
	buflush();
	tty.sg_flags = mode;
	if (stty (0,&tty) < 0)
		errexit("fixtty");
}

getout ()  {
	/* go to bottom of screen */
	if (tflag)  {
		curmove (23,0);
		cline();
	} else
		writec ('\n');

	/* fix terminal status */
	fixtty (old);
	exit();
}
roll ()  {
	register char	c;
	register int	row;
	register int	col;

	if (iroll)  {
		if (tflag)  {
			row = curr;
			col = curc;
			curmove (17,0);
		} else
			writec ('\n');
		writel ("ROLL: ");
		c = readc();
		if (c != '\n')  {
			while (c < '1' || c > '6')
				c = readc();
			D0 = c-'0';
			writec (' ');
			writec (c);
			c = readc();
			while (c < '1' || c > '6')
				c = readc();
			D1 = c-'0';
			writec (' ');
			writec (c);
			if (tflag)  {
				curmove (17,0);
				cline();
				curmove (row,col);
			} else
				writec ('\n');
			return;
		}
		if (tflag)  {
			curmove (17,0);
			cline();
			curmove (row,col);
		} else
			writec ('\n');
	}
	D0 = rnum(6)+1;
	D1 = rnum(6)+1;
	d0 = 0;
}
Commit	Line	Data
e0bbfbf9 DF	1	/*
e0bbfbf9 DF	2	* Copyright (c) 1980 Regents of the University of California.
69fb7db6 KB	3	* All rights reserved.
	4	*
	5	* Redistribution and use in source and binary forms are permitted
65c7d3b6 KB	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.
e0bbfbf9 DF	16	*/
	17
	18	#ifndef lint
65c7d3b6	19	static char sccsid[] = "@(#)subs.c 5.4 (Berkeley) %G%";
69fb7db6	20	#endif /* not lint */
d7001d99 RH	21
	22	#include <stdio.h>
	23	#include "back.h"
	24
	25	int buffnum;
	26	char outbuff[BUFSIZ];
	27
	28	static char plred[] = "Player is red, computer is white.";
	29	static char plwhite[] = "Player is white, computer is red.";
	30	static char nocomp[] = "(No computer play.)";
	31
	32	char *descr[] = {
	33	"Usage: backgammon [-] [n r w b pr pw pb t3a]\n",
	34	"\t-\tgets this list\n\tn\tdon't ask for rules or instructions",
	35	"\tr\tplayer is red (implies n)\n\tw\tplayer is white (implies n)",
	36	"\tb\ttwo players, red and white (implies n)",
	37	"\tpr\tprint the board before red's turn",
	38	"\tpw\tprint the board before white's turn",
	39	"\tpb\tprint the board before both player's turn",
	40	"\tterm\tterminal is a term",
	41	"\tsfile\trecover saved game from file",
	42	0
	43	};
	44
	45	errexit (s)
	46	register char *s;
	47	{
	48	write (2,"\n",1);
	49	perror (s);
	50	getout();
	51	}
	52
	53	strset (s1,s2)
	54	register char s1, s2;
	55	{
	56	while ( (s1++ = s2++) != '\0');
	57	}
	58
	59	addbuf (c)
	60	register char c;
	61
	62	{
	63	buffnum++;
	64	if (buffnum == BUFSIZ) {
	65	if (write(1,outbuff,BUFSIZ) != BUFSIZ)
	66	errexit ("addbuf (write):");
	67	buffnum = 0;
	68	}
	69	outbuff[buffnum] = c;
	70	}
	71
	72	buflush () {
	73	if (buffnum < 0)
	74	return;
	75	buffnum++;
	76	if (write (1,outbuff,buffnum) != buffnum)
	77	errexit ("buflush (write):");
	78	buffnum = -1;
	79	}
	80
	81	readc () {
	82	char c;
	83
	84	if (tflag) {
85	cline();
86	newpos();
87	}
88	buflush();
89	if (read(0,&c,1) != 1)
90	errexit ("readc");
9d921ef9	91	#ifdef WHY_IS_THIS_HARDWIRED_IN_HERE
d7001d99 RH	92	if (c == '\177')
d7001d99 RH	93	getout();
9d921ef9	94	#endif
d7001d99 RH	95	if (c == '\033' \|\| c == '\015')
	96	return ('\n');
	97	if (cflag)
	98	return (c);
	99	if (c == '\014')
	100	return ('R');
	101	if (c >= 'a' && c <= 'z')
	102	return (c & 0137);
	103	return (c);
	104	}
	105
	106	writec (c)
	107	char c;
	108	{
	109	if (tflag)
	110	fancyc (c);
	111	else
	112	addbuf (c);
	113	}
	114
	115	writel (l)
	116	register char *l;
	117	{
	118	#ifdef DEBUG
	119	register char *s;
	120
	121	if (trace == NULL)
	122	trace = fopen ("bgtrace","w");
	123
	124	fprintf (trace,"writel: \"");
	125	for (s = l; *s; s++) {
	126	if (s < ' ' \|\| s == '\177')
	127	fprintf (trace,"^%c",(*s)^0100);
	128	else
	129	putc (*s,trace);
	130	}
	131	fprintf (trace,"\"\n");
	132	fflush (trace);
	133	#endif
	134
	135	while (*l)
	136	writec (*l++);
	137	}
	138
	139	proll () {
	140	if (d0)
	141	swap;
	142	if (cturn == 1)
	143	writel ("Red's roll: ");
	144	else
	145	writel ("White's roll: ");
	146	writec (D0+'0');
	147	writec ('\040');
	148	writec (D1+'0');
	149	if (tflag)
	150	cline();
	151	}
	152
	153	wrint (n)
	154	int n;
	155	{
	156	register int i, j, t;
	157
	158	for (i = 4; i > 0; i--) {
159	t = 1;
160	for (j = 0; j<i; j++)
161	t *= 10;
162	if (n > t-1)
163	writec ((n/t)%10+'0');
164	}
165	writec (n%10+'0');
166	}
167
168	gwrite() {
169	register int r, c;
170
171	if (tflag) {
172	r = curr;
173	c = curc;
174	curmove (16,0);
175	}
176
177	if (gvalue > 1) {
178	writel ("Game value: ");
179	wrint (gvalue);
180	writel (". ");
181	if (dlast == -1)
182	writel (color[0]);
183	else
184	writel (color[1]);
185	writel (" doubled last.");
186	} else {
187	switch (pnum) {
188	case -1: /* player is red */
189	writel (plred);
190	break;
191	case 0: /* player is both colors */
192	writel (nocomp);
193	break;
194	case 1: /* player is white */
195	writel (plwhite);
196	}
197	}
198
199	if (rscore \|\| wscore) {
200	writel (" ");
201	wrscore();
202	}
203
204	if (tflag) {
205	cline();
206	curmove (r,c);
207	}
208	}
209
210	quit () {
211	register int i;
212
213	if (tflag) {
214	curmove (20,0);
215	clend();
216	} else
217	writec ('\n');
218	writel ("Are you sure you want to quit?");
219	if (yorn (0)) {
220	if (rfl) {
221	writel ("Would you like to save this game?");
222	if (yorn(0))
223	save(0);
224	}
225	cturn = 0;
226	return (1);
227	}
228	return (0);
229	}
230
231	yorn (special)
232	register char special; /* special response */
233	{
234	register char c;
235	register int i;
236
237	i = 1;
238	while ( (c = readc()) != 'Y' && c != 'N') {
239	if (special && c == special)
240	return (2);
241	if (i) {
242	if (special) {
243	writel (" (Y, N, or ");
244	writec (special);
245	writec (')');
246	} else
247	writel (" (Y or N)");
248	i = 0;
249	} else
250	writec ('\007');
251	}
252	if (c == 'Y')
253	writel (" Yes.\n");
254	else
255	writel (" No.\n");
256	if (tflag)
257	buflush();
258	return (c == 'Y');
259	}
260
261	wrhit (i)
262	register int i;
263	{
264	writel ("Blot hit on ");
265	wrint (i);
266	writec ('.');
267	writec ('\n');
268	}
269
270	nexturn () {
271	register int c;
272
273	cturn = -cturn;
274	c = cturn/abs(cturn);
275	home = bar;
276	bar = 25-bar;
277	offptr += c;
278	offopp -= c;
279	inptr += c;
280	inopp -= c;
281	Colorptr += c;
282	colorptr += c;
283	}
284
285	getarg (arg)
286	register char ***arg;
287
288	{
92f12e47	289	register char **s;
d7001d99 RH	290
	291	/* process arguments here. dashes are ignored, nbrw are ignored
	292	if the game is being recovered */
	293
92f12e47 KM	294	s = *arg;
	295	while (s[0][0] == '-') {
	296	switch (s[0][1]) {
d7001d99 RH	297
	298	/* don't ask if rules or instructions needed */
	299	case 'n':
	300	if (rflag)
	301	break;
	302	aflag = 0;
92f12e47	303	args[acnt++] = 'n';
d7001d99 RH	304	break;
	305
	306	/* player is both read and white */
	307	case 'b':
	308	if (rflag)
	309	break;
	310	pnum = 0;
	311	aflag = 0;
92f12e47	312	args[acnt++] = 'b';
d7001d99 RH	313	break;
	314
	315	/* player is red */
	316	case 'r':
	317	if (rflag)
	318	break;
	319	pnum = -1;
	320	aflag = 0;
92f12e47	321	args[acnt++] = 'r';
d7001d99 RH	322	break;
	323
	324	/* player is white */
	325	case 'w':
	326	if (rflag)
	327	break;
	328	pnum = 1;
	329	aflag = 0;
92f12e47	330	args[acnt++] = 'w';
d7001d99 RH	331	break;
	332
	333	/* print board after move according to following character */
	334	case 'p':
92f12e47	335	if (s[0][2] != 'r' && s[0][2] != 'w' && s[0][2] != 'b')
d7001d99 RH	336	break;
d7001d99 RH	337	args[acnt++] = 'p';
92f12e47 KM	338	args[acnt++] = s[0][2];
92f12e47 KM	339	if (s[0][2] == 'r')
d7001d99	340	bflag = 1;
92f12e47	341	if (s[0][2] == 'w')
d7001d99	342	bflag = -1;
92f12e47	343	if (s[0][2] == 'b')
d7001d99 RH	344	bflag = 0;
	345	break;
	346
	347	case 't':
92f12e47 KM	348	if (s[0][2] == '\0') { /* get terminal caps */
	349	s++;
	350	tflag = getcaps (*s);
	351	} else
	352	tflag = getcaps (&s[0][2]);
	353	break;
d7001d99 RH	354
d7001d99 RH	355	case 's':
92f12e47 KM	356	s++;
	357	/* recover file */
	358	recover (s[0]);
	359	break;
d7001d99	360	}
92f12e47	361	s++;
d7001d99	362	}
92f12e47 KM	363	if (s[0] != 0)
92f12e47 KM	364	recover(s[0]);
d7001d99 RH	365	}
	366
	367	init () {
	368	register int i;
	369	for (i = 0; i < 26;)
	370	board[i++] = 0;
	371	board[1] = 2;
	372	board[6] = board[13] = -5;
	373	board[8] = -3;
	374	board[12] = board[19] = 5;
	375	board[17] = 3;
	376	board[24] = -2;
	377	off[0] = off[1] = -15;
	378	in[0] = in[1] = 5;
	379	gvalue = 1;
	380	dlast = 0;
	381	}
	382
	383	wrscore () {
	384	writel ("Score: ");
	385	writel (color[1]);
	386	writec (' ');
	387	wrint (rscore);
	388	writel (", ");
	389	writel (color[0]);
	390	writec (' ');
	391	wrint (wscore);
	392	}
	393
	394	fixtty (mode)
	395	int mode;
	396	{
	397	if (tflag)
	398	newpos();
	399	buflush();
	400	tty.sg_flags = mode;
	401	if (stty (0,&tty) < 0)
	402	errexit("fixtty");
	403	}
	404
	405	getout () {
	406	/* go to bottom of screen */
	407	if (tflag) {
	408	curmove (23,0);
	409	cline();
	410	} else
	411	writec ('\n');
	412
	413	/* fix terminal status */
	414	fixtty (old);
	415	exit();
	416	}
	417	roll () {
	418	register char c;
	419	register int row;
	420	register int col;
	421
	422	if (iroll) {
	423	if (tflag) {
	424	row = curr;
	425	col = curc;
	426	curmove (17,0);
	427	} else
	428	writec ('\n');
429	writel ("ROLL: ");
430	c = readc();
431	if (c != '\n') {
432	while (c < '1' \|\| c > '6')
433	c = readc();
434	D0 = c-'0';
435	writec (' ');
436	writec (c);
437	c = readc();
438	while (c < '1' \|\| c > '6')
439	c = readc();
440	D1 = c-'0';
441	writec (' ');
442	writec (c);
443	if (tflag) {
444	curmove (17,0);
445	cline();
446	curmove (row,col);
447	} else
448	writec ('\n');
449	return;
450	}
451	if (tflag) {
452	curmove (17,0);
453	cline();
454	curmove (row,col);
455	} else
456	writec ('\n');
457	}
458	D0 = rnum(6)+1;
459	D1 = rnum(6)+1;
460	d0 = 0;
461	}