aboutsummaryrefslogtreecommitdiff
path: root/lib/enca/data/pairtoc.c
blob: a95a333fef66b57fcdeceb4e7eddeb9b72ea0793 (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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#include <stdio.h>
#include <ctype.h>
#include <stdlib.h>
#include <assert.h>

#define FILL_CHARACTER '.'

#define mytoupper(x) (islower(x) ? toupper(x) : (x))

int
main(int argc, char *argv[])
{
  unsigned int letters[0x100];
  unsigned int order[0x100];
  unsigned char *pairs[0x100];
  FILE *f;
  unsigned int i, j, k;
  int first, second;

  /* read letters */
  for (i = 0; i < 0x100; i++) {
    letters[i] = 0;
    pairs[i] = NULL;
  }

  f = fopen(argv[2], "r");
  while (fscanf(f, "%lx", &j) == 1)
    letters[j] = 0xff;
  fclose(f);

  /* read stuff */
  j = 0;
  while ((first = getchar()) != EOF) {
    pairs[first] = (unsigned char*)malloc(0x101);
    order[j] = first;
    letters[first] = j++;
    getchar();  /* : */
    i = 0;
    while ((second = getchar()) != '\n')
      pairs[first][i++] = (unsigned char*)second;
    pairs[first][i] = '\0';
  }
  assert(order[0] == FILL_CHARACTER);

  puts("/* THIS IS A GENERATED TABLE, see data/pairtoc.c. */");
  printf("static const unsigned char LETTER_");
  for (i = 0; argv[1][i]; i++)
    printf("%c", mytoupper(argv[1][i]));
  puts("[] = {");

  for (i = 0; i < 0x100; i++) {
    if (i % 8 == 0)
      printf("  ");
    printf("%3u", letters[i]);
    if (i % 8 == 7)
      printf(",  /* 0x%02x */\n", i-7);
    else
      printf(", ");
  }
  puts("};\n");

  puts("/* THIS IS A GENERATED TABLE, see data/pairtoc.c. */");
  printf("static const unsigned char *PAIR_");
  for (i = 0; argv[1][i]; i++)
    printf("%c", mytoupper(argv[1][i]));
  puts("[] = {\n");

  printf("  (unsigned char*)\"");
  for (k = 0; pairs[FILL_CHARACTER][k]; k++) {
    printf("\\x%02x", pairs[FILL_CHARACTER][k]);
  }
  printf("\",  /* FILLCHAR */\n");

  for (i = 1; i < j; i++) {
    printf("  (unsigned char*)\"");
    for (k = 0; pairs[order[i]][k]; k++) {
      if (pairs[order[i]][k] == FILL_CHARACTER)
        printf(".");
      else
        printf("\\x%02x", pairs[order[i]][k]);
    }
    printf("\",  /* 0x%02x */\n", order[i]);
  }
  puts("};\n");

  return 0;
}