
<<File: Weave.mod>>
    <<Copyright © 1986 by Xerox Corporation.  All rights reserved.>>
<<Last Changed by Pavel on September 13, 1985 1:45:35 pm PDT>>
    <<Doug Wyatt, September 23, 1986 1:27:30 pm PDT>>
<<>>
(configuration weave(basic_time, commander, convert, f_s, i_o, rope, safe_storage, unsafe_storage);
definitions pascal_basic; external;
definitions pascal_wizard_files; external;
program pascal_basic_impl; external;
program pascal_wizard_files_impl; external;
program no_prog; trash;
definitions weave_vars(pascal_basic*, pascal_wizard_files*); forward;
definitions weave_procs(pascal_basic*, pascal_wizard_files*, weave_vars*); forward;
definitions weave_proc_array.hint$(pascal_basic*, pascal_wizard_files*, weave_procs*, weave_vars); forward;
program weave_vars_impl1(pascal_basic, pascal_wizard_files*, weave_vars*); forward;
program weave_vars_impl2(pascal_basic, pascal_wizard_files*, weave_vars*); forward;
program weave_init(pascal_basic, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_id(pascal_basic, pascal_wizard_files, weave_procs, weave_proc_array, weave_vars); forward;
program weave_input(pascal_basic*, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_code(pascal_basic*, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_xref(pascal_basic*, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_low(pascal_basic, pascal_wizard_files, weave_procs*, weave_proc_array, weave_vars); forward;
program weave_parse1(pascal_basic*, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_parse2(pascal_basic*, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_output(pascal_basic, pascal_wizard_files, weave_procs, weave_proc_array, weave_vars); forward;
program weave_phase_i(pascal_basic*, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_phase_i_i(pascal_basic*, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_phase_i_i_i(pascal_basic, pascal_wizard_files, weave_procs, weave_vars, weave_proc_array); forward;
program weave_proc_array_impl.hint$(pascal_basic, weave_vars); forward;
program weave_externals_impl.hint$(pascal_basic, pascal_wizard_files, weave_procs, weave_vars); forward;
program weave_impl(pascal_basic, pascal_wizard_files, weave_procs, weave_vars); forward;
begin
<<-- weave_vars_impl1 has the first 16 vars, because we can't export them all at once....>>
weave_vars, weave_vars_impl1 := history, xord, xchr, term_out, web_file, change_file, tex_file, buffer, phase_one, phase_three, 
byte_start, link, ilk, xref, name_ptr, byte_ptr, xmem, $other_types$, $other_consts$;
weave_vars, weave_vars_impl2 := $other_vars$;
weave_procs, weave_init := error, jump_out, initialize, open_input, input_ln;
weave_procs, weave_id := print_id, id_lookup, mod_lookup, prefix_lookup;
weave_procs, weave_input := lines_dont_match, prime_the_change_buffer, check_change, reset_input, get_line;
weave_procs, weave_code := control_code, skip_limbo, skip_tex, skip_comment, copy_limbo, copy_tex, copy_comment, get_next;
weave_procs, weave_xref := new_xref, new_mod_xref;
weave_procs, weave_low := flush_buffer, finish_line, break_out, out_mod, out_name;
weave_procs, weave_parse1 := easy_cases, sub_cases, pascal_parse, pascal_translate, outer_parse;
weave_procs, weave_parse2 := red, sq, five_cases, alpha_cases, translate, app_comment, app_octal, app_hex;
weave_procs, weave_output := push_level, get_output, output_pascal, make_output;
weave_procs, weave_phase_i := pascal_xref, outer_xref, mod_check, phase_i;
weave_procs, weave_phase_i_i := finish_pascal, footnote, phase_ii;
weave_procs, weave_phase_i_i_i := unbucket, mod_print, phase_iii;
weave_proc_array, weave_proc_array_impl := byte_mem;
weave_procs, weave_externals_impl := tty_rewrite, file_reset, file_rewrite, file_close, file_get_pos;
weave_procs, weave_impl := $other_procs$, $global_labels$, $main$
end) := weave.pas
INLINE byte_mem;
INVENTFILENAMES FALSE;
MAKEFILE compile_weave;
PROCARRAY byte_mem;
TARGET cedar;