/*=======================================================
* ObjTypeBase.java
*
* "A Tcl like language implementation in Java named APWTCL
* ((Java) Arnulf's Preferred Web Tcl)"
*
* APWTCL StringObjType 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.Interp;
import org.apwtcl.lang.ApwtclObj;
import org.apwtcl.lang.Token;
public class ObjTypeBase extends Token {
public StringObjType string_obj_type;
/* ==================== ObjTypeBase ===================================== */
public ObjTypeBase(Interp interp) {
string_obj_type = new StringObjType(interp);
}
/* ==================== callFreeIntRepProc ===================================== */
public int callFreeIntRepProc(int obj_type, ApwtclObj obj_ptr) {
switch (obj_type) {
case OBJ_TYPE_STRING:
return OK;
}
return OK;
}
/* ==================== haveUpdateString ===================================== */
public boolean haveUpdateString(int obj_type) {
switch (obj_type) {
case OBJ_TYPE_STRING:
return true;
}
return true;
}
/* ==================== callUpdateString ===================================== */
public int callUpdateString(int obj_type, ApwtclObj obj_ptr) {
switch (obj_type) {
case OBJ_TYPE_STRING:
return OK;
}
return OK;
}
/* ==================== haveDupInternalRep ===================================== */
public boolean haveDupInternalRep(int obj_type) {
switch (obj_type) {
case OBJ_TYPE_STRING:
return true;
}
return true;
}
/* ==================== callDupInternalRep ===================================== */
public int callDupInternalRep(int obj_type, ApwtclObj src_obj_ptr, ApwtclObj dup_obj_ptr) {
switch (obj_type) {
case OBJ_TYPE_STRING:
return OK;
}
return OK;
}
}