summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/ptexlib.h
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/ptexlib.h')
-rw-r--r--Build/source/texk/web2c/luatexdir/ptexlib.h590
1 files changed, 287 insertions, 303 deletions
diff --git a/Build/source/texk/web2c/luatexdir/ptexlib.h b/Build/source/texk/web2c/luatexdir/ptexlib.h
index 77f8e1318f2..1f45113f6c9 100644
--- a/Build/source/texk/web2c/luatexdir/ptexlib.h
+++ b/Build/source/texk/web2c/luatexdir/ptexlib.h
@@ -24,223 +24,248 @@
# define PTEXLIB_H
/* WEB2C macros and prototypes */
-# if !defined(LUATEXCOERCE)
-# ifdef luatex
-# undef luatex /* to avoid warning about redefining luatex in luatexd.h */
-# endif /* luatex */
-# define EXTERN extern
-# include "luatexd.h"
-# endif
+# define EXTERN extern
+# include "luatex.h"
# ifdef MSVC
extern double rint(double x);
# endif
-/* pdftexlib macros */
-# include "ptexmac.h"
+extern string fullnameoffile;
+# if defined(WIN32) || defined(__MINGW32__) || defined(__CYGWIN__)
+extern char **suffixlist;
+# 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 Omega_version_string "1.15" /* \.{\\OmegaVersion} */
+# define Omega_version 1 /* \.{\\Omegaversion} */
+# define Omega_minor_version 15 /* \.{\\Omegaminorversion} */
+# define Omega_revision ".15" /* \.{\\Omegarevision} */
+
+# define Aleph_version_string "0.0" /* \.{\\AlephVersion} */
+# define Aleph_version 0 /* \.{\\Alephversion} */
+# define Aleph_minor_version 0 /* \.{\\Alephminorversion} */
+# define Aleph_revision ".0" /* \.{\\Alephrevision} */
+
+# define pdftex_version_string "-2.00.0"
+ /* current \pdfTeX\ version */
+# define pdftex_version 200 /* \.{\\pdftexversion} */
+# define pdftex_revision "0" /* \.{\\pdftexrevision} */
+
+# include "lua51/lua.h"
+
+
+/* pdftexlib macros from ptexmac.h */
+
+/* Not all systems define it. */
+# ifndef M_PI
+# define M_PI 3.14159265358979323846 /* pi */
+# endif
+
+# 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)) \
+ 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 = (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)
+
+/* that was ptexmac.h */
+
+# include "tex/mainbody.h"
+# include "tex/expand.h"
+# include "tex/conditional.h"
+# include "pdf/pdftypes.h"
/* synctex */
# include "utils/synctex.h"
# include "utils/avlstuff.h"
+# include "utils/managed-sa.h"
# include "image/writeimg.h"
# include "openbsd-compat.h"
+# include "dvi/dvigen.h"
# include "pdf/pagetree.h"
+# include "pdf/pdfgen.h"
# include "pdf/pdfpage.h"
+# include "pdf/pdftables.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/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 "font/luatexfont.h"
# include "font/mapfile.h"
# include "utils/utils.h"
# include "image/writejbig2.h"
# include "image/pdftoepdf.h"
-/**********************************************************************/
-
-typedef short shalfword;
+# include "ocp/ocp.h"
+# include "ocp/ocplist.h"
+# include "ocp/runocp.h"
+# include "ocp/readocp.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"
-/* loadpool.c */
-int loadpoolstrings(integer spare_size);
+/**********************************************************************/
-/* tex/filename.c */
-extern void scan_file_name(void);
-extern void pack_job_name(const char *s);
-extern void prompt_file_name(const char *s, const char *e);
-extern str_number make_name_string(void);
-extern void print_file_name(str_number, str_number, str_number);
+# include "tex/filename.h"
/* lua/luainit.c */
-extern void write_svnversion(const char *a);
-
-/* utils/writezip.c */
-extern void write_zip(boolean);
-extern void zip_free(void);
+extern void write_svnversion(char *a);
/**********************************************************************/
-typedef enum {
- no_print = 16,
- term_only = 17,
- log_only = 18,
- term_and_log = 19,
- pseudo = 20,
- new_string = 21
-} selector_settings;
-
-/* language stuff */
-
-typedef struct _lang_variables {
- int pre_hyphen_char;
- int post_hyphen_char;
- int pre_exhyphen_char;
- int post_exhyphen_char;
-} lang_variables;
-
-# include "hyphen.h"
-
-struct tex_language {
- HyphenDict *patterns;
- int exceptions; /* lua registry pointer, should be replaced */
- int id;
- int pre_hyphen_char;
- int post_hyphen_char;
- int pre_exhyphen_char;
- int post_exhyphen_char;
-};
-
-# define MAX_WORD_LEN 256 /* in chars */
-
-extern struct tex_language *new_language(int n);
-extern struct tex_language *get_language(int n);
-extern void load_patterns(struct tex_language *lang, const unsigned char *buf);
-extern void load_hyphenation(struct tex_language *lang, const unsigned char *buf);
-extern int hyphenate_string(struct tex_language *lang, char *w, char **ret);
-
-extern void new_hyphenation(halfword h, halfword t);
-extern void clear_patterns(struct tex_language *lang);
-extern void clear_hyphenation(struct tex_language *lang);
-extern const char *clean_hyphenation(const char *buffer, char **cleaned);
-extern void hnj_hyphenation(halfword head, halfword tail);
-
-extern void set_pre_hyphen_char(integer lan, integer val);
-extern void set_post_hyphen_char(integer lan, integer val);
-extern integer get_pre_hyphen_char(integer lan);
-extern integer get_post_hyphen_char(integer lan);
-
-extern void set_pre_exhyphen_char(integer lan, integer val);
-extern void set_post_exhyphen_char(integer lan, integer val);
-extern integer get_pre_exhyphen_char(integer lan);
-extern integer get_post_exhyphen_char(integer lan);
-extern halfword compound_word_break(halfword t, int clang);
-
extern halfword new_ligkern(halfword head, halfword tail);
extern halfword handle_ligaturing(halfword head, halfword tail);
extern halfword handle_kerning(halfword head, halfword tail);
-# define push_dir(a) \
- { dir_tmp=new_dir((a)); \
- vlink(dir_tmp)=dir_ptr; dir_ptr=dir_tmp; \
- dir_ptr=dir_tmp; \
- }
-
-# define push_dir_node(a) \
- { dir_tmp=new_node(whatsit_node,dir_node); \
- dir_dir(dir_tmp)=dir_dir((a)); \
- dir_level(dir_tmp)=dir_level((a)); \
- dir_dvi_h(dir_tmp)=dir_dvi_h((a)); \
- dir_dvi_ptr(dir_tmp)=dir_dvi_ptr((a)); \
- vlink(dir_tmp)=dir_ptr; dir_ptr=dir_tmp; \
- }
-
-# define pop_dir_node() \
- { dir_tmp=dir_ptr; \
- dir_ptr=vlink(dir_tmp); \
- flush_node(dir_tmp); \
- }
-
-# define dir_parallel(a,b) (((a) % 2)==((b) % 2))
-# define dir_orthogonal(a,b) (((a) % 2)!=((b) % 2))
-
-# define is_rotated(a) dir_parallel(dir_secondary[(a)],dir_tertiary[(a)])
-
-void initialize_active(void);
-
-halfword find_protchar_left(halfword l, boolean d);
-halfword find_protchar_right(halfword l, halfword r);
-
-void ext_do_line_break(boolean d,
- int pretolerance,
- int tracing_paragraphs,
- int tolerance,
- scaled emergency_stretch,
- int looseness,
- int hyphen_penalty,
- int ex_hyphen_penalty,
- int pdf_adjust_spacing,
- halfword par_shape_ptr,
- int adj_demerits,
- int pdf_protrude_chars,
- int line_penalty,
- int last_line_fit,
- int double_hyphen_demerits,
- int final_hyphen_demerits,
- int hang_indent,
- int hsize,
- int hang_after,
- halfword left_skip,
- halfword right_skip,
- int pdf_each_line_height,
- int pdf_each_line_depth,
- int pdf_first_line_height,
- int pdf_last_line_depth,
- halfword inter_line_penalties_ptr,
- int inter_line_penalty,
- int club_penalty,
- halfword club_penalties_ptr,
- halfword display_widow_penalties_ptr,
- halfword widow_penalties_ptr,
- int display_widow_penalty,
- int widow_penalty,
- int broken_penalty, halfword final_par_glue,
- halfword pdf_ignored_dimen);
-
-void ext_post_line_break(boolean d,
- int right_skip,
- int left_skip,
- int pdf_protrude_chars,
- halfword par_shape_ptr,
- int pdf_adjust_spacing,
- int pdf_each_line_height,
- int pdf_each_line_depth,
- int pdf_first_line_height,
- int pdf_last_line_depth,
- halfword inter_line_penalties_ptr,
- int inter_line_penalty,
- int club_penalty,
- halfword club_penalties_ptr,
- halfword display_widow_penalties_ptr,
- halfword widow_penalties_ptr,
- int display_widow_penalty,
- int widow_penalty,
- int broken_penalty,
- halfword final_par_glue,
- halfword best_bet,
- halfword last_special_line,
- scaled second_width,
- scaled second_indent,
- scaled first_width,
- scaled first_indent, halfword best_line,
- halfword pdf_ignored_dimen);
-
halfword lua_hpack_filter(halfword head_node, scaled size, int pack_type,
- int extrainfo);
+ 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);
+ scaled maxd, int extrainfo, int d);
void lua_node_filter_s(int filterid, const char *extrainfo);
int lua_linebreak_callback(int is_broken, halfword head_node,
halfword * new_head);
-void lua_pdf_literal(int i);
+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);
@@ -248,82 +273,6 @@ void show_pdf_literal(pointer p);
void load_tex_patterns(int curlang, halfword head);
void load_tex_hyphenation(int curlang, halfword head);
-/* textcodes.c */
-void set_lc_code(integer n, halfword v, quarterword gl);
-halfword get_lc_code(integer n);
-void set_uc_code(integer n, halfword v, quarterword gl);
-halfword get_uc_code(integer n);
-void set_sf_code(integer n, halfword v, quarterword gl);
-halfword get_sf_code(integer n);
-void set_cat_code(integer h, integer n, halfword v, quarterword gl);
-halfword get_cat_code(integer h, integer n);
-void unsave_cat_codes(integer h, quarterword gl);
-int valid_catcode_table(int h);
-void initex_cat_codes(int h);
-void unsave_text_codes(quarterword grouplevel);
-void initialize_text_codes(void);
-void dump_text_codes(void);
-void undump_text_codes(void);
-void copy_cat_codes(int from, int to);
-void free_math_codes(void);
-void free_text_codes(void);
-
-/* mathcodes.c */
-
-# define no_mathcode 0 /* this is a flag for |scan_delimiter| */
-# define tex_mathcode 8
-# define aleph_mathcode 16
-# define xetex_mathcode 21
-# define xetexnum_mathcode 22
-
-typedef struct mathcodeval {
- integer class_value;
- integer origin_value;
- integer family_value;
- integer character_value;
-} mathcodeval;
-
-void set_math_code(integer n,
- integer commandorigin,
- integer mathclass,
- integer mathfamily, integer mathcharacter, quarterword gl);
-
-mathcodeval get_math_code(integer n);
-integer get_math_code_num(integer n);
-mathcodeval scan_mathchar(int extcode);
-mathcodeval scan_delimiter_as_mathchar(int extcode);
-
-mathcodeval mathchar_from_integer(integer value, int extcode);
-void show_mathcode_value(mathcodeval d);
-
-typedef struct delcodeval {
- integer class_value;
- integer origin_value;
- integer small_family_value;
- integer small_character_value;
- integer large_family_value;
- integer large_character_value;
-} delcodeval;
-
-void set_del_code(integer n,
- integer commandorigin,
- integer smathfamily,
- integer smathcharacter,
- integer lmathfamily, integer lmathcharacter, quarterword gl);
-
-delcodeval get_del_code(integer n);
-
-void unsave_math_codes(quarterword grouplevel);
-void initialize_math_codes(void);
-void dump_math_codes(void);
-void undump_math_codes(void);
-
-/* lang/texlang.c */
-
-void dump_language_data(void);
-void undump_language_data(void);
-char *exception_strings(struct tex_language *lang);
-
/* lua/llualib.c */
void dump_luac_registers(void);
@@ -332,70 +281,36 @@ void undump_luac_registers(void);
/* lua/ltexlib.c */
void luacstring_start(int n);
void luacstring_close(int n);
-integer luacstring_cattable(void);
+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(integer callback_id);
+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(unsigned i);
+void vf_out_image(PDF pdf, unsigned i);
/* lua/ltexiolib.c */
void flush_loggable_info(void);
/* lua/luastuff.c */
-void luacall(int s, int nameptr);
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, integer dd);
+scaled divide_scaled(scaled s, scaled m, int dd);
scaled divide_scaled_n(double s, double m, double d);
-/* tex/mlist.c */
-void run_mlist_to_hlist(pointer p, integer m_style, boolean penalties);
-void fixup_math_parameters(integer fam_id, integer size_id, integer f,
- integer lvl);
-
-/* tex/texpdf.c */
-void pdf_print_char(internal_font_number f, integer c);
-void pdf_print(str_number n);
-void pdf_print_str(str_number n);
-void pdf_print_int(longinteger n);
-void pdf_print_real(integer m, integer d);
-
-/* tex/textoken.c */
+# include "tex/texdeffont.h"
-# define NO_CAT_TABLE -2
-# define DEFAULT_CAT_TABLE -1
-
-extern boolean str_eq_cstr(str_number, const char *, size_t);
-void get_next(void);
-extern void check_outer_validity(void);
-boolean scan_keyword(const char *);
-void scan_direction(void);
-halfword active_to_cs(int, int);
-void get_token_lua(void);
-int get_char_cat_code(int);
-
-/* tex/texdeffont.c */
-
-void tex_def_font(small_number a);
-
-/* lua/ltokenlib.c */
-
-extern int get_command_id(const char *);
-
-/* lua/lcallbacklib.c */
-
-# include <../lua51/lua.h>
+/* lcallbacklib.c */
typedef enum {
find_write_file_callback = 1,
@@ -415,7 +330,7 @@ typedef enum {
find_sfd_file_callback, read_sfd_file_callback,
find_pk_file_callback, read_pk_file_callback,
show_error_hook_callback,
- process_input_buffer_callback,
+ process_input_buffer_callback, process_output_buffer_callback,
start_page_number_callback, stop_page_number_callback,
start_run_callback, stop_run_callback,
define_font_callback,
@@ -446,16 +361,85 @@ extern void destroy_saved_callback(int i);
extern boolean get_callback(lua_State * L, int i);
extern void get_saved_lua_boolean(int i, const char *name, boolean * target);
-extern void get_saved_lua_number(int i, const char *name, integer * target);
-extern void get_saved_lua_string(int i, const char *name, const char **target);
+extern void get_saved_lua_number(int i, const char *name, int *target);
+extern void get_saved_lua_string(int i, const char *name, char **target);
-extern void get_lua_boolean(const char *table, const char *name, boolean * target);
-extern void get_lua_number(const char *table, const char *name, integer * target);
-extern void get_lua_string(const char *table, const char *name, const char **target);
+extern void get_lua_boolean(const char *table, const char *name,
+ boolean * target);
+extern void get_lua_number(const char *table, const char *name, int *target);
+extern void get_lua_string(const char *table, const char *name, char **target);
extern char *get_lua_name(int i);
-# include "texmath.h"
-# include "primitive.h"
+/* 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);
+
+
+extern KPSEDLL string kpathsea_version_string; /* from kpathsea/version.c */
+
+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 ud);
+extern void lua_nodelib_push_fast(lua_State * L, halfword n);
+
+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 */