% 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_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_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