DIRECTORY IO, OpPrecParse, RoseTranslateTypes, BasicTime, TiogaFileOps, Commander; RoseTranslateInsides: CEDAR DEFINITIONS = BEGIN OPEN RoseTranslateTypes; TokenClass: TYPE = OpPrecParse.TokenClass; TokenClassRep: TYPE = OpPrecParse.TokenClassRep; Circularity: ERROR; Job: TYPE = REF JobRep; JobRep: TYPE = RECORD [ exec: Commander.Handle, rootName: ROPE, path: LIST OF ROPE _ NIL, outRoot, symbolsRoot: TiogaFileOps.Ref, from, log: IO.STREAM _ NIL, errCount, warnCount, tokenCount: CARDINAL _ 0, to, symbolsStream, typeStream, directoryStream, importsStream, openStream, regStream: IO.STREAM, --actually TiogaStreams parseTree: REF ANY _ NIL, directory, imports, opened, libbed: SymbolTable _ NIL, previewing: BOOL _ FALSE, nodeCreateHacks: SymbolTable _ NIL, nchCount: CARDINAL _ 0, things: SymbolTable _ NIL, used: SymbolTable _ NIL, type: JobType _ TranslateJob, emptyDirectory, emptyImports, emptyOpen: BOOLEAN _ TRUE, start: BasicTime.Pulses _ 0]; JobType: TYPE = {TranslateJob, Other}; viewerLog: IO.STREAM; omitted: REF ANY; Op: TYPE = REF OpRep; OpRep: TYPE = RECORD [ name: ROPE, class: ARRAY BOOLEAN OF OpPrecParse.TokenClass, eatsCedar, terminal: BOOLEAN _ FALSE, childish: BOOLEAN _ TRUE, asArg: ARRAY BOOLEAN OF REF ANY _ ALL[NIL]]; Translate: PROC [exec: Commander.Handle, rootName: ROPE, pathIn: LIST OF ROPE, type: JobType] RETURNS [errCount: CARDINAL]; ParseExpression: PROC [job: Job, stoppable: BOOLEAN] RETURNS [expr: REF ANY, next: ROPE]; AddDirectory, AddImport, AddOpen: PROC [job: Job, name: ROPE]; AddMesa: PROC [job: Job, m: Mesa]; AddSymbols: PROC [job: Job, rootName: ROPE]; AddCellClass: PROC [job: Job, cce: ccEntry]; ForceMesaType: PROC [mesaType: ROPE, on: NodeType] RETURNS [forced: NodeType]; DigestInterface: PROC [context: REF ANY, iel: InterfaceEltList] RETURNS [di: DigestedInterface]; InstantiateSignalType: PROC [context: REF ANY, name: ROPE, parms: REF ANY] RETURNS [sti: SignalTypeInvocation]; TypeCheck: PROC [job: Job, args: REF ANY, interface: DigestedInterface, instanceName: ROPE]; Complain: PROC [context: REF ANY, complaint: ROPE, v1, v2, v3, v4, v5: IO.Value _ [null[]]] RETURNS [reduced: REF ANY]; Whimper: PROC [context: REF ANY, complaint: ROPE, v1, v2, v3, v4, v5: IO.Value _ [null[]]]; MyBreak: IO.BreakProc; Close: PROC [job: Job]; END. –RoseTranslateInsides.Mesa Last Edited by: Spreitzer, May 10, 1984 4:48:17 pm PDT PDT PDT Familiar Types: Errors: Top Level Things: Procedures: Κς˜J™Jšœ>™>J˜IcodešΟk œœF˜RK˜KšΠbxœœ œ˜)K˜Kšœœ˜K˜šΟl™K˜Kšœ œ˜*Kšœœ˜0K˜—K˜šŸ™K˜Kšœ œ˜K˜—K˜šŸ™K˜Kšœœœ˜šœœœ˜Kšœ˜Kšœ œ˜Kš œœœœœ˜Kšœ'˜'Kšœ œœœ˜Kšœ!œ˜.KšœVœœΟc˜xKšœ œœœ˜Kšœ2œ˜6Kšœ œœ˜Kšœœ˜#Kšœ œ˜Kšœœ˜Kšœœ˜Kšœ˜Kšœ)œœ˜8Kšœ˜—K˜Kšœ œ˜&K˜Kšœ œœ˜Kšœ œœ˜K˜Kšœœœ˜šœœœ˜Kšœœ˜ Kšœœœœ˜/Kšœœœ˜%Kšœ œœ˜Kšœœœœœœœœ˜,—K˜—K˜šŸ ™ K˜KšΟn œœ$œ œœœœ œ˜{K˜š‘œœœœœœœ˜YK˜—Kš ‘ œ‘ œ‘œœœ˜>K˜Kš‘œœ˜"K˜Kš‘ œœœ˜,K˜Kš‘ œœ˜,K˜Kš‘ œœ œœ˜NK˜Kš ‘œœ œœœ˜`K˜Kš‘œœ œœœ œœœ˜oK˜Kš ‘ œœœœ.œ˜\K˜Kš‘œœ œœ œœœ œœ˜wK˜Kš ‘œœ œœ œœ˜[K˜Kš‘œœ ˜K˜Kš‘œœ ˜K˜—Kšœ˜—…—  ž