cvsuser 05/03/29 21:45:28
Modified: dynclasses tclint.pmc
Log:
remove crufty method
add get_bool
Revision Changes Path
1.7 +4 -8 parrot/dynclasses/tclint.pmc
Index: tclint.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/tclint.pmc,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- tclint.pmc 27 Feb 2005 10:00:14 -0000 1.6
+++ tclint.pmc 30 Mar 2005 05:45:28 -0000 1.7
@@ -1,7 +1,7 @@
/* TclInt.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: tclint.pmc,v 1.6 2005/02/27 10:00:14 leo Exp $
+ * $Id: tclint.pmc,v 1.7 2005/03/30 05:45:28 coke Exp $
* Overview:
* These are the vtable functions for the TclInt base class
* Data Structure and Algorithms:
@@ -17,15 +17,8 @@
static INTVAL dynclass_TclFloat;
static INTVAL dynclass_TclInt;
-
-/* Non vtable methods. */
-INTVAL Parrot_TclInt_get_bent(Interp* interpreter,PMC* pmc) {
- return 1;
-}
-
pmclass TclInt extends TclObject dynpmc group tcl_group {
-
void class_init() {
if (pass) {
dynclass_TclString = Parrot_PMC_typenum(INTERP,"TclString");
@@ -61,6 +54,9 @@
return NULL;
}
+ INTVAL get_bool() {
+ return (PMC_int_val(SELF))?1:0;
+ }
STRING* get_string () {
return string_from_int(INTERP, PMC_int_val(SELF));
