games/phantasia/setup.c

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