-- DesModSup.Mesa, last edit April 27, 1982 2:10 pm
-- Pilot 6.0/ Mesa 7.0
-- support routines for the DesignModel program


DIRECTORY
  MDModel: TYPE USING [APPLSymbol, LISTSymbol, MODELSymbol, SymbolSeq, TYPESymbol],
  TimeStamp: TYPE USING[Stamp],
  UserExec: TYPE USING[ExecHandle];
				

DesModSup: DEFINITIONS = {

ProcessForStandardOpen: PROC[symbolseq: MDModel.SymbolSeq];

ReorganizeInOrder: PROC[symbolseq: MDModel.SymbolSeq, 
	oldlist: MDModel.LISTSymbol, exec: UserExec.ExecHandle]
	RETURNS[newlist: MDModel.LISTSymbol];

SortListOfSymbols: PROC[symbolseq: MDModel.SymbolSeq, oldlist: MDModel.LISTSymbol] 
	RETURNS[newlist: MDModel.LISTSymbol, nsyms: CARDINAL];

FixupExterior: PROC[symbolseq: MDModel.SymbolSeq, modelname: STRING];

NeedModuleName: SIGNAL;

EnterType: PROC[bcdFileName, moduleName: LONG STRING, bcdVers: TimeStamp.Stamp,
	symbolseq: MDModel.SymbolSeq, spmodel: MDModel.MODELSymbol] 
	RETURNS[sptype: MDModel.TYPESymbol];

EnterInstAndLoc: PROC[bcdFileName, moduleName: LONG STRING, 
	bcdVers: TimeStamp.Stamp, symbolseq: MDModel.SymbolSeq,
	spmodel: MDModel.MODELSymbol, sptype: MDModel.TYPESymbol] 
	RETURNS[spappl: MDModel.APPLSymbol];

MoveTypesToFront: PROC[symbolseq: MDModel.SymbolSeq];
	
}.