file: GFtoPress.mod
Last changed by Pavel on September 17, 1985 4:54:11 pm PDT
(configuration g𡤏to←press (basic←time, commander, convert, f←s, i←o, rope, safe←storage, sir←press, 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 g𡤏to←press←private(pascal�sic*, pascal←wizard𡤏iles*); forward;
definitions g𡤏to←press←vars1(pascal�sic*, pascal←wizard𡤏iles*, g𡤏to←press←private*); forward;
definitions g𡤏to←press←vars2(pascal�sic*, pascal←wizard𡤏iles*, g𡤏to←press←private*); forward;
definitions g𡤏to←press←vars3(pascal�sic*, pascal←wizard𡤏iles*, g𡤏to←press←private*); forward;
program g𡤏to←press𡤎xternals←impl.hint$(pascal←wizard𡤏iles); forward;
program g𡤏to←press←vars←impl1(pascal�sic, pascal←wizard𡤏iles*, g𡤏to←press←private*, g𡤏to←press←vars1*); forward;
program g𡤏to←press←vars←impl2(pascal�sic, pascal←wizard𡤏iles*, g𡤏to←press←private*, g𡤏to←press←vars2*); forward;
program g𡤏to←press←vars←impl3(pascal�sic, pascal←wizard𡤏iles*, g𡤏to←press←private*, g𡤏to←press←vars3*); forward;
program g𡤏to←press←impl1(pascal�sic, pascal←wizard𡤏iles, g𡤏to←press←private, g𡤏to←press←vars1, g𡤏to←press←vars2, g𡤏to←press←vars3); forward;
program g𡤏to←press←impl2(pascal�sic, pascal←wizard𡤏iles, g𡤏to←press←private, g𡤏to←press←vars1, g𡤏to←press←vars2, g𡤏to←press←vars3); forward;
program g𡤏to←press←impl3(pascal�sic, pascal←wizard𡤏iles*, g𡤏to←press←private, g𡤏to←press←vars1*, g𡤏to←press←vars2, g𡤏to←press←vars3); forward;
program g𡤏to←press←impl4(pascal�sic, pascal←wizard𡤏iles, g𡤏to←press←private, g𡤏to←press←vars1, g𡤏to←press←vars2, g𡤏to←press←vars3); forward;
program g𡤏to←press←impl5(pascal�sic, pascal←wizard𡤏iles, g𡤏to←press←private, g𡤏to←press←vars1, g𡤏to←press←vars2, g𡤏to←press←vars3); forward;
begin
g𡤏to←press←vars1, g𡤏to←press←vars←impl1 := xord, xchr, buffer, term←in, line←length, buf←ptr, lf, lh, bc, ec, nw, nh, nd, ni, nl, nk, ne, np, gf𡤏ile, tfm𡤏ile, cur←loc, name←of𡤏ile, b0, b1, b2, b3, font←info, fmem←ptr, font𡤌heck, font←size, font𡤍size, font�, font�, font�mily, font�, font←press𡤌ode, command←line𡤊lready←gotten;
g𡤏to←press←vars2, g𡤏to←press←vars←impl2 := char�se, width�se, height�se, depth�se, italic�se, lig←kern�se, kern�se, exten�se, param�se, str←pool, str←start, pool←ptr, str←ptr, init←str←ptr, l, cur←gf, cur←string, label←type, cur←name, cur𡤊rea, cur𡤎xt, area�limiter, ext�limiter, job←name, interaction, fonts←not←loaded, font←name, font𡤊rea, font𡤊t, total←pages, box←width, box←height, box�pth, c, d, two←to←the, rule←slant, slant←n, slant←unit, slant←reported, xl, xr, yt, yb, xx, yy, left, mid, right, dl←tie, ov𡤏lag, info, root, q←save, max←node, x←left, x←right, y←top, y𡤋ot;
g𡤏to←press←vars3, g𡤏to←press←vars←impl3 := $other←vars$;
g𡤏to←press←private, no𡤏ile := $other←types$, $other𡤌onsts$;
g𡤏to←press←private, g𡤏to←press𡤎xternals←impl := press←open𡤏ile, press←get𡤏ont𡤌ode, press←set𡤏ont, press←set𡤌har, press←push←pos, press←pop←pos, press←goto, press←move←x, press←move←y, press←set←rule, press←write←page, press𡤌lose𡤏ile, tty←reset, tty←rewrite, byte𡤏ile←reset, get𡤌ommand←line;
g𡤏to←press←private, g𡤏to←press←impl1 := initialize, jump←out, input←ln, open←gf𡤏ile, open←tfm𡤏ile, read←tfm←word, get𡤋yte, get←two𡤋ytes, get←three𡤋ytes, signed←quad, make←string, read𡤏ont←info, first←string, interpret←xxx, get←yyy, skip←nop, begin←name, more←name, end←name, pack𡤏ile←name, start←gf, load𡤏onts;
g𡤏to←press←private, g𡤏to←press←impl2 := dvi←scaled, hbox, slant𡤌omplaint, get𡤊vail, tree←ins, overlap, even←overlap, odd←overlap, nearest𡤍ot;
g𡤏to←press←private, g𡤏to←press←impl3 := n←l𡤍ot, even←n←l𡤍ot, odd←n←l𡤍ot, convert, top𡤌oords, bot𡤌oords, right𡤌oords, left𡤌oords, do𡤊←label, do𡤋←label, do𡤍ot;
g𡤏to←press←private, g𡤏to←press←impl4 := do←pixels;
g𡤏to←press←private, g𡤏to←press←impl5 := $rest$;
end) := g𡤏to←press.pas;
INVENTFILENAMES FALSE;
MAKEFILE compile←g𡤏to←press;
TARGET cedar;