<> <> <> <<>> DIRECTORY CD, CDFrame, Commander, IFUAsm, IFUPW, Rope; IFUAsmDataColumn: CEDAR PROGRAM IMPORTS CDFrame, Commander, IFUAsm, IFUPW, Rope EXPORTS IFUAsm = BEGIN OPEN IFUAsm; module: Rope.ROPE _ "IFUAsmDataColumn"; DataColumn: PUBLIC IFUPW.Frame _ IFUPW.NFS[module, y, LIST[ CDFrame.Glue[t:ext, b:conn, xlate: TRUE], IFUPW.NFS[module.Cat["Core"], y, LIST[ Fetch, FetchBuf, XaForm, PCFormTop, PCFormBot, Stack, LSForm, LSPipe, ABCForm, ABCPipe, ControlPipe ] ], CDFrame.Glue[t:conn, b:ext, xlate: TRUE] ] ]; DataColumnCT: Commander.CommandProc = {IFUPW.AssembleFrame[IFUAsm.RefDesign[], DataColumn, cmd ] }; DataColumnCD: IFUPW.PWUserProc = {RETURN[IFUPW.FrameToObject[DataColumn, design]]}; Commander.Register [proc: DataColumnCT, key: module]; IFUPW.Register [userProc: DataColumnCD, name: module]; END.