/* ltexlib.c Copyright 2006-2010 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 . */ #include "lua/luatex-api.h" #include "ptexlib.h" static const char _svn_version[] = "$Id: ltexlib.c 4274 2011-05-18 11:23:45Z taco $ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.70.1/source/texk/web2c/luatexdir/lua/ltexlib.c $"; #define attribute(A) eqtb[attribute_base+(A)].hh.rh #define dimen(A) eqtb[scaled_base+(A)].hh.rh #undef skip #define skip(A) eqtb[skip_base+(A)].hh.rh #define mu_skip(A) eqtb[mu_skip_base+(A)].hh.rh #define count(A) eqtb[count_base+(A)].hh.rh #define box(A) equiv(box_base+(A)) typedef struct { char *text; unsigned int tsize; void *next; boolean partial; int cattable; } rope; typedef struct { rope *head; rope *tail; char complete; /* currently still writing ? */ } spindle; #define PARTIAL_LINE 1 #define FULL_LINE 0 #define write_spindle spindles[spindle_index] #define read_spindle spindles[(spindle_index-1)] static int spindle_size = 0; static spindle *spindles = NULL; static int spindle_index = 0; static void luac_store(lua_State * L, int i, int partial, int cattable) { char *st; const char *sttemp; size_t tsize; rope *rn = NULL; sttemp = lua_tolstring(L, i, &tsize); st = xmalloc((unsigned) (tsize + 1)); memcpy(st, sttemp, (tsize + 1)); if (st) { luacstrings++; rn = (rope *) xmalloc(sizeof(rope)); rn->text = st; rn->tsize = (unsigned) tsize; rn->partial = partial; rn->cattable = cattable; rn->next = NULL; if (write_spindle.head == NULL) { assert(write_spindle.tail == NULL); write_spindle.head = rn; } else { write_spindle.tail->next = rn; } write_spindle.tail = rn; write_spindle.complete = 0; } } static int do_luacprint(lua_State * L, int partial, int deftable) { int i, n; int cattable = deftable; int startstrings = 1; n = lua_gettop(L); if (cattable != NO_CAT_TABLE) { if (lua_type(L, 1) == LUA_TNUMBER && n > 1) { lua_number2int(cattable, lua_tonumber(L, 1)); startstrings = 2; if (cattable != -1 && cattable != -2 && !valid_catcode_table(cattable)) { cattable = DEFAULT_CAT_TABLE; } } } if (lua_type(L, startstrings) == LUA_TTABLE) { for (i = 1;; i++) { lua_rawgeti(L, startstrings, i); if (lua_isstring(L, -1)) { luac_store(L, -1, partial, cattable); lua_pop(L, 1); } else { break; } } } else { for (i = startstrings; i <= n; i++) { if (!lua_isstring(L, i)) { luaL_error(L, "no string to print"); } luac_store(L, i, partial, cattable); } } return 0; } static int luacwrite(lua_State * L) { return do_luacprint(L, FULL_LINE, NO_CAT_TABLE); } static int luacprint(lua_State * L) { return do_luacprint(L, FULL_LINE, DEFAULT_CAT_TABLE); } static int luacsprint(lua_State * L) { return do_luacprint(L, PARTIAL_LINE, DEFAULT_CAT_TABLE); } static int luactprint(lua_State * L) { int i, j, n; int cattable, startstrings; n = lua_gettop(L); for (i = 1; i <= n; i++) { cattable = DEFAULT_CAT_TABLE; startstrings = 1; if (lua_type(L, i) != LUA_TTABLE) { luaL_error(L, "no string to print"); } lua_pushvalue(L, i); /* push the table */ lua_pushnumber(L, 1); lua_gettable(L, -2); if (lua_type(L, -1) == LUA_TNUMBER) { lua_number2int(cattable, lua_tonumber(L, -1)); startstrings = 2; if (cattable != -1 && cattable != -2 && !valid_catcode_table(cattable)) { cattable = DEFAULT_CAT_TABLE; } } lua_pop(L, 1); for (j = startstrings;; j++) { lua_pushnumber(L, j); lua_gettable(L, -2); if (lua_type(L, -1) == LUA_TSTRING) { luac_store(L, -1, PARTIAL_LINE, cattable); lua_pop(L, 1); } else { lua_pop(L, 1); break; } } lua_pop(L, 1); /* pop the table */ } return 0; } int luacstring_cattable(void) { return (int) read_spindle.tail->cattable; } int luacstring_partial(void) { return read_spindle.tail->partial; } int luacstring_final_line(void) { return (read_spindle.tail->next == NULL); } int luacstring_input(void) { char *st; int ret; rope *t = read_spindle.head; if (!read_spindle.complete) { read_spindle.complete = 1; read_spindle.tail = NULL; } if (t == NULL) { if (read_spindle.tail != NULL) free(read_spindle.tail); read_spindle.tail = NULL; return 0; } if (t->text != NULL) { st = t->text; /* put that thing in the buffer */ last = first; ret = last; check_buffer_overflow(last + (int) t->tsize); while (t->tsize-- > 0) buffer[last++] = (packed_ASCII_code) * st++; if (!t->partial) { while (last - 1 > ret && buffer[last - 1] == ' ') last--; } free(t->text); t->text = NULL; } if (read_spindle.tail != NULL) { /* not a one-liner */ free(read_spindle.tail); } read_spindle.tail = t; read_spindle.head = t->next; return 1; } /* open for reading, and make a new one for writing */ void luacstring_start(int n) { (void) n; /* for -W */ spindle_index++; if (spindle_size == spindle_index) { /* add a new one */ spindles = xrealloc(spindles, (unsigned) (sizeof(spindle) * (unsigned) (spindle_size + 1))); spindles[spindle_index].head = NULL; spindles[spindle_index].tail = NULL; spindles[spindle_index].complete = 0; spindle_size++; } } /* close for reading */ void luacstring_close(int n) { rope *next, *t; (void) n; /* for -W */ next = read_spindle.head; while (next != NULL) { if (next->text != NULL) free(next->text); t = next; next = next->next; free(t); } read_spindle.head = NULL; if (read_spindle.tail != NULL) free(read_spindle.tail); read_spindle.tail = NULL; read_spindle.complete = 0; spindle_index--; } /* local (static) versions */ #define check_index_range(j,s) \ if (j<0 || j > 65535) { \ luaL_error(L, "incorrect index value %d for tex.%s()", (int)j, s); } static const char *scan_integer_part(lua_State * L, const char *ss, int *ret, int *radix_ret) { boolean negative = false; /* should the answer be negated? */ int m; /* |$2^{31}$ / radix|, the threshold of danger */ int d; /* the digit just scanned */ boolean vacuous; /* have no digits appeared? */ boolean OK_so_far; /* has an error message been issued? */ int radix = 0; /* the radix of the integer */ int c = 0; /* the current character */ const char *s; /* where we stopped in the string |ss| */ integer cur_val = 0; /* return value */ s = ss; do { do { c = *s++; } while (c && c == ' '); if (c == '-') { negative = !negative; c = '+'; } } while (c == '+'); radix = 10; m = 214748364; if (c == '\'') { radix = 8; m = 02000000000; c = *s++; } else if (c == '"') { radix = 16; m = 01000000000; c = *s++; } vacuous = true; cur_val = 0; OK_so_far = true; /* Accumulate the constant until |cur_tok| is not a suitable digit */ while (1) { if ((c < '0' + radix) && (c >= '0') && (c <= '0' + 9)) { d = c - '0'; } else if (radix == 16) { if ((c <= 'A' + 5) && (c >= 'A')) { d = c - 'A' + 10; } else if ((c <= 'a' + 5) && (c >= 'a')) { d = c - 'a' + 10; } else { break; } } else { break; } vacuous = false; if ((cur_val >= m) && ((cur_val > m) || (d > 7) || (radix != 10))) { if (OK_so_far) { luaL_error(L, "Number too big"); cur_val = infinity; OK_so_far = false; } } else { cur_val = cur_val * radix + d; } c = *s++; } if (vacuous) { /* Express astonishment that no number was here */ luaL_error(L, "Missing number, treated as zero"); } if (negative) cur_val = -cur_val; *ret = cur_val; *radix_ret = radix; if (c != ' ' && s > ss) s--; return s; } #define set_conversion(A,B) do { num=(A); denom=(B); } while(0) static const char *scan_dimen_part(lua_State * L, const char *ss, int *ret) /* sets |cur_val| to a dimension */ { boolean negative = false; /* should the answer be negated? */ int f = 0; /* numerator of a fraction whose denominator is $2^{16}$ */ int num, denom; /* conversion ratio for the scanned units */ int k; /* number of digits in a decimal fraction */ scaled v; /* an internal dimension */ int save_cur_val; /* temporary storage of |cur_val| */ int arith_error = false; int c; /* the current character */ const char *s = ss; /* where we are in the string */ int radix = 0; /* the current radix */ int rdig[18]; /* to save the |dig[]| array */ int saved_tex_remainder; /* to save |tex_remainder| */ int saved_arith_error; /* to save |arith_error| */ int saved_cur_val; /* to save the global |cur_val| */ saved_tex_remainder = tex_remainder; saved_arith_error = arith_error; saved_cur_val = cur_val; /* Get the next non-blank non-sign... */ do { /* Get the next non-blank non-call token */ do { c = *s++; } while (c && c == ' '); if (c == '-') { negative = !negative; c = '+'; } } while (c == '+'); if (c == ',') { c = '.'; } if (c != '.') { s = scan_integer_part(L, (s > ss ? (s - 1) : ss), &cur_val, &radix); c = *s; } else { radix = 10; cur_val = 0; c = *(--s); } if (c == ',') c = '.'; if ((radix == 10) && (c == '.')) { /* Scan decimal fraction */ for (k = 0; k < 18; k++) rdig[k] = dig[k]; k = 0; s++; /* get rid of the '.' */ while (1) { c = *s++; if ((c > '0' + 9) || (c < '0')) break; if (k < 17) { /* digits for |k>=17| cannot affect the result */ dig[k++] = c - '0'; } } f = round_decimals(k); if (c != ' ') c = *(--s); for (k = 0; k < 18; k++) dig[k] = rdig[k]; } if (cur_val < 0) { /* in this case |f=0| */ negative = !negative; cur_val = -cur_val; } /* Scan for (u)units that are internal dimensions; |goto attach_sign| with |cur_val| set if found */ save_cur_val = cur_val; /* Get the next non-blank non-call... */ do { c = *s++; } while (c && c == ' '); if (c != ' ') c = *(--s); if (strncmp(s, "em", 2) == 0) { s += 2; v = (quad(get_cur_font())); } else if (strncmp(s, "ex", 2) == 0) { s += 2; v = (x_height(get_cur_font())); } else if (strncmp(s, "px", 2) == 0) { s += 2; v = dimen_par(pdf_px_dimen_code); } else { goto NOT_FOUND; } c = *s++; if (c != ' ') { c = *(--s); } cur_val = nx_plus_y(save_cur_val, v, xn_over_d(v, f, 0200000)); goto ATTACH_SIGN; NOT_FOUND: /* Scan for (m)\.{mu} units and |goto attach_fraction| */ if (strncmp(s, "mu", 2) == 0) { s += 2; goto ATTACH_FRACTION; } if (strncmp(s, "true", 4) == 0) { /* Adjust (f)for the magnification ratio */ s += 4; prepare_mag(); if (int_par(mag_code) != 1000) { cur_val = xn_over_d(cur_val, 1000, int_par(mag_code)); f = (1000 * f + 0200000 * tex_remainder) / int_par(mag_code); cur_val = cur_val + (f / 0200000); f = f % 0200000; } do { c = *s++; } while (c && c == ' '); c = *(--s); } if (strncmp(s, "pt", 2) == 0) { s += 2; goto ATTACH_FRACTION; /* the easy case */ } /* Scan for (a)all other units and adjust |cur_val| and |f| accordingly; |goto done| in the case of scaled points */ if (strncmp(s, "in", 2) == 0) { s += 2; set_conversion(7227, 100); } else if (strncmp(s, "pc", 2) == 0) { s += 2; set_conversion(12, 1); } else if (strncmp(s, "cm", 2) == 0) { s += 2; set_conversion(7227, 254); } else if (strncmp(s, "mm", 2) == 0) { s += 2; set_conversion(7227, 2540); } else if (strncmp(s, "bp", 2) == 0) { s += 2; set_conversion(7227, 7200); } else if (strncmp(s, "dd", 2) == 0) { s += 2; set_conversion(1238, 1157); } else if (strncmp(s, "cc", 2) == 0) { s += 2; set_conversion(14856, 1157); } else if (strncmp(s, "nd", 2) == 0) { s += 2; set_conversion(685, 642); } else if (strncmp(s, "nc", 2) == 0) { s += 2; set_conversion(1370, 107); } else if (strncmp(s, "sp", 2) == 0) { s += 2; goto DONE; } else { /* Complain about unknown unit and |goto done2| */ luaL_error(L, "Illegal unit of measure (pt inserted)"); goto DONE2; } cur_val = xn_over_d(cur_val, num, denom); f = (num * f + 0200000 * tex_remainder) / denom; cur_val = cur_val + (f / 0200000); f = f % 0200000; DONE2: ATTACH_FRACTION: if (cur_val >= 040000) arith_error = true; else cur_val = cur_val * 65536 + f; DONE: /* Scan an optional space */ c = *s++; if (c != ' ') s--; ATTACH_SIGN: if (arith_error || (abs(cur_val) >= 010000000000)) { /* Report that this dimension is out of range */ luaL_error(L, "Dimension too large"); cur_val = max_dimen; } if (negative) cur_val = -cur_val; *ret = cur_val; tex_remainder = saved_tex_remainder; arith_error = saved_arith_error; cur_val = saved_cur_val; return s; } int dimen_to_number(lua_State * L, const char *s) { int j = 0; const char *d = scan_dimen_part(L, s, &j); if (*d) { luaL_error(L, "conversion failed (trailing junk?)"); j = 0; } return j; } static int tex_scaledimen(lua_State * L) { /* following vsetdimen() */ int sp; if (!lua_isnumber(L, 1)) { if (lua_isstring(L, 1)) { sp = dimen_to_number(L, lua_tostring(L, 1)); } else { luaL_error(L, "argument must be a string or a number"); return 0; } } else { lua_number2int(sp, lua_tonumber(L, 1)); } lua_pushnumber(L, sp); return 1; } static int texerror (lua_State * L) { int i, n, l; const char **errhlp = NULL; const char *error = luaL_checkstring(L,1); n = lua_gettop(L); if (n==2 && lua_type(L, n) == LUA_TTABLE) { l = 1; /* |errhlp| is terminated by a NULL entry */ for (i = 1;; i++) { lua_rawgeti(L, n, i); if (lua_isstring(L, -1)) { l++; lua_pop(L, 1); } else { lua_pop(L, 1); break; } } if (l>1) { errhlp = xmalloc(l * sizeof(char *)); memset(errhlp,0,l * sizeof(char *)); for (i = 1;; i++) { lua_rawgeti(L, n, i); if (lua_isstring(L, -1)) { errhlp[(i-1)] = lua_tostring(L,-1); lua_pop(L, 1); } else { break; } } } } deletions_allowed = false; tex_error(error, errhlp); if (errhlp) xfree(errhlp); deletions_allowed = true; return 0; } static int get_item_index(lua_State * L, int i, int base) { size_t kk; int k; int cur_cs; const char *s; if (lua_type(L, i) == LUA_TSTRING) { s = lua_tolstring(L, i, &kk); cur_cs = string_lookup(s, kk); if (cur_cs == undefined_control_sequence || cur_cs == undefined_cs_cmd) { k = -1; /* guarandeed invalid */ } else { k = (equiv(cur_cs) - base); } } else { k = (int) luaL_checkinteger(L, i); } return k; } static int vsetdimen(lua_State * L, int is_global) { int i, j, err; int k; int save_global_defs = int_par(global_defs_code); if (is_global) int_par(global_defs_code) = 1; i = lua_gettop(L); j = 0; /* find the value */ if (!lua_isnumber(L, i)) { if (lua_isstring(L, i)) { j = dimen_to_number(L, lua_tostring(L, i)); } else { luaL_error(L, "unsupported value type"); } } else { lua_number2int(j, lua_tonumber(L, i)); } k = get_item_index(L, (i - 1), scaled_base); check_index_range(k, "setdimen"); err = set_tex_dimen_register(k, j); int_par(global_defs_code) = save_global_defs; if (err) { luaL_error(L, "incorrect value"); } return 0; } static int setdimen(lua_State * L) { int isglobal = 0; int n = lua_gettop(L); if (n == 3 && lua_isstring(L, 1)) { const char *s = lua_tostring(L, 1); if (strcmp(s, "global") == 0) isglobal = 1; } return vsetdimen(L, isglobal); } static int getdimen(lua_State * L) { int j; int k; k = get_item_index(L, lua_gettop(L), scaled_base); check_index_range(k, "getdimen"); j = get_tex_dimen_register(k); lua_pushnumber(L, j); return 1; } static int vsetskip(lua_State * L, int is_global) { int i, err; halfword *j; int k; int save_global_defs = int_par(global_defs_code); if (is_global) int_par(global_defs_code) = 1; i = lua_gettop(L); j = check_isnode(L, i); /* the value */ k = get_item_index(L, (i - 1), skip_base); check_index_range(k, "setskip"); /* the index */ err = set_tex_skip_register(k, *j); int_par(global_defs_code) = save_global_defs; if (err) { luaL_error(L, "incorrect value"); } return 0; } static int setskip(lua_State * L) { int isglobal = 0; int n = lua_gettop(L); if (n == 3 && lua_isstring(L, 1)) { const char *s = lua_tostring(L, 1); if (strcmp(s, "global") == 0) isglobal = 1; } return vsetskip(L, isglobal); } static int getskip(lua_State * L) { halfword j; int k; k = get_item_index(L, lua_gettop(L), skip_base); check_index_range(k, "getskip"); j = get_tex_skip_register(k); lua_nodelib_push_fast(L, j); return 1; } static int vsetcount(lua_State * L, int is_global) { int i, j, err; int k; int save_global_defs = int_par(global_defs_code); if (is_global) int_par(global_defs_code) = 1; i = lua_gettop(L); j = (int) luaL_checkinteger(L, i); k = get_item_index(L, (i - 1), count_base); check_index_range(k, "setcount"); err = set_tex_count_register(k, j); int_par(global_defs_code) = save_global_defs; if (err) { luaL_error(L, "incorrect value"); } return 0; } static int setcount(lua_State * L) { int isglobal = 0; int n = lua_gettop(L); if (n == 3 && lua_isstring(L, 1)) { const char *s = lua_tostring(L, 1); if (strcmp(s, "global") == 0) isglobal = 1; } return vsetcount(L, isglobal); } static int getcount(lua_State * L) { int j; int k; k = get_item_index(L, lua_gettop(L), count_base); check_index_range(k, "getcount"); j = get_tex_count_register(k); lua_pushnumber(L, j); return 1; } static int vsetattribute(lua_State * L, int is_global) { int i, j, err; int k; int save_global_defs = int_par(global_defs_code); if (is_global) int_par(global_defs_code) = 1; i = lua_gettop(L); j = (int) luaL_checkinteger(L, i); k = get_item_index(L, (i - 1), attribute_base); check_index_range(k, "setattribute"); err = set_tex_attribute_register(k, j); int_par(global_defs_code) = save_global_defs; if (err) { luaL_error(L, "incorrect value"); } return 0; } static int setattribute(lua_State * L) { int isglobal = 0; int n = lua_gettop(L); if (n == 3 && lua_isstring(L, 1)) { const char *s = lua_tostring(L, 1); if (strcmp(s, "global") == 0) isglobal = 1; } return vsetattribute(L, isglobal); } static int getattribute(lua_State * L) { int j; int k; k = get_item_index(L, lua_gettop(L), attribute_base); check_index_range(k, "getattribute"); j = get_tex_attribute_register(k); lua_pushnumber(L, j); return 1; } static int vsettoks(lua_State * L, int is_global) { int i, err; int k; lstring str; char *s; const char *ss; int save_global_defs = int_par(global_defs_code); if (is_global) int_par(global_defs_code) = 1; i = lua_gettop(L); if (!lua_isstring(L, i)) { luaL_error(L, "unsupported value type"); } ss = lua_tolstring(L, i, &str.l); s = xmalloc (str.l+1); memcpy (s, ss, str.l+1); str.s = (unsigned char *)s; k = get_item_index(L, (i - 1), toks_base); check_index_range(k, "settoks"); err = set_tex_toks_register(k, str); xfree(str.s); int_par(global_defs_code) = save_global_defs; if (err) { luaL_error(L, "incorrect value"); } return 0; } static int settoks(lua_State * L) { int isglobal = 0; int n = lua_gettop(L); if (n == 3 && lua_isstring(L, 1)) { const char *s = lua_tostring(L, 1); if (strcmp(s, "global") == 0) isglobal = 1; } return vsettoks(L, isglobal); } static int gettoks(lua_State * L) { int k; str_number t; char *ss; k = get_item_index(L, lua_gettop(L), toks_base); check_index_range(k, "gettoks"); t = get_tex_toks_register(k); ss = makecstring(t); lua_pushstring(L, ss); free(ss); flush_str(t); return 1; } static int get_box_id(lua_State * L, int i) { const char *s; int cur_cs, cur_cmd; size_t k = 0; int j = -1; if (lua_type(L, i) == LUA_TSTRING) { s = lua_tolstring(L, i, &k); cur_cs = string_lookup(s, k); cur_cmd = eq_type(cur_cs); if (cur_cmd == char_given_cmd || cur_cmd == math_given_cmd || cur_cmd == omath_given_cmd) { j = equiv(cur_cs); } } else { lua_number2int(j, lua_tonumber(L, (i))); } return j; } static int getbox(lua_State * L) { int k, t; k = get_box_id(L, -1); check_index_range(k, "getbox"); t = get_tex_box_register(k); nodelist_to_lua(L, t); return 1; } static int vsetbox(lua_State * L, int is_global) { int i, j, k, err; int save_global_defs = int_par(global_defs_code); if (is_global) int_par(global_defs_code) = 1; k = get_box_id(L, -2); check_index_range(k, "setbox"); i = get_tex_box_register(k); if (lua_isboolean(L, -1)) { j = lua_toboolean(L, -1); if (j == 0) j = null; else return 0; } else { j = nodelist_from_lua(L); if (j != null && type(j) != hlist_node && type(j) != vlist_node) { luaL_error(L, "setbox: incompatible node type (%s)\n", get_node_name(type(j), subtype(j))); return 0; } } err = set_tex_box_register(k, j); int_par(global_defs_code) = save_global_defs; if (err) { luaL_error(L, "incorrect value"); } return 0; } static int setbox(lua_State * L) { int isglobal = 0; int n = lua_gettop(L); if (n == 3 && lua_isstring(L, 1)) { const char *s = lua_tostring(L, 1); if (strcmp(s, "global") == 0) isglobal = 1; } return vsetbox(L, isglobal); } #define check_char_range(j,s,lim) \ if (j<0 || j >= lim) { \ luaL_error(L, "incorrect character value %d for tex.%s()", (int)j, s); } static int setcode (lua_State *L, void (*setone)(int,halfword,quarterword), void (*settwo)(int,halfword,quarterword), const char *name, int lim) { int ch; halfword val, ucval; int level = cur_level; int n = lua_gettop(L); int f = 1; if (n>1 && lua_type(L,1) == LUA_TTABLE) f++; if (n>2 && lua_isstring(L, f)) { const char *s = lua_tostring(L, f); if (strcmp(s, "global") == 0) { level = level_one; f++; } } ch = (int) luaL_checkinteger(L, f); check_char_range(ch, name, 65536*17); val = (halfword) luaL_checkinteger(L, f+1); check_char_range(val, name, lim); (setone)(ch, val, level); if (settwo != NULL && n-f == 2) { ucval = (halfword) luaL_checkinteger(L, f+2); check_char_range(ucval, name, lim); (settwo)(ch, ucval, level); } return 0; } static int setlccode(lua_State * L) { return setcode(L, &set_lc_code, &set_uc_code, "setlccode", 65536*17); } static int getlccode(lua_State * L) { int ch = (int) luaL_checkinteger(L, -1); check_char_range(ch, "getlccode", 65536*17); lua_pushnumber(L, get_lc_code(ch)); return 1; } static int setuccode(lua_State * L) { return setcode(L, &set_uc_code, &set_lc_code, "setuccode", 65536*17); } static int getuccode(lua_State * L) { int ch = (int) luaL_checkinteger(L, -1); check_char_range(ch, "getuccode", 65536*17); lua_pushnumber(L, get_uc_code(ch)); return 1; } static int setsfcode(lua_State * L) { return setcode(L, &set_sf_code, NULL, "setsfcode", 32768); } static int getsfcode(lua_State * L) { int ch = (int) luaL_checkinteger(L, -1); check_char_range(ch, "getsfcode", 65536*17); lua_pushnumber(L, get_sf_code(ch)); return 1; } static int setcatcode(lua_State * L) { int ch; halfword val; int level = cur_level; int cattable = int_par(cat_code_table_code); int n = lua_gettop(L); int f = 1; if (n>1 && lua_type(L,1) == LUA_TTABLE) f++; if (n>2 && lua_isstring(L, f)) { const char *s = lua_tostring(L, f); if (strcmp(s, "global") == 0) { level = level_one; f++; } } if (n-f == 2) { cattable = (int) luaL_checkinteger(L, -3); } ch = (int) luaL_checkinteger(L, -2); check_char_range(ch, "setcatcode", 65536*17); val = (halfword) luaL_checkinteger(L, -1); check_char_range(val, "setcatcode", 16); set_cat_code(cattable, ch, val, level); return 0; } static int getcatcode(lua_State * L) { int cattable = int_par(cat_code_table_code); int ch = (int) luaL_checkinteger(L, -1); if (lua_gettop(L)>=2 && lua_type(L,-2)==LUA_TNUMBER) { cattable = luaL_checkinteger(L, -2); } check_char_range(ch, "getcatcode", 65536*17); lua_pushnumber(L, get_cat_code(cattable, ch)); return 1; } static int setmathcode(lua_State * L) { int ch; halfword cval, fval, chval; int level = cur_level; int n = lua_gettop(L); int f = 1; if (n>1 && lua_type(L,1) == LUA_TTABLE) f++; if (n>2 && lua_isstring(L, f)) { const char *s = lua_tostring(L, f); if (strcmp(s, "global") == 0) { level = level_one; f++; } } if (n-f!=1 || lua_type(L,f+1) != LUA_TTABLE) { luaL_error(L, "Bad arguments for tex.setmathcode()"); } ch = (int) luaL_checkinteger(L, -2); check_char_range(ch, "setmathcode", 65536*17); lua_rawgeti(L, -1, 1); cval = (halfword) luaL_checkinteger(L, -1); lua_rawgeti(L, -2, 2); fval = (halfword) luaL_checkinteger(L, -1); lua_rawgeti(L, -3, 3); chval = (halfword) luaL_checkinteger(L, -1); lua_pop(L,3); check_char_range(cval, "setmathcode", 8); check_char_range(fval, "setmathcode", 256); check_char_range(chval, "setmathcode", 65536*17); set_math_code(ch, xetex_mathcode, cval,fval, chval, (quarterword) (level)); return 0; } static int getmathcode(lua_State * L) { mathcodeval mval = { 0, 0, 0, 0 }; int ch = (int) luaL_checkinteger(L, -1); check_char_range(ch, "getmathcode", 65536*17); mval = get_math_code(ch); lua_newtable(L); lua_pushnumber(L,mval.class_value); lua_rawseti(L, -2, 1); lua_pushnumber(L,mval.family_value); lua_rawseti(L, -2, 2); lua_pushnumber(L,mval.character_value); lua_rawseti(L, -2, 3); return 1; } static int setdelcode(lua_State * L) { int ch; halfword sfval, scval, lfval, lcval; int level = cur_level; int n = lua_gettop(L); int f = 1; if (n>1 && lua_type(L,1) == LUA_TTABLE) f++; if (n>2 && lua_isstring(L, f)) { const char *s = lua_tostring(L, f); if (strcmp(s, "global") == 0) { level = level_one; f++; } } if (n-f!=1 || lua_type(L,f+1) != LUA_TTABLE) { luaL_error(L, "Bad arguments for tex.setdelcode()"); } ch = (int) luaL_checkinteger(L, -2); check_char_range(ch, "setdelcode", 65536*17); lua_rawgeti(L, -1, 1); sfval = (halfword) luaL_checkinteger(L, -1); lua_rawgeti(L, -2, 2); scval = (halfword) luaL_checkinteger(L, -1); lua_rawgeti(L, -3, 3); lfval = (halfword) luaL_checkinteger(L, -1); lua_rawgeti(L, -4, 4); lcval = (halfword) luaL_checkinteger(L, -1); lua_pop(L,4); check_char_range(sfval, "setdelcode", 256); check_char_range(scval, "setdelcode", 65536*17); check_char_range(lfval, "setdelcode", 256); check_char_range(lcval, "setdelcode", 65536*17); set_del_code(ch, xetex_mathcode, sfval, scval, lfval, lcval, (quarterword) (level)); return 0; } static int getdelcode(lua_State * L) { delcodeval mval = { 0, 0, 0, 0, 0, 0 }; int ch = (int) luaL_checkinteger(L, -1); check_char_range(ch, "getdelcode", 65536*17); mval = get_del_code(ch); /* lua_pushnumber(L, mval.class_value); */ /* lua_pushnumber(L, mval.origin_value); */ lua_newtable(L); lua_pushnumber(L,mval.small_family_value); lua_rawseti(L, -2, 1); lua_pushnumber(L,mval.small_character_value); lua_rawseti(L, -2, 2); lua_pushnumber(L,mval.large_family_value); lua_rawseti(L, -2, 3); lua_pushnumber(L,mval.large_character_value); lua_rawseti(L, -2, 4); return 1; } static int settex(lua_State * L) { const char *st; int i, j, texstr; size_t k; int cur_cs, cur_cmd; int isglobal = 0; j = 0; i = lua_gettop(L); if (lua_isstring(L, (i - 1))) { st = lua_tolstring(L, (i - 1), &k); texstr = maketexlstring(st, k); if (is_primitive(texstr)) { if (i == 3 && lua_isstring(L, 1)) { const char *s = lua_tostring(L, 1); if (strcmp(s, "global") == 0) isglobal = 1; } cur_cs = string_lookup(st, k); flush_str(texstr); cur_cmd = eq_type(cur_cs); if (is_int_assign(cur_cmd)) { if (lua_isnumber(L, i)) { int luai; lua_number2int(luai, lua_tonumber(L, i)); assign_internal_value((isglobal ? 4 : 0), equiv(cur_cs), luai); } else { luaL_error(L, "unsupported value type"); } } else if (is_dim_assign(cur_cmd)) { if (!lua_isnumber(L, i)) { if (lua_isstring(L, i)) { j = dimen_to_number(L, lua_tostring(L, i)); } else { luaL_error(L, "unsupported value type"); } } else { lua_number2int(j, lua_tonumber(L, i)); } assign_internal_value((isglobal ? 4 : 0), equiv(cur_cs), j); } else if (is_glue_assign(cur_cmd)) { halfword *j = check_isnode(L, i); /* the value */ { int a = isglobal; define(equiv(cur_cs), assign_glue_cmd, *j); } } else if (is_toks_assign(cur_cmd)) { if (lua_isstring(L, i)) { j = tokenlist_from_lua(L); /* uses stack -1 */ assign_internal_value((isglobal ? 4 : 0), equiv(cur_cs), j); } else { luaL_error(L, "unsupported value type"); } } else { /* people may want to add keys that are also primitives (|tex.wd| for example) so creating an error is not right here */ if (lua_istable(L, (i - 2))) lua_rawset(L, (i - 2)); /* luaL_error(L, "unsupported tex internal assignment"); */ } } else { if (lua_istable(L, (i - 2))) lua_rawset(L, (i - 2)); } } else { if (lua_istable(L, (i - 2))) lua_rawset(L, (i - 2)); } return 0; } static int do_convert(lua_State * L, int cur_code) { int texstr; int i = -1; char *str = NULL; switch (cur_code) { case pdf_creation_date_code: /* ? */ case pdf_insert_ht_code: /* arg */ case pdf_ximage_bbox_code: /* arg 2 ints */ case lua_code: /* arg complex */ case lua_escape_string_code: /* arg token list */ case pdf_colorstack_init_code: /* arg complex */ case left_margin_kern_code: /* arg box */ case right_margin_kern_code: /* arg box */ break; case string_code: /* arg token */ case meaning_code: /* arg token */ break; /* the next fall through, and come from 'official' indices! */ case font_name_code: /* arg fontid */ case font_identifier_code: /* arg fontid */ case pdf_font_name_code: /* arg fontid */ case pdf_font_objnum_code: /* arg fontid */ case pdf_font_size_code: /* arg fontid */ case uniform_deviate_code: /* arg int */ case number_code: /* arg int */ case roman_numeral_code: /* arg int */ case pdf_page_ref_code: /* arg int */ case pdf_xform_name_code: /* arg int */ if (lua_gettop(L) < 1) { /* error */ } lua_number2int(i, lua_tonumber(L, 1)); /* these fall through! */ default: texstr = the_convert_string(cur_code, i); if (texstr) { str = makecstring(texstr); flush_str(texstr); } } if (str) { lua_pushstring(L, str); free(str); } else { lua_pushnil(L); } return 1; } static int do_scan_internal(lua_State * L, int cur_cmd, int cur_code) { int texstr; char *str = NULL; int save_cur_val, save_cur_val_level; save_cur_val = cur_val; save_cur_val_level = cur_val_level; scan_something_simple(cur_cmd, cur_code); if (cur_val_level == int_val_level || cur_val_level == dimen_val_level || cur_val_level == attr_val_level) { lua_pushnumber(L, cur_val); } else if (cur_val_level == glue_val_level) { lua_nodelib_push_fast(L, cur_val); } else { /* dir_val_level, mu_val_level, tok_val_level */ texstr = the_scanned_result(); str = makecstring(texstr); if (str) { lua_pushstring(L, str); free(str); } else { lua_pushnil(L); } flush_str(texstr); } cur_val = save_cur_val; cur_val_level = save_cur_val_level; return 1; } static int do_lastitem(lua_State * L, int cur_code) { int retval = 1; switch (cur_code) { /* the next two do not actually exist */ case lastattr_code: case attrexpr_code: lua_pushnil(L); break; /* the expressions do something complicated with arguments, yuck */ case numexpr_code: case dimexpr_code: case glueexpr_code: case muexpr_code: lua_pushnil(L); break; /* these read a glue or muglue, todo */ case mu_to_glue_code: case glue_to_mu_code: case glue_stretch_order_code: case glue_shrink_order_code: case glue_stretch_code: case glue_shrink_code: lua_pushnil(L); break; /* these read a fontid and a char, todo */ case font_char_wd_code: case font_char_ht_code: case font_char_dp_code: case font_char_ic_code: lua_pushnil(L); break; /* these read an integer, todo */ case par_shape_length_code: case par_shape_indent_code: case par_shape_dimen_code: lua_pushnil(L); break; case lastpenalty_code: case lastkern_code: case lastskip_code: case last_node_type_code: case input_line_no_code: case badness_code: case pdftex_version_code: case pdf_last_obj_code: case pdf_last_xform_code: case pdf_last_ximage_code: case pdf_last_ximage_pages_code: case pdf_last_annot_code: case pdf_last_x_pos_code: case pdf_last_y_pos_code: case pdf_retval_code: case pdf_last_ximage_colordepth_code: case random_seed_code: case pdf_last_link_code: case luatex_version_code: case Aleph_version_code: case Omega_version_code: case Aleph_minor_version_code: case Omega_minor_version_code: case eTeX_minor_version_code: case eTeX_version_code: case current_group_level_code: case current_group_type_code: case current_if_level_code: case current_if_type_code: case current_if_branch_code: retval = do_scan_internal(L, last_item_cmd, cur_code); break; default: lua_pushnil(L); break; } return retval; } static int tex_setmathparm(lua_State * L) { int i, j; int k; int n; int l = cur_level; n = lua_gettop(L); if ((n == 3) || (n == 4)) { if (n == 4 && lua_isstring(L, 1)) { const char *s = lua_tostring(L, 1); if (strcmp(s, "global") == 0) l = 1; } i = luaL_checkoption(L, (n - 2), NULL, math_param_names); j = luaL_checkoption(L, (n - 1), NULL, math_style_names); lua_number2int(k, lua_tonumber(L, n)); def_math_param(i, j, (scaled) k, l); } return 0; } static int tex_getmathparm(lua_State * L) { int i, j; scaled k; if ((lua_gettop(L) == 2)) { i = luaL_checkoption(L, 1, NULL, math_param_names); j = luaL_checkoption(L, 2, NULL, math_style_names); k = get_math_param(i, j); lua_pushnumber(L, k); } return 1; } static int getfontname(lua_State * L) { return do_convert(L, font_name_code); } static int getfontidentifier(lua_State * L) { return do_convert(L, font_identifier_code); } static int getpdffontname(lua_State * L) { return do_convert(L, pdf_font_name_code); } static int getpdffontobjnum(lua_State * L) { return do_convert(L, pdf_font_objnum_code); } static int getpdffontsize(lua_State * L) { return do_convert(L, pdf_font_size_code); } static int getuniformdeviate(lua_State * L) { return do_convert(L, uniform_deviate_code); } static int getnumber(lua_State * L) { return do_convert(L, number_code); } static int getromannumeral(lua_State * L) { return do_convert(L, roman_numeral_code); } static int getpdfpageref(lua_State * L) { return do_convert(L, pdf_page_ref_code); } static int getpdfxformname(lua_State * L) { return do_convert(L, pdf_xform_name_code); } static int get_parshape(lua_State * L) { int n; halfword par_shape_ptr = equiv(par_shape_loc); if (par_shape_ptr != 0) { int m = 1; n = vinfo(par_shape_ptr + 1); lua_createtable(L, n, 0); while (m <= n) { lua_createtable(L, 2, 0); lua_pushnumber(L, vlink((par_shape_ptr) + (2 * (m - 1)) + 2)); lua_rawseti(L, -2, 1); lua_pushnumber(L, vlink((par_shape_ptr) + (2 * (m - 1)) + 3)); lua_rawseti(L, -2, 2); lua_rawseti(L, -2, m); m++; } } else { lua_pushnil(L); } return 1; } static int gettex(lua_State * L) { int cur_cs = -1; int retval = 1; /* default is to return nil */ if (lua_isstring(L, 2)) { /* 1 == 'tex' */ int texstr; size_t k; const char *st = lua_tolstring(L, 2, &k); texstr = maketexlstring(st, k); cur_cs = prim_lookup(texstr); /* not found == relax == 0 */ flush_str(texstr); } if (cur_cs > 0) { int cur_cmd, cur_code; cur_cmd = get_prim_eq_type(cur_cs); cur_code = get_prim_equiv(cur_cs); switch (cur_cmd) { case last_item_cmd: retval = do_lastitem(L, cur_code); break; case convert_cmd: retval = do_convert(L, cur_code); break; case assign_toks_cmd: case assign_int_cmd: case assign_attr_cmd: case assign_dir_cmd: case assign_dimen_cmd: case assign_glue_cmd: case assign_mu_glue_cmd: case set_aux_cmd: case set_prev_graf_cmd: case set_page_int_cmd: case set_page_dimen_cmd: case char_given_cmd: case math_given_cmd: case omath_given_cmd: retval = do_scan_internal(L, cur_cmd, cur_code); break; case set_tex_shape_cmd: retval = get_parshape(L); break; default: lua_pushnil(L); break; } } else { lua_rawget(L, 1); /* fetch other index from table */ } return retval; } static int getlist(lua_State * L) { const char *str; if (lua_isstring(L, 2)) { str = lua_tostring(L, 2); if (strcmp(str, "page_ins_head") == 0) { if (vlink(page_ins_head) == page_ins_head) lua_pushnumber(L, null); else lua_pushnumber(L, vlink(page_ins_head)); lua_nodelib_push(L); } else if (strcmp(str, "contrib_head") == 0) { lua_pushnumber(L, vlink(contrib_head)); lua_nodelib_push(L); } else if (strcmp(str, "page_head") == 0) { lua_pushnumber(L, vlink(page_head)); lua_nodelib_push(L); } else if (strcmp(str, "temp_head") == 0) { lua_pushnumber(L, vlink(temp_head)); lua_nodelib_push(L); } else if (strcmp(str, "hold_head") == 0) { lua_pushnumber(L, vlink(hold_head)); lua_nodelib_push(L); } else if (strcmp(str, "adjust_head") == 0) { lua_pushnumber(L, vlink(adjust_head)); lua_nodelib_push(L); } else if (strcmp(str, "best_page_break") == 0) { lua_pushnumber(L, best_page_break); lua_nodelib_push(L); } else if (strcmp(str, "least_page_cost") == 0) { lua_pushnumber(L, least_page_cost); } else if (strcmp(str, "best_size") == 0) { lua_pushnumber(L, best_size); } else if (strcmp(str, "pre_adjust_head") == 0) { lua_pushnumber(L, vlink(pre_adjust_head)); lua_nodelib_push(L); } else if (strcmp(str, "align_head") == 0) { lua_pushnumber(L, vlink(align_head)); lua_nodelib_push(L); } else { lua_pushnil(L); } } else { lua_pushnil(L); } return 1; } static int setlist(lua_State * L) { halfword *n_ptr; const char *str; halfword n = 0; if (lua_isstring(L, 2)) { str = lua_tostring(L, 2); if (strcmp(str, "best_size") == 0) { best_size = (int) lua_tointeger(L, 3); } else if (strcmp(str, "least_page_cost") == 0) { least_page_cost = (int) lua_tointeger(L, 3); } else { if (!lua_isnil(L, 3)) { n_ptr = check_isnode(L, 3); n = *n_ptr; } if (strcmp(str, "page_ins_head") == 0) { if (n == 0) { vlink(page_ins_head) = page_ins_head; } else { halfword m; vlink(page_ins_head) = n; m = tail_of_list(n); vlink(m) = page_ins_head; } } else if (strcmp(str, "contrib_head") == 0) { vlink(contrib_head) = n; if (n == 0) { contrib_tail = contrib_head; } } else if (strcmp(str, "best_page_break") == 0) { best_page_break = n; } else if (strcmp(str, "page_head") == 0) { vlink(page_head) = n; page_tail = (n == 0 ? page_head : tail_of_list(n)); } else if (strcmp(str, "temp_head") == 0) { vlink(temp_head) = n; } else if (strcmp(str, "hold_head") == 0) { vlink(hold_head) = n; } else if (strcmp(str, "adjust_head") == 0) { vlink(adjust_head) = n; adjust_tail = (n == 0 ? adjust_head : tail_of_list(n)); } else if (strcmp(str, "pre_adjust_head") == 0) { vlink(pre_adjust_head) = n; pre_adjust_tail = (n == 0 ? pre_adjust_head : tail_of_list(n)); } else if (strcmp(str, "align_head") == 0) { vlink(align_head) = n; } } } return 0; } #define NEST_METATABLE "luatex.nest" static int lua_nest_getfield(lua_State * L) { list_state_record *r, **rv = lua_touserdata(L, -2); const char *field = lua_tostring(L, -1); r = *rv; if (strcmp(field, "mode") == 0) { lua_pushnumber(L, r->mode_field); } else if (strcmp(field, "head") == 0) { lua_nodelib_push_fast(L, r->head_field); } else if (strcmp(field, "tail") == 0) { lua_nodelib_push_fast(L, r->tail_field); } else if (strcmp(field, "delimptr") == 0) { lua_pushnumber(L, r->eTeX_aux_field); lua_nodelib_push(L); } else if (strcmp(field, "prevgraf") == 0) { lua_pushnumber(L, r->pg_field); } else if (strcmp(field, "modeline") == 0) { lua_pushnumber(L, r->ml_field); } else if (strcmp(field, "prevdepth") == 0) { lua_pushnumber(L, r->prev_depth_field); } else if (strcmp(field, "spacefactor") == 0) { lua_pushnumber(L, r->space_factor_field); } else if (strcmp(field, "noad") == 0) { lua_pushnumber(L, r->incompleat_noad_field); lua_nodelib_push(L); } else if (strcmp(field, "dirs") == 0) { lua_pushnumber(L, r->dirs_field); lua_nodelib_push(L); } else if (strcmp(field, "mathdir") == 0) { lua_pushboolean(L, r->math_field); } else if (strcmp(field, "mathstyle") == 0) { lua_pushnumber(L, r->math_style_field); } else { lua_pushnil(L); } return 1; } static int lua_nest_setfield(lua_State * L) { halfword *n; int i; list_state_record *r, **rv = lua_touserdata(L, -3); const char *field = lua_tostring(L, -2); r = *rv; if (strcmp(field, "mode") == 0) { lua_number2int(i, lua_tonumber(L, -1)); r->mode_field = i; } else if (strcmp(field, "head") == 0) { n = check_isnode(L, -1); r->head_field = *n; } else if (strcmp(field, "tail") == 0) { n = check_isnode(L, -1); r->tail_field = *n; } else if (strcmp(field, "delimptr") == 0) { n = check_isnode(L, -1); r->eTeX_aux_field = *n; } else if (strcmp(field, "prevgraf") == 0) { lua_number2int(i, lua_tonumber(L, -1)); r->pg_field = i; } else if (strcmp(field, "modeline") == 0) { lua_number2int(i, lua_tonumber(L, -1)); r->ml_field = i; } else if (strcmp(field, "prevdepth") == 0) { lua_number2int(i, lua_tonumber(L, -1)); r->prev_depth_field = i; } else if (strcmp(field, "spacefactor") == 0) { lua_number2int(i, lua_tonumber(L, -1)); r->space_factor_field = i; } else if (strcmp(field, "noad") == 0) { n = check_isnode(L, -1); r->incompleat_noad_field = *n; } else if (strcmp(field, "dirs") == 0) { n = check_isnode(L, -1); r->dirs_field = *n; } else if (strcmp(field, "mathdir") == 0) { r->math_field = lua_toboolean(L, -1); } else if (strcmp(field, "mathstyle") == 0) { lua_number2int(i, lua_tonumber(L, -1)); r->math_style_field = i; } return 0; } static const struct luaL_reg nest_m[] = { {"__index", lua_nest_getfield}, {"__newindex", lua_nest_setfield}, {NULL, NULL} /* sentinel */ }; static void init_nest_lib(lua_State * L) { luaL_newmetatable(L, NEST_METATABLE); luaL_register(L, NULL, nest_m); lua_pop(L, 1); } static int getnest(lua_State * L) { int ptr; list_state_record **nestitem; if (lua_isnumber(L, 2)) { lua_number2int(ptr, lua_tonumber(L, 2)); if (ptr >= 0 && ptr <= nest_ptr) { nestitem = lua_newuserdata(L, sizeof(list_state_record *)); *nestitem = &nest[ptr]; luaL_getmetatable(L, NEST_METATABLE); lua_setmetatable(L, -2); } else { lua_pushnil(L); } } else if (lua_isstring(L, 2)) { const char *s = lua_tostring(L, 2); if (strcmp(s, "ptr") == 0) { lua_pushnumber(L, nest_ptr); } else { lua_pushnil(L); } } else { lua_pushnil(L); } return 1; } static int setnest(lua_State * L) { luaL_error(L, "You can't modify the semantic nest array directly"); return 2; } static int do_integer_error(double m) { const char *help[] = { "I can only go up to 2147483647='17777777777=" "7FFFFFFF,", "so I'm using that number instead of yours.", NULL }; tex_error("Number too big", help); return (m > 0.0 ? infinity : -infinity); } static int tex_roundnumber(lua_State * L) { double m = (double) lua_tonumber(L, 1) + 0.5; if (abs(m) > (double) infinity) lua_pushnumber(L, do_integer_error(m)); else lua_pushnumber(L, floor(m)); return 1; } static int tex_scaletable(lua_State * L) { double delta = luaL_checknumber(L, 2); if (lua_istable(L, 1)) { lua_newtable(L); /* the new table is at index 3 */ lua_pushnil(L); while (lua_next(L, 1) != 0) { /* numeric value */ lua_pushvalue(L, -2); lua_insert(L, -2); if (lua_isnumber(L, -1)) { double m = (double) lua_tonumber(L, -1) * delta + 0.5; lua_pop(L, 1); if (abs(m) > (double) infinity) lua_pushnumber(L, do_integer_error(m)); else lua_pushnumber(L, floor(m)); } lua_rawset(L, 3); } } else if (lua_isnumber(L, 1)) { double m = (double) lua_tonumber(L, 1) * delta + 0.5; if (abs(m) > (double) infinity) lua_pushnumber(L, do_integer_error(m)); else lua_pushnumber(L, floor(m)); } else { lua_pushnil(L); } return 1; } #define hash_text(A) hash[(A)].rh static int tex_definefont(lua_State * L) { const char *csname; int f, u; str_number t; size_t l; int i = 1; int a = 0; if (!no_new_control_sequence) { const char *help[] = { "You can't create a new font inside a \\csname\\endcsname pair", NULL }; tex_error("Definition active", help); } if ((lua_gettop(L) == 3) && lua_isboolean(L, 1)) { a = lua_toboolean(L, 1); i = 2; } csname = luaL_checklstring(L, i, &l); f = (int) luaL_checkinteger(L, (i + 1)); t = maketexlstring(csname, l); no_new_control_sequence = 0; u = string_lookup(csname, l); no_new_control_sequence = 1; if (a) geq_define(u, set_font_cmd, f); else eq_define(u, set_font_cmd, f); eqtb[font_id_base + f] = eqtb[u]; hash_text(font_id_base + f) = t; return 0; } static int tex_hashpairs(lua_State * L) { int cmd, chr; str_number s = 0; int cs = 1; lua_newtable(L); while (cs < eqtb_size) { s = hash_text(cs); if (s > 0) { char *ss = makecstring(s); lua_pushstring(L, ss); free(ss); cmd = eq_type(cs); chr = equiv(cs); make_token_table(L, cmd, chr, cs); lua_rawset(L, -3); } cs++; } return 1; } static int tex_primitives(lua_State * L) { int cmd, chr; str_number s = 0; int cs = 0; lua_newtable(L); while (cs < prim_size) { s = get_prim_text(cs); if (s > 0) { char *ss = makecstring(s); lua_pushstring(L, ss); free(ss); cmd = get_prim_eq_type(cs); chr = get_prim_equiv(cs); make_token_table(L, cmd, chr, 0); lua_rawset(L, -3); } cs++; } return 1; } static int tex_extraprimitives(lua_State * L) { int n, i; int mask = 0; str_number s = 0; int cs = 0; n = lua_gettop(L); if (n == 0) { mask = etex_command + aleph_command + omega_command + pdftex_command + luatex_command; } else { for (i = 1; i <= n; i++) { if (lua_isstring(L, i)) { const char *s = lua_tostring(L, i); if (strcmp(s, "etex") == 0) { mask |= etex_command; } else if (strcmp(s, "tex") == 0) { mask |= tex_command; } else if (strcmp(s, "core") == 0) { mask |= core_command; } else if (strcmp(s, "pdftex") == 0) { mask |= pdftex_command; } else if (strcmp(s, "aleph") == 0) { mask |= aleph_command; } else if (strcmp(s, "omega") == 0) { mask |= omega_command; } else if (strcmp(s, "luatex") == 0) { mask |= luatex_command; } } } } lua_newtable(L); i = 1; while (cs < prim_size) { s = get_prim_text(cs); if (s > 0) { if (get_prim_origin(cs) & mask) { char *ss = makecstring(s); lua_pushstring(L, ss); free(ss); lua_rawseti(L, -2, i++); } } cs++; } return 1; } static int tex_enableprimitives(lua_State * L) { int n = lua_gettop(L); if (n != 2) { luaL_error(L, "wrong number of arguments"); } else { size_t l; int i; const char *pre = luaL_checklstring(L, 1, &l); if (lua_istable(L, 2)) { int nncs = no_new_control_sequence; no_new_control_sequence = true; i = 1; while (1) { lua_rawgeti(L, 2, i); if (lua_isstring(L, 3)) { const char *prim = lua_tostring(L, 3); str_number s = maketexstring(prim); halfword prim_val = prim_lookup(s); if (prim_val != undefined_primitive) { char *newprim; int val; size_t newl; halfword cur_cmd = get_prim_eq_type(prim_val); halfword cur_chr = get_prim_equiv(prim_val); if (strncmp(pre, prim, l) != 0) { /* not a prefix */ newl = strlen(prim) + l; newprim = (char *) xmalloc((unsigned) (newl + 1)); strcpy(newprim, pre); strcat(newprim + l, prim); } else { newl = strlen(prim); newprim = (char *) xmalloc((unsigned) (newl + 1)); strcpy(newprim, prim); } val = string_lookup(newprim, newl); if (val == undefined_control_sequence || eq_type(val) == undefined_cs_cmd) { primitive_def(newprim, newl, (quarterword) cur_cmd, cur_chr); } free(newprim); } flush_str(s); } else { lua_pop(L, 1); break; } lua_pop(L, 1); i++; } lua_pop(L, 1); /* the table */ no_new_control_sequence = nncs; } else { luaL_error(L, "Expected an array of names as second argument"); } } return 0; } #define get_int_par(A,B,C) do { \ lua_pushstring(L,(A)); \ lua_gettable(L,-2); \ if (lua_type(L, -1) == LUA_TNUMBER) { \ lua_number2int(B,lua_tonumber(L, -1)); \ } else { \ B = (C); \ } \ lua_pop(L,1); \ } while (0) #define get_intx_par(A,B,C,D,E) do { \ lua_pushstring(L,(A)); \ lua_gettable(L,-2); \ if (lua_type(L, -1) == LUA_TNUMBER) { \ lua_number2int(B,lua_tonumber(L, -1)); \ D = null; \ } else if (lua_type(L, -1) == LUA_TTABLE){ \ B = 0; \ D = nodelib_topenalties(L, lua_gettop(L)); \ } else { \ B = (C); \ D = (E); \ } \ lua_pop(L,1); \ } while (0) #define get_dimen_par(A,B,C) do { \ lua_pushstring(L,(A)); \ lua_gettable(L,-2); \ if (lua_type(L, -1) == LUA_TNUMBER) { \ lua_number2int(B,lua_tonumber(L, -1)); \ } else { \ B = (C); \ } \ lua_pop(L,1); \ } while (0) #define get_glue_par(A,B,C) do { \ lua_pushstring(L,(A)); \ lua_gettable(L,-2); \ if (lua_type(L, -1) != LUA_TNIL) { \ B = *check_isnode(L, -1); \ } else { \ B = (C); \ } \ lua_pop(L,1); \ } while (0) static halfword nodelib_toparshape(lua_State * L, int i) { halfword p; int n = 0; int width, indent, j; /* find |n| */ lua_pushnil(L); while (lua_next(L, i) != 0) { n++; lua_pop(L, 1); } if (n == 0) return null; p = new_node(shape_node, 2 * (n + 1) + 1); vinfo(p + 1) = n; /* fill |p| */ lua_pushnil(L); j = 0; while (lua_next(L, i) != 0) { /* don't give an error for non-tables, we may add special syntaxes at some point */ j++; if (lua_type(L, i) == LUA_TTABLE) { lua_rawgeti(L, -1, 1); /* indent */ if (lua_type(L, -1) == LUA_TNUMBER) { lua_number2int(indent, lua_tonumber(L, -1)); lua_pop(L, 1); lua_rawgeti(L, -1, 2); /* width */ if (lua_type(L, -1) == LUA_TNUMBER) { lua_number2int(width, lua_tonumber(L, -1)); lua_pop(L, 1); varmem[p + 2 * j].cint = indent; varmem[p + 2 * j + 1].cint = width; } } } lua_pop(L, 1); } return p; } /* penalties */ static halfword nodelib_topenalties(lua_State * L, int i) { halfword p; int n = 0; int j; /* find |n| */ lua_pushnil(L); while (lua_next(L, i) != 0) { n++; lua_pop(L, 1); } if (n == 0) return null; p = new_node(shape_node, 2 * ((n / 2) + 1) + 1 + 1); vinfo(p + 1) = (n / 2) + 1; varmem[p + 2].cint = n; lua_pushnil(L); j = 2; while (lua_next(L, i) != 0) { j++; if (lua_isnumber(L, -1)) { int pen = 0; lua_number2int(pen, lua_tonumber(L, -1)); varmem[p+j].cint = pen; } lua_pop(L, 1); } if (!odd(n)) varmem[p+j+1].cint = 0; return p; } static int tex_run_linebreak(lua_State * L) { halfword *j; halfword p; halfword final_par_glue; int paragraph_dir = 0; /* locally initialized parameters for line breaking */ int pretolerance, tracingparagraphs, tolerance, looseness, hyphenpenalty, exhyphenpenalty, pdfadjustspacing, adjdemerits, pdfprotrudechars, linepenalty, lastlinefit, doublehyphendemerits, finalhyphendemerits, hangafter, interlinepenalty, widowpenalty, clubpenalty, brokenpenalty; halfword emergencystretch, hangindent, hsize, leftskip, rightskip, pdfeachlineheight, pdfeachlinedepth, pdffirstlineheight, pdflastlinedepth, pdfignoreddimen, parshape; int fewest_demerits = 0, actual_looseness = 0; halfword clubpenalties, interlinepenalties, widowpenalties; int save_vlink_tmp_head; /* push a new nest level */ push_nest(); save_vlink_tmp_head = vlink(temp_head); j = check_isnode(L, 1); /* the value */ vlink(temp_head) = *j; p = *j; if ((!is_char_node(vlink(*j))) && ((type(vlink(*j)) == whatsit_node) && (subtype(vlink(*j)) == local_par_node))) { paragraph_dir = local_par_dir(vlink(*j)); } while (vlink(p) != null) p = vlink(p); final_par_glue = p; /* initialize local parameters */ if (lua_gettop(L) != 2 || lua_type(L, 2) != LUA_TTABLE) { lua_checkstack(L, 3); lua_newtable(L); } lua_pushstring(L, "pardir"); lua_gettable(L, -2); if (lua_type(L, -1) == LUA_TSTRING) { paragraph_dir = nodelib_getdir(L, -1); } lua_pop(L, 1); lua_pushstring(L, "parshape"); lua_gettable(L, -2); if (lua_type(L, -1) == LUA_TTABLE) { parshape = nodelib_toparshape(L, lua_gettop(L)); } else { parshape = equiv(par_shape_loc); } lua_pop(L, 1); get_int_par("pretolerance", pretolerance, int_par(pretolerance_code)); get_int_par("tracingparagraphs", tracingparagraphs, int_par(tracing_paragraphs_code)); get_int_par("tolerance", tolerance, int_par(tolerance_code)); get_int_par("looseness", looseness, int_par(looseness_code)); get_int_par("hyphenpenalty", hyphenpenalty, int_par(hyphen_penalty_code)); get_int_par("exhyphenpenalty", exhyphenpenalty, int_par(ex_hyphen_penalty_code)); get_int_par("pdfadjustspacing", pdfadjustspacing, int_par(pdf_adjust_spacing_code)); get_int_par("adjdemerits", adjdemerits, int_par(adj_demerits_code)); get_int_par("pdfprotrudechars", pdfprotrudechars, int_par(pdf_protrude_chars_code)); get_int_par("linepenalty", linepenalty, int_par(line_penalty_code)); get_int_par("lastlinefit", lastlinefit, int_par(last_line_fit_code)); get_int_par("doublehyphendemerits", doublehyphendemerits, int_par(double_hyphen_demerits_code)); get_int_par("finalhyphendemerits", finalhyphendemerits, int_par(final_hyphen_demerits_code)); get_int_par("hangafter", hangafter, int_par(hang_after_code)); get_intx_par("interlinepenalty", interlinepenalty,int_par(inter_line_penalty_code), interlinepenalties, equiv(inter_line_penalties_loc)); get_intx_par("clubpenalty", clubpenalty, int_par(club_penalty_code), clubpenalties, equiv(club_penalties_loc)); get_intx_par("widowpenalty", widowpenalty, int_par(widow_penalty_code), widowpenalties, equiv(widow_penalties_loc)); get_int_par("brokenpenalty", brokenpenalty, int_par(broken_penalty_code)); get_dimen_par("emergencystretch", emergencystretch, dimen_par(emergency_stretch_code)); get_dimen_par("hangindent", hangindent, dimen_par(hang_indent_code)); get_dimen_par("hsize", hsize, dimen_par(hsize_code)); get_glue_par("leftskip", leftskip, glue_par(left_skip_code)); get_glue_par("rightskip", rightskip, glue_par(right_skip_code)); get_dimen_par("pdfeachlineheight", pdfeachlineheight, dimen_par(pdf_each_line_height_code)); get_dimen_par("pdfeachlinedepth", pdfeachlinedepth, dimen_par(pdf_each_line_depth_code)); get_dimen_par("pdffirstlineheight", pdffirstlineheight, dimen_par(pdf_first_line_height_code)); get_dimen_par("pdflastlinedepth", pdflastlinedepth, dimen_par(pdf_last_line_depth_code)); get_dimen_par("pdfignoreddimen", pdfignoreddimen, dimen_par(pdf_ignored_dimen_code)); ext_do_line_break(paragraph_dir, pretolerance, tracingparagraphs, tolerance, emergencystretch, looseness, hyphenpenalty, exhyphenpenalty, pdfadjustspacing, parshape, adjdemerits, pdfprotrudechars, linepenalty, lastlinefit, doublehyphendemerits, finalhyphendemerits, hangindent, hsize, hangafter, leftskip, rightskip, pdfeachlineheight, pdfeachlinedepth, pdffirstlineheight, pdflastlinedepth, interlinepenalties, interlinepenalty, clubpenalty, clubpenalties, widowpenalties, widowpenalty, brokenpenalty, final_par_glue, pdfignoreddimen); /* return the generated list, and its prevdepth */ get_linebreak_info (&fewest_demerits, &actual_looseness) ; lua_nodelib_push_fast(L, vlink(cur_list.head_field)); lua_newtable(L); lua_pushstring(L, "demerits"); lua_pushnumber(L, fewest_demerits); lua_settable(L, -3); lua_pushstring(L, "looseness"); lua_pushnumber(L, actual_looseness); lua_settable(L, -3); lua_pushstring(L, "prevdepth"); lua_pushnumber(L, cur_list.prev_depth_field); lua_settable(L, -3); lua_pushstring(L, "prevgraf"); lua_pushnumber(L, cur_list.pg_field); lua_settable(L, -3); /* restore nest stack */ vlink(temp_head) = save_vlink_tmp_head; pop_nest(); if (parshape != equiv(par_shape_loc)) flush_node(parshape); return 2; } static int tex_shipout(lua_State * L) { int boxnum = get_box_id(L, 1); ship_out(static_pdf, box(boxnum), SHIPPING_PAGE); box(boxnum) = null; return 0; } static int tex_badness(lua_State * L) { scaled t,s; lua_number2int(t,lua_tonumber(L,1)); lua_number2int(s,lua_tonumber(L,2)); lua_pushnumber(L, badness(t,s)); return 1; } static int tex_run_boot(lua_State * L) { int n = lua_gettop(L); const char *format = NULL; if (n >= 1) { ini_version = 0; format = luaL_checkstring(L, 1); } else { ini_version = 1; } if (main_initialize()) { /* > 0 = failure */ lua_pushboolean(L, 0); /* false */ return 1; } if (format) { if (!zopen_w_input(&fmt_file, format, DUMP_FORMAT, FOPEN_RBIN_MODE)) { lua_pushboolean(L, 0); /* false */ return 1; } if (!load_fmt_file(format)) { zwclose(fmt_file); lua_pushboolean(L, 0); /* false */ return 1; } zwclose(fmt_file); } fix_date_and_time(); if (format == NULL) make_pdftex_banner(); random_seed = (microseconds * 1000) + (epochseconds % 1000000); init_randoms(random_seed); initialize_math(); fixup_selector(log_opened); check_texconfig_init(); text_dir_ptr = new_dir(0); history = spotless; /* ready to go! */ /* Initialize synctex primitive */ synctexinitcommand(); /* tex is ready to go, now */ unhide_lua_table(Luas, "tex", tex_table_id); unhide_lua_table(Luas, "pdf", pdf_table_id); unhide_lua_table(Luas, "token", token_table_id); unhide_lua_table(Luas, "node", node_table_id); lua_pushboolean(L, 1); /* true */ return 1; } static int tex_run_main(lua_State * L) { (void) L; main_control(); return 0; } static int tex_run_end(lua_State * L) { (void) L; final_cleanup(); /* prepare for death */ close_files_and_terminate(); do_final_end(); return 0; } void init_tex_table(lua_State * L) { lua_createtable(L, 0, 3); lua_pushcfunction(L, tex_run_boot); lua_setfield(L, -2, "initialize"); lua_pushcfunction(L, tex_run_main); lua_setfield(L, -2, "run"); lua_pushcfunction(L, tex_run_end); lua_setfield(L, -2, "finish"); lua_setglobal(L, "tex"); } static const struct luaL_reg texlib[] = { {"run", tex_run_main}, /* may be needed */ {"finish", tex_run_end}, /* may be needed */ {"write", luacwrite}, {"write", luacwrite}, {"print", luacprint}, {"tprint", luactprint}, {"error", texerror}, {"sprint", luacsprint}, {"set", settex}, {"get", gettex}, {"setdimen", setdimen}, {"getdimen", getdimen}, {"setskip", setskip}, {"getskip", getskip}, {"setattribute", setattribute}, {"getattribute", getattribute}, {"setcount", setcount}, {"getcount", getcount}, {"settoks", settoks}, {"gettoks", gettoks}, {"setbox", setbox}, {"getbox", getbox}, {"setlist", setlist}, {"getlist", getlist}, {"setnest", setnest}, {"getnest", getnest}, {"setcatcode", setcatcode}, {"getcatcode", getcatcode}, {"setdelcode", setdelcode}, {"getdelcode", getdelcode}, {"setlccode", setlccode}, {"getlccode", getlccode}, {"setmathcode", setmathcode}, {"getmathcode", getmathcode}, {"setsfcode", setsfcode}, {"getsfcode", getsfcode}, {"setuccode", setuccode}, {"getuccode", getuccode}, {"round", tex_roundnumber}, {"scale", tex_scaletable}, {"sp", tex_scaledimen}, {"fontname", getfontname}, {"fontidentifier", getfontidentifier}, {"pdffontname", getpdffontname}, {"pdffontobjnum", getpdffontobjnum}, {"pdffontsize", getpdffontsize}, {"uniformdeviate", getuniformdeviate}, {"number", getnumber}, {"romannumeral", getromannumeral}, {"pdfpageref", getpdfpageref}, {"pdfxformname", getpdfxformname}, {"definefont", tex_definefont}, {"hashtokens", tex_hashpairs}, {"primitives", tex_primitives}, {"extraprimitives", tex_extraprimitives}, {"enableprimitives", tex_enableprimitives}, {"shipout", tex_shipout}, {"badness", tex_badness}, {"setmath", tex_setmathparm}, {"getmath", tex_getmathparm}, {"linebreak", tex_run_linebreak}, {NULL, NULL} /* sentinel */ }; int luaopen_tex(lua_State * L) { luaL_register(L, "tex", texlib); /* *INDENT-OFF* */ make_table(L, "attribute", "getattribute", "setattribute"); make_table(L, "skip", "getskip", "setskip"); make_table(L, "dimen", "getdimen", "setdimen"); make_table(L, "count", "getcount", "setcount"); make_table(L, "toks", "gettoks", "settoks"); make_table(L, "box", "getbox", "setbox"); make_table(L, "sfcode", "getsfcode", "setsfcode"); make_table(L, "lccode", "getlccode", "setlccode"); make_table(L, "uccode", "getuccode", "setuccode"); make_table(L, "catcode", "getcatcode", "setcatcode"); make_table(L, "mathcode", "getmathcode", "setmathcode"); make_table(L, "delcode", "getdelcode", "setdelcode"); make_table(L, "lists", "getlist", "setlist"); make_table(L, "nest", "getnest", "setnest"); /* *INDENT-ON* */ init_nest_lib(L); /* make the meta entries */ /* fetch it back */ luaL_newmetatable(L, "tex_meta"); lua_pushstring(L, "__index"); lua_pushcfunction(L, gettex); lua_settable(L, -3); lua_pushstring(L, "__newindex"); lua_pushcfunction(L, settex); lua_settable(L, -3); lua_setmetatable(L, -2); /* meta to itself */ /* initialize the I/O stack: */ spindles = xmalloc(sizeof(spindle)); spindle_index = 0; spindles[0].head = NULL; spindles[0].tail = NULL; spindle_size = 1; /* a somewhat odd place for this assert, maybe */ assert(command_names[data_cmd].command_offset == data_cmd); return 1; }