hack/makedefs.c

   1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   2 /* makedefs.c - version 1.0.2 */
   3
   4 #include <stdio.h>
   5
   6 /* construct definitions of object constants */
   7 #define LINSZ   1000
   8 #define STRSZ   40
   9
  10 int fd;
  11 char string[STRSZ];
  12
  13 main(argc, argv)
  14         int argc;
  15         char **argv;
  16 {
  17 register int index = 0;
  18 register int propct = 0;
  19 register char *sp;
  20         if (argc != 2) {
  21                 (void)fprintf(stderr, "usage: makedefs file\n");
  22                 exit(1);
  23         }
  24         if ((fd = open(argv[1], 0)) < 0) {
  25                 perror(argv[1]);
  26                 exit(1);
  27         }
  28         skipuntil("objects[] = {");
  29         while(getentry()) {
  30                 if(!*string){
  31                         index++;
  32                         continue;
  33                 }
  34                 for(sp = string; *sp; sp++)
  35                         if(*sp == ' ' || *sp == '\t' || *sp == '-')
  36                                 *sp = '_';
  37                 if(!strncmp(string, "RIN_", 4)){
  38                         capitalize(string+4);
  39                         printf("#define %s      u.uprops[%d].p_flgs\n",
  40                                 string+4, propct++);
  41                 }
  42                 for(sp = string; *sp; sp++) capitalize(sp);
  43                 /* avoid trouble with stupid C preprocessors */
  44                 if(!strncmp(string, "WORTHLESS_PIECE_OF_", 19))
  45                         printf("/* #define %s   %d */\n", string, index);
  46                 else
  47                         printf("#define %s      %d\n", string, index);
  48                 index++;
  49         }
  50         printf("\n#define       CORPSE  DEAD_HUMAN\n");
  51         printf("#define LAST_GEM        (JADE+1)\n");
  52         printf("#define LAST_RING       %d\n", propct);
  53         printf("#define NROFOBJECTS     %d\n", index-1);
  54         exit(0);
  55 }
  56
  57 char line[LINSZ], *lp = line, *lp0 = line, *lpe = line;
  58 int eof;
  59
  60 readline(){
  61 register int n = read(fd, lp0, (line+LINSZ)-lp0);
  62         if(n < 0){
  63                 printf("Input error.\n");
  64                 exit(1);
  65         }
  66         if(n == 0) eof++;
  67         lpe = lp0+n;
  68 }
  69
  70 char
  71 nextchar(){
  72         if(lp == lpe){
  73                 readline();
  74                 lp = lp0;
  75         }
  76         return((lp == lpe) ? 0 : *lp++);
  77 }
  78
  79 skipuntil(s) char *s; {
  80 register char *sp0, *sp1;
  81 loop:
  82         while(*s != nextchar())
  83                 if(eof) {
  84                         printf("Cannot skipuntil %s\n", s);
  85                         exit(1);
  86                 }
  87         if(strlen(s) > lpe-lp+1){
  88                 register char *lp1, *lp2;
  89                 lp2 = lp;
  90                 lp1 = lp = lp0;
  91                 while(lp2 != lpe) *lp1++ = *lp2++;
  92                 lp2 = lp0;      /* save value */
  93                 lp0 = lp1;
  94                 readline();
  95                 lp0 = lp2;
  96                 if(strlen(s) > lpe-lp+1) {
  97                         printf("error in skipuntil");
  98                         exit(1);
  99                 }
 100         }
 101         sp0 = s+1;
 102         sp1 = lp;
 103         while(*sp0 && *sp0 == *sp1) sp0++, sp1++;
 104         if(!*sp0){
 105                 lp = sp1;
 106                 return(1);
 107         }
 108         goto loop;
 109 }
 110
 111 getentry(){
 112 int inbraces = 0, inparens = 0, stringseen = 0, commaseen = 0;
 113 int prefix = 0;
 114 char ch;
 115 #define NSZ     10
 116 char identif[NSZ], *ip;
 117         string[0] = string[4] = 0;
 118         /* read until {...} or XXX(...) followed by ,
 119            skip comment and #define lines
 120            deliver 0 on failure
 121          */
 122         while(1) {
 123                 ch = nextchar();
 124         swi:
 125                 if(letter(ch)){
 126                         ip = identif;
 127                         do {
 128                                 if(ip < identif+NSZ-1) *ip++ = ch;
 129                                 ch = nextchar();
 130                         } while(letter(ch) || digit(ch));
 131                         *ip = 0;
 132                         while(ch == ' ' || ch == '\t') ch = nextchar();
 133                         if(ch == '(' && !inparens && !stringseen)
 134                                 if(!strcmp(identif, "WAND") ||
 135                                    !strcmp(identif, "RING") ||
 136                                    !strcmp(identif, "POTION") ||
 137                                    !strcmp(identif, "SCROLL"))
 138                                 (void) strncpy(string, identif, 3),
 139                                 string[3] = '_',
 140                                 prefix = 4;
 141                 }
 142                 switch(ch) {
 143                 case '/':
 144                         /* watch for comment */
 145                         if((ch = nextchar()) == '*')
 146                                 skipuntil("*/");
 147                         goto swi;
 148                 case '{':
 149                         inbraces++;
 150                         continue;
 151                 case '(':
 152                         inparens++;
 153                         continue;
 154                 case '}':
 155                         inbraces--;
 156                         if(inbraces < 0) return(0);
 157                         continue;
 158                 case ')':
 159                         inparens--;
 160                         if(inparens < 0) {
 161                                 printf("too many ) ?");
 162                                 exit(1);
 163                         }
 164                         continue;
 165                 case '\n':
 166                         /* watch for #define at begin of line */
 167                         if((ch = nextchar()) == '#'){
 168                                 register char pch;
 169                                 /* skip until '\n' not preceded by '\\' */
 170                                 do {
 171                                         pch = ch;
 172                                         ch = nextchar();
 173                                 } while(ch != '\n' || pch == '\\');
 174                                 continue;
 175                         }
 176                         goto swi;
 177                 case ',':
 178                         if(!inparens && !inbraces){
 179                                 if(prefix && !string[prefix])
 180                                         string[0] = 0;
 181                                 if(stringseen) return(1);
 182                                 printf("unexpected ,\n");
 183                                 exit(1);
 184                         }
 185                         commaseen++;
 186                         continue;
 187                 case '\'':
 188                         if((ch = nextchar()) == '\\') ch = nextchar();
 189                         if(nextchar() != '\''){
 190                                 printf("strange character denotation?\n");
 191                                 exit(1);
 192                         }
 193                         continue;
 194                 case '"':
 195                         {
 196                                 register char *sp = string + prefix;
 197                                 register char pch;
 198                                 register int store = (inbraces || inparens)
 199                                         && !stringseen++ && !commaseen;
 200                                 do {
 201                                         pch = ch;
 202                                         ch = nextchar();
 203                                         if(store && sp < string+STRSZ)
 204                                                 *sp++ = ch;
 205                                 } while(ch != '"' || pch == '\\');
 206                                 if(store) *--sp = 0;
 207                                 continue;
 208                         }
 209                 }
 210         }
 211 }
 212
 213 capitalize(sp) register char *sp; {
 214         if('a' <= *sp && *sp <= 'z') *sp += 'A'-'a';
 215 }
 216
 217 letter(ch) register char ch; {
 218         return( ('a' <= ch && ch <= 'z') ||
 219                 ('A' <= ch && ch <= 'Z') );
 220 }
 221
 222 digit(ch) register char ch; {
 223         return( '0' <= ch && ch <= '9' );
 224 }