
    <<StdCorpse1.mesa>>
        <<Copyright Ó 1993 by Xerox Corporation.  All rights reserved.>>
        <<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.