117 lines
1.9 KiB
C
117 lines
1.9 KiB
C
/*
|
|
* mkbinorder.c
|
|
*
|
|
* By Ross Ridge
|
|
* Public Domain
|
|
* 92/02/01 07:30:04
|
|
*
|
|
*/
|
|
|
|
#define NOTLIB
|
|
#include "defs.h"
|
|
#include <term.h>
|
|
|
|
const char SCCSid[] = "@(#) mytinfo mkbinorder.c 3.2 92/02/01 public domain, By Ross Ridge";
|
|
|
|
char cap[MAX_NAME];
|
|
char *p2c = cap;
|
|
char **p2p2c = &p2c;
|
|
|
|
int
|
|
main(argc, argv)
|
|
int argc;
|
|
char **argv; {
|
|
int r;
|
|
int ind;
|
|
FILE *f;
|
|
|
|
if (argc == 1)
|
|
f = stdin;
|
|
else if (argc == 2) {
|
|
f = fopen(argv[1], "r");
|
|
if (f == NULL) {
|
|
fprintf(stderr, "can't open %s\n", argv[1]);
|
|
exit(1);
|
|
}
|
|
} else {
|
|
fprintf(stderr, "argument count\n");
|
|
exit(1);
|
|
}
|
|
|
|
do {
|
|
r = fscanf(f, "%s", cap);
|
|
} while(r == 1 && strcmp(cap, "!") != 0);
|
|
if (r != 1) {
|
|
fprintf(stderr, "expected '!'\n");
|
|
exit(1);
|
|
}
|
|
|
|
puts("/*");
|
|
puts(" * binorder.c");
|
|
puts(" *");
|
|
puts(" * This file was generated automatically");
|
|
puts(" *");
|
|
puts(" */\n");
|
|
|
|
puts("int _boolorder[] = {");
|
|
|
|
while(1) {
|
|
r = fscanf(f, "%s", cap);
|
|
cap[MAX_TINFONAME] = '\0';
|
|
if (r != 1) {
|
|
fprintf(stderr, "unexpected EOF\n");
|
|
exit(1);
|
|
}
|
|
if (strcmp(cap, "#") == 0)
|
|
break;
|
|
ind = _findboolname(cap);
|
|
if (ind == -1) {
|
|
fprintf(stderr, "unknown bool name '%s'\n", cap);
|
|
continue;
|
|
}
|
|
printf("\t%d,\n", ind);
|
|
}
|
|
puts("\t-1");
|
|
puts("};\n");
|
|
|
|
puts("int _numorder[] = {");
|
|
|
|
while(1) {
|
|
r = fscanf(f, "%s", cap);
|
|
cap[MAX_TINFONAME] = '\0';
|
|
if (r != 1) {
|
|
fprintf(stderr, "unexpected EOF\n");
|
|
exit(1);
|
|
}
|
|
if (strcmp(cap, "$") == 0)
|
|
break;
|
|
ind = _findnumname(cap);
|
|
if (ind == -1) {
|
|
fprintf(stderr, "unknown num name '%s'\n", cap);
|
|
continue;
|
|
}
|
|
printf("\t%d,\n", ind);
|
|
}
|
|
puts("\t-1");
|
|
puts("};\n");
|
|
|
|
puts("int _strorder[] = {");
|
|
|
|
while(1) {
|
|
r = fscanf(f, "%s", cap);
|
|
cap[MAX_TINFONAME] = '\0';
|
|
if (r != 1)
|
|
break;
|
|
ind = _findstrname(cap);
|
|
if (ind == -1) {
|
|
fprintf(stderr, "unknown str name '%s'\n", cap);
|
|
continue;
|
|
}
|
|
printf("\t%d,\n", ind);
|
|
}
|
|
puts("\t-1");
|
|
puts("};\n");
|
|
|
|
return 0;
|
|
}
|