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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
/*
Copyright (c) 1996-2004 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
$Id: //depot/Build/source.development/TeX/texk/web2c/pdftexdir/ptexmac.h#18 $
*/
#ifndef PDFTEXMAC
#define PDFTEXMAC
/* Not all systems define it. */
#ifndef M_PI
#define M_PI 3.14159265358979323846 /* pi */
#define M_PI_2 1.5707963267948966192E0 /*Hex 2^ 0 * 1.921FB54442D18 */
#define M_PI_4 7.8539816339744830962E-1 /*Hex 2^-1 * 1.921FB54442D18 */
#endif
#ifdef WIN32
// Why relying on gmalloc() ???
#define gmalloc(n) xmalloc(n)
#define gfree(p) free(p)
#define inline __inline
#define srandom(n) srand(n)
#define random() rand()
#endif
/* Pascal WEB macros */
#define maxinteger 0x7FFFFFFF
#define maxdimen 0x3FFFFFFF
#define objinfo(n) objtab[n].int0
#define pdfroom(n) do { \
if (pdfbufsize < n) \
pdftex_fail("PDF output buffer overflowed"); \
if (pdfptr + n > pdfbufsize) \
pdfflush(); \
} while (0)
#define pdfout(c) do { \
if (pdfptr > pdfbufsize) \
pdfflush(); \
pdfbuf[pdfptr++] = c; \
} while (0)
#define pdfoffset() (pdfgone + pdfptr)
#define pdfinitfont(f) {tmpf = f; pdfcreatefontobj();}
#define MAX_CHAR_CODE 255
#define PRINTF_BUF_SIZE 1024
#define MAX_CSTRING_LEN 1024
#define MAX_PSTRING_LEN 1024
#define SMALL_BUF_SIZE 256
#define SMALL_ARRAY_SIZE 256
#define FONTNAME_BUF_SIZE 128 /* a PDF name can be maximum 127 chars long */
#define check_buf(size, buf_size) \
if ((size) > (buf_size)) \
pdftex_fail("buffer overflow", (buf_size))
#define append_char_to_buf(c, p, buf, buf_size) do { \
if (c == 9) \
c = 32; \
if (c == 13 || c == EOF) \
c = 10; \
if (c != ' ' || (p > buf && p[-1] != 32)) { \
check_buf(p - buf + 1, (buf_size)); \
*p++ = c; \
} \
} while (0)
#define append_eol(p, buf, buf_size) do { \
check_buf(p - buf + 2, (buf_size)); \
if (p - buf > 1 && p[-1] != 10) \
*p++ = 10; \
if (p - buf > 2 && p[-2] == 32) { \
p[-2] = 10; \
p--; \
} \
*p = 0; \
} while (0)
#define remove_eol(p, buf) do { \
p = strend(buf) - 1; \
if (*p == 10) \
*p = 0; \
} while (0)
#define skip(p, c) if (*p == c) p++
#define alloc_array(T, n, s) do { \
if (T##_array == NULL) { \
T##_limit = (s); \
if ((n) > T##_limit) \
T##_limit = (n); \
T##_array = xtalloc(T##_limit, T##_entry); \
T##_ptr = T##_array; \
} \
else if (T##_ptr - T##_array + (n) > T##_limit) { \
last_ptr_index = T##_ptr - T##_array; \
T##_limit *= 2; \
if (T##_ptr - T##_array + (n) > T##_limit) \
T##_limit = T##_ptr - T##_array + (n); \
xretalloc(T##_array, T##_limit, T##_entry); \
T##_ptr = T##_array + last_ptr_index; \
} \
} while (0)
#define is_cfg_comment(c) \
(c == 10 || c == '*' || c == '#' || c == ';' || c == '%')
#define define_array(T) \
T##_entry *T##_ptr, *T##_array = NULL; \
size_t T##_limit
#define xfree(p) do { if (p != NULL) free(p); p = NULL; } while (0)
#define strend(s) strchr(s, 0)
#define xtalloc XTALLOC
#define xretalloc XRETALLOC
#define ASCENT_CODE 0
#define CAPHEIGHT_CODE 1
#define DESCENT_CODE 2
#define FONTNAME_CODE 3
#define ITALIC_ANGLE_CODE 4
#define STEMV_CODE 5
#define XHEIGHT_CODE 6
#define FONTBBOX1_CODE 7
#define FONTBBOX2_CODE 8
#define FONTBBOX3_CODE 9
#define FONTBBOX4_CODE 10
#define MAX_KEY_CODE (FONTBBOX1_CODE + 1)
#define FONT_KEYS_NUM (FONTBBOX4_CODE + 1)
#define F_INCLUDED 0x01
#define F_SUBSETTED 0x02
#define F_TRUETYPE 0x04
#define F_BASEFONT 0x08
#define set_included(fm) ((fm)->type |= F_INCLUDED)
#define set_subsetted(fm) ((fm)->type |= F_SUBSETTED)
#define set_truetype(fm) ((fm)->type |= F_TRUETYPE)
#define set_basefont(fm) ((fm)->type |= F_BASEFONT)
#define unset_included(fm) ((fm)->type &= ~F_INCLUDED)
#define unset_subsetted(fm) ((fm)->type &= ~F_SUBSETTED)
#define unset_truetype(fm) ((fm)->type &= ~F_TRUETYPE)
#define unset_basefont(fm) ((fm)->type &= ~F_BASEFONT)
#define unset_fontfile(fm) xfree((fm)->ff_name)
#define is_included(fm) ((fm)->type & F_INCLUDED)
#define is_subsetted(fm) ((fm)->type & F_SUBSETTED)
#define is_truetype(fm) ((fm)->type & F_TRUETYPE)
#define is_basefont(fm) ((fm)->type & F_BASEFONT)
#define no_font_desc(fm) (is_basefont(fm) && !is_included(fm))
#define fm_slant(fm) (fm)->slant
#define fm_extend(fm) (fm)->extend
#define fm_fontfile(fm) (fm)->ff_name
#define is_reencoded(fm) ((fm)->encoding != NULL)
#define is_fontfile(fm) (fm_fontfile(fm) != NULL)
#define is_t1fontfile(fm) (is_fontfile(fm) && !is_truetype(fm))
#define LINK_TFM 0x01
#define LINK_PS 0x02
#define set_tfmlink(fm) ((fm)->links |= LINK_TFM)
#define set_pslink(fm) ((fm)->links |= LINK_PS)
#define unset_tfmlink(fm) ((fm)->links &= ~LINK_TFM)
#define unset_pslink(fm) ((fm)->links &= ~LINK_PS)
#define has_tfmlink(fm) ((fm)->links & LINK_TFM)
#define has_pslink(fm) ((fm)->links & LINK_PS)
#define set_cur_file_name(s) \
cur_file_name = s; \
packfilename(maketexstring(cur_file_name), getnullstr(), getnullstr())
#endif /* PDFTEXMAC */
|
