SpinifexStarter.mesa
Created by Sindhu, October 18, 1985 5:45:22 pm PST
Pradeep Sindhu October 19, 1985 1:12:56 am PDT
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.