diff options
Diffstat (limited to 'Build/source/texk/web2c/eomegadir/omega.ch2')
-rw-r--r-- | Build/source/texk/web2c/eomegadir/omega.ch2 | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/eomegadir/omega.ch2 b/Build/source/texk/web2c/eomegadir/omega.ch2 new file mode 100644 index 00000000000..5216941f80d --- /dev/null +++ b/Build/source/texk/web2c/eomegadir/omega.ch2 @@ -0,0 +1,83 @@ +% +% 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 [4.51] - Change `eomega.pool' to `pdftex.pool' in error messages +else bad_pool('! I can''t read omega.pool; bad path?') +@y +else bad_pool('! I can''t read eomega.pool; bad path?') +@z + +@x [4.51] - Change `eomega.pool' to `omega.pool' in error messages +begin if eof(pool_file) then bad_pool('! omega.pool has no check sum.'); +@y +begin if eof(pool_file) then bad_pool('! eomega.pool has no check sum.'); +@z + +@x [4.51] - Change `eomega.pool' to `omega.pool' in error messages + bad_pool('! omega.pool line doesn''t begin with two digits.'); +@y + bad_pool('! eomega.pool line doesn''t begin with two digits.'); +@z + +@x [4.51] - Change `eomega.pool' to `omega.pool' in error messages + bad_pool('! omega.pool check sum doesn''t have nine digits.'); +@y + bad_pool('! eomega.pool check sum doesn''t have nine digits.'); +@z + +@x [4.51] - Change `eomega.pool' to `omega.pool' in error messages + bad_pool('! omega.pool doesn''t match; otangle me again (or fix the path).'); +@y + bad_pool('! eomega.pool doesn''t match; otangle me again (or fix the path).'); +@z + +%---------------------------------------- +@x +print_err("Omega capacity exceeded, sorry ["); +@y +print_err("e-Omega capacity exceeded, sorry ["); +@z +%---------------------------------------- + +@x +@=#include "omegamem.h";@> +@y +@=#include "eomegamem.h";@> +@z + +@x + print("Omega output, Version 3.141592--1.15, "); +@y + print("e-Omega output, Version 3.141592--1.15--2.1--RC1, "); +@z + +@x +if ini_version then format_ident:=" (INIOMEGA)"; +@y +if ini_version then format_ident:=" (INIEOMEGA)"; +@z + +@x + xmalloc_array (line_stack, max_in_open); + xmalloc_array (eof_seen, max_in_open); + xmalloc_array (grp_stack, max_in_open); + xmalloc_array (if_stack, max_in_open); +@y + line_stack:=xmalloc_array (integer, max_in_open); + eof_seen:=xmalloc_array (boolean, max_in_open); + grp_stack:=xmalloc_array (save_pointer, max_in_open); + if_stack:=xmalloc_array (pointer, max_in_open); +@z + +@x +@!init if (buffer[loc]="*")and(format_ident=" (INITEX)") then +@y +@!init if (buffer[loc]="*")and(format_ident=" (INIEOMEGA)") then +@z + |