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
|
/*
Copyright (c) 1996-2007 Han The Thanh, <thanh@pdftex.org>
This file is part of pdfTeX.
pdfTeX is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
pdfTeX is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License along
with pdfTeX; if not, write to the Free Software Foundation, Inc., 51
Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/
#include "ptexlib.h"
typedef struct {
char *dataptr;
integer len;
} packet_entry;
/* define packet_ptr, packet_array & packet_limit */
define_array(packet);
typedef struct {
char **data;
int *len;
int char_count;
} vf_entry;
/* define vf_ptr, vf_array & vf_limit */
define_array(vf);
static char *packet_data_ptr;
integer newvfpacket(internalfontnumber f)
{
int i, n = fontec[f] - fontbc[f] + 1;
alloc_array(vf, 1, SMALL_ARRAY_SIZE);
vf_ptr->len = xtalloc(n, int);
vf_ptr->data = xtalloc(n, char *);
vf_ptr->char_count = n;
for (i = 0; i < n; i++) {
vf_ptr->data[i] = NULL;
vf_ptr->len[i] = 0;
}
return vf_ptr++ - vf_array;
}
void storepacket(internalfontnumber f, eightbits c, strnumber s)
{
int l = strstart[s + 1] - strstart[s];
vf_array[vfpacketbase[f]].len[c - fontbc[f]] = l;
vf_array[vfpacketbase[f]].data[c - fontbc[f]] = xtalloc(l, char);
memcpy((void *) vf_array[vfpacketbase[f]].data[c - fontbc[f]],
(void *) (strpool + strstart[s]), (unsigned) l);
}
void startpacket(internalfontnumber f, eightbits c)
{
packet_data_ptr = vf_array[vfpacketbase[f]].data[c - fontbc[f]];
vfpacketlength = vf_array[vfpacketbase[f]].len[c - fontbc[f]];
}
eightbits packetbyte()
{
vfpacketlength--;
return *packet_data_ptr++;
}
void pushpacketstate()
{
alloc_array(packet, 1, SMALL_ARRAY_SIZE);
packet_ptr->dataptr = packet_data_ptr;
packet_ptr->len = vfpacketlength;
packet_ptr++;
}
void poppacketstate()
{
if (packet_ptr == packet_array)
pdftex_fail("packet stack empty, impossible to pop");
packet_ptr--;
packet_data_ptr = packet_ptr->dataptr;
vfpacketlength = packet_ptr->len;
}
void vf_free(void)
{
vf_entry *v;
char **p;
if (vf_array != NULL) {
for (v = vf_array; v < vf_ptr; v++) {
xfree(v->len);
for (p = v->data; p - v->data < v->char_count; p++)
xfree(*p);
xfree(v->data);
}
xfree(vf_array);
}
xfree(packet_array);
}
|