StdCorpse1.mesa
Spreitze, October 2, 1990 8:01 am PDT
Laurie Horton, September 17, 1992 9:12 am PDT
DIRECTORY Commander, IO, Rope;
StdCorpse1:
CEDAR
PROGRAM
IMPORTS Commander, IO, Rope=
BEGIN
ROPE: TYPE ~ Rope.ROPE;
rgv1: ROPE ← "rgv1";
rgv2: ROPE ← "rgv 2";
rag1: REF ANY ← $AnAtom;
ag1: ATOM ← $AnotherAtom;
rSeven: REF INT ← NEW [INT ← 7];
rEight: REF INT ← NEW [INT ← 8];
int16a: INT16 ← 32767;
int16b: INT16 ← -32768;
int16c: INT16 ← 5;
int16d: INT16 ← 20;
int16e: INT16 ← -10;
Die: Commander.CommandProc = {
rlv: ROPE ← cmd.commandLine;
out: IO.STREAM ← cmd.out;
five: INT ← 5;
rSix: REF INT ← NEW [INT ← 6];
out.PutRope["Deth here.\n"];
ERROR;
};
Die2: Commander.CommandProc = {
rlv: ROPE ← cmd.commandLine;
out: IO.STREAM ← cmd.out;
five: INT ← 5;
rSix: REF INT ← NEW [INT ← 6];
out.PutRope["Deth2 here.\n"];
ERROR;
};
Die3: Commander.CommandProc = {
rlv: ROPE ← cmd.commandLine;
out: IO.STREAM ← cmd.out;
five: INT ← 5;
rSix: REF INT ← NEW [INT ← 6];
sum: INT ← IntAdd[five, rSix^];
out.PutRope["Deth2 here.\n"];
ERROR;
};
IntAdd:
PROC [a, b:
INT]
RETURNS [c:
INT] ~ {
c ← a + b;
RETURN;
};
Cat:
PROC [r1, r2:
ROPE]
RETURNS [
ROPE]
~ {RETURN r1.Concat[r2]};
AnaRope:
PROC [r:
ROPE]
RETURNS [len:
INT, chars:
ARRAY [0 .. 9]
OF
CHAR ←
ALL[' ]] ~ {
len ← r.Length[];
FOR i: INT IN [0 .. MIN[len, 10]) DO chars[i] ← r.Fetch[i] ENDLOOP;
RETURN};
FromChar: PROC [CHAR] RETURNS [ROPE] ← Rope.FromChar;
Commander.Register["StdCorpse1.Die", Die, "Raise the unnamed ERROR"];
Commander.Register["StdCorpse1.Die2", Die2, "Raise the unnamed ERROR"];
Commander.Register["StdCorpse1.Die3", Die3, "Raise the unnamed ERROR"];
END.