diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
commit | 487ca4806cc046076293cf6cc5fbba0db282bac7 (patch) | |
tree | 847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/web2c/omegadir-1.15/comfilter.ch | |
parent | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff) |
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegadir-1.15/comfilter.ch')
-rw-r--r-- | Build/source/texk/web2c/omegadir-1.15/comfilter.ch | 123 |
1 files changed, 123 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/omegadir-1.15/comfilter.ch b/Build/source/texk/web2c/omegadir-1.15/comfilter.ch new file mode 100644 index 00000000000..70dcb9a9bde --- /dev/null +++ b/Build/source/texk/web2c/omegadir-1.15/comfilter.ch @@ -0,0 +1,123 @@ +% comfilter.ch: Local adaptations for file omfilter.ch +% +% This file is part of the Omega project, which +% is based on the web2c distribution of TeX. +% +% Copyright (c) 1994--2000 John Plaice and Yannis Haralambous +% +% This library is free software; you can redistribute it and/or +% modify it under the terms of the GNU Library General Public +% License as published by the Free Software Foundation; either +% version 2 of the License, or (at your option) any later version. +% +% This library is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +% Library General Public License for more details. +% +% You should have received a copy of the GNU Library General Public +% License along with this library; if not, write to the Free Software +% Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +% +%--------------------------------------- +@x +@!inf_ocp_list_size = 1000; +@y +@!inf_ocp_list_size = 1000; +@!sup_ocp_buf_size = 1000000; +@!inf_ocp_buf_size = 1000; +@!sup_ocp_stack_size = 1000000; +@!inf_ocp_stack_size = 1000; +@z +%--------------------------------------- +@x +@!ocp_list_size:integer; +@y +@!ocp_list_size:integer; +@!ocp_buf_size:integer; +@!ocp_stack_size:integer; +@z +%--------------------------------------- +@x +for k:=0 to active_max_ptr-1 do dump_wd(active_info[k]); +print_ln; print_int(active_max_ptr); print(" words of active ocps"); + +@ @<Undump the active ocp information@>= +undump_size(0)(active_mem_size)('active start point')(active_min_ptr); +undump_size(0)(active_mem_size)('active mem size')(active_max_ptr); +for k:=0 to active_max_ptr-1 do undump_wd(active_info[k]); +@y +dump_things(active_info[0], active_max_ptr); +print_ln; print_int(active_max_ptr); print(" words of active ocps"); + +@ @<Undump the active ocp information@>= +undump_size(0)(active_mem_size)('active start point')(active_min_ptr); +undump_size(0)(active_mem_size)('active mem size')(active_max_ptr); +undump_things(active_info[0], active_max_ptr); +@z +%--------------------------------------- +@x + setup_bound_var(1000)('ocp_list_size')(ocp_list_size); +@y + setup_bound_var(1000)('ocp_list_size')(ocp_list_size); + setup_bound_var(1000)('ocp_buf_size')(ocp_buf_size); + setup_bound_var(1000)('ocp_stack_size')(ocp_stack_size); +@z +%--------------------------------------- +@x + ocp_list_list:=xmalloc_array (ocp_list_index, ocp_list_size); +@y + ocp_list_list:=xmalloc_array (ocp_list_index, ocp_list_size); + otp_init_input_buf:=xmalloc_array (quarterword, ocp_buf_size); + otp_input_buf:=xmalloc_array (quarterword, ocp_buf_size); + otp_output_buf:=xmalloc_array (quarterword, ocp_buf_size); + otp_stack_buf:=xmalloc_array (quarterword, ocp_stack_size); + otp_calcs:=xmalloc_array (halfword, ocp_stack_size); + otp_states:=xmalloc_array (halfword, ocp_stack_size); +@z +%--------------------------------------- +@x +@!otp_init_input_buf:array[0..20000] of quarterword; + +@!otp_input_start:halfword; +@!otp_input_last:halfword; +@!otp_input_end:halfword; +@!otp_input_buf:array[0..20000] of quarterword; + +@!otp_output_end:halfword; +@!otp_output_buf:array[0..20000] of quarterword; + +@!otp_stack_used:halfword; +@!otp_stack_last:halfword; +@!otp_stack_new:halfword; +@!otp_stack_buf:array[0..1000] of quarterword; + +@!otp_pc:halfword; + +@!otp_calc_ptr:halfword; +@!otp_calcs:array[0..1000] of halfword; +@!otp_state_ptr:halfword; +@!otp_states:array[0..1000] of halfword; +@y +@!otp_init_input_buf:^quarterword; + +@!otp_input_start:halfword; +@!otp_input_last:halfword; +@!otp_input_end:halfword; +@!otp_input_buf:^quarterword; + +@!otp_output_end:halfword; +@!otp_output_buf:^quarterword; + +@!otp_stack_used:halfword; +@!otp_stack_last:halfword; +@!otp_stack_new:halfword; +@!otp_stack_buf:^quarterword; + +@!otp_pc:halfword; + +@!otp_calc_ptr:halfword; +@!otp_calcs:^halfword; +@!otp_state_ptr:halfword; +@!otp_states:^halfword; +@z |