some code for message sending

lib/comp.c

@@ -1259,6 +1259,7 @@ enum
 	COP_COMPILE_CLASS_P3,
 
 	COP_EMIT_PUSH_NIL,
+	COP_EMIT_PUSH_SYMBOL,
 	COP_EMIT_CALL,
 	COP_EMIT_SEND,
 
@@ -3500,10 +3501,15 @@ static int compile_cons_mlist_expression (hcl_t* hcl, hcl_cnode_t* obj, int nret
 		return -1;
 	}
 	car = HCL_CNODE_CONS_CAR(cdr);
-/* TODO: if car is a normal symbol, it is a method name of the receiver's class.
+	if (HCL_CNODE_IS_SYMBOL_PLAIN(car))
- *       don't evalutate it.
+	{
- *       however, if it's enclosed in another () or (:), evaluate it... */
+		PUSH_CFRAME (hcl, COP_EMIT_PUSH_SYMBOL, car);
+	}
+	else
+	{
+/* TODO: more sanity check on what can be used as a method */
 		PUSH_CFRAME (hcl, COP_COMPILE_OBJECT, car);
+	}
 
 	/* compile <operand1> ... etc */
 	cdr = HCL_CNODE_CONS_CDR(cdr);
@@ -3958,7 +3964,6 @@ redo:
 			hcl_setsynerrbfmt (hcl, HCL_SYNERR_TRPCOLONSBANNED, HCL_CNODE_GET_LOC(oprnd), HCL_CNODE_GET_TOK(oprnd), "triple colons disallowed in this context", HCL_CNODE_GET_TYPE(oprnd));
 			return -1;
 
-			
 		default:
 			hcl_setsynerrbfmt (hcl, HCL_SYNERR_INTERN, HCL_CNODE_GET_LOC(oprnd), HCL_CNODE_GET_TOK(oprnd), "internal error - unexpected object type %d", HCL_CNODE_GET_TYPE(oprnd));
 			return -1;
@@ -4531,6 +4536,23 @@ static HCL_INLINE int emit_push_nil (hcl_t* hcl)
 	return n;
 }
 
+static HCL_INLINE int emit_push_symbol (hcl_t* hcl)
+{
+	hcl_cframe_t* cf;
+	hcl_oop_t lit;
+
+	cf = GET_TOP_CFRAME(hcl);
+	HCL_ASSERT (hcl, cf->opcode == COP_EMIT_PUSH_SYMBOL);
+	HCL_ASSERT (hcl, cf->operand != HCL_NULL);
+
+	lit = hcl_makesymbol(hcl, HCL_CNODE_GET_TOKPTR(cf->operand), HCL_CNODE_GET_TOKLEN(cf->operand));
+	if (HCL_UNLIKELY(!lit)) return -1;
+	if (emit_push_literal(hcl, lit, HCL_CNODE_GET_LOC(cf->operand)) <= -1) return -1;
+
+	POP_CFRAME (hcl);
+	return 0;
+}
+
 static HCL_INLINE int emit_send (hcl_t* hcl)
 {
 	hcl_cframe_t* cf;
@@ -5063,6 +5085,10 @@ int hcl_compile (hcl_t* hcl, hcl_cnode_t* obj, int flags)
 				if (emit_push_nil(hcl) <= -1) goto oops;
 				break;
 
+			case COP_EMIT_PUSH_SYMBOL:
+				if (emit_push_symbol(hcl) <= -1) goto oops;
+				break;
+
 			case COP_EMIT_SEND:
 				if (emit_send(hcl) <= -1) goto oops;
 				break;

lib/exec.c

@@ -2108,6 +2108,16 @@ static HCL_INLINE int call_primitive (hcl_t* hcl, hcl_ooi_t nargs)
 	return ((hcl_pfimpl_t)rcv->impl)(hcl, (hcl_mod_t*)rcv->mod, nargs);
 }
 
+/* ------------------------------------------------------------------------- */
+static HCL_INLINE int send_message (hcl_t* hcl, hcl_oop_t rcv, hcl_oop_t op, int to_super, hcl_ooi_t nargs)
+{
+	HCL_ASSERT (hcl, HCL_IS_INSTANCE(hcl, rcv));
+	HCL_ASSERT (hcl, HCL_IS_SYMBOL(hcl, op));
+
+
+	return 0;
+}
+
 /* ------------------------------------------------------------------------- */
 
 static HCL_INLINE int do_throw (hcl_t* hcl, hcl_oop_t val, hcl_ooi_t ip)
@@ -3667,32 +3677,9 @@ if (do_throw(hcl, hcl->_nil, fetched_instruction_pointer) <= -1)
 
 				rcv = HCL_STACK_GETRCV(hcl, b1);
 				op = HCL_STACK_GETOP(hcl, b1);
-				if (HCL_OOP_IS_POINTER(op))
+				if (HCL_IS_INSTANCE(hcl, rcv) && HCL_IS_SYMBOL(hcl, op))
 				{
-					switch (HCL_OBJ_GET_FLAGS_BRAND(op))
+					if (send_message(hcl, rcv, op, ((bcode >> 2) & 1), b1) <= -1) goto send_failed;
-					{
-						case HCL_BRAND_FUNCTION:
-							if (activate_function(hcl, b1) <= -1) goto call_failed;
-							break;
-
-						case HCL_BRAND_BLOCK:
-							if (activate_block(hcl, b1, 0) <= -1) goto call_failed;
-							break;
-
-						case HCL_BRAND_PRIM:
-							if (call_primitive(hcl, b1) <= -1) 
-							{
-/*
-TODO: translate a certain primitive failure to a catchable exception. this seems to work . i need to capture the throw value instead of hcl->_nil .
-if (do_throw(hcl, hcl->_nil, fetched_instruction_pointer) <= -1)
-*/
-								goto call_failed;
-							}
-							break;
-
-						default:
-							goto cannot_send;
-					}
 				}
 				else
 				{