DIRECTORY CD, CDFrame, IFUAsm, IFUPW, IFUPWControl, IO, Rope; IFUAsmImpl: CEDAR PROGRAM IMPORTS CDFrame, IFUAsm, IFUPW, Rope EXPORTS IFUAsm = BEGIN refDesign: CD.Design _ NIL; RefDesign: PUBLIC PROC RETURNS[CD.Design] = { IF refDesign=NIL THEN refDesign _ IFUPW.GetDesign["IFUAsm.dale"]; RETURN[refDesign]}; log: PUBLIC IO.STREAM _ CDFrame.GetLog[]; ListFrameName: PUBLIC PROC[name: IO.ROPE _ NIL, frame: CDFrame.Frame _ NIL] RETURNS [done: BOOL] = { IF frame=NIL THEN frame _ IFUAsm.Complete; IF name=NIL THEN name _ frame.shell.name; IF frame.shell=NIL OR NOT Rope.Equal[frame.shell.name, name] THEN { done _ FALSE; FOR index: INT IN [0..frame.seqSize) WHILE NOT done DO done _ ListFrameName[name, frame[index]] ENDLOOP; RETURN[done]}; IF frame.father#NIL THEN CDFrame.LogFrame[frame.father, 3, log] ELSE CDFrame.LogFrame[frame, 2, log]; RETURN[TRUE]}; END. ŒIFUAsmImpl.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last Edited by Curry, December 26, 1985 2:06:27 pm PST Ê䘚œ™Jšœ<™