DIRECTORYBasicTime USING [Now],Commander USING [CommandProc, Register],CommandTool USING [DoCommandRope, NextArgument],Convert USING [Error, IntFromRope, RopeFromInt, RopeFromTime],MessageWindow USING [Append],NodeProps USING [GetProp, PutProp],Rope USING [Equal, ROPE, Size],TextLooks USING [CreateRun],TextNodeRegistry USING [ActivityOn, ActivityProc, ProcSetRec, Ref, Register, SizeProc, TransformProc];ActiveSampler: CEDAR PROGRAMIMPORTS BasicTime, Commander, CommandTool, Convert, MessageWindow, NodeProps, Rope, TextLooks, TextNodeRegistry~ BEGINCommandTransform: TextNodeRegistry.TransformProc = {node.rope _ CommandTool.DoCommandRope[commandLine: node.rope, parent: NIL].out;node.runs _ TextLooks.CreateRun[Rope.Size[node.rope]];NodeProps.PutProp[node, $Active, NIL];  -- make node inactiveRETURN[node];};MaxTransform: TextNodeRegistry.TransformProc = {max: INT _ 0;FOR n: TextNodeRegistry.Ref _ node.child, n.next WHILE n#node DOi: INT;i _ Convert.IntFromRope[n.rope ! Convert.Error => {i _ -1; CONTINUE}];max _ MAX[i, max];ENDLOOP;node.rope _ Convert.RopeFromInt[max];node.runs _ TextLooks.CreateRun[Rope.Size[node.rope]];RETURN[node];};CurrentTimeTransform: TextNodeRegistry.TransformProc = {node.rope _ Convert.RopeFromTime[BasicTime.Now[]];node.runs _ TextLooks.CreateRun[Rope.Size[node.rope]];RETURN[node];};ActivityProc: Commander.CommandProc = {arg: Rope.ROPE = CommandTool.NextArgument[cmd];SELECT TRUE FROMRope.Equal[s1: arg, s2: "on", case: FALSE] => {[] _ TextNodeRegistry.ActivityOn[NIL, TRUE];msg _ "Tioga activity turned on";};Rope.Equal[s1: arg, s2: "off", case: FALSE] => {[] _ TextNodeRegistry.ActivityOn[NIL, FALSE];msg _ "Tioga activity turned off";};ENDCASE => msg _ "usage: ActiveTioga on/off";};TextNodeRegistry.Register[activity: $CurrentTime, procs: NEW[TextNodeRegistry.ProcSetRec _ [activityOn: TRUE, transformProc: CurrentTimeTransform]]];TextNodeRegistry.Register[activity: $Max, procs: NEW[TextNodeRegistry.ProcSetRec _ [activityOn: TRUE, transformProc: MaxTransform]]];TextNodeRegistry.Register[activity: $Command, procs: NEW[TextNodeRegistry.ProcSetRec _ [activityOn: TRUE, transformProc: CommandTransform]]];Commander.Register[key: "ActiveTioga", proc: ActivityProc, doc: "turn ActiveTioga on/off"];END.  
  ActiveSampler.mesaCopyright س 1987 by Xerox Corporation.  All rights reserved.Doug Terry, July 9, 1987 9:58:59 am PDTA sampling of transformations for active Tioga nodes.Active=ActivityActivityTransform: TextNodeRegistry.TransformProc = {[node: TextNode.Ref, parent: TextNode.Ref, wantFirst: BOOLEAN, clientData: REF ANY] RETURNS [new: TextNode.Ref]body};ActivitySize: TextNodeRegistry.SizeProc = {[node: TextNode.Ref, clientData: REF ANY] RETURNS [size: INT]body};ActivityActive: TextNodeRegistry.ActivityProc = {[on: BOOLEAN, clientData: REF ANY]body};Active=Command[node: TextNode.Ref, parent: TextNode.Ref, wantFirst: BOOLEAN, clientData: REF ANY] RETURNS [new: TextNode.Ref]Active=Max[node: TextNode.Ref, parent: TextNode.Ref, wantFirst: BOOLEAN, clientData: REF ANY] RETURNS [new: TextNode.Ref]Active=CurrentTime[node: TextNode.Ref, parent: TextNode.Ref, wantFirst: BOOLEAN, clientData: REF ANY] RETURNS [new: TextNode.Ref]Toggling activity[cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]RegistrationsTextNodeRegistry.Register[activity: $Activity, procs: NEW[TextNodeRegistry.ProcSetRec _ [activityOn: TRUE, transformProc: ActivityTransform, sizeProc: ActivitySize, activityProc: ActivityActive]]];‌تة  ک codeڑœ™Kڑœ<™<Kڑœ'™'—K™ K™5K™ ڑدk	ک	Kڑœ
‌œکKڑœ
‌œک(Kڑœ‌œک0Kڑœ‌œ1ک>Kڑœ‌œ
کKڑœ
‌œک#Kڑœ‌œ‌œکKڑœ
‌œکKڑœ‌œPکf—Kک Kڑذblœ‌œ‌کKڑ‌œhکoKڑœ‌کheadڑœدtœں™•StartOfExpansions -- [node: TextNode.Ref, parent: TextNode.Ref, wantFirst: BOOLEAN, clientData: REF ANY] RETURNS [new: TextNode.Ref]ڑدnœ$™7Kڑ	œ6‌œ‌œ‌œ‌œ™oK–-[message: ROPE, clearFirst: BOOL _ FALSE]ڑںœں™K™K™ —–A -- [node: TextNode.Ref, clientData: REF ANY] RETURNS [size: INT]ڑ œ™-Kڑ	œ!‌œ‌œ‌œ‌œ™=K–-[message: ROPE, clearFirst: BOOL _ FALSE]ڑںœں™K™K™ —–& -- [on: BOOLEAN, clientData: REF ANY]ڑ œ#™3Kڑœ‌œ‌œ‌œ™"K–-[message: ROPE, clearFirst: BOOL _ FALSE]ڑںœں™K™——ڑœ™–s -- [node: TextNode.Ref, parent: TextNode.Ref, wantFirst: BOOLEAN, clientData: REF ANY] RETURNS [new: TextNode.Ref]ڑ œ$ک4Kڑ	œ6‌œ‌œ‌œ‌œ™oK–I[commandLine: ROPE _ NIL, in: ROPE _ NIL, parent: Commander.Handle]ڑœF‌œکOKک6Kڑœ!‌œدcک=Kڑ‌œکKکK™ ——ڑœ
™
–s -- [node: TextNode.Ref, parent: TextNode.Ref, wantFirst: BOOLEAN, clientData: REF ANY] RETURNS [new: TextNode.Ref]ڑ œ$ک0Kڑدso™oK–-[message: ROPE, clearFirst: BOOL _ FALSE]ڑœ‌œکڑ‌œ.‌œ‌ک@Kڑœ‌œکKڑœ;‌œکFKڑœ‌œ	کKڑ‌œک—K–B[from: INT, base: Convert.Base _ 10, showRadix: BOOL _ TRUE]ڑœ%ک%Kک6Kڑ‌œکKک——™–s -- [node: TextNode.Ref, parent: TextNode.Ref, wantFirst: BOOLEAN, clientData: REF ANY] RETURNS [new: TextNode.Ref]ڑ œ$ک8Kڑذcko™oK–-[message: ROPE, clearFirst: BOOL _ FALSE]ڑœ2ک2Kک6Kڑ‌œکKک——™–L -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]ڑ œک'Kڑœ‌œ
‌œ‌œ‌œ‌œ‌œ™HKڑœ
‌œ!ک/ڑ‌œ‌œ‌ک–-[s1: ROPE, s2: ROPE, case: BOOL _ TRUE]ڑœ$‌œک/Kڑœ!‌œ‌œک,Kک!Kک—–-[s1: ROPE, s2: ROPE, case: BOOL _ TRUE]ڑœ%‌œک0Kڑœ!‌œ‌œک-Kک"Kک—Kڑ‌œ&ک-—Kک——™K–5[activity: ATOM, procs: TextNodeRegistry.ProcSet]ڑ	œ%ںœںœ	‌œ,‌œb™حK™ K–5[activity: ATOM, procs: TextNodeRegistry.ProcSet]ڑœ9‌œ,‌œ)ک•K–5[activity: ATOM, procs: TextNodeRegistry.ProcSet]ڑœ1‌œ,‌œ!ک…K–5[activity: ATOM, procs: TextNodeRegistry.ProcSet]ڑœ5‌œ,‌œ%کچKک Kک[K™ —Kڑ‌œک— …—    ü  د  