summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/tex/mainbody.w
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/tex/mainbody.w')
-rw-r--r--Build/source/texk/web2c/luatexdir/tex/mainbody.w38
1 files changed, 18 insertions, 20 deletions
diff --git a/Build/source/texk/web2c/luatexdir/tex/mainbody.w b/Build/source/texk/web2c/luatexdir/tex/mainbody.w
index 93ea9018d13..2c6ae2b6dd6 100644
--- a/Build/source/texk/web2c/luatexdir/tex/mainbody.w
+++ b/Build/source/texk/web2c/luatexdir/tex/mainbody.w
@@ -1,19 +1,19 @@
% mainbody.w
-
+%
% Copyright 2009-2010 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/>.
@@ -22,11 +22,11 @@
\def\pdfTeX{pdf\TeX}
@ @c
-#include "ptexlib.h"
-
static const char _svn_version[] =
- "$Id: mainbody.w 4061 2011-01-11 19:31:03Z hhenkel $"
- "$URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.66.0/source/texk/web2c/luatexdir/tex/mainbody.w $";
+ "$Id: mainbody.w 4563 2013-01-21 03:22:53Z khaled $"
+ "$URL: http://foundry.supelec.fr/svn/luatex/trunk/source/texk/web2c/luatexdir/tex/mainbody.w $";
+
+#include "ptexlib.h"
@
pdfTeX is copyright (C) 1996-2006 Han The Thanh, <thanh@@pdftex.org>.
@@ -178,14 +178,10 @@ A similar test suite called the ``\.{e-TRIP} test'' is available for
helping to determine whether a particular implementation deserves to be
known as `\eTeX'.
-@ In case somebody has inadvertently made bad settings of the ``constants,''
-\TeX\ checks them using a global variable called |bad|.
-
-This is the first of many sections of \TeX\ where global variables are
+@ This is the first of many sections of \TeX\ where global variables are
defined.
@c
-int bad; /* is some ``constant'' wrong? */
boolean luainit; /* are we using lua for initializations */
boolean tracefilenames; /* print file open-close info? */
@@ -280,6 +276,8 @@ int ready_already = 0;
int main_initialize(void)
{
+ /* In case somebody has inadvertently made bad settings of the ``constants,''
+ \LuaTeX\ checks them using a variable called |bad|. */
int bad = 0;
/* Bounds that may be set from the configuration file. We want the user to
be able to specify the names with underscores, but \.{TANGLE} removes
@@ -405,7 +403,7 @@ int main_initialize(void)
void main_body(void)
{
static char pdftex_map[] = "pdftex.map";
- bad = main_initialize();
+ int bad = main_initialize();
history = fatal_error_stop; /* in case we quit during initialization */
t_open_out(); /* open the terminal for output */
if (!luainit)
@@ -455,7 +453,7 @@ void main_body(void)
random_seed = (microseconds * 1000) + (epochseconds % 1000000);
init_randoms(random_seed);
initialize_math();
- fixup_selector(log_opened);
+ fixup_selector(log_opened_global);
check_texconfig_init();
if ((iloc < ilimit) && (get_cat_code(int_par(cat_code_table_code),
buffer[iloc]) != escape_cmd))
@@ -508,7 +506,7 @@ void close_files_and_terminate(void)
up |string_pool| memory when a non-{\bf stat} version of \TeX\ is being used.
*/
- if (log_opened) {
+ if (log_opened_global) {
fprintf(log_file,
"\n\nHere is how much of LuaTeX's memory you used:\n");
fprintf(log_file, " %d string%s out of %d\n",
@@ -557,11 +555,11 @@ void close_files_and_terminate(void)
assert(0);
}
/* Close {\sl Sync\TeX} file and write status */
- synctexterminate(log_opened); /* Let the {\sl Sync\TeX} controller close its files. */
+ synctexterminate(log_opened_global); /* Let the {\sl Sync\TeX} controller close its files. */
free_text_codes();
free_math_codes();
- if (log_opened) {
+ if (log_opened_global) {
wlog_cr();
selector = selector - 2;
if ((selector == term_only) && (callback_id == 0)) {
@@ -713,7 +711,7 @@ void debug_help(void)
show_token_list(n, null, 1000);
break;
case 10:
- slow_print(n);
+ print(n);
break;
case 13:
(void) fscanf(term_in, "%d", &l);