games/trek/main.c

   1 /*      $NetBSD: main.c,v 1.21 2009/05/25 00:29:08 dholland 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.21 2009/05/25 00:29:08 dholland 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 static void
 157 usage(const char *av0)
 158 {
 159         errx(1, "Usage: %s [-fs]", av0);
 160 }
 161
 162 int main(int, char **);
 163
 164 int
 165 main(int argc, char **argv)
 166 {
 167         int ch;
 168
 169         /* Revoke setgid privileges */
 170         setgid(getgid());
 171
 172         /* Default to fast mode */
 173         Etc.fast = 1;
 174
 175         srandom((long) time(NULL));
 176
 177         while ((ch = getopt(argc, argv, "fst")) != -1) {
 178                 switch (ch) {
 179                   case 'f':     /* set fast mode */
 180                         Etc.fast++;
 181                         break;
 182
 183                   case 's':     /* set slow mode */
 184                         Etc.fast = 0;
 185                         break;
 186
 187 #ifdef xTRACE
 188                   case 't':     /* trace */
 189                         Trace++;
 190                         break;
 191 #endif
 192
 193                   default:
 194                         usage(argv[0]);
 195                 }
 196         }
 197         if (optind < argc)
 198                 usage(argv[0]);
 199
 200         printf("\n   * * *   S T A R   T R E K   * * *\n\n"
 201                "Press return to continue.\n");
 202
 203         if (setjmp(env)) {
 204                 if ( !getynpar("Another game") )
 205                         exit(0);
 206         }
 207
 208         do {
 209                 setup();
 210                 play();
 211         } while (getynpar("Another game"));
 212
 213         fflush(stdout);
 214         return 0;
 215 }