
DIRECTORY
MessageWindow USING [Append, Blink],
Rope USING [ROPE],
RuntimeError USING [UNCAUGHT],
TiogaAccess USING [CopyNode, Create, DoneWith, EndOf, FromFile, FromSelection, Get, PeekRope, Put, Reader, TiogaChar, WriteFile, Writer, WriteSelection],
TiogaOps USING [CallWithLocks, Ref];

TiogaAccessExample: CEDAR PROGRAM
IMPORTS MessageWindow, RuntimeError, TiogaAccess, TiogaOps
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

SaveSelection: PROC [fileName: ROPE] ~ {
out: TiogaAccess.Writer м TiogaAccess.Create[];
in: TiogaAccess.Reader м TiogaAccess.FromSelection[];
UNTIL TiogaAccess.EndOf[in] DO
DO
tiogaChar: TiogaAccess.TiogaChar м TiogaAccess.Get[in];
TiogaAccess.Put[out, tiogaChar];
IF tiogaChar.endOfNode THEN EXIT;
ENDLOOP;
ENDLOOP;
TiogaAccess.DoneWith[in];
TiogaAccess.WriteFile[out, fileName];
};

GetSelection: PROC ~ {
out: TiogaAccess.Writer м TiogaAccess.Create[];
selection: TiogaAccess.Reader м TiogaAccess.FromSelection[];
fileName: ROPE м TiogaAccess.PeekRope[selection];
in: TiogaAccess.Reader м TiogaAccess.FromFile[fileName];
TiogaAccess.DoneWith[selection];
IF NOT TiogaAccess.EndOf[in] THEN [] м TiogaAccess.Get[in];
UNTIL TiogaAccess.EndOf[in] DO
[] м TiogaAccess.CopyNode[out, in]
ENDLOOP;
TiogaAccess.DoneWith[in];
TiogaAccess.WriteSelection[out];
};

ReverseSelection: PROC ~ {
buffer: LIST OF TiogaAccess.TiogaChar;
out: TiogaAccess.Writer м TiogaAccess.Create[];
in: TiogaAccess.Reader м TiogaAccess.FromSelection[];
UNTIL TiogaAccess.EndOf[in] DO
tiogaChar: TiogaAccess.TiogaChar;
DO
tiogaChar м TiogaAccess.Get[in];
IF tiogaChar.endOfNode THEN EXIT;
buffer м CONS[tiogaChar, buffer];
ENDLOOP;
UNTIL buffer = NIL DO
t: LIST OF TiogaAccess.TiogaChar м buffer;
buffer м t.rest;
t.rest м NIL;
TiogaAccess.Put[out, t.first];
ENDLOOP;
TiogaAccess.Put[out, tiogaChar];
ENDLOOP;
TiogaAccess.DoneWith[in];
TiogaAccess.WriteSelection[out];
};

LockedReverseSelection: PROC ~ {
action: PROC [ref: TiogaOps.Ref] ~ {ReverseSelection[]};
TiogaOps.CallWithLocks[action ! RuntimeError.UNCAUGHT => {
MessageWindow.Append["Unknown error in ReverseSelection", TRUE];
MessageWindow.Blink[];
CONTINUE
}];
};

END.

CreateButton S м TiogaAccessExample.SaveSelection["Save"]
CreateButton G м TiogaAccessExample.GetSelection[]
CreateButton R м TiogaAccessExample.ReverseSelection[]
CreateButton L м TiogaAccessExample.LockedReverseSelection[]
CreateButton P м TiogaAccess.GetPosition[TiogaAccess.FromSelection[]]
CreateButton s м &s м TiogaAccess.FromSelection[]
CreateButton t м TiogaAccess.WriteSelection[&w]
м &w м TiogaAccess.Create[]
м TiogaAccess.Put[&w, [charSet: 0, char: 'n, looks: ALL[FALSE], format: $default, comment: FALSE, endOfNode: FALSE, deltaLevel: 0, propList: NIL]]
м TiogaAccess.Put[&w, [charSet: 0, char: '\n, looks: ALL[FALSE], format: $default, comment: FALSE, endOfNode: TRUE, deltaLevel: 0, propList: NIL]]
м &w
м TiogaAccess.WriteFile[&w, "Save"]


    
TiogaAccessExample.mesa
Copyright ╙ 1984, 1991, Xerox Corporation.  All rights reserved.
Michael Plass, March 25, 1985 5:10:28 pm PST
Could catch FS.Error here for bad name or missing file.
Discard root; failure to do this will cause the WriteSelection to fail.
 Э╩v  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЩJЪЬ	╧eЬ4Щ@JЩ,IcodeШ ЧЪ╧k	Ш	KЪЬЮЬШ$KЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬИШЩЪЬ	ЮЬШ$KШ ЧЧЪЬЮШ!KЪЮЬ3Ш:KЪЬЮШKШ ЪЮЬЮЬЮЬШKШ ЧЪ╧nЬЮЬЮЬШ(KЪЬ/Ш/KЪЬ5Ш5ЪЮЬЮШЪЮШKЪЬ7Ш7KЪЬ Ш KЪЮЬЮЬЮЬШ!KЪЮЬШЧKЪЮЬШЧKЪЬШKЪЬ%Ш%KЪЬШKШ ЧЪЯЬЮЬШKЪЬ/Ш/KЪЬ<Ш<KЪЬ
ЮЬ#Ш1ЪЬ8Ш8JЩ7ЧKЪЬ Ш ЪЮЬЮЬЮЬШ;JЪЬGЩGЧЪЮЬЮШKЪЬ"Ш"KЪЮЬШЧKЪЬШKЪЬ Ш KЪЬШKШ ЧЪЯЬЮЬШKЪЬЮЬЮЬШ&KЪЬ/Ш/KЪЬ5Ш5ЪЮЬЮШKЪЬ!Ш!ЪЮШKЪЬ Ш KЪЮЬЮЬЮЬШ!KЪЬ	ЮЬШ!KЪЮЬШЧЪЮЬ
ЮЬЮШKЪЬЮЬЮЬ Ш*KЪЬШKЪЬ	ЮЬШKЪЬШKЪЮЬШЧKЪЬ Ш KЪЮЬШЧKЪЬШKЪЬ Ш KЪЬШKШ ЧЪЯЬЮЬШ KЪЬЮЬ,Ш8ЪЬ-ЮЬШ:KЪЬ:ЮЬШ@KЪЬШKЪЮШKЪЬШЧKЪЬШKШ ЧKЪЮЬШKШ KЪЬ9Ш9KЪЬ2Ш2KЪЬ6Ш6KЪЬ<Ш<KЪЬEШEKЪЬ1Ш1KЪЬ/Ш/KЪЬШKЪЬТШТKЪЬТШТKЪЬШKЪЬ#Ш#KШ KШ ЧЧ ЕЧ    >  ┬  