freebsd-dev/games/trek/main.c
2002-06-23 18:29:52 +00:00

242 lines
7.8 KiB
C

/*
* Copyright (c) 1980, 1993
* The 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 const char copyright[] =
"@(#) Copyright (c) 1980, 1993\n\
The Regents of the University of California. All rights reserved.\n";
#endif /* not lint */
#ifndef lint
#if 0
static char sccsid[] = "@(#)main.c 8.1 (Berkeley) 5/31/93";
#endif
static const char rcsid[] =
"$FreeBSD$";
#endif /* not lint */
# include "trek.h"
# include <stdio.h>
# include <sgtty.h>
# include <setjmp.h>
# include <stdlib.h>
# define PRIO 00 /* default priority */
int Mother = 51 + (51 << 8);
/*
** #### ##### # #### ##### #### ##### # #
** # # # # # # # # # # # #
** ### # ##### #### # #### ### ###
** # # # # # # # # # # # #
** #### # # # # # # # # ##### # #
**
** C version by Eric P. Allman 5/76 (U.C. Berkeley) with help
** from Jeff Poskanzer and Pete Rubinstein.
**
** I also want to thank everyone here at Berkeley who
** where crazy enough to play the undebugged game. I want to
** particularly thank Nick Whyte, who made considerable
** suggestions regarding the content of the game. Why, I'll
** never forget the time he suggested the name for the
** "capture" command.
**
** Please send comments, questions, and suggestions about this
** game to:
** Eric P. Allman
** Project INGRES
** Electronics Research Laboratory
** Cory Hall
** University of California
** Berkeley, California 94720
**
** If you make ANY changes in the game, I sure would like to
** know about them. It is sort of an ongoing project for me,
** and I very much want to put in any bug fixes and improvements
** that you might come up with.
**
** FORTRASH version by Kay R. Fisher (DEC) "and countless others".
** That was adapted from the "original BASIC program" (ha!) by
** Mike Mayfield (Centerline Engineering).
**
** Additional inspiration taken from FORTRAN version by
** David Matuszek and Paul Reynolds which runs on the CDC
** 7600 at Lawrence Berkeley Lab, maintained there by
** Andy Davidson. This version is also available at LLL
** and at LMSC. In all fairness, this version was the
** major inspiration for this version of the game (trans-
** lation: I ripped off a whole lot of code).
**
** Minor other input from the "Battelle Version 7A" by Joe Miller
** (Graphics Systems Group, Battelle-Columbus Labs) and
** Ross Pavlac (Systems Programmer, Battelle Memorial
** Institute). That version was written in December '74
** and extensively modified June '75. It was adapted
** from the FTN version by Ron Williams of CDC Sunnyvale,
** which was adapted from the Basic version distributed
** by DEC. It also had "neat stuff swiped" from T. T.
** Terry and Jim Korp (University of Texas), Hicks (Penn
** U.), and Rick Maus (Georgia Tech). Unfortunately, it
** was not as readable as it could have been and so the
** translation effort was severely hampered. None the
** less, I got the idea of inhabited starsystems from this
** version.
**
** Permission is given for use, copying, and modification of
** all or part of this program and related documentation,
** provided that all reference to the authors are maintained.
**
**
**********************************************************************
**
** NOTES TO THE MAINTAINER:
**
** There is a compilation option xTRACE which must be set for any
** trace information to be generated. It is probably defined in
** the version that you get. It can be removed, however, if you
** have trouble finding room in core.
**
** Many things in trek are not as clear as they might be, but are
** done to reduce space. I compile with the -f and -O flags. I
** am constrained to running with non-separated I/D space, since
** we don't have doubleing point hardware here; even if we did, I
** would like trek to be available to the large number of people
** who either have an 11/40 or do not have FP hardware. I also
** found it desirable to make the code run reentrant, so this
** added even more space constraints.
**
** I use the portable C library to do my I/O. This is done be-
** cause I wanted the game easily transportable to other C
** implementations, and because I was too lazy to do the doubleing
** point input myself. Little did I know. The portable C library
** released by Bell Labs has more bugs than you would believe, so
** I ended up rewriting the whole blessed thing. Trek excercises
** many of the bugs in it, as well as bugs in some of the section
** III UNIX routines. We have fixed them here. One main problem
** was a bug in alloc() that caused it to always ask for a large
** hunk of memory, which worked fine unless you were almost out,
** which I inevitably was. If you want the code for all of this
** stuff, it is also available through me.
**
***********************************************************************
*/
jmp_buf env;
main(argc, argv)
int argc;
char **argv;
{
/* extern FILE *f_log; */
char opencode;
int prio;
int ac;
char **av;
struct sgttyb argp;
/* revoke */
setgid(getgid());
av = argv;
ac = argc;
av++;
srandomdev();
opencode = 'w';
prio = PRIO;
if (gtty(1, &argp) == 0)
{
if ((argp.sg_ispeed ) < B1200)
Etc.fast++;
}
while (ac > 1 && av[0][0] == '-')
{
switch (av[0][1])
{
case 'a': /* append to log file */
opencode = 'a';
break;
case 'f': /* set fast mode */
Etc.fast++;
break;
case 's': /* set slow mode */
Etc.fast = 0;
break;
# ifdef xTRACE
case 't': /* trace */
if (getuid() != Mother)
goto badflag;
Trace++;
break;
# endif
case 'p': /* set priority */
if (getuid() != Mother)
goto badflag;
prio = atoi(av[0] + 2);
break;
default:
badflag:
printf("Invalid option: %s\n", av[0]);
}
ac--;
av++;
}
if (ac > 2)
syserr("arg count");
/*
if (ac > 1)
f_log = fopen(av[0], opencode);
*/
printf("\n * * * S T A R T R E K * * *\n\nPress return to continue.\n");
if (setjmp(env))
{
if ( !getynpar("Another game") )
exit(0);
}
do
{
setup();
play();
} while (getynpar("Another game"));
fflush(stdout);
}