diff options
Diffstat (limited to 'hack/makedefs.c')
| -rw-r--r-- | hack/makedefs.c | 266 |
1 files changed, 266 insertions, 0 deletions
diff --git a/hack/makedefs.c b/hack/makedefs.c new file mode 100644 index 0000000..7b66485 --- /dev/null +++ b/hack/makedefs.c @@ -0,0 +1,266 @@ +/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ +/* makedefs.c - version 1.0.2 */ +/* $FreeBSD: src/games/hack/makedefs.c,v 1.4 1999/11/16 02:57:15 billf Exp $ */ +/* $DragonFly: src/games/hack/makedefs.c,v 1.3 2006/08/21 19:45:32 pavalos Exp $ */ + +#include <fcntl.h> +#include <stdbool.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <unistd.h> + +/* construct definitions of object constants */ +#define LINSZ 1000 +#define STRSZ 40 + +int fd; +char string[STRSZ]; + +static void readline(void); +static char nextchar(void); +static bool skipuntil(const char *); +static bool getentry(void); +static void capitalize(char *); +static bool letter(char); +static bool digit(char); + +int +main(int argc, char **argv) +{ + int idx = 0; + int propct = 0; + char *sp; + + if (argc != 2) { + fprintf(stderr, "usage: makedefs file\n"); + exit(1); + } + if ((fd = open(argv[1], O_RDONLY)) < 0) { + perror(argv[1]); + exit(1); + } + skipuntil("objects[] = {"); + while (getentry()) { + if (!*string) { + idx++; + 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, idx); + else + printf("#define %s %d\n", string, idx); + idx++; + } + 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", idx - 1); + exit(0); +} + +char line[LINSZ], *lp = line, *lp0 = line, *lpe = line; +int eof; + +static void +readline(void) +{ + int n = read(fd, lp0, (line + LINSZ) - lp0); + + if (n < 0) { + printf("Input error.\n"); + exit(1); + } + if (n == 0) + eof++; + lpe = lp0 + n; +} + +static char +nextchar(void) +{ + if (lp == lpe) { + readline(); + lp = lp0; + } + return ((lp == lpe) ? 0 : *lp++); +} + +static bool +skipuntil(const char *s) +{ + const char *sp0; + char *sp1; +loop: + while (*s != nextchar()) + if (eof) { + printf("Cannot skipuntil %s\n", s); + exit(1); + } + if ((int)strlen(s) > lpe - lp + 1) { + char *lp1, *lp2; + lp2 = lp; + lp1 = lp = lp0; + while (lp2 != lpe) + *lp1++ = *lp2++; + lp2 = lp0; /* save value */ + lp0 = lp1; + readline(); + lp0 = lp2; + if ((int)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; +} + +static bool +getentry(void) +{ + 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 + */ + for (;;) { + 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")) + 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()) == '#') { + 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 '"': + { + char *sp = string + prefix; + char pch; + 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; + } + } + } +} + +static void +capitalize(char *sp) +{ + if ('a' <= *sp && *sp <= 'z') + *sp += 'A' - 'a'; +} + +static bool +letter(char ch) +{ + return (('a' <= ch && ch <= 'z') || + ('A' <= ch && ch <= 'Z')); +} + +static bool +digit(char ch) +{ + return ('0' <= ch && ch <= '9'); +} |