386BSD 0.1 development

Work on file usr/othersrc/games/hack/makedefs.c

Co-Authored-By: Lynne Greer Jolitz <ljolitz@cardio.ucsf.edu>
Synthesized-from: 386BSD-0.1

diff --git a/usr/othersrc/games/hack/makedefs.c b/usr/othersrc/games/hack/makedefs.c
new file mode 100644 (file)
index 0000000..aa113b9
--- /dev/null
+++ b/usr/othersrc/games/hack/makedefs.c
@@ -0,0 +1,224 @@
+/* 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' );
+}