
    <<StdCorpse2.mesa>>
        <<Copyright Ó 1991, 1992 by Xerox Corporation.  All rights reserved.>>
        <<Spreitze, December 22, 1991 9:05 pm PST>>
        <<Willie-s, May 14, 1992 12:57 pm PDT>>

    DIRECTORY Commander, IO, Rope;

    StdCorpse2: CEDAR PROGRAM
        IMPORTS Commander, IO, Rope=
    BEGIN

    ROPE: TYPE ~ Rope.ROPE;

    Recrd: TYPE ~ RECORD [
        i: INT Ź 1,
        x: REAL Ź 1.0];

    rgv1: ROPE Ź "rgv1";
    rgv2: ROPE Ź "rgv 2";

    ag1: ATOM Ź $AnotherAtom;
    rSeven: REF INT Ź NEW [INT Ź 7];
    rEight: REF INT Ź NEW [INT Ź 8];

    dz8: DREAL Ź 8.0;
    din3: DINT Ź -3;
    dc7: DCARD Ź 7;

    rag1: REF ANY Ź $AnAtom;
    rag2: REF ANY Ź rSeven;
    rag3: REF ANY Ź rgv1;
    rag4: REF ANY Ź NEW[Recrd Ź []];
    rag5: REF ANY Ź NEW[BOOL Ź TRUE];

    Die: Commander.CommandProc = {
        rlv: ROPE Ź cmd.commandLine;
        out: IO.STREAM Ź cmd.out;
        ral1: REF ANY Ź cmd.out;
        five: INT Ź 5;
        deth: CHAR ~ rlv.Fetch[0];
        Mapper: PROC [c: CHAR] RETURNS [quit: BOOL Ź FALSE]
            ~ {IF c=deth THEN ERROR ELSE RETURN[]};
        rSix: REF INT Ź NEW [INT Ź 6];
        subj: ROPE Ź rlv.Substr[1];
        out.PutF1["Erring at [%g].\n", [character[deth]] ];
        [] Ź subj.Map[action: Mapper];
        RETURN};

    Die2: Commander.CommandProc = {
        rlv: ROPE Ź cmd.commandLine;
        out: IO.STREAM Ź cmd.out;
        five: INT Ź 5;
        Mapper2: PROC [c: CHAR] RETURNS [quit: BOOL Ź FALSE]
            ~ {deth: CHAR ~ rlv.Fetch[0]; IF c=deth THEN ERROR ELSE RETURN[]};
        rSix: REF INT Ź NEW [INT Ź 6];
        subj: ROPE Ź rlv.Substr[1];
        out.PutF1["Erring at [%g].\n", [character[rlv.Fetch[0]]] ];
        [] Ź subj.Map[action: Mapper2];
        RETURN};

    Die3: Commander.CommandProc = {
        rlv: ROPE Ź cmd.commandLine;
        out: IO.STREAM Ź cmd.out;
        five: INT Ź 5;
        Mapper3: PROC [c: CHAR] RETURNS [quit: BOOL Ź FALSE]
            ~ {IF c='x THEN ERROR ELSE RETURN[]};
        rSix: REF INT Ź NEW [INT Ź 6];
        subj: ROPE Ź rlv.Substr[1];
        out.PutRope["Erring at [x].\n" ];
        [] Ź subj.Map[action: Mapper3];
        RETURN};

    Die4: Commander.CommandProc = {
        rlv: ROPE Ź cmd.commandLine;
        out: IO.STREAM Ź cmd.out;
        five: INT Ź 5;
        rSix: REF INT Ź NEW [INT Ź 6];
        subj: ROPE Ź rlv.Substr[1];
        out.PutRope["Deth4 here.\n" ];
            {ENABLE IO.Error => CONTINUE;
            z: REAL Ź 3.141592653589793;
            four: CARD Ź five-1;
            Mapper4: PROC [c: CHAR] RETURNS [quit: BOOL Ź FALSE] ~ {
                deth: CHAR ~ rlv.Fetch[0];
                IF c=deth OR four=CARD[five] THEN ERROR ELSE RETURN[]};
            IF cmd#NIL THEN {
                x: ROPE ~ subj;
                [] Ź x.Map[action: Mapper4];
                };
            };
        RETURN};

    Die5: Commander.CommandProc = {
        ENABLE IO.Error => {result Ź $Failure; CONTINUE};
        rlv: ROPE Ź cmd.commandLine;
        out: IO.STREAM Ź cmd.out;
        five: INT Ź 5;
        deth: CHAR ~ rlv.Fetch[0];
        Mapper5: PROC [c: CHAR] RETURNS [quit: BOOL Ź FALSE]
            ~ {IF c=deth THEN ERROR ELSE RETURN[]};
        rSix: REF INT Ź NEW [INT Ź 6];
        subj: ROPE Ź rlv.Substr[1];
        out.PutF1["Erring at [%g].\n", [character[deth]] ];
        [] Ź subj.Map[action: Mapper5];
        RETURN};

    Croak: PROC ~ {ERROR};

    ExternalNames: PROC = TRUSTED MACHINE CODE {
        "^ExternalNames\n";
        "Croak       Croak\n";
        };

    ExternalNames[];
    Commander.Register["StdCorpse2.Die", Die, "Raise the unnamed ERROR"];
    Commander.Register["StdCorpse2.Die2", Die2, "Raise the unnamed ERROR"];
    Commander.Register["StdCorpse2.Die3", Die3, "Raise the unnamed ERROR"];
    Commander.Register["StdCorpse2.Die4", Die4, "Raise the unnamed ERROR"];
    Commander.Register["StdCorpse2.Die5", Die5, "Raise the unnamed ERROR"];

    END.