Artifact 6c8e89a8f599839635a1e231821e6049feefb882c33df1fbeba11e2073b5ede2:

• Executable file r37/lisp/csl/jlisp/ProgEvent.java — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 796) [annotate] [blame] [check-ins using] [more...]

//
// This file is part of the Jlisp implementation of Standard Lisp
// Copyright \u00a9 (C) Codemist Ltd, 1998-2000.
//

class ProgEvent extends LispException
{
    static final int STOP     = 2;
    static final int RESTART  = 3;
    static final int THROW    = 4;
    static final int PRESERVE = 5;
    
    LispObject details;
    LispObject extras;
    String message;
    int type;

    ProgEvent(int type, LispObject details, String message)
    {
        this.type = type;
        this.details = details;
        this.extras = null;
        this.message = message; 
    }

    ProgEvent(int type, LispObject details, LispObject extras, String message)
    {
        this.type = type;
        this.details = details;
        this.extras = extras;
        this.message = message; 
    }

}