Re: [NTG-context] The very last macro

26 Mar 2009


      On Thu, Mar 26, 2009 at 11:50 AM, Hans Hagen  wrote:
...
luigi scarso wrote:
...
...
\newtoks \everynotabene   % this one is for collected error messages and
so
not in minimals,
only minimals-beta
sure, and mostly meant for mkiv
hmm,
maybe I  can make a bit of hacking to luatex.web,
maybe
final_cleanup; {prepare for death}
@ Now this is really it: \TeX\ starts and ends here.

The initial test involving |ready_already| should be deleted if the
\PASCAL\ runtime system is smart enough to detect such a ``mistake.''
@^system dependencies@>

@p begin @!{|start_here|}
history:=fatal_error_stop; {in case we quit during initialization}
t_open_out; {open the terminal for output}
if ready_already=314159 then goto start_of_TEX;
@@;
if bad>0 then
  begin wterm_ln('Ouch---my internal constants have been clobbered!',
    '---case ',bad:1);
@.Ouch...clobbered@>
  goto final_end;
  end;
initialize; {set global variables to their starting values}
@!init if not get_strings_started then goto final_end;
init_prim; {call |primitive| for each primitive}
init_str_ptr:=str_ptr; init_pool_ptr:=pool_ptr; fix_date_and_time;
tini@/
ready_already:=314159;
start_of_TEX: @;
@;
history:=spotless; {ready to go!}
@
main_control; {come to life}
final_cleanup; {prepare for death}
end_of_TEX: close_files_and_terminate;
final_end: ready_already:=0;
end.


-- 
luigi