DIRECTORYIO USING [Handle],IPXeroxEncoding USING [SequenceType, EncodingValue],Rope USING [MaxLen, ROPE];IPEncodingOut: CEDAR DEFINITIONS = BEGINOPEN IPX: IPXeroxEncoding;Handle: TYPE = RECORD[h: IO.Handle];  -- allows Cedar clusteringOpenOutputMaster: PROCEDURE [name: Rope.ROPE] RETURNS[h: Handle];CloseMaster: PROCEDURE [h: Handle];AppendByte: PROCEDURE [h: Handle, val: [0..255]];AppendSequenceDescriptor: PROCEDURE [h: Handle, type: IPX.SequenceType, length: NAT];AppendString: PROCEDURE [h: Handle, length: NAT, proc: PROCEDURE  RETURNS [c: [0..255]]];AppendRope: PROCEDURE [h: Handle, rope: Rope.ROPE, start: INT _ 0, len: INT _ Rope.MaxLen];AppendLargeVector: PROCEDURE [h: Handle,length: NAT,bytesPerItem: [0..255],proc: PROCEDURE  RETURNS [c: [0..255]]];AppendReal: PROCEDURE [h: Handle, n: REAL];AppendRational: PROCEDURE [h: Handle, i, j: INT];AppendInteger: PROCEDURE [h: Handle, i: INT];AppendOp: PROCEDURE [h: Handle, op: IPX.EncodingValue];AppendIdentifier: PROCEDURE  [h: Handle, id: Rope.ROPE, start: INT _ 0, len: INT _ Rope.MaxLen];AppendComment: PROCEDURE [h: Handle, c: Rope.ROPE];Append2Int: PRIVATE PROCEDURE [h: Handle, e: CARDINAL, c: CARDINAL];AppendLongInteger: PRIVATE PROCEDURE [h: Handle, f: INT, e: CARDINAL];Append2Rational: PRIVATE PROCEDURE [h: Handle, i: INT, e: INTEGER];AppendInt: PRIVATE PROCEDURE [h: Handle, i: INT, c: CARDINAL];WriteInterpressHeader: PRIVATE PROCEDURE [h: Handle];NotInterpress: SIGNAL;Error: ERROR [errorCode: ErrorCode];ErrorCode: PUBLIC TYPE = {FileNotAvailable, RopeEncodingError};END.   ╓  IPEncodingOut.mesaWritten by John Warnock, August 26,1981Last edited by Chuck Geschke, April 16, 1982  9:58 AMLast edited by Andy Shore, February 14, 1983 3:54 pmThis module provides the Interpress literal interface(see Introduction to Interpress chapter 7).It writes the "Xerox Encoding" form of Interpress 2.0.See IPOperatorOut for the higher-level "operator interface".Interpress Master Creation ProcsOpenOutputMaster opens an output file and writes the header.CloseMaster closes the output master.Interpress Master Writing ProcsThe following procedures produce the various types in the "Xerox Encoding."Note: "proc" is called "bytesPerItem" times for each element of the vectorPrivate Stuff (appears here for Cedar clustering)Change LogChanged by Shore; August 23, 1982 4:04 pmupdated for Cedar 3.3 (changed IOStream to IO)Changed by Shore; September 4, 1982 3:06 pmmodified to use Doug's Latest IPXeroxEncodingChanged by Shore; September 24, 1982 12:58 pmmade changes suggested by Sproull -- AppendRope now here, etcChange by Shore; November 11, 1982 2:04 pmchange to Cedar.Style and added node stylesChanged by Shore; January 19, 1983 3:34 pmchanged to CEDAR, Interpress 2.0, and new node styles Э╩1  Ц"Cedar" styleШ headЪЬЩJЪ╧c'Щ'JЪЭ5Щ5JЪЭ4Щ4ЧIbodyЪЭ╨bcЭЮЭЩaLЪЭЮЭЩ6ЪЭЬЭ+Щ<unitЪ╧k	Ш	JЪЯЬЯЬ
ШJЪЬЯЬШ4JЪЬЯЬ
ЯЬШЧЧЪЬЯЬЯЬЯШ(JЪЯЬЯЬШJШ JЪЬЯЬЯЬЯЬЭШ@head2ЪЭ Щ Ъ╧nЬЯ	ЬЯЬЯЬШAJЪЭ<Щ<ЧЪаЬЯ	ЬШ#JЪЭ%Щ%ЧЧЪЭЩJЪЭ:ЮЩKMЪа
ЬЯ	ЬШ1MЪаЬЯ	ЬЯЬЯЬШUMЪ
аЬЯ	ЬЯЬЯ	ЬЯЬШYMЪ
а
ЬЯ	ЬЯЬ	ЯЬЯЬШ[ЪаЬЯ	ЬШJЪЬ
Ш
JЪЬЯЬШJЪЬШJЪЬЯ	ЬЯЬШ(JЪЭJЩJЧMЪа
ЬЯ	ЬЯЬШ+MЪаЬЯ	ЬЯЬШ1MЪаЬЯ	ЬЯЬШ-MЪаЬЯ	ЬЯЬШ7MЪ
аЬЯ	ЬЯЬ	ЯЬЯЬШ`MЪаЬЯ	ЬЯЬШ3ЧЪЭ╧s#Щ1MЪ
а
ЬЯЬЯ	ЬЯЬЯЬШDMЪ
аЬЯЬЯ	ЬЯЬЯЬШFMЪ
аЬЯЬЯ	ЬЯЬЯЬШCMЪ
а	ЬЯЬЯ	ЬЯЬЯЬШ>MЪаЬЯЬЯ	ЬШ5ЧMЪЬЯЬШJШ JЪЬЯЬШ$JЪЬЯЬЯЬ)Ш?JШ JЪЯЬШЧЪЬ
Щ
ЪЬ)Щ)JЪЬ+ЯЬЩ.ЧJЩ Щ+JЪЬ-Щ-ЧJЩ Щ-JЩ=ЧJЩ Щ*JЩ+ЧJЩ Щ*JЩ5ЧЧЧ ЕЧ    2  9  