diff runtime/builtin.c @ 56:d2f9b0a9403d

Initial experiment with goto and switch
author Mike Pavone <pavone@retrodev.com>
date Thu, 08 Oct 2009 01:52:38 -0400
parents 640f541e9116
children 04baa003de5a
line wrap: on
line diff
--- a/runtime/builtin.c	Tue Oct 06 23:13:47 2009 -0400
+++ b/runtime/builtin.c	Thu Oct 08 01:52:38 2009 -0400
@@ -12,26 +12,26 @@
 	{
 	case TYPE_INT32:
 		bp = register_type_byid(TYPE_INT32, sizeof(int32_t), NULL, NULL, NULL);
-		add_method(bp, METHOD_ADD, MethodName(_PL_,Int32));
+/*		add_method(bp, METHOD_ADD, MethodName(_PL_,Int32));
 		add_method(bp, METHOD_SUB, MethodName(_MN_,Int32));
 		add_method(bp, METHOD_MUL, MethodName(_TM_,Int32));
 		add_method(bp, METHOD_DIV, MethodName(_DV_,Int32));
 		add_method(bp, METHOD_LSHIFT, MethodName(LShift,Int32));
 		add_method(bp, METHOD_RSHIFT, MethodName(RShift,Int32));
 		add_method(bp, METHOD_LESS, MethodName(_LT_,Int32));
-		add_method(bp, METHOD_GREATER, MethodName(_GT_,Int32));
+		add_method(bp, METHOD_GREATER, MethodName(_GT_,Int32)); */
 		break;
 	case TYPE_BOOLEAN:
 		bp = register_type_byid(TYPE_BOOLEAN, sizeof(int32_t), NULL, NULL, NULL);
-		add_method(bp, METHOD_IF, MethodName(If,Boolean));
+		//add_method(bp, METHOD_IF, MethodName(If,Boolean));
 		val_yes = (t_Boolean *)new_object(TYPE_BOOLEAN);
 		val_yes->val = 1;
 		val_no = (t_Boolean *)new_object(TYPE_BOOLEAN);
 		val_no->val = 0;
 		break;
-	case TYPE_BLUEPRINT:
+/*	case TYPE_BLUEPRINT:
 		bp = register_type_byid(TYPE_BLUEPRINT, sizeof(blueprint *), NULL, NULL, NULL);
-		break;
+		break;*/
 	}
 }
 
@@ -42,17 +42,3 @@
 		register_builtin_type(i);
 }
 
-//TODO: Remove this when it's possible to write Print in Rhope
-FuncNoLocals(Print,
-	NumParams 1,
-	CallSpace 0)
-	
-	if(get_blueprint(cdata->params[0]) == get_blueprint_byid(TYPE_INT32))
-	{
-		printf("%d\n", ((t_Int32 *)(cdata->params[0]))->num);
-	} else {
-		puts("Don't know how to print this type");
-	}
-	release_ref(cdata->params[0]);
-	Ret(0, make_Int32(0))
-EndFunc