diff options
Diffstat (limited to 'Build/source/texk/web2c/eomegadir/omega.ch1')
-rw-r--r-- | Build/source/texk/web2c/eomegadir/omega.ch1 | 155 |
1 files changed, 0 insertions, 155 deletions
diff --git a/Build/source/texk/web2c/eomegadir/omega.ch1 b/Build/source/texk/web2c/eomegadir/omega.ch1 deleted file mode 100644 index a38b0ad409e..00000000000 --- a/Build/source/texk/web2c/eomegadir/omega.ch1 +++ /dev/null @@ -1,155 +0,0 @@ -% -% Copyright (c) 2002-2003 the Omega Task Force -% -% Change file to assist in creating the web2c-specific change file. -% This one resolves inconsistencies between the etex changes for -% web2c and Omega changes for web2c. -% Public domain. - -@x -@d banner=='This is Omega, Version 3.141592--1.15' {printed when \TeX\ starts} -@d banner_k=='This is Omegak, Version 3.141592--1.15' {printed when \TeX\ starts} -@y -@d banner=='This is e-Omega, Version 3.141592--1.15--2.1--RC1' {printed when \TeX\ starts} -@d banner_k=='This is e-Omegak, Version 3.141592--1.15--2.1--RC1' {printed when \TeX\ starts} -@z - -@x [1.2] l.188 - Web2C: extensions imply we're not TeX. -@d eTeX_banner==banner - {printed when \eTeX\ starts} -@y -@d eTeX_banner==banner - {printed when \eTeX\ starts} -@d eTeX_banner_k==banner_k -@z - -@x -Routine is implemented in C, module is not needed. -@y -Routine is implemented in C; part of module is, however, needed for e-TeX. - -@<Report overflow of the input buffer, and abort@>= - begin cur_input.loc_field:=first; cur_input.limit_field:=last-1; - overflow("buffer size",buf_size); -@:TeX capacity exceeded buffer size}{\quad buffer size@> - end -@z - - @x - wterm(banner_k) - @y - wterm(eTeX_banner_k) - @z - - @x - wterm(banner); - @y - wterm(eTeX_banner); - @z - - @x - wlog(banner_k) - @y - wlog(eTeX_banner_k) - @z - - @x - wlog(banner); - @y - wlog(eTeX_banner); - @z - -% @x l.15074 -% @<DIR: Initialize the text direction@>; -% @y -% @<DIR: Initialize the text direction@>; -% if src_specials_p then begin -% @z - -% @x -% while p<>null do @<Output node |p| for |hlist_out| and move to the next node, -% @y -% end; -% while p<>null do @<Output node |p| for |hlist_out| and move to the next node, -% @z - -% @x -% begin synch_h; synch_v; -% @y -% begin synch_h; synch_v; -% if src_specials_p then begin -% @z - -% @x l.15115 -% repeat f:=font(p); c:=character(p); -% incr(chars_since_last_special); -% @y -% end; -% repeat f:=font(p); c:=character(p); -% if src_specials_p then -% incr(chars_since_last_special); -% @z - -@x -@<Append character |cur_chr|...@>= -if ((head=tail) and (mode>0)) then begin - if (insert_src_special_auto) then append_src_special; -end; -@y -@<Append character |cur_chr|...@>= -@z - - -@x -begin push_math(math_shift_group); eq_word_define(int_base+cur_fam_code,-1); -if (insert_src_special_every_math) then insert_src_special; -@y -begin push_math(math_shift_group); eq_word_define(int_base+cur_fam_code,-1); -@z - -@x - push_nest; mode:=-vmode; prev_depth:=ignore_depth; - if (insert_src_special_every_vbox) then insert_src_special; -@y - push_nest; mode:=-vmode; prev_depth:=ignore_depth; -@z - -@x -@!init procedure store_fmt_file; -label found1,found2,done1,done2; -var @!k:integer; {all-purpose indices} -@y -@!init procedure store_fmt_file; -label found1,found2,done1,done2; -var j,@!k:integer; {all-purpose indices} -@z - -@x [50] m.1308 l.23794 - e-TeX basic -if x<>max_halfword then goto bad_fmt; {check |max_halfword|} -@y -if x<>max_halfword then goto bad_fmt; {check |max_halfword|} -@/@<Undump the \eTeX\ state@>@/ -@z - -@x - line_stack:=xmalloc_array (integer, max_in_open); -@y - xmalloc_array (line_stack, max_in_open); -@z - -@x - begin @!init if ini_version then - begin for c:=top_mark_code to split_bot_mark_code do - if cur_mark[c]<>null then delete_token_ref(cur_mark[c]); - store_fmt_file; return; - end;@+tini@/ -@y - begin @!init if ini_version then - begin for c:=top_mark_code to split_bot_mark_code do - if cur_mark[c]<>null then delete_token_ref(cur_mark[c]); - if sa_mark<>null then - if do_marks(destroy_marks,0,sa_mark) then sa_mark:=null; - for c:=last_box_code to vsplit_code do flush_node_list(disc_ptr[c]); - store_fmt_file; return; - end;@+tini@/ -@z |