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