Mercurial > repos > rhope
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