APWTCL Arnulf's Preferred Web Tcl

Artifact [1c4fd817fe]
Login

Artifact [1c4fd817fe]

Artifact 1c4fd817fe02b1a1614e9e01b41def0d188ffd91:


/*=======================================================
 * ReturnCodeObjType.java 
 *
 * "A Tcl like language implementation in Java named APWTCL
 * ((Java) Arnulf's Preferred Web Tcl)"
 *
 * APWTCL ReturnCodeObjType class
 *
 * Released under same BSD license as Tcl.
 * (Tcl BSD license found at <http://www.tcl.tk/software/tcltk/license.html>)
 *
 * Copyright 2012 Arnulf P. Wiedemann
 *
 */

package org.apwtcl.lang.objtype;

import org.apwtcl.lang.Debug;
import org.apwtcl.lang.Interp;
import org.apwtcl.lang.Token;

public class ReturnCodeObjType extends Token implements Debug {
  public static final int OK = 0;
  public static final int ERROR = 1;
  public static final int RETURN = 2;
  public static final int BREAK = 3;
  public static final int CONTINUE = 4;
  private static int oid = 0;

  private int id;
  private Interp interp;

  /* ==================== ReturnCodeObjType ================================== */
  public ReturnCodeObjType(Interp interp) {
    oid++;
    id = oid;

    this.interp = interp;
  }

  /* ==================== mySelf ================================== */
  public String mySelf() {
    String str = "ReturnCodeObjType!"+id+"!";
    return str;
  } 
      
  /* ==================== toString ===================================== */
  public String toString() {
    return mySelf()+"!";
  }

  /* ==================== toDebugString ===================================== */
  public String toDebugString() {
    StringBuffer str = new StringBuffer(mySelf()+"\n");
    return str.toString();
  }

}