1 /* $NetBSD: setup.c,v 1.23 2021/05/02 12:50:46 rillig 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
main(int argc,char * argv[])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
Error(const char * str,const char * file)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
drandom(void)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