[unix-history] / games / monop / misc.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#ifndef lint
static char sccsid[] = "@(#)misc.c	5.5 (Berkeley) 2/28/91";
#endif /* not lint */

# include	"monop.ext"
# include	<ctype.h>
# include	<signal.h>

# define	execsh(sh)	execl(sh, shell_name[roll(1, num_names)-1], 0)

static char	*shell_def	= "/bin/csh",
		*shell_name[]	= {
			".Hi Mom!",
			".Kick Me",
			".I'm really the next process down",
			".Hi Kids!",
			".This space for rent",
			".Singin' in the rain....",
			".I am but a Cog in the Wheel of Life",
			".Look out!!! Behind you!!!!!",
			".Looking for a good time, sailor?",
			".I don't get NO respect...",
			".Augghh!  You peeked!"
		};

static int	num_names	= sizeof shell_name / sizeof (char *);;

char	*shell_in();

/*
 *	This routine executes a truncated set of commands until a
 * "yes or "no" answer is gotten.
 */
getyn(prompt)
reg char	*prompt; {

	reg int	com;

	for (;;)
		if ((com=getinp(prompt, yn)) < 2)
			return com;
		else
			(*func[com-2])();
}
/*
 *	This routine tells the player if he's out of money.
 */
notify() {

	if (cur_p->money < 0)
		printf("That leaves you $%d in debt\n", -cur_p->money);
	else if (cur_p->money == 0)
		printf("that leaves you broke\n");
	else if (fixing && !told_em && cur_p->money > 0) {
		printf("-- You are now Solvent ---\n");
		told_em = TRUE;
	}
}
/*
 *	This routine switches to the next player
 */
next_play() {

	player = ++player % num_play;
	cur_p = &play[player];
	num_doub = 0;
}
/*
 *	This routine gets an integer from the keyboard after the
 * given prompt.
 */
get_int(prompt)
reg char	*prompt; {

	reg int		num;
	reg char	*sp;
	char		buf[257];

	for (;;) {
inter:
		printf(prompt);
		num = 0;
		for (sp = buf; (*sp=getchar()) != '\n'; sp++)
			if (*sp == -1)	/* check for interrupted system call */
				goto inter;
		if (sp == buf)
			continue;
		for (sp = buf; isspace(*sp); sp++)
			continue;
		for (; isdigit(*sp); sp++)
			num = num * 10 + *sp - '0';
		if (*sp == '\n')
			return num;
		else
			printf("I can't understand that\n");
	}
}
/*
 *	This routine sets the monopoly flag from the list given.
 */
set_ownlist(pl)
int	pl; {

	reg int	num;		/* general counter		*/
	reg MON	*orig;		/* remember starting monop ptr	*/
	reg OWN	*op;		/* current owned prop		*/
	OWN	*orig_op;		/* origianl prop before loop	*/

	op = play[pl].own_list;
#ifdef DEBUG
	printf("op [%d] = play[pl [%d] ].own_list;\n", op, pl);
#endif
	while (op) {
#ifdef DEBUG
		printf("op->sqr->type = %d\n", op->sqr->type);
#endif
		switch (op->sqr->type) {
		  case UTIL:
#ifdef DEBUG
			printf("  case UTIL:\n");
#endif
			for (num = 0; op && op->sqr->type == UTIL; op = op->next)
				num++;
			play[pl].num_util = num;
#ifdef DEBUG
			printf("play[pl].num_util = num [%d];\n", num);
#endif
			break;
		  case RR:
#ifdef DEBUG
			printf("  case RR:\n");
#endif
			for (num = 0; op && op->sqr->type == RR; op = op->next) {
#ifdef DEBUG
				printf("iter: %d\n", num);
				printf("op = %d, op->sqr = %d, op->sqr->type = %d\n", op, op->sqr, op->sqr->type);
#endif
				num++;
			}
			play[pl].num_rr = num;
#ifdef DEBUG
			printf("play[pl].num_rr = num [%d];\n", num);
#endif
			break;
		  case PRPTY:
#ifdef DEBUG
			printf("  case PRPTY:\n");
#endif
			orig = op->sqr->desc->mon_desc;
			orig_op = op;
			num = 0;
			while (op && op->sqr->desc->mon_desc == orig) {
#ifdef DEBUG
				printf("iter: %d\n", num);
#endif
				num++;
#ifdef DEBUG
				printf("op = op->next ");
#endif
				op = op->next;
#ifdef DEBUG
				printf("[%d];\n", op);
#endif
			}
#ifdef DEBUG
			printf("num = %d\n");
#endif
			if (orig == 0) {
				printf("panic:  bad monopoly descriptor: orig = %d\n", orig);
				printf("player # %d\n", pl+1);
				printhold(pl);
				printf("orig_op = %d\n", orig_op);
				printf("orig_op->sqr->type = %d (PRPTY)\n", op->sqr->type);
				printf("orig_op->next = %d\n", op->next);
				printf("orig_op->sqr->desc = %d\n", op->sqr->desc);
				printf("op = %d\n", op);
				printf("op->sqr->type = %d (PRPTY)\n", op->sqr->type);
				printf("op->next = %d\n", op->next);
				printf("op->sqr->desc = %d\n", op->sqr->desc);
				printf("num = %d\n", num);
			}
#ifdef DEBUG
			printf("orig->num_in = %d\n", orig->num_in);
#endif
			if (num == orig->num_in)
				is_monop(orig, pl);
			else
				isnot_monop(orig);
			break;
		}
	}
}
/*
 *	This routine sets things up as if it is a new monopoly
 */
is_monop(mp, pl)
reg MON	*mp;
int	pl; {

	reg char	*sp;
	reg int		i;

	mp->owner = pl;
	mp->num_own = mp->num_in;
	for (i = 0; i < mp->num_in; i++)
		mp->sq[i]->desc->monop = TRUE;
	mp->name = mp->mon_n;
}
/*
 *	This routine sets things up as if it is no longer a monopoly
 */
isnot_monop(mp)
reg MON	*mp; {

	reg char	*sp;
	reg int		i;

	mp->owner = -1;
	for (i = 0; i < mp->num_in; i++)
		mp->sq[i]->desc->monop = FALSE;
	mp->name = mp->not_m;
}
/*
 *	This routine gives a list of the current player's routine
 */
list() {

	printhold(player);
}
/*
 *	This routine gives a list of a given players holdings
 */
list_all() {

	reg int	pl;

	while ((pl=getinp("Whose holdings do you want to see? ", name_list)) < num_play)
		printhold(pl);
}
/*
 *	This routine gives the players a chance before it exits.
 */
void
quit() {

	putchar('\n');
	if (getyn("Do you all really want to quit? ", yn) == 0)
		exit(0);
	signal(SIGINT, quit);
}
/*
 *	This routine copies one structure to another
 */
cpy_st(s1, s2, size)
reg int	*s1, *s2, size; {

	size /= 2;
	while (size--)
		*s1++ = *s2++;
}
/*
 *	This routine forks off a shell.  It uses the users login shell
 */
shell_out() {

	static char	*shell = NULL;

	printline();
	if (shell == NULL)
		shell = shell_in();
	fflush(stdout);
	if (!fork()) {
		setuid(getuid());
		setgid(getgid());
		signal(SIGINT, SIG_DFL);
		execsh(shell);
	}
	ignoresigs();
	wait();
	resetsigs();
	putchar('\n');
	printline();
}
/*
 *	This routine looks up the users login shell
 */
# include	<sys/types.h>
# include	<pwd.h>

char		*getenv();

char *
shell_in() {

	reg struct passwd	*pp;
	reg char		*sp;

	if ((sp = getenv("SHELL")) == NULL) {
		pp = getpwuid(getuid());
		if (pp->pw_shell[0] != '\0')
			return pp->pw_shell;
		else
			return shell_def;
		/*return (*(pp->pw_shell) != '\0' ? pp->pw_shell : shell_def);*/
	}
	return sp;
}
/*
 *	This routine sets things up to ignore all the signals.
 */
ignoresigs() {

	reg int	i;

	for (i = 0; i < NSIG; i++)
		signal(i, SIG_IGN);
}
/*
 *	This routine sets up things as they were before.
 */
resetsigs() {

	reg int	i;

	for (i = 0; i < NSIG; i++)
		signal(i, SIG_DFL);
	signal(SIGINT, quit);
}
Commit	Line	Data
15637ed4 RG	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, with or without
	6	* modification, are permitted provided that the following conditions
	7	* are met:
	8	* 1. Redistributions of source code must retain the above copyright
	9	* notice, this list of conditions and the following disclaimer.
	10	* 2. Redistributions in binary form must reproduce the above copyright
	11	* notice, this list of conditions and the following disclaimer in the
	12	* documentation and/or other materials provided with the distribution.
	13	* 3. All advertising materials mentioning features or use of this software
	14	* must display the following acknowledgement:
	15	* This product includes software developed by the University of
	16	* California, Berkeley and its contributors.
	17	* 4. Neither the name of the University nor the names of its contributors
	18	* may be used to endorse or promote products derived from this software
	19	* without specific prior written permission.
	20	*
	21	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	22	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	23	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	24	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	25	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	26	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	27	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	28	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	29	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	30	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	31	* SUCH DAMAGE.
	32	*/
	33
	34	#ifndef lint
	35	static char sccsid[] = "@(#)misc.c 5.5 (Berkeley) 2/28/91";
	36	#endif /* not lint */
	37
	38	# include "monop.ext"
	39	# include <ctype.h>
	40	# include <signal.h>
	41
	42	# define execsh(sh) execl(sh, shell_name[roll(1, num_names)-1], 0)
	43
	44	static char *shell_def = "/bin/csh",
	45	*shell_name[] = {
	46	".Hi Mom!",
	47	".Kick Me",
	48	".I'm really the next process down",
	49	".Hi Kids!",
	50	".This space for rent",
	51	".Singin' in the rain....",
	52	".I am but a Cog in the Wheel of Life",
	53	".Look out!!! Behind you!!!!!",
	54	".Looking for a good time, sailor?",
	55	".I don't get NO respect...",
	56	".Augghh! You peeked!"
	57	};
	58
	59	static int num_names = sizeof shell_name / sizeof (char *);;
	60
	61	char *shell_in();
	62
	63	/*
	64	* This routine executes a truncated set of commands until a
65	* "yes or "no" answer is gotten.
66	*/
67	getyn(prompt)
68	reg char *prompt; {
69
70	reg int com;
71
72	for (;;)
73	if ((com=getinp(prompt, yn)) < 2)
74	return com;
75	else
76	(*func[com-2])();
77	}
78	/*
79	* This routine tells the player if he's out of money.
80	*/
81	notify() {
82
83	if (cur_p->money < 0)
84	printf("That leaves you $%d in debt\n", -cur_p->money);
85	else if (cur_p->money == 0)
86	printf("that leaves you broke\n");
87	else if (fixing && !told_em && cur_p->money > 0) {
88	printf("-- You are now Solvent ---\n");
89	told_em = TRUE;
90	}
91	}
92	/*
93	* This routine switches to the next player
94	*/
95	next_play() {
96
97	player = ++player % num_play;
98	cur_p = &play[player];
99	num_doub = 0;
100	}
101	/*
102	* This routine gets an integer from the keyboard after the
103	* given prompt.
104	*/
105	get_int(prompt)
106	reg char *prompt; {
107
108	reg int num;
109	reg char *sp;
110	char buf[257];
111
112	for (;;) {
113	inter:
114	printf(prompt);
115	num = 0;
116	for (sp = buf; (*sp=getchar()) != '\n'; sp++)
117	if (sp == -1) / check for interrupted system call */
118	goto inter;
119	if (sp == buf)
120	continue;
121	for (sp = buf; isspace(*sp); sp++)
122	continue;
123	for (; isdigit(*sp); sp++)
124	num = num * 10 + *sp - '0';
125	if (*sp == '\n')
126	return num;
127	else
128	printf("I can't understand that\n");
129	}
130	}
131	/*
132	* This routine sets the monopoly flag from the list given.
133	*/
134	set_ownlist(pl)
135	int pl; {
136
137	reg int num; /* general counter */
138	reg MON orig; / remember starting monop ptr */
139	reg OWN op; / current owned prop */
140	OWN orig_op; / origianl prop before loop */
141
142	op = play[pl].own_list;
143	#ifdef DEBUG
144	printf("op [%d] = play[pl [%d] ].own_list;\n", op, pl);
145	#endif
146	while (op) {
147	#ifdef DEBUG
148	printf("op->sqr->type = %d\n", op->sqr->type);
149	#endif
150	switch (op->sqr->type) {
151	case UTIL:
152	#ifdef DEBUG
153	printf(" case UTIL:\n");
154	#endif
155	for (num = 0; op && op->sqr->type == UTIL; op = op->next)
156	num++;
157	play[pl].num_util = num;
158	#ifdef DEBUG
159	printf("play[pl].num_util = num [%d];\n", num);
160	#endif
161	break;
162	case RR:
163	#ifdef DEBUG
164	printf(" case RR:\n");
165	#endif
166	for (num = 0; op && op->sqr->type == RR; op = op->next) {
167	#ifdef DEBUG
168	printf("iter: %d\n", num);
169	printf("op = %d, op->sqr = %d, op->sqr->type = %d\n", op, op->sqr, op->sqr->type);
170	#endif
171	num++;
172	}
173	play[pl].num_rr = num;
174	#ifdef DEBUG
175	printf("play[pl].num_rr = num [%d];\n", num);
176	#endif
177	break;
178	case PRPTY:
179	#ifdef DEBUG
180	printf(" case PRPTY:\n");
181	#endif
182	orig = op->sqr->desc->mon_desc;
183	orig_op = op;
184	num = 0;
185	while (op && op->sqr->desc->mon_desc == orig) {
186	#ifdef DEBUG
187	printf("iter: %d\n", num);
188	#endif
189	num++;
190	#ifdef DEBUG
191	printf("op = op->next ");
192	#endif
193	op = op->next;
194	#ifdef DEBUG
195	printf("[%d];\n", op);
196	#endif
197	}
198	#ifdef DEBUG
199	printf("num = %d\n");
200	#endif
201	if (orig == 0) {
202	printf("panic: bad monopoly descriptor: orig = %d\n", orig);
203	printf("player # %d\n", pl+1);
204	printhold(pl);
205	printf("orig_op = %d\n", orig_op);
206	printf("orig_op->sqr->type = %d (PRPTY)\n", op->sqr->type);
207	printf("orig_op->next = %d\n", op->next);
208	printf("orig_op->sqr->desc = %d\n", op->sqr->desc);
209	printf("op = %d\n", op);
210	printf("op->sqr->type = %d (PRPTY)\n", op->sqr->type);
211	printf("op->next = %d\n", op->next);
212	printf("op->sqr->desc = %d\n", op->sqr->desc);
213	printf("num = %d\n", num);
214	}
215	#ifdef DEBUG
216	printf("orig->num_in = %d\n", orig->num_in);
217	#endif
218	if (num == orig->num_in)
219	is_monop(orig, pl);
220	else
221	isnot_monop(orig);
222	break;
223	}
224	}
225	}
226	/*
227	* This routine sets things up as if it is a new monopoly
228	*/
229	is_monop(mp, pl)
230	reg MON *mp;
231	int pl; {
232
233	reg char *sp;
234	reg int i;
235
236	mp->owner = pl;
237	mp->num_own = mp->num_in;
238	for (i = 0; i < mp->num_in; i++)
239	mp->sq[i]->desc->monop = TRUE;
240	mp->name = mp->mon_n;
241	}
242	/*
243	* This routine sets things up as if it is no longer a monopoly
244	*/
245	isnot_monop(mp)
246	reg MON *mp; {
247
248	reg char *sp;
249	reg int i;
250
251	mp->owner = -1;
252	for (i = 0; i < mp->num_in; i++)
253	mp->sq[i]->desc->monop = FALSE;
254	mp->name = mp->not_m;
255	}
256	/*
257	* This routine gives a list of the current player's routine
258	*/
259	list() {
260
261	printhold(player);
262	}
263	/*
264	* This routine gives a list of a given players holdings
265	*/
266	list_all() {
267
268	reg int pl;
269
270	while ((pl=getinp("Whose holdings do you want to see? ", name_list)) < num_play)
271	printhold(pl);
272	}
273	/*
274	* This routine gives the players a chance before it exits.
275	*/
276	void
277	quit() {
278
279	putchar('\n');
280	if (getyn("Do you all really want to quit? ", yn) == 0)
281	exit(0);
282	signal(SIGINT, quit);
283	}
284	/*
285	* This routine copies one structure to another
286	*/
287	cpy_st(s1, s2, size)
288	reg int s1, s2, size; {
289
290	size /= 2;
291	while (size--)
292	s1++ = s2++;
293	}
294	/*
295	* This routine forks off a shell. It uses the users login shell
296	*/
297	shell_out() {
298
299	static char *shell = NULL;
300
301	printline();
302	if (shell == NULL)
303	shell = shell_in();
304	fflush(stdout);
305	if (!fork()) {
46389f2d KL	306	setuid(getuid());
46389f2d KL	307	setgid(getgid());
15637ed4 RG	308	signal(SIGINT, SIG_DFL);
	309	execsh(shell);
	310	}
	311	ignoresigs();
	312	wait();
	313	resetsigs();
	314	putchar('\n');
	315	printline();
	316	}
	317	/*
	318	* This routine looks up the users login shell
	319	*/
	320	# include <sys/types.h>
	321	# include <pwd.h>
	322
	323	char *getenv();
	324
	325	char *
	326	shell_in() {
	327
	328	reg struct passwd *pp;
	329	reg char *sp;
	330
	331	if ((sp = getenv("SHELL")) == NULL) {
	332	pp = getpwuid(getuid());
	333	if (pp->pw_shell[0] != '\0')
	334	return pp->pw_shell;
	335	else
	336	return shell_def;
	337	/return ((pp->pw_shell) != '\0' ? pp->pw_shell : shell_def);*/
	338	}
	339	return sp;
	340	}
	341	/*
	342	* This routine sets things up to ignore all the signals.
	343	*/
	344	ignoresigs() {
	345
	346	reg int i;
	347
	348	for (i = 0; i < NSIG; i++)
	349	signal(i, SIG_IGN);
	350	}
	351	/*
	352	* This routine sets up things as they were before.
	353	*/
	354	resetsigs() {
	355
	356	reg int i;
	357
	358	for (i = 0; i < NSIG; i++)
	359	signal(i, SIG_DFL);
	360	signal(SIGINT, quit);
	361	}