summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eomegadir/omega.ch1
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
commit487ca4806cc046076293cf6cc5fbba0db282bac7 (patch)
tree847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/web2c/eomegadir/omega.ch1
parenta3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff)
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/eomegadir/omega.ch1')
-rw-r--r--Build/source/texk/web2c/eomegadir/omega.ch1155
1 files changed, 155 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/eomegadir/omega.ch1 b/Build/source/texk/web2c/eomegadir/omega.ch1
new file mode 100644
index 00000000000..a38b0ad409e
--- /dev/null
+++ b/Build/source/texk/web2c/eomegadir/omega.ch1
@@ -0,0 +1,155 @@
+%
+% 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