1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
/* 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;
}
|
