Adding upstream version 0.5.1upstream/0.5.1

1 files changed, 127 insertions, 0 deletions

diff --git a/mktable.c b/mktable.c
new file mode 100644
index 0000000..a90b52a
--- /dev/null
+++ b/mktable.c
@@ -0,0 +1,127 @@
+/* $Id: mktable.c,v 1.14 2003/09/22 21:02:20 ukai Exp $ */
+#include <stdio.h>
+#include <stdlib.h>
+#include "myctype.h"
+#include "config.h"
+#include "hash.h"
+#include "myctype.h"
+#include "Str.h"
+#include <gc.h>
+
+/* *INDENT-OFF* */
+defhash(HashItem_ss *, int, hss_i)
+/* *INDENT-ON* */
+
+#define keycomp(x,y) ((x)==(y))
+
+/* XXX: we assume sizeof(unsigned long) >= sizeof(void *) */
+static unsigned long
+hashfunc(HashItem_ss * x)
+{
+    return (unsigned long)x;
+}
+
+/* *INDENT-OFF* */
+defhashfunc(HashItem_ss *, int, hss_i)
+/* *INDENT-ON* */
+
+int
+main(int argc, char *argv[], char **envp)
+{
+    FILE *f;
+    Hash_ss *hash;
+    HashItem_ss **hashitems, *hi;
+    int size, n, i, j;
+    Str s, name, fbase;
+    char *p;
+    Hash_hss_i *rhash;
+
+    if (argc != 3) {
+	fprintf(stderr, "usage: %s hashsize file.tab > file.c\n", argv[0]);
+	exit(1);
+    }
+    size = atoi(argv[1]);
+    if (size <= 0) {
+	fprintf(stderr, "hash size should be positive\n");
+	exit(1);
+    }
+    if ((f = fopen(argv[2], "r")) == NULL) {
+	fprintf(stderr, "Can't open %s\n", argv[2]);
+	exit(1);
+    }
+    p = argv[2];
+    if (strrchr(p, '/') != NULL)
+	p = strrchr(p, '/') + 1;
+    fbase = Strnew_charp(p);
+    if (strchr(fbase->ptr, '.'))
+	while (Strlastchar(fbase) != '.')
+	    Strshrink(fbase, 1);
+    Strshrink(fbase, 1);
+
+    hash = newHash_ss(size);
+    printf("#include \"hash.h\"\n");
+    for (;;) {
+	s = Strfgets(f);
+	if (s->length == 0)
+	    exit(0);
+	Strremovetrailingspaces(s);
+	if (Strcmp_charp(s, "%%") == 0)
+	    break;
+	puts(s->ptr);
+    }
+    n = 0;
+    for (;;) {
+	s = Strfgets(f);
+	if (s->length == 0)
+	    break;
+	Strremovefirstspaces(s);
+	Strremovetrailingspaces(s);
+	name = Strnew();
+	for (p = s->ptr; *p; p++) {
+	    if (IS_SPACE(*p))
+		break;
+	    Strcat_char(name, *p);
+	}
+	while (*p && IS_SPACE(*p))
+	    p++;
+	putHash_ss(hash, name->ptr, p);
+	n++;
+    }
+    fclose(f);
+
+    hashitems = (HashItem_ss **) GC_malloc(sizeof(HashItem_ss *) * n);
+    rhash = newHash_hss_i(n * 2);
+    j = 0;
+    for (i = 0; i < hash->size; i++) {
+	for (hi = hash->tab[i]; hi != NULL; hi = hi->next) {
+	    hashitems[j] = hi;
+	    putHash_hss_i(rhash, hi, j);
+	    j++;
+	}
+    }
+    printf("static HashItem_si MyHashItem[] = {\n");
+    for (i = 0; i < j; i++) {
+	printf("  /* %d */ {\"%s\",%s,", i,
+	       hashitems[i]->key, hashitems[i]->value);
+	if (hashitems[i]->next == NULL) {
+	    printf("NULL},\n");
+	}
+	else {
+	    printf("&MyHashItem[%d]},\n",
+		   getHash_hss_i(rhash, hashitems[i]->next, -1));
+	}
+    }
+    printf("};\n\nstatic HashItem_si *MyHashItemTbl[] = {\n");
+
+    for (i = 0; i < hash->size; i++) {
+	if (hash->tab[i])
+	    printf("  &MyHashItem[%d],\n",
+		   getHash_hss_i(rhash, hash->tab[i], -1));
+	else
+	    printf("  NULL,\n");
+    }
+    printf("};\n\n");
+    printf("Hash_si %s = {%d, MyHashItemTbl};\n", fbase->ptr, hash->size);
+
+    exit(0);
+}