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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
#include <kpathsea/kpathsea.h>
#include "makejvf.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int nt,unit,zh,zw,jfm_id;
int *width,*height,*depth,*italic,*glue_kern,*kern,*glue,*param;
unsigned char *header,*char_type,*char_info;
int jfmread(int kcode)
{
int i,ctype = 0,w_ind,w;
for (i = 0 ; i < nt ; i++) {
if (upair(&char_type[i*4]) == kcode) {
ctype = upair(&char_type[i*4+2]);
break;
}
}
w_ind = char_info[ctype*4];
w = width[w_ind];
return(w);
}
int tfmget(char *name)
{
char nbuff[1024];
FILE *fp;
strcpy(nbuff,name);
fp = fopen(nbuff,"rb");
if (fp == NULL) {
strcat(nbuff,".tfm");
fp = fopen(nbuff,"rb");
if (fp == NULL) {
fprintf(stderr,"%s is not found.\n",name);
exit(0);
}
}
tfmidx(fp);
fclose(fp);
return 0;
}
int tfmidx(FILE *fp)
{
int i;
int lh,ec,nw,nh,nd,ni,nl,nk,ng,np;
jfm_id = fpair(fp);
if ((jfm_id == 9) || (jfm_id == 11)) {
nt = ufpair(fp);
fpair(fp);
lh = ufpair(fp);
fpair(fp);
ec = ufpair(fp);
nw = ufpair(fp);
nh = ufpair(fp);
nd = ufpair(fp);
ni = ufpair(fp);
nl = ufpair(fp);
nk = ufpair(fp);
ng = ufpair(fp);
np = ufpair(fp);
header = xmalloc(lh*4);
for (i = 0 ; i < lh*4 ; i++) {
header[i] = fgetc(fp);
}
char_type = xmalloc(nt*4);
for (i = 0 ; i < nt*4 ; i++) {
char_type[i] = fgetc(fp);
}
char_info = xmalloc((ec+1)*4);
for (i = 0 ; i < (ec+1)*4 ; i++) {
char_info[i] = fgetc(fp);
}
width = xmalloc(nw*sizeof(int));
for (i = 0 ; i < nw ; i++) {
width[i] = fquad(fp);
}
height = xmalloc(nh*sizeof(int));
for (i = 0 ; i < nh ; i++) {
height[i] = fquad(fp);
}
depth = xmalloc(nd*sizeof(int));
for (i = 0 ; i < nd ; i++) {
depth[i] = fquad(fp);
}
fseek(fp,(ni+nl+nk+ng)*4,SEEK_CUR);
param = xmalloc(np*sizeof(int));
for (i = 0 ; i < np ; i++) {
param[i] = fquad(fp);
}
unit = mquad(&header[4]);
zh = param[4];
zw = param[5];
if (baseshift)
baseshift = (int)(zh*baseshift/1000.0+0.5);
}
else {
fprintf(stderr,"This TFM is not for Japanese.\n");
exit(100);
}
return 0;
}
|
