diff options
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/ptexmac.h')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/ptexmac.h | 172 |
1 files changed, 0 insertions, 172 deletions
diff --git a/Build/source/texk/web2c/luatexdir/ptexmac.h b/Build/source/texk/web2c/luatexdir/ptexmac.h deleted file mode 100644 index bd95d71a631..00000000000 --- a/Build/source/texk/web2c/luatexdir/ptexmac.h +++ /dev/null @@ -1,172 +0,0 @@ -/* ptexmac.h - - Copyright 1996-2006 Han The Thanh <thanh@pdftex.org> - Copyright 2006-2008 Taco Hoekwater <taco@luatex.org> - - This file is part of LuaTeX. - - LuaTeX 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. - - LuaTeX 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 Lesser General Public - License for more details. - - You should have received a copy of the GNU General Public License along - with LuaTeX; if not, see <http://www.gnu.org/licenses/>. */ - -/* $Id$ */ - -#ifndef PTEXMAC_H -# define PTEXMAC_H - -/* 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 max_integer 0x7FFFFFFF -# define max_dimen 0x3FFFFFFF - -# define obj_info(a) obj_tab[(a)].int0 -# define obj_link(a) obj_tab[(a)].int1 -# define obj_offset(a) obj_tab[(a)].int2 -# define obj_os_idx(a) obj_tab[(a)].int3 -# define obj_aux(a) obj_tab[(a)].int4 -# define obj_data_ptr obj_aux - -/* types of objects */ -# define obj_type_others 0 /* objects which are not linked in any list */ -# define obj_type_page 1 /* index of linked list of Page objects */ -# define obj_type_font 2 /* index of linked list of Fonts objects */ -# define obj_type_outline 3 /* index of linked list of outline objects */ -# define obj_type_dest 4 /* index of linked list of destination objects */ -# define obj_type_obj 5 /* index of linked list of raw objects */ -# define obj_type_xform 6 /* index of linked list of XObject forms */ -# define obj_type_ximage 7 /* index of linked list of XObject image */ -# define obj_type_thread 8 /* index of linked list of num article threads */ -# define head_tab_max obj_type_thread /* max index of |head_tab| */ - -# define pdfroom(n) do { \ - if ((unsigned)(n + pdf_ptr) > (unsigned)pdf_buf_size) { \ - if (pdf_os_mode) \ - zpdf_os_get_os_buf(n); \ - else { \ - if ((unsigned)(n) > (unsigned)pdf_buf_size) \ - pdftex_fail("PDF output buffer overflowed"); \ - else \ - pdf_flush(); \ - } \ - } \ -} while (0) - -# define pdfout(c) do { \ - pdfroom(1); \ - pdf_buf[pdf_ptr++] = c; \ -} while (0) - -# define pdfoffset() (pdf_gone + pdf_ptr) - -/**********************************************************************/ - -# define PRINTF_BUF_SIZE 1024 -# define MAX_CSTRING_LEN 1024 * 1024 -# define MAX_PSTRING_LEN 1024 -# define SMALL_BUF_SIZE 256 -# define SMALL_ARRAY_SIZE 256 - -# define check_buf(size, buf_size) \ - if ((unsigned)(size) > (unsigned)(buf_size)) \ - pdftex_fail("buffer overflow: %d > %d at file %s, line %d", \ - (int)(size), (int)(buf_size), __FILE__, __LINE__ ) - -# 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 ((unsigned)(n) > T##_limit) \ - T##_limit = (n); \ - T##_array = xtalloc(T##_limit, T##_entry); \ - T##_ptr = T##_array; \ - } \ - else if ((unsigned)(T##_ptr - T##_array + (n)) > (unsigned)(T##_limit)) { \ - last_ptr_index = T##_ptr - T##_array; \ - T##_limit *= 2; \ - if ((unsigned)(T##_ptr - T##_array + (n)) > (unsigned)(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 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 set_cur_file_name(s) \ - cur_file_name = s; \ - pack_file_name(maketexstring(cur_file_name), get_nullstr(), get_nullstr()) - -# define cmp_return(a, b) \ - if ((a) > (b)) \ - return 1; \ - if ((a) < (b)) \ - return -1 - -# define str_prefix(s1, s2) (strncmp((s1), (s2), strlen(s2)) == 0) - -#endif /* PTEXMAC_H */ |