NPGSCommandUtil.Mesa
Copyright Ó 1985, 1992 by Xerox Corporation. All rights reserved.
Satterthwaite, December 10, 1982 10:32 am
Russ Atkinson, 19-Dec-80 13:22:44
Maxwell, August 19, 1983 8:39 am
Paul Rovner, October 4, 1983 4:59 pm
Russ Atkinson (RRA) March 6, 1985 10:03:29 pm PST
JKF February 6, 1989 12:11:49 pm PST
PairList: TYPE = LIST OF RECORD[key, val: Rope.ROPE];
Switches: TYPE = PACKED ARRAY CHAR ['a..'z] OF BOOL;
Echo:
PROC [
d: IO.STREAM,
operator: Rope.ROPE,
argList, resultList: PairList,
switches: Rope.ROPE];
GetSwitches: PROC [switches: Rope.ROPE, default: Switches] RETURNS[Switches];
GetNthPair:
PROC [list: PairList, n:
CARDINAL, delete:
BOOL¬
FALSE]
RETURNS [key,value: Rope.ROPE];
GetNth:
PROC [list: PairList, n:
CARDINAL, delete:
BOOL¬
FALSE]
RETURNS [Rope.ROPE] = INLINE {
RETURN [GetNthPair[list, n, delete].value]};
KeyValue:
PROC [key:
Rope.ROPE, list: PairList, delete:
BOOL¬
FALSE]
RETURNS [Rope.ROPE];
ListLength: PROC [list: PairList] RETURNS [CARDINAL];
ParseCommand:
PROC [s:
IO.
STREAM]
RETURNS [operator: Rope.ROPE, argList, resultList: PairList, switches: Rope.ROPE];
SetExtension: PROC [root, defaultExt: Rope.ROPE] RETURNS [name: Rope.ROPE];
GetRootName: PROC[name: Rope.ROPE] RETURNS [root: Rope.ROPE];
SkipNonBlank: PROC [s: IO.STREAM, n: CARDINAL¬1];
Failed: ERROR;
}.