
<<file: Tangle.mod>>
    <<Copyright © 1986 by Xerox Corporation.  All rights reserved.>>
<<modified by: Lyle Ramshaw, October 27, 1983 5:10 pm>>
    <<Pavel, May 10, 1985 4:55:15 pm PDT>>
    <<Doug Wyatt, September 23, 1986 11:39:32 am PDT>>

(configuration tangle(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_file; trash;
definitions tangle_private(pascal_basic*, pascal_wizard_files*); forward;
definitions tangle_proc_array.hint$(pascal_basic*, pascal_wizard_files*, tangle_private*); forward;
program tangle_init(pascal_basic, pascal_wizard_files, tangle_private); forward;
program tangle_id(pascal_basic, pascal_wizard_files, tangle_private, tangle_proc_array); forward;
program tangle_output(pascal_basic, pascal_wizard_files, tangle_private, tangle_proc_array); forward;
program tangle_produce(pascal_basic*, pascal_wizard_files, tangle_private); forward;
program tangle_send(pascal_basic, pascal_wizard_files, tangle_private, tangle_proc_array); forward;
program tangle_input(pascal_basic*, pascal_wizard_files, tangle_private); forward;
program tangle_code(pascal_basic*, pascal_wizard_files, tangle_private); forward;
program tangle_scan(pascal_basic, pascal_wizard_files, tangle_private, tangle_proc_array); forward;
program tangle_proc_array_impl.hint$(pascal_basic); forward;
program tangle_externals_impl.hint$(pascal_basic, pascal_wizard_files, tangle_private); forward;
program tangle_impl(pascal_basic, pascal_wizard_files, tangle_private); forward;
begin
tangle_private, no_file := $other_types$, $other_consts$;
tangle_private, tangle_init := error, jump_out, initialize, open_input, input_ln;
tangle_private, tangle_id := print_id, id_lookup, mod_lookup, prefix_lookup, store_two_bytes;
tangle_private, tangle_output := push_level, pop_level, get_output;
tangle_private, tangle_produce := flush_buffer, app_val, send_out, send_sign, send_val;
tangle_private, tangle_send := send_the_output;
tangle_private, tangle_input := lines_dont_match, prime_the_change_buffer, check_change, get_line;
tangle_private, tangle_code := control_code, skip_ahead, skip_comment, get_next;
tangle_private, tangle_scan := scan_numeric, scan_repl, define_macro, scan_module;
tangle_proc_array, tangle_proc_array_impl := byte_mem, tok_mem;
tangle_private, tangle_externals_impl := tty_reset, tty_rewrite, file_reset, file_rewrite, file_close, file_get_pos;
tangle_private, tangle_impl := $other_vars$, $other_procs$, $global_labels$, $main$
end):= tangle.pas;
INLINE byte_mem, tok_mem;
INVENTFILENAMES FALSE;
MAKEFILE compile_tangle;
PROCARRAY byte_mem, tok_mem;
TARGET cedar;