DIRECTORY Rope USING [ROPE]; RobotScanner: CEDAR DEFINITIONS ~ { RTknClass: TYPE = { time, --Used as first token, giving edit time of source file tknID, tknNum, tknInstruction, tknIndirect, tknImmediate, tknIF, tknTHEN, tknELSE, tknLParen, tknRParen, tknLBracket, tknRBracket, tknMulop, tknAddop, tknRelop, tknNOT, tknColon, tknSemiColon, tknComma, tknAssign, tknOR, tknAND, tknEOF }; RTkn: TYPE ~ REF RTknRec _ NIL; RTknRec: TYPE = RECORD [ class: RTknClass, --Type of token data: REF ANY _ NIL, --Type-specific information pc: INT _ 0 --Pointer into file where found ]; ScannedProgram: TYPE ~ REF ScannedProgramRec; ScannedProgramRec: TYPE = RECORD [ token: PACKED ARRAY [0..1800) OF RTkn, count: CARDINAL --Number of actual tokens returned ]; GetTokensFromFile: PROC [file: Rope.ROPE] RETURNS [scannedProgram: ScannedProgram]; }. ~RobotScanner.mesa Created Monday, May 21, 1984 12:03 pm PDT Last edited by Eric Nickell, June 10, 1984 0:19:58 am PDT Êt˜J™J™)J™9J™šÏk ˜ Jšœœœ˜—J˜šœœ œ˜#J˜šœ œ˜J˜AJ˜J˜J˜J˜ J˜ Jšœ˜Jšœ˜Jšœ˜J˜ J˜ J˜ J˜ J˜ J˜ J˜ J˜J˜ J˜ J˜ J˜ Jšœ˜Jšœ˜J˜J˜J˜—Jšœœœ œ˜šœ œœ˜JšœÏc˜"Jšœœœœž˜0Jšœœž˜.J˜J˜—Jšœœœ˜-šœœœ˜"Jšœ œ œ˜&Jšœœž"˜9J˜J˜—šÏnœœ œœ"˜SJ˜—J˜——…—XJ