phantasia/setup.c

   1 /*
   2  * setup.c - set up all files for Phantasia
   3  */
   4 #include "include.h"
   5 #include <sys/types.h>
   6 #include <sys/stat.h>
   7 #include <stdlib.h>
   8 /*\f*/
   9 /************************************************************************
  10 /
  11 / FUNCTION NAME: main()
  12 /
  13 / FUNCTION: setup files for Phantasia 3.3.2
  14 /
  15 / AUTHOR: E. A. Estes, 12/4/85
  16 /
  17 / ARGUMENTS: none
  18 /
  19 / RETURN VALUE: none
  20 /
  21 / MODULES CALLED: time(), exit(), stat(), Error(), creat(), close(), fopen(),
  22 /       fgets(), floor(), srandom(), umask(), drandom(), strcpy(), getuid(),
  23 /       unlink(), fwrite(), fclose(), sscanf(), printf(), strlen(), fprintf()
  24 /
  25 / GLOBAL INPUTS: Curmonster, _iob[], Databuf[], *Monstfp, Enrgyvoid
  26 /
  27 / GLOBAL OUTPUTS: Curmonster, Databuf[], *Monstfp, Enrgyvoid
  28 /
  29 / DESCRIPTION:
  30 /
  31 /       This program tries to verify the parameters specified in
  32 /       the Makefile.
  33 /
  34 /       Create all necessary files.  Note that nothing needs to be
  35 /       put in these files.
  36 /       Also, the monster binary data base is created here.
  37 /
  38 /************************************************************************/
  39
  40 static char *files[] = {                /* all files to create */
  41         _PATH_MONST,
  42         _PATH_PEOPLE,
  43         _PATH_MESS,
  44         _PATH_LASTDEAD,
  45         _PATH_MOTD,
  46         _PATH_GOLD,
  47         _PATH_VOID,
  48         _PATH_SCORE,
  49         NULL,
  50 };
  51
  52 char *monsterfile="monsters.asc";
  53
  54 int
  55 main(argc, argv)
  56         int argc;
  57         char *argv[];
  58 {
  59         register char   **filename;     /* for pointing to file names */
  60         register int    fd;             /* file descriptor */
  61         FILE    *fp;                    /* for opening files */
  62         struct stat     fbuf;           /* for getting files statistics */
  63         int ch;
  64
  65         while ((ch = getopt(argc, argv, "m:")) != EOF)
  66                 switch(ch) {
  67                 case 'm':
  68                         monsterfile = optarg;
  69                         break;
  70                 case '?':
  71                 default:
  72                         break;
  73                 }
  74         argc -= optind;
  75         argv += optind;
  76
  77     srandom((unsigned) time((long *) NULL));    /* prime random numbers */
  78
  79     umask(0117);                /* only owner can read/write created files */
  80
  81     /* try to create data files */
  82     filename = &files[0];
  83     while (*filename != NULL)
  84         /* create each file */
  85         {
  86         if (stat(*filename, &fbuf) == 0)
  87             /* file exists; remove it */
  88             {
  89             if (!strcmp(*filename, _PATH_PEOPLE))
  90                 /* do not reset character file if it already exists */
  91                 {
  92                 ++filename;
  93                 continue;
  94                 }
  95
  96             if (unlink(*filename) < 0)
  97                 Error("Cannot unlink %s.\n", *filename);
  98                 /*NOTREACHED*/
  99             }
 100
 101         if ((fd = creat(*filename, 0660)) < 0)
 102             Error("Cannot create %s.\n", *filename);
 103             /*NOTREACHED*/
 104
 105         close(fd);                      /* close newly created file */
 106
 107         ++filename;                     /* process next file */
 108         }
 109
 110     /* put holy grail info into energy void file */
 111     Enrgyvoid.ev_active = TRUE;
 112     Enrgyvoid.ev_x = ROLL(-1.0e6, 2.0e6);
 113     Enrgyvoid.ev_y = ROLL(-1.0e6, 2.0e6);
 114     if ((fp = fopen(_PATH_VOID, "w")) == NULL)
 115         Error("Cannot update %s.\n", _PATH_VOID);
 116     else
 117         {
 118         fwrite(&Enrgyvoid, SZ_VOIDSTRUCT, 1, fp);
 119         fclose(fp);
 120         }
 121
 122     /* create binary monster data base */
 123     if ((Monstfp = fopen(_PATH_MONST, "w")) == NULL)
 124         Error("Cannot update %s.\n", _PATH_MONST);
 125     else
 126         {
 127         if ((fp = fopen(monsterfile, "r")) == NULL)
 128             {
 129             fclose(Monstfp);
 130             Error("cannot open %s to create monster database.\n", "monsters.asc");
 131             }
 132         else
 133             {
 134             Curmonster.m_o_strength =
 135             Curmonster.m_o_speed =
 136             Curmonster.m_maxspeed =
 137             Curmonster.m_o_energy =
 138             Curmonster.m_melee =
 139             Curmonster.m_skirmish = 0.0;
 140
 141             while (fgets(Databuf, SZ_DATABUF, fp) != NULL)
 142                 /* read in text file, convert to binary */
 143                 {
 144                 sscanf(&Databuf[24], "%lf%lf%lf%lf%lf%d%d%lf",
 145                     &Curmonster.m_strength, &Curmonster.m_brains,
 146                     &Curmonster.m_speed, &Curmonster.m_energy,
 147                     &Curmonster.m_experience, &Curmonster.m_treasuretype,
 148                     &Curmonster.m_type, &Curmonster.m_flock);
 149                 Databuf[24] = '\0';
 150                 strcpy(Curmonster.m_name, Databuf);
 151                 fwrite((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
 152                 }
 153             fclose(fp);
 154             fclose(Monstfp);
 155             }
 156         }
 157
 158 #ifdef MAKE_INSTALLS_THIS_AND_DOESNT_WANT_TO_HEAR_ABOUT_IT
 159     /* write to motd file */
 160     printf("One line 'motd' ? ");
 161     if (fgets(Databuf, SZ_DATABUF, stdin) == NULL)
 162         Databuf[0] = '\0';
 163     if ((fp = fopen(_PATH_MOTD, "w")) == NULL)
 164         Error("Cannot update %s.\n", _PATH_MOTD);
 165     else
 166         {
 167         fwrite(Databuf, sizeof(char), strlen(Databuf), fp);
 168         fclose(fp);
 169         }
 170
 171     /* report compile-time options */
 172     printf("Compiled options:\n\n");
 173     printf("Phantasia destination directory:  %s\n", _PATH_PHANTDIR);
 174     printf("Wizard: root UID: 0\n");
 175
 176 #ifdef BSD41
 177     printf("Compiled for BSD 4.1\n");
 178 #endif
 179
 180 #ifdef BSD42
 181     printf("Compiled for BSD 4.2\n");
 182 #endif
 183
 184 #ifdef SYS3
 185     printf("Compiled for System III\n");
 186 #endif
 187
 188 #ifdef SYS5
 189     printf("Compiled for System V\n");
 190 #endif
 191 #endif
 192
 193     exit(0);
 194     /*NOTREACHED*/
 195 }
 196 /*\f*/
 197 /************************************************************************
 198 /
 199 / FUNCTION NAME: Error()
 200 /
 201 / FUNCTION: print an error message, and exit
 202 /
 203 / AUTHOR: E. A. Estes, 12/4/85
 204 /
 205 / ARGUMENTS:
 206 /       char *str - format string for printf()
 207 /       char *file - file which caused error
 208 /
 209 / RETURN VALUE: none
 210 /
 211 / MODULES CALLED: exit(), perror(), fprintf()
 212 /
 213 / GLOBAL INPUTS: _iob[]
 214 /
 215 / GLOBAL OUTPUTS: none
 216 /
 217 / DESCRIPTION:
 218 /       Print an error message, then exit.
 219 /
 220 /************************************************************************/
 221
 222 Error(str, file)
 223 char    *str, *file;
 224 {
 225     fprintf(stderr, "Error: ");
 226     fprintf(stderr, str, file);
 227     perror(file);
 228     exit(1);
 229     /*NOTREACHED*/
 230 }
 231 /*\f*/
 232 /************************************************************************
 233 /
 234 / FUNCTION NAME: drandom()
 235 /
 236 / FUNCTION: return a random number
 237 /
 238 / AUTHOR: E. A. Estes, 2/7/86
 239 /
 240 / ARGUMENTS: none
 241 /
 242 / RETURN VALUE: none
 243 /
 244 / MODULES CALLED: random()
 245 /
 246 / GLOBAL INPUTS: none
 247 /
 248 / GLOBAL OUTPUTS: none
 249 /
 250 / DESCRIPTION:
 251 /
 252 /************************************************************************/
 253
 254 double
 255 drandom()
 256 {
 257     if (sizeof(int) != 2)
 258         return((double) (random() & 0x7fff) / 32768.0);
 259     else
 260         return((double) random() / 32768.0);
 261 }