-- KipperSupport.mesa December 6, 1985 9:35:33 am PST-- Sturgis, January 6, 1986 1:07:11 pm PSTDIRECTORYIO USING[STREAM],HashTable USING[Table],Rope USING[ROPE];KipperSupport: CEDAR DEFINITIONS =BEGINKipperer: TYPE = REF KippererBody;KippererBody: TYPE = RECORD[stream: IO.STREAM,refCounter: LONG CARDINAL,refTable: HashTable.Table];UnKipperer: TYPE = REF UnKippererBody;UnKippererBody: TYPE = RECORD[stream: IO.STREAM,refCounter: LONG CARDINAL,refTable: HashTable.Table];RefTable: TYPE = REF RefTableBody;RefTableBody: TYPE;CreateKipperer: PROC[s: IO.STREAM] RETURNS[Kipperer];CreateUnKipperer: PROC[s: IO.STREAM] RETURNS[UnKipperer];Error: ERROR[reason: Reason];Reason: TYPE = {notAKipperStream, wrongKipperVersion};KipperBoolean: PROC[kipperer: Kipperer, boolean: BOOLEAN];UnKipperBoolean: PROC[unKipperer: UnKipperer] RETURNS[BOOLEAN];KipperCardinal: PROC[kipperer: Kipperer, cardinal: CARDINAL];UnKipperCardinal: PROC[unKipperer: UnKipperer] RETURNS[CARDINAL];KipperCharacter: PROC[kipperer: Kipperer, character: CHARACTER];UnKipperCharacter: PROC[unKipperer: UnKipperer] RETURNS[CHARACTER];KipperInt: PROC[kipperer: Kipperer, int: INT];UnKipperInt: PROC[unKipperer: UnKipperer] RETURNS[INT];KipperInteger: PROC[kipperer: Kipperer, integer: INTEGER];UnKipperInteger: PROC[unKipperer: UnKipperer] RETURNS[INTEGER];KipperLongCardinal: PROC[kipperer: Kipperer, longCardinal: LONG CARDINAL];UnKipperLongCardinal: PROC[unKipperer: UnKipperer] RETURNS[LONG CARDINAL];KipperNat: PROC[kipperer: Kipperer, nat: NAT];UnKipperNat: PROC[unKipperer: UnKipperer] RETURNS[NAT];KipperReal: PROC[kipperer: Kipperer, real: REAL];UnKipperReal: PROC[unKipperer: UnKipperer] RETURNS[REAL];KipperRefText: PROC[kipperer: Kipperer, refText: REF TEXT];UnKipperRefText: PROC[unKipperer: UnKipperer] RETURNS[REF TEXT];KipperRope: PROC[kipperer: Kipperer, rope: Rope.ROPE];UnKipperRope: PROC[unKipperer: UnKipperer] RETURNS[Rope.ROPE];KipperWord: PROC[kipperer: Kipperer, word: WORD];UnKipperWord: PROC[unKipperer: UnKipperer] RETURNS[WORD];KipperRef: PROC[kipperer: Kipperer, r: REF ANY] RETURNS[kipperTheBody: BOOLEAN];UnKipperRef: PROC[unKipperer: UnKipperer] RETURNS[kipperTheBody: BOOLEAN, ref: REF ANY];RecordUnKipperedRef: PROC[unKipperer: UnKipperer, r: REF ANY];END..   ^  Kipper typesCreation proceduresThe second procedure may generate the following errornotAKipperStreammeans that the initial stream bytes do not contain an expected keywrongKipperVersionmeans the the next stream bytes do not contain an expected version numberClient callable proceduresPrivate Procedures called by generated stubs Ê  ˜ Jšœ5˜5J˜*J˜ ˜	J˜J˜J˜J˜ —šœ"˜"J˜J˜ J™ J™™ JšÏbœ˜"šœ˜J˜J˜J˜—J˜ Jš
œ˜&šœ˜J˜J˜J˜—J˜ Jšœ˜"J˜—J˜ J™ J™˜ Jšœ'˜5J˜ Jšœ)˜9J˜ J™5J˜ Jšœ˜J˜ Jšœ0˜6˜ ™J™B—J™ ™J™I———J˜ J™ ™J™ Jšœ-˜:Jšœ0˜?J˜ Jšœ/˜=Jšœ1˜AJ˜ Jšœ1˜@Jšœ2˜CJ˜ Jš	œ%˜.Jšœ,˜7J˜ Jšœ-˜:Jšœ0˜?J˜ Jšœ8˜JJšœ6˜JJ˜ Jš	œ%˜.Jšœ,˜7J˜ Jš
œ'˜1Jšœ-˜9J˜ Jšœ.˜;Jšœ1˜@J˜ Jš
œ,˜6Jšœ2˜>J˜ Jš
œ'˜1Jšœ-˜9J˜ J˜ —J˜ J™,™ Jš	œG˜PJ˜ JšœM˜XJ˜ Jšœ+˜>J˜ J˜ —J˜ ˜ J˜ —J˜—— …—    	"  Ÿ  