<> <> <> DIRECTORY CD, CDIn, Commander, Rope, SXAccess; SpinifexStarter: CEDAR PROGRAM IMPORTS CDIn, Commander, SXAccess = BEGIN Check: PROC [design: CD.Design] RETURNS [BOOL] = {RETURN[TRUE]}; DragomanStartSpinifex: Commander.CommandProc = { file: Rope.ROPE = "AlpsCells.dale"; design: CD.Design _ CDIn.ReadDesign[file, Check]; iList: CD.InstanceList _ design^.actual.first.specific.contents; [] _ SXAccess.Analyze[design, iList, NIL, NEW[BOOL _ TRUE]]; }; Commander.Register["DragomanStartSpinifex", DragomanStartSpinifex, "Starts a single Dragoman simulation of Spinifex"] END.