DIRECTORY LongString: TYPE USING [SubString], Segments: TYPE USING [Address], Streams: TYPE USING [Handle]; MBCommandUtil: DEFINITIONS = BEGIN CommandPtr: TYPE = LONG POINTER TO CommandObject; CommandObject: TYPE = RECORD [ getChar: PROCEDURE RETURNS [CHARACTER], token: PRIVATE CHARACTER _ 0C, c: PRIVATE CHARACTER _ ' , reset: PRIVATE BOOLEAN _ FALSE, idString: PRIVATE LONG STRING _ NIL ]; PairList: TYPE [SIZE[Segments.Address]]; Create: PROC [get: PROCEDURE RETURNS [CHARACTER]] RETURNS [CommandPtr]; Destroy: PROC [cmd: CommandPtr]; CopyString: PROC [s: LONG STRING, extra: CARDINAL _ 0] RETURNS [LONG STRING]; Echo: PROC [ d: Streams.Handle, operator: LONG STRING, argList, resultList: PairList, switches: LONG STRING]; FreePairList: PROC [PairList] RETURNS [PairList]; FreeString: PROC [LONG STRING] RETURNS [LONG STRING]; GetNthPair: PROC [list: PairList, n: CARDINAL, delete: BOOLEAN _ FALSE] RETURNS [key,value: LONG STRING]; GetNth: PROC [list: PairList, n: CARDINAL, delete: BOOLEAN _ FALSE] RETURNS [LONG STRING] = INLINE {RETURN [GetNthPair[list, n, delete].value]}; KeyValue: PROC [key: LongString.SubString, list: PairList, delete: BOOLEAN _ FALSE] RETURNS [LONG STRING]; ListLength: PROC [list: PairList] RETURNS [CARDINAL]; Parse: PROC [ cmd: CommandPtr, opX, argX, resultX: CARDINAL _ 0, allowNoTagParm: BOOLEAN _ FALSE] RETURNS [operator: LONG STRING, argList, resultList: PairList, switches: LONG STRING]; Failed: ERROR; SetExtension: PROC [root, defaultExt: LONG STRING] RETURNS [name: LONG STRING]; END. 6MBCommandUtil.Mesa last modified by Satterthwaite, November 18, 1980 2:45 PM last edit by Russ Atkinson, 19-Dec-80 13:22:44 last edited by Lewis on 17-Dec-80 13:28:28 last edited by Guarino on 27-Jul-81 11:07:31 last edited by Sandman on 15-Aug-81 15:11:48 last edited by Levin on April 5, 1983 2:00 pm ʘJšœ™Jšœ:™:Jšœ.™.Jšœ*™*Jšœ,™,Jšœ,™,Jšœ-™-J˜šÏk ˜ Jšœ œœ ˜#Jšœ œœ ˜Jšœ œœ ˜J˜—Jšœ œ˜J˜Jš˜J˜Jš œ œœœœ˜1šœœœ˜Jšœ œœ œ˜'Jšœœ œ˜Jšœœ œ˜Jšœœœœ˜Jšœ œœœ˜#Jšœ˜J˜—Jšœ œœ˜(J˜Jš Ïnœœ œœ œœ˜GJšžœœ˜ J˜Jšž œœœœ œœœœ˜MJ˜šžœœ˜ Jš œœœ+œœ˜`—J˜Jšž œœ œ ˜1J˜Jšž œœœœœœœ˜5J˜š ž œœœ œœ˜GJšœ œœ˜!—šžœœœ œœœœœ˜[Jšœœ&˜4—J˜šžœœ5œœ˜SJšœœœ˜—J˜Jšž œœœœ˜5J˜šžœœ˜ Jšœ%œœœ˜SJš œ œœ+œœ˜VJšœœ˜—J˜Jšž œœœœœœœ˜OJ˜J˜Jšœ˜J˜—…— P