TestSpinifex.mesa
Created by Serlet, April 17, 1985 5:45:22 pm PST
Last Edited by Serlet, April 17, 1985 6:19:35 pm PST
DIRECTORY
CD, CDIn, Rope, SXAccess;
TestSpinifex: CEDAR PROGRAM
IMPORTS CDIn, SXAccess
= BEGIN
Check: PROC [design: CD.Design] RETURNS [BOOL] = {RETURN[TRUE]};
Test: PROC = {
file: Rope.ROPE = "AlpsCells.dale";
design: CD.Design ← CDIn.ReadDesign[file, Check];
appls: CD.ApplicationList ← design^.actual.first.specific.contents;
[] ← SXAccess.Analyze[design, appls, NIL, NEW[BOOLTRUE]];
};
END.