IFUAsmDataColumn.mesa
Copyright c 1985 by Xerox Corporation. All rights reserved.
Last Edited by Curry, January 24, 1986 12:40:02 pm PST
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.