<<>> <> <> <> <> <> <<>> <<>> DIRECTORY BasicTime, DecomposerRegistry, InterpressInterpreter, Rope, Prop; IPAttributes: CEDAR DEFINITIONS = BEGIN FileID: TYPE ~ REF FileIDRep; FileIDRep: TYPE ~ RECORD [ fileName: Rope.ROPE, uid: BasicTime.GMT ]; TaggedMaster: TYPE ~ REF TaggedMasterRep; TaggedMasterRep: TYPE ~ RECORD [ fileID: FileID, master: InterpressInterpreter.Master, propList: Prop.PropList ¬ NIL ]; MasterFromInstance: PROC [instance: DecomposerRegistry.InstanceData] RETURNS [InterpressInterpreter.Master] ~ INLINE { WITH instance.private SELECT FROM tm: TaggedMaster => RETURN [tm.master]; ENDCASE => RETURN [NIL]; }; IPAttr: DecomposerRegistry.AttributesProc; END.