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�sic; external;
definitions pascal←wizard𡤏iles; external;
program pascal�sic←impl; external;
program pascal←wizard𡤏iles←impl; external;
program no𡤏ile; trash;
definitions tangle←private(pascal�sic*, pascal←wizard𡤏iles*); forward;
definitions tangle←proc𡤊rray.hint$(pascal�sic*, pascal←wizard𡤏iles*, tangle←private*); forward;
program tangle←init(pascal�sic, pascal←wizard𡤏iles, tangle←private); forward;
program tangle←id(pascal�sic, pascal←wizard𡤏iles, tangle←private, tangle←proc𡤊rray); forward;
program tangle←output(pascal�sic, pascal←wizard𡤏iles, tangle←private, tangle←proc𡤊rray); forward;
program tangle←produce(pascal�sic*, pascal←wizard𡤏iles, tangle←private); forward;
program tangle←send(pascal�sic, pascal←wizard𡤏iles, tangle←private, tangle←proc𡤊rray); forward;
program tangle←input(pascal�sic*, pascal←wizard𡤏iles, tangle←private); forward;
program tangle𡤌ode(pascal�sic*, pascal←wizard𡤏iles, tangle←private); forward;
program tangle←scan(pascal�sic, pascal←wizard𡤏iles, tangle←private, tangle←proc𡤊rray); forward;
program tangle←proc𡤊rray←impl.hint$(pascal�sic); forward;
program tangle𡤎xternals←impl.hint$(pascal�sic, pascal←wizard𡤏iles, tangle←private); forward;
program tangle←impl(pascal�sic, pascal←wizard𡤏iles, tangle←private); forward;
begin
tangle←private, no𡤏ile := $other←types$, $other𡤌onsts$;
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𡤋ytes;
tangle←private, tangle←output := push←level, pop←level, get←output;
tangle←private, tangle←produce := flush𡤋uffer, app←val, send←out, send←sign, send←val;
tangle←private, tangle←send := send←the←output;
tangle←private, tangle←input := lines𡤍ont←match, prime←the𡤌hange𡤋uffer, check𡤌hange, get←line;
tangle←private, tangle𡤌ode := control𡤌ode, skip𡤊head, skip𡤌omment, get←next;
tangle←private, tangle←scan := scan←numeric, scan←repl, define←macro, scan←module;
tangle←proc𡤊rray, tangle←proc𡤊rray←impl := byte←mem, tok←mem;
tangle←private, tangle𡤎xternals←impl := tty←reset, tty←rewrite, file←reset, file←rewrite, file𡤌lose, 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;