summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir/omega.ch1
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/alephdir/omega.ch1')
-rw-r--r--Build/source/texk/web2c/alephdir/omega.ch1155
1 files changed, 0 insertions, 155 deletions
diff --git a/Build/source/texk/web2c/alephdir/omega.ch1 b/Build/source/texk/web2c/alephdir/omega.ch1
deleted file mode 100644
index 988560cecca..00000000000
--- a/Build/source/texk/web2c/alephdir/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.1415926--1.15' {printed when \TeX\ starts}
-@d banner_k=='This is Omegak, Version 3.1415926--1.15' {printed when \TeX\ starts}
-@y
-@d banner=='This is e-Omega, Version 3.1415926--1.15--2.1--RC1' {printed when \TeX\ starts}
-@d banner_k=='This is e-Omegak, Version 3.1415926--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