DIRECTORY IO, Pipal, PipalInt, PipalMutate, PipalOps, RefTab, TerminalIO;PipalMutateImpl: CEDAR MONITOR IMPORTS IO, Pipal, PipalOps, RefTab, TerminalIO EXPORTS PipalMutate = BEGIN OPEN PipalMutate;mutationMethod: PUBLIC Pipal.Method _ Pipal.RegisterMethod["Mutation"];HasMutationProc: PUBLIC PROC [object: Pipal.Object] RETURNS [BOOL] = {RETURN [Pipal.ObjectMethod[object, mutationMethod]#NIL];};Mutation: PUBLIC MutationProc = {mutant _ (NARROW [Pipal.ObjectMethod[object, mutationMethod], REF MutationProc]^)[object];};RecursiveEnumerateMutantChildren: PROC [root: Pipal.Object, each: EachChildProc, initialPath: PipalOps.Path] RETURNS [path: PipalOps.Path, quit: BOOL _ FALSE] = {count: NAT _ 0;EachChild: PipalOps.EachChildProc = {[path, quit] _ RecursiveEnumerateMutantChildren[child, each, PipalOps.ExtendPath[initialPath, ops, count]];count _ count+1;};path _ initialPath;IF HasMutationProc[root] THEN RETURN [path, each[path, root]];IF NOT PipalOps.HasEnumerate[root] THEN RETURN;quit _ PipalOps.Enumerate[root, EachChild];};EnumerateMutantChildren: PUBLIC PROC [root: Pipal.Object, each: EachChildProc] RETURNS [quit: BOOL _ FALSE] = {quit _ RecursiveEnumerateMutantChildren[root, each, NIL].quit;};popEvent: PUBLIC ATOM _ $Pop;BroadcastPop: PUBLIC PROC [mutant: Pipal.Object] = {};commandTableMethod: Pipal.Method = Pipal.RegisterMethod["CommandTable"];CommandData: TYPE = REF CommandDataRec;CommandDataRec: TYPE = RECORD [command: CommandProc, registrationData: REF _ NIL];RegisterCommand: PUBLIC ENTRY PROC [class: Pipal.Class, name: ATOM, command: CommandProc, registrationData: REF _ NIL] = {commandData: CommandData _ NEW [CommandDataRec _ [command, registrationData]];commandTable: RefTab.Ref _ NARROW [Pipal.GetClassMethod[class, commandTableMethod]];IF commandTable=NIL THEN {commandTable _ RefTab.Create[];Pipal.PutClassMethod[class, commandTableMethod, commandTable];};IF NOT RefTab.Store[commandTable, name, commandData] THEN TerminalIO.PutF["*** Command %g for mutant %g overwritten.\n", IO.atom[name], IO.rope[Pipal.ClassName[class]]];};FetchCommand: PUBLIC PROC [mutant: Pipal.Object, name: ATOM] RETURNS [command: CommandProc _ NIL, registrationData: REF _ NIL] = {commandData: CommandData;commandTable: RefTab.Ref _ NARROW [Pipal.ObjectMethod[mutant, commandTableMethod]];commandData _ NARROW [RefTab.Fetch[commandTable, name].val];IF commandData=NIL THEN RETURN ELSE RETURN [commandData.command, commandData.registrationData];};ApplyCommand: PUBLIC PROC [mutant: Pipal.Object, name: ATOM, arguments: LIST OF REF _ NIL, issuer: REF _ NIL] RETURNS [resultType: ResultType _ none, result: Pipal.Object _ NIL, new: Pipal.Object] = {command: CommandProc;registrationData: REF;[command, registrationData] _ FetchCommand[mutant, name];[resultType, result, new] _ command[mutant, name, arguments, issuer, registrationData];};END.  ٹ  PipalMutateImpl.mesa	Copyright س 1988 by Xerox Corporation.  All rights reserved.Bertrand Serlet May 12, 1988 10:30:27 pm PDTLouis Monier January 29, 1988 9:10:26 pm PSTBarth, January 29, 1988 6:24:02 pm PSTMutation MethodPop EventPipalOps.Broadcast[popEvent, mutant, mutant.object];CommandsFor a given mutant this table maps the name of the command to a CommandData record. ‌تq  ک –"Cedar" styleڑœ™Jڑœ<™<Icodeڑœ,™,Kڑœ)دk™,Kڑœ#‌™&—Jک ڑ‌	œ‌œ=کIJک —ڑدnœ‌œ‌œکJڑ‌œ‌œ&ک0Jڑ‌œکJڑ‌œ‌œک—headڑœ™ڑœ‌œ1کGKک —ڑ
‍œ‌œ‌œ‌œ‌œکFKڑ‌œ-‌œک8KڑœکKک —ڑ‍œ‌œک!Kڑœ
‌œ.‌œکZKکKک —ڑ
‍ œ‌œG‌œ‌œ‌œک¢Kڑœ‌œکڑ‍	œک%KڑœkکkKکKک—KڑœکKڑ‌œ‌œ‌œک>Kڑ‌œ‌œ‌œ‌œک/Kڑœ+ک+Kک—ڑ‍œ‌œ‌œ+‌œ‌œ‌œکoKڑœ4‌œک>Kک——™	ڑœ
‌œ‌œکK™ —ڑ‍œ‌œ‌œک4Kڑدb4™4Kک——™ڑœHکHK™SK™ —Kڑœ‌œ‌œک'ڑ	œ‌œ‌œ*‌œ‌œکRKک —ڑ‍œ‌œ‌œ‌œ‌œ*‌œ‌œکzKڑœ‌œ0کNKڑœ‌œ3کTڑ‌œ‌œ‌œکKڑœکKڑœ>ک>Kک—Kڑ
‌œ‌œ/‌œ@‌œ‌œک©KکK™ —ڑ‍œ‌œ‌œ‌œ‌œ‌œ‌œ‌œک‚KڑœکKڑœ‌œ2کSKڑœ‌œ(ک<ڑ‌œ‌œکKڑ‌œ‌œکKڑ‌œ‌œ5ک@—KکKک —ڑ‍œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ
‌œ‌œ‌œ8‌
œکبKڑœکKڑœ‌œکKڑœ9ک9KڑœWکWKک——Jڑ‌œک— …—    `  [  