/* ptexlib.h Copyright 1996-2006 Han The Thanh Copyright 2006-2013 Taco Hoekwater 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 . */ #ifndef PTEXLIB_H # define PTEXLIB_H /* Try to detect if a system header has already been included. */ #if (defined(__linux__) && defined(_FEATURES_H)) || \ (defined(_MSC_VER) && (defined(_INC_CRTDEFS) || defined(_OFF_T_DEFINED))) || \ (defined(__MINGW32__) && defined(__MINGW_H)) ptexlib.h must be included first!!! #endif #ifdef HAVE_CONFIG_H #include #endif /* WEB2C macros and prototypes */ # include "luatex.h" # include "lib/lib.h" # ifdef _MSC_VER extern double rint(double x); # endif # if defined(WIN32) || defined(__MINGW32__) || defined(__CYGWIN__) extern char **suffixlist; /* in luainit.w */ # endif /* Replicate these here. They are hardcoded anyway */ # define eTeX_version_string "2.2" /* current \eTeX\ version */ # define eTeX_version 2 /* \.{\\eTeXversion} */ # define eTeX_minor_version 2 /* \.{\\eTeXminorversion} */ # define eTeX_revision ".2" /* \.{\\eTeXrevision} */ #define LUA_COMPAT_MODULE 1 # include "lua.h" /* pdftexlib macros from ptexmac.h */ # ifdef WIN32 # define inline __inline # endif /**********************************************************************/ /* Pascal WEB macros */ # define max_integer 0x7FFFFFFF # define max_dimen 0x3FFFFFFF /**********************************************************************/ # 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)) \ luatex_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 = (size_t)(s); \ if ((unsigned)(n) > (unsigned)T##_limit) \ T##_limit = (size_t)(n); \ T##_array = xtalloc((unsigned)T##_limit, T##_entry); \ T##_ptr = T##_array; \ } \ else if ((unsigned)(T##_ptr - T##_array + (unsigned)(n)) > (unsigned)(T##_limit)) { \ size_t last_ptr_index = (size_t)(T##_ptr - T##_array); \ T##_limit *= 2; \ if ((unsigned)(T##_ptr - T##_array + (unsigned)(n)) > (unsigned)(T##_limit)) \ T##_limit = (size_t)(T##_ptr - T##_array + (unsigned)(n)); \ xretalloc(T##_array, (unsigned)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(a) do { free(a); a = NULL; } while (0) # define dxfree(a,b) do { free(a); a = b; } while (0) # define strend(s) strchr(s, 0) # define xtalloc XTALLOC # define xretalloc XRETALLOC # 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) # include "tex/mainbody.h" # include "tex/expand.h" # include "tex/conditional.h" # include "pdf/pdftypes.h" /* the backend data structure, shared between dvi and pdf */ # include "synctex.h" # include "utils/avlstuff.h" # include "utils/managed-sa.h" # include "image/writeimg.h" # include "dvi/dvigen.h" # include "pdf/pdftables.h" # include "pdf/pdfpagetree.h" # include "pdf/pdfgen.h" # include "pdf/pdfpage.h" # include "pdf/pdfaction.h" # include "pdf/pdfannot.h" # include "pdf/pdfcolorstack.h" # include "pdf/pdfdest.h" # include "pdf/pdffont.h" # include "pdf/pdfglyph.h" # include "pdf/pdfimage.h" # include "pdf/pdflink.h" # include "pdf/pdflistout.h" # include "pdf/pdfliteral.h" # include "pdf/pdfluaapi.h" # include "pdf/pdfobj.h" # include "pdf/pdfoutline.h" # include "pdf/pdfrule.h" # include "pdf/pdfsaverestore.h" # include "pdf/pdfsetmatrix.h" # include "pdf/pdfshipout.h" # include "pdf/pdfthread.h" # include "pdf/pdfxform.h" # include "lua/luagen.h" # include "luascripts/pdflua.h" # include "font/luatexfont.h" # include "font/mapfile.h" # include "utils/utils.h" # include "utils/unistring.h" # include "image/writejbig2.h" # include "image/pdftoepdf.h" # include "lang/texlang.h" # include "tex/textcodes.h" # include "tex/mathcodes.h" # include "tex/align.h" # include "tex/directions.h" # include "tex/errors.h" # include "tex/inputstack.h" # include "tex/stringpool.h" # include "tex/textoken.h" # include "tex/printing.h" # include "tex/texfileio.h" # include "tex/arithmetic.h" # include "tex/nesting.h" # include "tex/packaging.h" # include "tex/linebreak.h" # include "tex/postlinebreak.h" # include "tex/scanning.h" # include "tex/buildpage.h" # include "tex/maincontrol.h" # include "tex/dumpdata.h" # include "tex/mainbody.h" # include "tex/extensions.h" # include "tex/texnodes.h" # include "tex/texmath.h" # include "tex/mlist.h" # include "tex/primitive.h" # include "tex/commands.h" # include "tex/equivalents.h" /**********************************************************************/ # include "tex/filename.h" /* lua/luainit.c */ extern void write_svnversion(char *a); /**********************************************************************/ extern halfword new_ligkern(halfword head, halfword tail); extern halfword handle_ligaturing(halfword head, halfword tail); extern halfword handle_kerning(halfword head, halfword tail); halfword lua_hpack_filter( halfword head_node, scaled size, int pack_type, int extrainfo, int d); void lua_node_filter( int filterid, int extrainfo, halfword head_node, halfword * tail_node); halfword lua_vpack_filter( halfword head_node, scaled size, int pack_type, scaled maxd, int extrainfo, int d); void lua_node_filter_s( int filterid, int extrainfo); int lua_linebreak_callback( int is_broken, halfword head_node, halfword * new_head); int lua_appendtovlist_callback( halfword box, int location, halfword prev_depth, boolean is_mirrored, halfword * result, int * next_depth, boolean * prev_set); void lua_pdf_literal(PDF pdf, int i); void copy_pdf_literal(pointer r, pointer p); void free_pdf_literal(pointer p); void show_pdf_literal(pointer p); void copy_late_lua(pointer r, pointer p); void copy_user_lua(pointer r, pointer p); void free_late_lua(pointer p); void free_user_lua(pointer p); void show_late_lua(pointer p); void load_tex_patterns(int curlang, halfword head); void load_tex_hyphenation(int curlang, halfword head); /* lua/llualib.c */ void dump_luac_registers(void); void undump_luac_registers(void); /* lua/ltexlib.c */ void luacstring_start(int n); void luacstring_close(int n); int luacstring_cattable(void); int luacstring_input(void); int luacstring_partial(void); int luacstring_final_line(void); /* lua/luatoken.c */ void do_get_token_lua(int callback_id); /* lua/luanode.c */ int visible_last_node_type(int n); void print_node_mem_stats(void); /* lua/limglib.c */ void vf_out_image(PDF pdf, unsigned i); /* lua/ltexiolib.c */ void flush_loggable_info(void); /* lua/luastuff.w and lua/luajitstuff.w */ void luafunctioncall(int slot); /* lua/luastuff.c */ void luatokencall(int p, int nameptr); extern void late_lua(PDF pdf, halfword p); extern void check_texconfig_init(void); scaled divide_scaled(scaled s, scaled m, int dd); scaled divide_scaled_n(double s, double m, double d); # include "tex/texdeffont.h" # include "luatexcallbackids.h" extern boolean get_callback(lua_State * L, int i); /* Additions to texmfmp.h for pdfTeX */ /* mark a char in font */ # define pdf_mark_char(f,c) set_char_used(f,c,true) /* test whether a char in font is marked */ # define pdf_char_marked char_used # define pdfassert assert # define voidcast(a) (void *)(a) # define fixmemcast(a) (smemory_word *)(a) extern void do_vf(internal_font_number tmp_f); /* This routine has to return four values. */ # define dateandtime(i,j,k,l) get_date_and_time (&(i), &(j), &(k), &(l)) extern void get_date_and_time(int *, int *, int *, int *); /* Get high-res time info. */ # define seconds_and_micros(i,j) get_seconds_and_micros (&(i), &(j)) extern void get_seconds_and_micros(int *, int *); /* This routine has to return a scaled value. */ extern int getrandomseed(void); /* Copy command-line arguments into the buffer, despite the name. */ extern void topenin(void); /* Can't prototype this since it uses poolpointer and ASCIIcode, which are defined later in mfd.h, and mfd.h uses stuff from here. */ /* Therefore the department of ugly hacks decided to move this declaration to the *coerce.h files. */ /* extern void calledit (); */ /* Set an array size from texmf.cnf. */ /*extern void setupboundvariable(integer *, const_string, integer);*/ /* here are a few functions that used to be in coerce.h */ extern str_number getjobname(str_number); extern str_number makefullnamestring(void); # include extern PDF static_pdf; extern string normalize_quotes(const_string name, const_string mesg); extern string dump_name; extern const_string c_job_name; extern halfword *check_isnode(lua_State * L, int i); extern void lua_nodelib_push_fast(lua_State * L, halfword n); extern halfword list_node_mem_usage(void); extern halfword *check_isnode(lua_State * L, int ud); extern extinfo *get_charinfo_vert_variants(charinfo * ci); extern extinfo *get_charinfo_hor_variants(charinfo * ci); extern void set_charinfo_hor_variants(charinfo * ci, extinfo * ext); extern void set_charinfo_vert_variants(charinfo * ci, extinfo * ext); extern extinfo *copy_variants(extinfo * o); extern int program_name_set; /* in lkpselib.c */ #endif /* PTEXLIB_H */