Jaytbot: Automated source code upload

2006-08-31T13:57:22Z

Automated source code upload

New page

Below is the full text to '''makedefs.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/makedefs.c#line123|<nowiki>[[NetHack 1.3d/makedefs.c#line123]]</nowiki>]], for example.

'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]

{{CWI}}
1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2. /* makedefs.c - NetHack version 1.0 */
3. 
4. static char SCCS_Id[] = "@(#)makedefs.c 1.3\t87/07/14";
5. 
6. #include "config.h"
7. #include <stdio.h>
8. 
9. #ifdef MSDOS
10. #undef exit
11. #endif
12. 
13. /* construct definitions of object constants */
14. #define OBJ_FILE "objects.h"
15. #define ONAME_FILE "onames.h"
16. #define TRAP_FILE "trap.h"
17. #define DATE_FILE "date.h"
18. #define RUMOR_FILE "rumors"
19. #define DATA_FILE "data"
20. 
21. char inline[256], outline[256];
22. 
23. main(argc, argv)
24. int argc;
25. char *argv[];
26. {
27. char *option;
28. 
29. if(argc == 2) {
30. option = argv[1];
31. switch (option[1]) {
32. 
33. case 'o':
34. case 'O': do_objs();
35. break;
36. case 't':
37. case 'T': do_traps();
38. break;
39. case 'r':
40. case 'R': do_rumors();
41. break;
42. 
43. case 'd': do_data();
44. break;
45. 
46. case 'D': do_date();
47. break;
48. default:
49. fprintf(stderr, "Unknown option '%c'.\n", option[1]);
50. exit(1);
51. }
52. exit(0);
53. } else fprintf(stderr, "Bad arg count (%d).\n", argc-1);
54. exit(1);
55. }
56. 
57. do_traps() {
58. int ntrap, getpid();
59. char tmpfile[30];
60. FILE *freopen();
61. 
62. sprintf(tmpfile, "makedefs.%d", getpid());
63. if(freopen(tmpfile, "w+", stdout) == NULL) {
64. 
65. perror(tmpfile);
66. exit(1);
67. }
68. if(freopen(TRAP_FILE, "r+", stdin) == NULL) {
69. 
70. perror(TRAP_FILE);
71. exit(1);
72. }
73. 
74. while(gets(inline) != NULL) {
75. 
76. puts(inline);
77. if(!strncmp(inline, "/* DO NOT REMOVE THIS LINE */", 29)) break;
78. }
79. ntrap = 10;
80. printf("\n");
81. 
82. #ifdef NEWTRAPS
83. printf("#define\tMGTRP\t\t%d\n", ntrap++);
84. printf("#define\tSQBRD\t\t%d\n", ntrap++);
85. #endif
86. #ifdef SPIDERS
87. printf("#define\tWEB\t\t%d\n", ntrap++);
88. #endif
89. #ifdef NEWCLASS
90. printf("#define\tSPIKED_PIT\t%d\n", ntrap++);
91. printf("#define\tLEVEL_TELEP\t%d\n", ntrap++);
92. #endif
93. #ifdef SPELLS
94. printf("#define\tANTI_MAGIC\t%d\n", ntrap++);
95. #endif
96. #ifdef KAA
97. printf("#define\tRUST_TRAP\t%d\n", ntrap++);
98. #endif
99. printf("\n#define\tTRAPNUM\t%d\n", ntrap);
100. fclose(stdin);
101. fclose(stdout);
102. rename(tmpfile, TRAP_FILE);
103. }
104. 
105. 
106. struct hline {
107. struct hline *next;
108. char *line;
109. } *f_line;
110. 
111. do_rumors(){
112. struct hline *c_line;
113. char infile[30];
114. FILE *freopen();
115. 
116. if(freopen(RUMOR_FILE, "w+", stdout) == NULL) {
117. 
118. perror(RUMOR_FILE);
119. exit(1);
120. }
121. sprintf(infile, "%s.base", RUMOR_FILE);
122. if(freopen(infile, "r+", stdin) == NULL) {
123. 
124. perror(infile);
125. exit(1);
126. }
127. 
128. while(gets(inline) != NULL) puts(inline);
129. 
130. #ifdef KAA
131. sprintf(infile, "%s.kaa", RUMOR_FILE);
132. if(freopen(infile, "r+", stdin) == NULL) perror(infile);
133. 
134. while(gets(inline) != NULL) puts(inline);
135. #endif
136. 
137. #ifdef NEWCLASS
138. sprintf(infile, "%s.mrx", RUMOR_FILE);
139. if(freopen(infile, "r+", stdin) == NULL) perror(infile);
140. 
141. while(gets(inline) != NULL) puts(inline);
142. #endif
143. fclose(stdin);
144. fclose(stdout);
145. }
146. 
147. do_date(){
148. int getpid();
149. long clock, time();
150. char tmpfile[30], cbuf[30], *c, *ctime();
151. FILE *freopen();
152. 
153. sprintf(tmpfile, "makedefs.%d", getpid());
154. if(freopen(tmpfile, "w+", stdout) == NULL) {
155. 
156. perror(tmpfile);
157. exit(1);
158. }
159. if(freopen(DATE_FILE, "r+", stdin) == NULL) {
160. 
161. perror(DATE_FILE);
162. exit(1);
163. }
164. 
165. while(gets(inline) != NULL) {
166. 
167. if(!strncmp(inline, "char datestring[] = ", 20)) break;
168. puts(inline);
169. }
170. time(&clock);
171. strcpy(cbuf, ctime(&clock));
172. for(c = cbuf; *c != '\n'; c++); *c = 0; /* strip off the '\n' */
173. printf("char datestring[] = %c%s%c;\n", '"', cbuf, '"');
174. 
175. fclose(stdin);
176. fclose(stdout);
177. rename(tmpfile, DATE_FILE);
178. }
179. 
180. do_data(){
181. int getpid();
182. char tmpfile[30];
183. FILE *freopen();
184. 
185. sprintf(tmpfile, "%s.base", DATA_FILE);
186. if(freopen(tmpfile, "r+", stdin) == NULL) {
187. 
188. perror(tmpfile);
189. exit(1);
190. }
191. if(freopen(DATA_FILE, "w+", stdout) == NULL) {
192. 
193. perror(DATA_FILE);
194. exit(1);
195. }
196. 
197. while(gets(inline) != NULL) {
198. #ifdef KOPS
199. if(!strcmp(inline, "K a kobold"))
200. printf("K\ta Keystone Kop\n");
201. else
202. #endif
203. #ifdef KAA
204. if(!strcmp(inline, "Q a quasit"))
205. printf("Q\ta quantum mechanic\n");
206. else
207. #endif
208. #ifdef ROCKMOLE
209. if(!strcmp(inline, "r a giant rat"))
210. printf("K\ta rockmole\n");
211. else
212. #endif
213. #ifdef SPIDERS
214. if(!strcmp(inline, "s a scorpion"))
215. printf("s\ta giant spider\n");
216. else
217. #endif
218. puts(inline);
219. }
220. #ifdef KAA
221. printf("9\ta giant\n");
222. #endif
223. 
224. fclose(stdin);
225. fclose(stdout);
226. }
227. 
228. #define LINSZ 1000
229. #define STRSZ 40
230. 
231. int fd;
232. struct objdef {
233. 
234. struct objdef *next;
235. char string[STRSZ];
236. } *more, *current;
237. 
238. do_objs(){
239. register int index = 0;
240. register int propct = 0;
241. #ifdef SPELLS
242. register int nspell = 0;
243. #endif
244. FILE *freopen();
245. register char *sp;
246. char *limit();
247. int skip;
248. 
249. fd = open(OBJ_FILE, 0);
250. if(fd < 0) {
251. perror(OBJ_FILE);
252. exit(1);
253. }
254. 
255. if(freopen(ONAME_FILE, "w+", stdout) == NULL) {
256. perror(ONAME_FILE);
257. exit(1);
258. }
259. 
260. current = 0; newobj();
261. skipuntil("objects[] = {");
262. 
263. while(getentry(&skip)) {
264. if(!*(current->string)){
265. if (skip) index++;
266. continue;
267. }
268. for(sp = current->string; *sp; sp++)
269. if(*sp == ' ' || *sp == '\t' || *sp == '-')
270. *sp = '_';
271. 
272. /* Do not process duplicates caused by #ifdef/#else pairs. */
273. /* M. Stephenson */
274. if (! duplicate()) {
275. 
276. if(!strncmp(current->string, "RIN_", 4))
277. specprop(current->string+4, propct++);
278. for(sp = current->string; *sp; sp++) capitalize(sp);
279. /* avoid trouble with stupid C preprocessors */
280. if(!strncmp(current->string, "WORTHLESS_PIECE_OF_", 19))
281. printf("/* #define\t%s\t%d */\n", current->string, index++);
282. else {
283. #ifdef SPELLS
284. if(!strncmp(current->string, "SPE_", 4)) nspell++;
285. printf("#define\t%s\t%d\n", limit(current->string), index++);
286. #else
287. if(strncmp(current->string, "SPE_", 4))
288. printf("#define\t%s\t%d\n", limit(current->string), index++);
289. #endif
290. }
291. newobj();
292. }
293. }
294. printf("\n#define CORPSE DEAD_HUMAN\n");
295. #ifdef KOPS
296. printf("#define DEAD_KOP DEAD_KOBOLD\n");
297. #endif
298. #ifdef SPIDERS
299. printf("#define DEAD_GIANT_SPIDER DEAD_GIANT_SCORPION\n");
300. #endif
301. #ifdef ROCKMOLE
302. printf("#define DEAD_ROCKMOLE DEAD_GIANT_RAT\n");
303. #endif
304. #ifndef KAA
305. printf("#define DEAD_QUASIT DEAD_QUANTUM_MECHANIC\n");
306. printf("#define DEAD_VIOLET_FUNGI DEAD_VIOLET_FUNGUS\n");
307. #endif
308. printf("#define LAST_GEM (JADE+1)\n");
309. printf("#define LAST_RING %d\n", propct);
310. #ifdef SPELLS
311. printf("#define MAXSPELL %d\n", nspell+1);
312. #endif
313. printf("#define NROFOBJECTS %d\n", index-1);
314. exit(0);
315. }
316. 
317. static char temp[32];
318. 
319. char *
320. limit(name) /* limit a name to 30 characters length */
321. char *name;
322. {
323. strncpy(temp, name, 30);
324. temp[30] = 0;
325. return(temp);
326. }
327. 
328. newobj()
329. {
330. extern long *alloc();
331. 
332. more = current;
333. current = (struct objdef *)alloc(sizeof(struct objdef));
334. current->next = more;
335. }
336. 
337. struct inherent {
338. 
339. char *attrib,
340. *monsters;
341. } abilities[] = { "Regeneration", "TVi",
342. "See_invisible", "I",
343. "Poison_resistance", "abcghikqsuvxyADFQSVWXZ&",
344. "Fire_resistance", "gD&",
345. "Cold_resistance", "gFY",
346. "Teleportation", "LNt",
347. "Teleport_control", "t",
348. "", "" };
349. 
350. specprop(name, count)
351. 
352. char *name;
353. int count;
354. {
355. int i;
356. char *tname, *limit();
357. 
358. tname = limit(name);
359. capitalize(tname);
360. for(i = 0; strlen(abilities[i].attrib); i++)
361. if(!strcmp(abilities[i].attrib, tname)) {
362. 
363. printf("#define\tH%s\tu.uprops[%d].p_flgs\n", tname, count);
364. printf("#define\t%s\t((H%s) || index(\"%s\", u.usym))\n",
365. tname, tname, abilities[i].monsters);
366. return(0);
367. }
368. 
369. printf("#define\t%s\tu.uprops[%d].p_flgs\n", tname, count);
370. return(0);
371. }
372. 
373. char line[LINSZ], *lp = line, *lp0 = line, *lpe = line;
374. int xeof;
375. 
376. readline(){
377. register int n = read(fd, lp0, (line+LINSZ)-lp0);
378. if(n < 0){
379. printf("Input error.\n");
380. exit(1);
381. }
382. if(n == 0) xeof++;
383. lpe = lp0+n;
384. }
385. 
386. char
387. nextchar(){
388. if(lp == lpe){
389. readline();
390. lp = lp0;
391. }
392. return((lp == lpe) ? 0 : *lp++);
393. }
394. 
395. skipuntil(s) char *s; {
396. register char *sp0, *sp1;
397. loop:
398. while(*s != nextchar())
399. if(xeof) {
400. printf("Cannot skipuntil %s\n", s);
401. exit(1);
402. }
403. if(strlen(s) > lpe-lp+1){
404. register char *lp1, *lp2;
405. lp2 = lp;
406. lp1 = lp = lp0;
407. while(lp2 != lpe) *lp1++ = *lp2++;
408. lp2 = lp0; /* save value */
409. lp0 = lp1;
410. readline();
411. lp0 = lp2;
412. if(strlen(s) > lpe-lp+1) {
413. printf("error in skipuntil");
414. exit(1);
415. }
416. }
417. sp0 = s+1;
418. sp1 = lp;
419. while(*sp0 && *sp0 == *sp1) sp0++, sp1++;
420. if(!*sp0){
421. lp = sp1;
422. return(1);
423. }
424. goto loop;
425. }
426. 
427. getentry(skip) int *skip; {
428. int inbraces = 0, inparens = 0, stringseen = 0, commaseen = 0;
429. int prefix = 0;
430. char ch;
431. #define NSZ 10
432. char identif[NSZ], *ip;
433. current->string[0] = current->string[4] = 0;
434. /* read until {...} or XXX(...) followed by ,
435. skip comment and #define lines
436. deliver 0 on failure
437. */
438. while(1) {
439. ch = nextchar();
440. swi:
441. if(letter(ch)){
442. ip = identif;
443. do {
444. if(ip < identif+NSZ-1) *ip++ = ch;
445. ch = nextchar();
446. } while(letter(ch) || digit(ch));
447. *ip = 0;
448. while(ch == ' ' || ch == '\t') ch = nextchar();
449. if(ch == '(' && !inparens && !stringseen)
450. if(!strcmp(identif, "WAND") ||
451. !strcmp(identif, "RING") ||
452. !strcmp(identif, "POTION") ||
453. !strcmp(identif, "SPELL") ||
454. !strcmp(identif, "SCROLL"))
455. (void) strncpy(current->string, identif, 3),
456. current->string[3] = '_',
457. prefix = 4;
458. }
459. switch(ch) {
460. case '/':
461. /* watch for comment */
462. if((ch = nextchar()) == '*')
463. skipuntil("*/");
464. goto swi;
465. case '{':
466. inbraces++;
467. continue;
468. case '(':
469. inparens++;
470. continue;
471. case '}':
472. inbraces--;
473. if(inbraces < 0) return(0);
474. continue;
475. case ')':
476. inparens--;
477. if(inparens < 0) {
478. printf("too many ) ?");
479. exit(1);
480. }
481. continue;
482. case '\n':
483. /* watch for #define at begin of line */
484. if((ch = nextchar()) == '#'){
485. register char pch;
486. /* skip until '\n' not preceded by '\\' */
487. do {
488. pch = ch;
489. ch = nextchar();
490. } while(ch != '\n' || pch == '\\');
491. continue;
492. }
493. goto swi;
494. case ',':
495. if(!inparens && !inbraces){
496. if(prefix && !current->string[prefix]) {
497. #ifndef SPELLS
498. *skip = strncmp(current->string, "SPE_", 4);
499. #else
500. *skip = 1;
501. #endif
502. current->string[0] = 0;
503. }
504. if(stringseen) return(1);
505. printf("unexpected ,\n");
506. exit(1);
507. }
508. commaseen++;
509. continue;
510. case '\'':
511. if((ch = nextchar()) == '\\') ch = nextchar();
512. if(nextchar() != '\''){
513. printf("strange character denotation?\n");
514. exit(1);
515. }
516. continue;
517. case '"':
518. {
519. register char *sp = current->string + prefix;
520. register char pch;
521. register int store = (inbraces || inparens)
522. && !stringseen++ && !commaseen;
523. do {
524. pch = ch;
525. ch = nextchar();
526. if(store && sp < current->string+STRSZ)
527. *sp++ = ch;
528. } while(ch != '"' || pch == '\\');
529. if(store) *--sp = 0;
530. continue;
531. }
532. }
533. }
534. }
535. 
536. duplicate() {
537. 
538. char s[STRSZ];
539. register char *c;
540. register struct objdef *testobj;
541. 
542. strcpy (s, current->string);
543. for(c = s; *c != 0; c++) capitalize(c);
544. 
545. for(testobj = more; testobj != 0; testobj = testobj->next)
546. if(! strcmp(s, testobj->string)) return(1);
547. 
548. return(0);
549. }
550. 
551. capitalize(sp) register char *sp; {
552. if('a' <= *sp && *sp <= 'z') *sp += 'A'-'a';
553. }
554. 
555. letter(ch) register char ch; {
556. return( ('a' <= ch && ch <= 'z') ||
557. ('A' <= ch && ch <= 'Z') );
558. }
559. 
560. digit(ch) register char ch; {
561. return( '0' <= ch && ch <= '9' );
562. }
563. 
564. /* a copy of the panic code from hack.pri.c, edited for standalone use */
565. 
566. boolean panicking = 0;
567. 
568. panic(str,a1,a2,a3,a4,a5,a6)
569. char *str;
570. {
571. if(panicking++) exit(1); /* avoid loops - this should never happen*/
572. fputs(" ERROR: ", stdout);
573. printf(str,a1,a2,a3,a4,a5,a6);
574. #ifdef DEBUG
575. # ifdef UNIX
576. if(!fork())
577. abort(); /* generate core dump */
578. # endif
579. #endif
580. exit(1);
581. }
582. 
583. #ifdef SYSV
584. rename(oldname, newname)
585. char *oldname, *newname;
586. {
587. if (strcmp(oldname, newname)) {
588. 
589. unlink(newname);
590. link(oldname, newname);
591. unlink(oldname);
592. }
593. }
594. #endif
[[Category:NetHack 1.3d source code|makedefs.c]]

Source:NetHack 1.3d/makedefs.c - Revision history

Furey: Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

Kernigh bot: NetHack 1.3d/makedefs.c moved to Source:NetHack 1.3d/makedefs.c: Robot: moved page

Jaytbot: Automated source code upload

@@ Line 1: / Line 1: @@
-Below is the full text to '''makedefs.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/makedefs.c#line123|<nowiki>[[NetHack 1.3d/makedefs.c#line123]]</nowiki>]], for example.
+Below is the full text to '''makedefs.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]].
-'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]
+'''Warning!''' This is the source code from an old release. For newer releases, see [[Source code]]
 {{CWI}}

← Older revision	Revision as of 23:58, 3 March 2008
(No difference)