-- StartTBaseImpl.Mesa
-- written by Paxton. April 1981
-- last written by Paxton. December 28, 1982 11:17 am
-- **** Start TBase ****
DIRECTORY
StartTBase,
EditSpan,
GetFile,
InterFile,
GetTree,
NodeProps,
TextEdit,
TextFind,
TextLooks,
TextNode,
CheckNode,
EditNotify,
FileReader,
FileWriter,
LooksReader,
NodeAddrs,
PGSupport,
PutFile,
RopeEdit,
RunReader,
TextLooksSupport,
UndoEvent;
StartTBaseImpl: CEDAR PROGRAM
IMPORTS
GetFile, NodeProps, TextEdit, TextFind, GetTree, EditSpan,
TextLooks, TextNode, CheckNode, EditNotify, FileReader, FileWriter, LooksReader,
NodeAddrs, PGSupport, PutFile, RunReader, InterFile,
TextLooksSupport, RopeEdit, UndoEvent
EXPORTS StartTBase =
BEGIN
started: BOOLEANFALSE;
Start: PUBLIC PROC = {
IF started THEN RETURN;
started ← TRUE;
-- RopeEdit must be first to set up finalization process for Chars arrays
RopeEdit.Start[];
-- these must come next because they set up exported REFs
TextNode.Start[];
NodeProps.StartNodeProps[];
NodeAddrs.StartNodeAddrs[];
TextLooks.Start[];
UndoEvent.Start[];
-- those that can come later
CheckNode.Start[];
EditNotify.Start[];
EditSpan.Start[];
FileReader.Start[];
FileWriter.Start[];
GetFile.StartGetFile[];
GetTree.Start[];
InterFile.StartPutFile[]; -- add StartGetFile later
LooksReader.Start[];
PGSupport.Start[];
PutFile.StartPutFile[];
RunReader.Start[];
TextEdit.Start[];
TextFind.Start[];
TextLooksSupport.StartTextLooksSupport[];
};
Start;
END.