makedefs.c

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* makedefs.c - version 1.0.2 */
/* $FreeBSD$ */

#include <fcntl.h>
#include <limits.h> /* MODERN: for INT_MAX */
#include <stddef.h> /* MODERN: for ptrdiff_t, size_t */
#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];

/* Function prototypes */
int skipuntil(char *s);
int getentry(void);
int capitalize(char *sp);
int letter(char ch);
int digit(char ch);
int readline(void);

int main(int argc, char **argv) {
  int idx = 0; /* MODERN: renamed from 'index' to avoid collision with index() macro */
  int propct = 0;
  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) {
      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;

int readline(void) {
  ptrdiff_t buffer_space = (line + LINSZ) - lp0; /* MODERN: safe pointer arithmetic */
  if (buffer_space <= 0) {
    printf("Buffer space error.\n");
    exit(1);
  }
  
  ssize_t n = read(fd, lp0, (size_t)buffer_space); /* MODERN: proper POSIX types */
  if (n < 0) {
    printf("Input error.\n");
    exit(1);
  }
  if (n == 0)
    eof++;
  lpe = lp0 + n;
  
  if (n > INT_MAX) { /* MODERN: validate range before int conversion */
    printf("Read size too large.\n");
    exit(1);
  }
  return (int)n; /* Original 1984: return bytes read as int */
}

char nextchar() {
  if (lp == lpe) {
    readline();
    lp = lp0;
  }
  return ((lp == lpe) ? 0 : *lp++);
}

int skipuntil(char *s) {
  char *sp0, *sp1;
loop:
  while (*s != nextchar())
    if (eof) {
      printf("Cannot skipuntil %s\n", s);
      exit(1);
    }
  if ((ptrdiff_t)strlen(s) > lpe - lp + 1) { /* MODERN: cast strlen to signed for comparison */
    char *lp1, *lp2;
    lp2 = lp;
    lp1 = lp = lp0;
    while (lp2 != lpe)
      *lp1++ = *lp2++;
    lp2 = lp0; /* save value */
    lp0 = lp1;
    readline();
    lp0 = lp2;
    if ((ptrdiff_t)strlen(s) > lpe - lp + 1) { /* MODERN: cast strlen to signed for comparison */
      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;
}

int 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
   */
  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()) == '#') {
        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;
    }
    }
  }
}

int capitalize(char *sp) {
  if ('a' <= *sp && *sp <= 'z') {
    *sp += 'A' - 'a';
    return 1; /* Original 1984: return 1 if capitalized */
  }
  return 0; /* Original 1984: return 0 if no change */
}

int letter(char ch) {
  return (('a' <= ch && ch <= 'z') || ('A' <= ch && ch <= 'Z'));
}

int digit(char ch) { return ('0' <= ch && ch <= '9'); }