diff options
Diffstat (limited to 'Build/source/texk/web2c/omegadir/comfilter.ch')
-rw-r--r-- | Build/source/texk/web2c/omegadir/comfilter.ch | 123 |
1 files changed, 0 insertions, 123 deletions
diff --git a/Build/source/texk/web2c/omegadir/comfilter.ch b/Build/source/texk/web2c/omegadir/comfilter.ch deleted file mode 100644 index 64499611753..00000000000 --- a/Build/source/texk/web2c/omegadir/comfilter.ch +++ /dev/null @@ -1,123 +0,0 @@ -% comfilter.ch: Local adaptations for file omfilter.ch -% -% This file is part of Omega, -% which is based on the web2c distribution of TeX, -% -% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous -% -% Omega is free software; you can redistribute it and/or modify -% it under the terms of the GNU General Public License as published by -% the Free Software Foundation; either version 2 of the License, or -% (at your option) any later version. -% -% Omega 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 General Public License for more details. -% -% You should have received a copy of the GNU General Public License -% along with Omega; 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 |