DIRECTORY CD, Rope, CDGenerate, CDGenerateBackdoor, CDDynamicObs, CDMenus, CDMenuSpecials, CDSequencer, CDValue, CDPanel, CDProperties, TerminalIO;CDDynamicObsCommands: CEDAR PROGRAMIMPORTS CDDynamicObs, CDGenerateBackdoor, CDMenus, CDMenuSpecials, CDSequencer, CDValue, CDPanel, CDProperties, TerminalIO, Rope =BEGINDynamicGeneratorsComm: PROC [comm: CDSequencer.Command] =BEGINkey: Rope.ROPE;design: CD.Design _ comm.design; key _ CDMenuSpecials.SelectOneOf[CDGenerateBackdoor.publicTables, "dynamicize generator"]; IF Rope.IsEmpty[key] THEN TerminalIO.WriteRope["not done\n"]ELSE {key _ CDDynamicObs.GetTable[key].name;TerminalIO.WriteRopes["created (and now uses) [", key, "]\n"];CDProperties.PutPropOnDesign[design, $GeneratorProc, key];CDValue.Store[design, $GeneratorProc, key];CDPanel.RedisplayLabels[design];}END;CDMenus.CreateEntry[$GeneratorMenu, "create dynamic generator", $DynamicGenerators];CDSequencer.ImplementCommand[$DynamicGenerators, DynamicGeneratorsComm];END.   æ  CDDynamicObsCommands.mesa (part of ChipNDale)Copyright c 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi, June 5, 1985 8:02:35 pm PDTLast Edited by Christian Jacobi, September 19, 1985 1:16:37 pm PDTÊ   ˜ codešœ-™-Kšœ
Ïmœ1™<Kšœ0™0KšœB™BK™ —šÏk	œ˜
Kšžœ=žœH˜‰—K˜ šÐblœžœž˜#KšžœžœžœO˜‚—Kšž˜K˜ šÏnœžœ˜9Kšž˜Kšœ
žœ˜Kšœžœ˜!Kšœ[˜[Kšžœžœ#˜<šžœ˜Kšœ&˜&Kšœ>˜>Kšœ:˜:Kšœ+˜+Kšœ ˜ K˜—Kšžœ˜—K˜ KšœT˜TKšœH˜HKšžœ˜— …—    ð  ö  