summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegadir/makecpool.c
blob: 4a92806820850abded1fcc2b57161e11665760a2 (plain)
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
/* Copyright 2007, 2008 Taco Hoekwater.
   You may freely use, modify and/or distribute this file.  */

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

int main(int argc, char *argv[]) {
  char *filename;
  char *headername;
  FILE *fh;
  char data[1024];
  if (argc!=3) {
	puts("Need exactly two arguments: pool_name and header_name");
    exit(1);
  }
  filename = argv[1];
  headername = argv[2];
  fh = fopen(filename,"r");
  printf(
    "/* This file is auto-generated by makecpool */\n"
    "\n"
    "#include <stdio.h>\n"
    "#include <string.h>\n"
    "#include \"%s\"\n"
    "\n"
    "static char *poolfilearr[] = {\n",headername);
  while (fgets(data,1024,fh)) {
    int len = strlen(data);
    int o = 0; /* skip first o characters*/
    int i;
    if (data[len-1]=='\n') { /* chomp;*/
      data[len-1] = 0;
      len--;
    }
    if (data[0]=='*') break; /* last if !^\*!; */
    if (data[0]>='0' && data[0]<='9' && data[1]>='0' && data[1]<='9') {
      o=2; /* $data =~ s/^\d\d//; */
    }
    printf("  \"");
    for (i=o; i<len; i++) {
      if (data[i]=='"' || data[i]=='\\') putchar('\\');
	  if (data[i]=='?') printf("\" \""); /* suppress trigraphs */
      putchar(data[i]);
    } /* $data =~ s/(["\\])/\\$1/g; */
    printf("\",\n");
  }
  fclose(fh);
  printf("  NULL };\n"
    "int loadpoolstrings (integer spare_size) {\n"
    "  strnumber g=0;\n"
    "  int i=0,j=0;\n"
    "  char *s;\n"
    "  while ((s = poolfilearr[j++])) {\n"
    "    int l = strlen (s);\n"
    "    i += l;\n"
    "    if (i>=spare_size) return 0;\n"
    "    while (l-- > 0) strpool[poolptr++] = *s++;\n"
    /* "    while (l-- > 0) str_pool[pool_ptr++] = *s++;\n" */
    "    g = makestring();\n"
    /* "    g = make_string();\n" */
		 /*    "    strref[g]= 127;\n"*/
    "  }\n"
    "  return g;\n"
    "}\n");
  return 0;
}