| abstract
| - Below is the full text to makedefs.c from the source code of NetHack 1.3d. To link to a particular line, write [[NetHack 1.3d/makedefs.c#line123]], for example. Warning! This is the source code from an old release. For the latest release, see Source code 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 87/07/14"; 5. 6. #include "config.h" 7. #include 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'.
", option[1]); 50. exit(1); 51. } 52. exit(0); 53. } else fprintf(stderr, "Bad arg count (%d).
", 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("
"); 81. 82. #ifdef NEWTRAPS 83. printf("#define MGTRP %d
", ntrap++); 84. printf("#define SQBRD %d
", ntrap++); 85. #endif 86. #ifdef SPIDERS 87. printf("#define WEB %d
", ntrap++); 88. #endif 89. #ifdef NEWCLASS 90. printf("#define SPIKED_PIT %d
", ntrap++); 91. printf("#define LEVEL_TELEP %d
", ntrap++); 92. #endif 93. #ifdef SPELLS 94. printf("#define ANTI_MAGIC %d
", ntrap++); 95. #endif 96. #ifdef KAA 97. printf("#define RUST_TRAP %d
", ntrap++); 98. #endif 99. printf("
#define TRAPNUM %d
", 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 != '
'; c++); *c = 0; /* strip off the '
' */ 173. printf("char datestring[] = %c%s%c;
", '"', 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 a Keystone Kop
"); 201. else 202. #endif 203. #ifdef KAA 204. if(!strcmp(inline, "Q a quasit")) 205. printf("Q a quantum mechanic
"); 206. else 207. #endif 208. #ifdef ROCKMOLE 209. if(!strcmp(inline, "r a giant rat")) 210. printf("K a rockmole
"); 211. else 212. #endif 213. #ifdef SPIDERS 214. if(!strcmp(inline, "s a scorpion")) 215. printf("s a giant spider
"); 216. else 217. #endif 218. puts(inline); 219. } 220. #ifdef KAA 221. printf("9 a giant
"); 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 == ' ' || *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 %s %d */
", current->string, index++); 282. else { 283. #ifdef SPELLS 284. if(!strncmp(current->string, "SPE_", 4)) nspell++; 285. printf("#define %s %d
", limit(current->string), index++); 286. #else 287. if(strncmp(current->string, "SPE_", 4)) 288. printf("#define %s %d
", limit(current->string), index++); 289. #endif 290. } 291. newobj(); 292. } 293. } 294. printf("
#define CORPSE DEAD_HUMAN
"); 295. #ifdef KOPS 296. printf("#define DEAD_KOP DEAD_KOBOLD
"); 297. #endif 298. #ifdef SPIDERS 299. printf("#define DEAD_GIANT_SPIDER DEAD_GIANT_SCORPION
"); 300. #endif 301. #ifdef ROCKMOLE 302. printf("#define DEAD_ROCKMOLE DEAD_GIANT_RAT
"); 303. #endif 304. #ifndef KAA 305. printf("#define DEAD_QUASIT DEAD_QUANTUM_MECHANIC
"); 306. printf("#define DEAD_VIOLET_FUNGI DEAD_VIOLET_FUNGUS
"); 307. #endif 308. printf("#define LAST_GEM (JADE+1)
"); 309. printf("#define LAST_RING %d
", propct); 310. #ifdef SPELLS 311. printf("#define MAXSPELL %d
", nspell+1); 312. #endif 313. printf("#define NROFOBJECTS %d
", 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 H%s u.uprops[%d].p_flgs
", tname, count); 364. printf("#define %s ((H%s) || index(\"%s\", u.usym))
", 365. tname, tname, abilities[i].monsters); 366. return(0); 367. } 368. 369. printf("#define %s u.uprops[%d].p_flgs
", 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.
"); 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
", 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 == ' ') 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 '
': 483. /* watch for #define at begin of line */ 484. if((ch = nextchar()) == '#'){ 485. register char pch; 486. /* skip until '
' not preceded by '\\' */ 487. do { 488. pch = ch; 489. ch = nextchar(); 490. } while(ch != '
' || 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 ,
"); 506. exit(1); 507. } 508. commaseen++; 509. continue; 510. case '\: 511. if((ch = nextchar()) == '\\') ch = nextchar(); 512. if(nextchar() != '\){ 513. printf("strange character denotation?
"); 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
|
![[RDF Data]](/fct/images/sw-rdf-blue.png)