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