diff options
Diffstat (limited to 'games/hack/makedefs.c')
| -rw-r--r-- | games/hack/makedefs.c | 224 |
1 files changed, 0 insertions, 224 deletions
diff --git a/games/hack/makedefs.c b/games/hack/makedefs.c deleted file mode 100644 index aa113b9fed8d..000000000000 --- a/games/hack/makedefs.c +++ /dev/null @@ -1,224 +0,0 @@ -/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ -/* makedefs.c - version 1.0.2 */ - -#include <stdio.h> - -/* construct definitions of object constants */ -#define LINSZ 1000 -#define STRSZ 40 - -int fd; -char string[STRSZ]; - -main(argc, argv) - int argc; - char **argv; -{ -register int index = 0; -register int propct = 0; -register char *sp; - if (argc != 2) { - (void)fprintf(stderr, "usage: makedefs file\n"); - exit(1); - } - if ((fd = open(argv[1], 0)) < 0) { - perror(argv[1]); - exit(1); - } - skipuntil("objects[] = {"); - while(getentry()) { - if(!*string){ - index++; - continue; - } - for(sp = string; *sp; sp++) - if(*sp == ' ' || *sp == '\t' || *sp == '-') - *sp = '_'; - if(!strncmp(string, "RIN_", 4)){ - capitalize(string+4); - printf("#define %s u.uprops[%d].p_flgs\n", - string+4, propct++); - } - for(sp = string; *sp; sp++) capitalize(sp); - /* avoid trouble with stupid C preprocessors */ - if(!strncmp(string, "WORTHLESS_PIECE_OF_", 19)) - printf("/* #define %s %d */\n", string, index); - else - printf("#define %s %d\n", string, index); - index++; - } - printf("\n#define CORPSE DEAD_HUMAN\n"); - printf("#define LAST_GEM (JADE+1)\n"); - printf("#define LAST_RING %d\n", propct); - printf("#define NROFOBJECTS %d\n", index-1); - exit(0); -} - -char line[LINSZ], *lp = line, *lp0 = line, *lpe = line; -int eof; - -readline(){ -register int n = read(fd, lp0, (line+LINSZ)-lp0); - if(n < 0){ - printf("Input error.\n"); - exit(1); - } - if(n == 0) eof++; - lpe = lp0+n; -} - -char -nextchar(){ - if(lp == lpe){ - readline(); - lp = lp0; - } - return((lp == lpe) ? 0 : *lp++); -} - -skipuntil(s) char *s; { -register char *sp0, *sp1; -loop: - while(*s != nextchar()) - if(eof) { - printf("Cannot skipuntil %s\n", s); - exit(1); - } - if(strlen(s) > lpe-lp+1){ - register char *lp1, *lp2; - lp2 = lp; - lp1 = lp = lp0; - while(lp2 != lpe) *lp1++ = *lp2++; - lp2 = lp0; /* save value */ - lp0 = lp1; - readline(); - lp0 = lp2; - if(strlen(s) > lpe-lp+1) { - printf("error in skipuntil"); - exit(1); - } - } - sp0 = s+1; - sp1 = lp; - while(*sp0 && *sp0 == *sp1) sp0++, sp1++; - if(!*sp0){ - lp = sp1; - return(1); - } - goto loop; -} - -getentry(){ -int inbraces = 0, inparens = 0, stringseen = 0, commaseen = 0; -int prefix = 0; -char ch; -#define NSZ 10 -char identif[NSZ], *ip; - string[0] = string[4] = 0; - /* read until {...} or XXX(...) followed by , - skip comment and #define lines - deliver 0 on failure - */ - while(1) { - ch = nextchar(); - swi: - if(letter(ch)){ - ip = identif; - do { - if(ip < identif+NSZ-1) *ip++ = ch; - ch = nextchar(); - } while(letter(ch) || digit(ch)); - *ip = 0; - while(ch == ' ' || ch == '\t') ch = nextchar(); - if(ch == '(' && !inparens && !stringseen) - if(!strcmp(identif, "WAND") || - !strcmp(identif, "RING") || - !strcmp(identif, "POTION") || - !strcmp(identif, "SCROLL")) - (void) strncpy(string, identif, 3), - string[3] = '_', - prefix = 4; - } - switch(ch) { - case '/': - /* watch for comment */ - if((ch = nextchar()) == '*') - skipuntil("*/"); - goto swi; - case '{': - inbraces++; - continue; - case '(': - inparens++; - continue; - case '}': - inbraces--; - if(inbraces < 0) return(0); - continue; - case ')': - inparens--; - if(inparens < 0) { - printf("too many ) ?"); - exit(1); - } - continue; - case '\n': - /* watch for #define at begin of line */ - if((ch = nextchar()) == '#'){ - register char pch; - /* skip until '\n' not preceded by '\\' */ - do { - pch = ch; - ch = nextchar(); - } while(ch != '\n' || pch == '\\'); - continue; - } - goto swi; - case ',': - if(!inparens && !inbraces){ - if(prefix && !string[prefix]) - string[0] = 0; - if(stringseen) return(1); - printf("unexpected ,\n"); - exit(1); - } - commaseen++; - continue; - case '\'': - if((ch = nextchar()) == '\\') ch = nextchar(); - if(nextchar() != '\''){ - printf("strange character denotation?\n"); - exit(1); - } - continue; - case '"': - { - register char *sp = string + prefix; - register char pch; - register int store = (inbraces || inparens) - && !stringseen++ && !commaseen; - do { - pch = ch; - ch = nextchar(); - if(store && sp < string+STRSZ) - *sp++ = ch; - } while(ch != '"' || pch == '\\'); - if(store) *--sp = 0; - continue; - } - } - } -} - -capitalize(sp) register char *sp; { - if('a' <= *sp && *sp <= 'z') *sp += 'A'-'a'; -} - -letter(ch) register char ch; { - return( ('a' <= ch && ch <= 'z') || - ('A' <= ch && ch <= 'Z') ); -} - -digit(ch) register char ch; { - return( '0' <= ch && ch <= '9' ); -} |