larn/tok.c

   1 /*      $NetBSD: tok.c,v 1.11 2012/06/19 05:30:44 dholland Exp $        */
   2
   3 /* tok.c                Larn is copyrighted 1986 by Noah Morgan. */
   4 #include <sys/cdefs.h>
   5 #ifndef lint
   6 __RCSID("$NetBSD: tok.c,v 1.11 2012/06/19 05:30:44 dholland Exp $");
   7 #endif                          /* not lint */
   8
   9 #include <sys/types.h>
  10 #include <string.h>
  11 #include <sys/ioctl.h>
  12 #include <stdlib.h>
  13 #include <unistd.h>
  14 #include <sys/wait.h>
  15 #include <ctype.h>
  16 #include "header.h"
  17 #include "extern.h"
  18
  19 /* Keystrokes (roughly) between checkpoints */
  20 #define CHECKPOINT_INTERVAL     400
  21
  22 static char     lastok = 0;
  23 int             yrepcount = 0;
  24 #ifndef FLUSHNO
  25 #define FLUSHNO 5
  26 #endif  /* FLUSHNO */
  27 static int      flushno = FLUSHNO;      /* input queue flushing threshold */
  28 #define MAXUM 52                /* maximum number of user re-named monsters */
  29 #define MAXMNAME 40             /* max length of a monster re-name */
  30 static char     usermonster[MAXUM][MAXMNAME];   /* the user named monster
  31                                                  * name goes here */
  32 static u_char     usermpoint = 0;       /* the user monster pointer */
  33
  34 /*
  35         lexical analyzer for larn
  36  */
  37 int
  38 yylex(void)
  39 {
  40         char            cc;
  41         int             ic;
  42         if (hit2flag) {
  43                 hit2flag = 0;
  44                 yrepcount = 0;
  45                 return (' ');
  46         }
  47         if (yrepcount > 0) {
  48                 --yrepcount;
  49                 return (lastok);
  50         } else
  51                 yrepcount = 0;
  52         if (yrepcount == 0) {
  53                 bottomdo();
  54                 showplayer();
  55         }                       /* show where the player is      */
  56         lflush();
  57         while (1) {
  58                 c[BYTESIN]++;
  59                 /* check for periodic checkpointing */
  60                 if (ckpflag)
  61                         if ((c[BYTESIN] % CHECKPOINT_INTERVAL) == 0) {
  62 #ifndef DOCHECKPOINTS
  63                                 savegame(ckpfile);
  64 #else
  65                                 wait(0);        /* wait for other forks to
  66                                                  * finish */
  67                                 if (fork() == 0) {
  68                                         savegame(ckpfile);
  69                                         exit();
  70                                 }
  71 #endif
  72                         }
  73                 do {            /* if keyboard input buffer is too big, flush
  74                                  * some of it */
  75                         ioctl(0, FIONREAD, &ic);
  76                         if (ic > flushno)
  77                                 read(0, &cc, 1);
  78                 }
  79                 while (ic > flushno);
  80
  81                 if (read(0, &cc, 1) != 1)
  82                         return (lastok = -1);
  83
  84                 if (cc == 'Y' - 64) {   /* control Y -- shell escape */
  85                         resetscroll();
  86                         clear();/* scrolling region, home, clear, no
  87                                  * attributes */
  88                         if ((ic = fork()) == 0) {       /* child */
  89                                 execl("/bin/csh", "/bin/csh", NULL);
  90                                 exit(1);
  91                         }
  92                         wait(0);
  93                         if (ic < 0) {   /* error */
  94                                 write(2, "Can't fork off a shell!\n", 25);
  95                                 sleep(2);
  96                         }
  97                         setscroll();
  98                         return (lastok = 'L' - 64);     /* redisplay screen */
  99                 }
 100                 if ((cc <= '9') && (cc >= '0')) {
 101                         yrepcount = yrepcount * 10 + cc - '0';
 102                 } else {
 103                         if (yrepcount > 0)
 104                                 --yrepcount;
 105                         return (lastok = cc);
 106                 }
 107         }
 108 }
 109
 110 /*
 111  *      flushall()              Function to flush all type-ahead in the input buffer
 112  */
 113 void
 114 flushall(void)
 115 {
 116         char            cc;
 117         int             ic;
 118         for (;;) {              /* if keyboard input buffer is too big, flush
 119                                  * some of it */
 120                 ioctl(0, FIONREAD, &ic);
 121                 if (ic <= 0)
 122                         return;
 123                 while (ic > 0) {
 124                         read(0, &cc, 1);
 125                         --ic;
 126                 }               /* gobble up the byte */
 127         }
 128 }
 129
 130 /*
 131         function to set the desired hardness
 132         enter with hard= -1 for default hardness, else any desired hardness
 133  */
 134 void
 135 sethard(int hard)
 136 {
 137         int    j, k, i;
 138         struct monst *mp;
 139
 140         j = c[HARDGAME];
 141         hashewon();
 142         if (restorflag == 0) {  /* don't set c[HARDGAME] if restoring game */
 143                 if (hard >= 0)
 144                         c[HARDGAME] = hard;
 145         } else
 146                 c[HARDGAME] = j;/* set c[HARDGAME] to proper value if
 147                                  * restoring game */
 148
 149         if ((k = c[HARDGAME]) != 0)
 150                 for (j = 0; j <= MAXMONST + 8; j++) {
 151                         mp = &monster[j];
 152                         i = ((6 + k) * mp->hitpoints + 1) / 6;
 153                         mp->hitpoints = (i < 0) ? 32767 : i;
 154                         i = ((6 + k) * mp->damage + 1) / 5;
 155                         mp->damage = (i > 127) ? 127 : i;
 156                         i = (10 * mp->gold) / (10 + k);
 157                         mp->gold = (i > 32767) ? 32767 : i;
 158                         i = mp->armorclass - k;
 159                         mp->armorclass = (i < -127) ? -127 : i;
 160                         i = (7 * mp->experience) / (7 + k) + 1;
 161                         mp->experience = (i <= 0) ? 1 : i;
 162                 }
 163 }
 164
 165 /*
 166         function to read and process the larn options file
 167  */
 168 void
 169 readopts(void)
 170 {
 171         const char  *i;
 172         int    j, k;
 173         int             flag;
 174
 175         flag = 1;               /* set to 0 if a name is specified */
 176
 177         if (lopen(optsfile) < 0) {
 178                 strcpy(logname, loginname);
 179                 return;         /* user name if no character name */
 180         }
 181         i = " ";
 182         while (*i) {
 183                 if ((i = lgetw()) == NULL)
 184                         break;  /* check for EOF */
 185                 while ((*i == ' ') || (*i == '\t'))
 186                         i++;    /* eat leading whitespace */
 187
 188                 if (strcmp(i, "bold-objects") == 0)
 189                         boldon = 1;
 190                 else if (strcmp(i, "enable-checkpointing") == 0)
 191                         ckpflag = 1;
 192                 else if (strcmp(i, "inverse-objects") == 0)
 193                         boldon = 0;
 194                 else if (strcmp(i, "female") == 0)
 195                         sex = 0;        /* male or female */
 196                 else if (strcmp(i, "monster:") == 0) {  /* name favorite monster */
 197                         if ((i = lgetw()) == 0)
 198                                 break;
 199                         strlcpy(usermonster[usermpoint], i, MAXMNAME);
 200                         if (usermpoint >= MAXUM)
 201                                 continue;       /* defined all of em */
 202                         if (isalpha(j = usermonster[usermpoint][0])) {
 203                                 for (k = 1; k < MAXMONST + 8; k++)      /* find monster */
 204                                         if (monstnamelist[k] == j) {
 205                                                 monster[k].name = &usermonster[usermpoint++][0];
 206                                                 break;
 207                                         }
 208                         }
 209                 } else if (strcmp(i, "male") == 0)
 210                         sex = 1;
 211                 else if (strcmp(i, "name:") == 0) {     /* defining players name */
 212                         if ((i = lgetw()) == 0)
 213                                 break;
 214                         strlcpy(logname, i, LOGNAMESIZE);
 215                         flag = 0;
 216                 } else if (strcmp(i, "no-introduction") == 0)
 217                         nowelcome = 1;
 218                 else if (strcmp(i, "no-beep") == 0)
 219                         nobeep = 1;
 220                 else if (strcmp(i, "process-name:") == 0) {
 221                         if ((i = lgetw()) == 0)
 222                                 break;
 223                         strlcpy(psname, i, PSNAMESIZE);
 224                 } else if (strcmp(i, "play-day-play") == 0) {
 225                         /* bypass time restrictions: ignored */
 226                 } else if (strcmp(i, "savefile:") == 0) {       /* defining savefilename */
 227                         if ((i = lgetw()) == 0)
 228                                 break;
 229                         strcpy(savefilename, i);
 230                         flag = 0;
 231                 }
 232         }
 233         if (flag)
 234                 strcpy(logname, loginname);
 235 }