make_table.c

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>

int
main(int argc, char *argv[])
{
    void lower(char *);
    char buffer[BUFSIZ], *p;
    FILE *in, *out;
    int  first=0x7fffffff, last=0, n;

    if (argc != 3) {
        (void)fprintf(stderr, "Usage: make_table input.h output.h\n");
        exit(1);
        /* NOTREACHED */
    }
    if ((in = fopen(argv[1], "r")) == NULL) {
        perror("fopen");
        exit(1);
        /* NOTREACHED */
    }
    if ((out = fopen(argv[2], "w")) == NULL) {
        perror("fopen");
        exit(1);
        /* NOTREACHED */
    }
    (void)fprintf(out, "/*\n");
    (void)fprintf(out, " * This file is automatically generated; do not edit.\n");
    (void)fprintf(out, " */\n\n");
    (void)fprintf(out, "#ifdef EFUN_TABLE\n");
    (void)fprintf(out, "static void (*efun_table[])(int) = {\n");
    while (fgets(buffer, sizeof(buffer), in)) {
        if (buffer[0] != '#')
            continue;
        p = strtok(buffer+1, " \t\n");
        if (strcmp(p, "define"))
            continue;
        if ((p = strtok(NULL, " \t\n")) == NULL)
            continue;
        if (p[0] != 'F' || p[1] != '_')
            continue;
        lower(p);
        (void)fprintf(out, "\t%s,\n", p);
        if ((p = strtok(NULL, " \t\n")) == NULL)
            continue;
        n = atoi(p);
        if (n < first)
            first = n;
        if (n > last)
            last = n;
    }
    (void)fprintf(out, "};\n");
    (void)fprintf(out, "#else /* EFUN_TABLE */\n");
    (void)fprintf(out, "#define EFUN_FIRST %4d\n", first);
    (void)fprintf(out, "#define EFUN_LAST  %4d\n", last);
    (void)fprintf(out, "#endif /* EFUN_TABLE */\n");
    (void)fclose(out);
    (void)fclose(in);
    return 0;
}

void
lower(char *string)
{
    while (*string) {
        if (isupper(*string))
            *string = tolower(*string);
        string++;
    }
}