diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/makecpool.c')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/makecpool.c | 93 |
1 files changed, 0 insertions, 93 deletions
diff --git a/Build/source/texk/web2c/luatexdir/makecpool.c b/Build/source/texk/web2c/luatexdir/makecpool.c deleted file mode 100644 index a3693e695a9..00000000000 --- a/Build/source/texk/web2c/luatexdir/makecpool.c +++ /dev/null @@ -1,93 +0,0 @@ -/* Copyright 2007, 2008 Taco Hoekwater. - You may freely use, modify and/or distribute this file. */ - -#include <stdio.h> -#include <string.h> -#include <stdlib.h> - -static const char __svn_version[] = - "$Id: makecpool.c 2321 2009-04-18 09:17:13Z hhenkel $ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.5/source/texk/web2c/luatexdir/makecpool.c $"; - -int main(int argc, char *argv[]) -{ - char *filename; - char *headername; - FILE *fh; - char data[1024]; - int is_metafont = 0; - int is_metapost = 0; - int is_luatex = 0; - if (argc != 3) { - fprintf(stderr, - "%s: need exactly two arguments (pool name and C header name).\n", - argv[0]); - exit(EXIT_FAILURE); - } - filename = argv[1]; - headername = argv[2]; - fh = fopen(filename, "r"); - if (!fh) { - fprintf(stderr, "%s: can't open %s for reading.\n", argv[0], filename); - exit(EXIT_FAILURE); - } - if (strstr(filename, "luatex.pool") != NULL) - is_luatex = 1; - else if (strstr(filename, "mp.pool") != NULL) - is_metapost = 1; - else if (strstr(filename, "mf.pool") != NULL) - is_metafont = 1; - printf("/*\n" - " * This file is auto-generated by makecpool.\n" - " * %s %s %s\n" - " */\n" - "\n" - "#include <stdio.h>\n" - "#include <string.h>\n" - "#include \"%s\"\n" - "\n" - "static const char *poolfilearr[] = {\n", argv[0], filename, - headername, headername); - while (fgets(data, 1024, fh)) { - int i; - int len = strlen(data); - int o = 0; /* skip first bytes */ - if (data[len - 1] == '\n') { - data[len - 1] = 0; - len--; - } - if (data[0] == '*') - break; - if (data[0] >= '0' && data[0] <= '9' && data[1] >= '0' - && data[1] <= '9') { - o = 2; - } - printf(" \""); - for (i = o; i < len; i++) { - if (data[i] == '"' || data[i] == '\\') - putchar('\\'); - if (data[i] == '?') - printf("\" \""); /* suppress trigraphs */ - putchar(data[i]); - } - printf("\",\n"); - } - fclose(fh); - printf(" NULL };\n" - "int loadpoolstrings (integer spare_size) {\n" - " const char *s;\n" - " str_number g=0;\n" - " int i=0,j=0;\n" - " while ((s = poolfilearr[j++])) {\n" - " int l = strlen (s);\n" - " i += l;\n" " if (i>=spare_size) return 0;\n"); - if (is_luatex) - printf(" while (l-- > 0) str_pool[pool_ptr++] = *s++;\n" - " g = make_string();\n"); - else - printf(" while (l-- > 0) strpool[poolptr++] = *s++;\n" - " g = makestring();\n"); - if (is_metapost || is_metafont) - printf(" strref[g]= 127;\n"); - printf(" }\n" " return g;\n" "}\n"); - return EXIT_SUCCESS; -} |