Home | History | Annotate | Line # | Download | only in trek
      1 /*	$NetBSD: main.c,v 1.23 2011/08/29 20:30:37 joerg 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. Neither the name of the University nor the names of its contributors
     16  *    may be used to endorse or promote products derived from this software
     17  *    without specific prior written permission.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include <sys/cdefs.h>
     33 #ifndef lint
     34 __COPYRIGHT("@(#) Copyright (c) 1980, 1993\
     35  The Regents of the University of California.  All rights reserved.");
     36 #endif /* not lint */
     37 
     38 #ifndef lint
     39 #if 0
     40 static char sccsid[] = "@(#)main.c	8.1 (Berkeley) 5/31/93";
     41 #else
     42 __RCSID("$NetBSD: main.c,v 1.23 2011/08/29 20:30:37 joerg Exp $");
     43 #endif
     44 #endif /* not lint */
     45 
     46 #include <stdio.h>
     47 #include <setjmp.h>
     48 #include <stdlib.h>
     49 #include <unistd.h>
     50 #include <err.h>
     51 #include <time.h>
     52 #include <sys/types.h>
     53 #include "trek.h"
     54 #include "getpar.h"
     55 
     56 
     57 /*
     58 **	 ####  #####    #    ####          #####  ####   #####  #   #
     59 **	#        #     # #   #   #           #    #   #  #      #  #
     60 **	 ###     #    #####  ####            #    ####   ###    ###
     61 **	    #    #    #   #  #  #            #    #  #   #      #  #
     62 **	####     #    #   #  #   #           #    #   #  #####  #   #
     63 **
     64 **	C version by Eric P. Allman 5/76 (U.C. Berkeley) with help
     65 **		from Jeff Poskanzer and Pete Rubinstein.
     66 **
     67 **	I also want to thank everyone here at Berkeley who
     68 **	where crazy enough to play the undebugged game.  I want to
     69 **	particularly thank Nick Whyte, who made considerable
     70 **	suggestions regarding the content of the game.  Why, I'll
     71 **	never forget the time he suggested the name for the
     72 **	"capture" command.
     73 **
     74 **	Please send comments, questions, and suggestions about this
     75 **		game to:
     76 **			Eric P. Allman
     77 **			Project INGRES
     78 **			Electronics Research Laboratory
     79 **			Cory Hall
     80 **			University of California
     81 **			Berkeley, California  94720
     82 **
     83 **	If you make ANY changes in the game, I sure would like to
     84 **	know about them.  It is sort of an ongoing project for me,
     85 **	and I very much want to put in any bug fixes and improvements
     86 **	that you might come up with.
     87 **
     88 **	FORTRASH version by Kay R. Fisher (DEC) "and countless others".
     89 **	That was adapted from the "original BASIC program" (ha!) by
     90 **		Mike Mayfield (Centerline Engineering).
     91 **
     92 **	Additional inspiration taken from FORTRAN version by
     93 **		David Matuszek and Paul Reynolds which runs on the CDC
     94 **		7600 at Lawrence Berkeley Lab, maintained there by
     95 **		Andy Davidson.  This version is also available at LLL
     96 **		and at LMSC.  In all fairness, this version was the
     97 **		major inspiration for this version of the game (trans-
     98 **		lation:  I ripped off a whole lot of code).
     99 **
    100 **	Minor other input from the "Battelle Version 7A" by Joe Miller
    101 **		(Graphics Systems Group, Battelle-Columbus Labs) and
    102 **		Ross Pavlac (Systems Programmer, Battelle Memorial
    103 **		Institute).  That version was written in December '74
    104 **		and extensively modified June '75.  It was adapted
    105 **		from the FTN version by Ron Williams of CDC Sunnyvale,
    106 **		which was adapted from the Basic version distributed
    107 **		by DEC.  It also had "neat stuff swiped" from T. T.
    108 **		Terry and Jim Korp (University of Texas), Hicks (Penn
    109 **		U.), and Rick Maus (Georgia Tech).  Unfortunately, it
    110 **		was not as readable as it could have been and so the
    111 **		translation effort was severely hampered.  None the
    112 **		less, I got the idea of inhabited starsystems from this
    113 **		version.
    114 **
    115 **	Permission is given for use, copying, and modification of
    116 **		all or part of this program and related documentation,
    117 **		provided that all reference to the authors are maintained.
    118 **
    119 **
    120 **********************************************************************
    121 **
    122 **  NOTES TO THE MAINTAINER:
    123 **
    124 **	There is a compilation option xTRACE which must be set for any
    125 **	trace information to be generated.  It is probably defined in
    126 **	the version that you get.  It can be removed, however, if you
    127 **	have trouble finding room in core.
    128 **
    129 **	Many things in trek are not as clear as they might be, but are
    130 **	done to reduce space.  I compile with the -f and -O flags.  I
    131 **	am constrained to running with non-separated I/D space, since
    132 **	we don't have doubleing point hardware here; even if we did, I
    133 **	would like trek to be available to the large number of people
    134 **	who either have an 11/40 or do not have FP hardware.  I also
    135 **	found it desirable to make the code run reentrant, so this
    136 **	added even more space constraints.
    137 **
    138 **	I use the portable C library to do my I/O.  This is done be-
    139 **	cause I wanted the game easily transportable to other C
    140 **	implementations, and because I was too lazy to do the doubleing
    141 **	point input myself.  Little did I know.  The portable C library
    142 **	released by Bell Labs has more bugs than you would believe, so
    143 **	I ended up rewriting the whole blessed thing.  Trek excercises
    144 **	many of the bugs in it, as well as bugs in some of the section
    145 **	III UNIX routines.  We have fixed them here.  One main problem
    146 **	was a bug in alloc() that caused it to always ask for a large
    147 **	hunk of memory, which worked fine unless you were almost out,
    148 **	which I inevitably was.  If you want the code for all of this
    149 **	stuff, it is also available through me.
    150 **
    151 ***********************************************************************
    152 */
    153 
    154 jmp_buf env;
    155 
    156 __dead static void
    157 usage(const char *av0)
    158 {
    159 	errx(1, "Usage: %s [-fs]", av0);
    160 }
    161 
    162 int
    163 main(int argc, char **argv)
    164 {
    165 	int ch;
    166 
    167 	/* Revoke setgid privileges */
    168 	setgid(getgid());
    169 
    170 	/* Default to fast mode */
    171 	Etc.fast = 1;
    172 
    173 	srandom((long) time(NULL));
    174 
    175 	while ((ch = getopt(argc, argv, "fst")) != -1) {
    176 		switch (ch) {
    177 		  case 'f':	/* set fast mode */
    178 			Etc.fast++;
    179 			break;
    180 
    181 		  case 's':	/* set slow mode */
    182 			Etc.fast = 0;
    183 			break;
    184 
    185 #ifdef xTRACE
    186 		  case 't':	/* trace */
    187 			Trace++;
    188 			break;
    189 #endif
    190 
    191 		  default:
    192 			usage(argv[0]);
    193 		}
    194 	}
    195 	if (optind < argc)
    196 		usage(argv[0]);
    197 
    198 	printf("\n   * * *   S T A R   T R E K   * * *\n\n"
    199 	       "Press return to continue.\n");
    200 
    201 	if (setjmp(env)) {
    202 		if ( !getynpar("Another game") )
    203 			exit(0);
    204 	}
    205 
    206 	do {
    207 		setup();
    208 		play();
    209 	} while (getynpar("Another game"));
    210 
    211 	fflush(stdout);
    212 	return 0;
    213 }
    214