Changeset 4913fd95a2644edfe73fff9ef73f04178c4aad53

Timestamp:

05/15/10 01:28:14 (2 years ago)

Author:

redbrain <redbrain@…>

Parents:

3562ab60496cd6b7915f3fa98581db759b627673

Children:

8ec48d25f9b61b0b11332cf1fe073cc49300fdb0

git-committer:

redbrain <redbrain@crules.org> / 2010-05-15T01:28:14Z+0100

Message:

finalizing the builtin type api

Files:

• src/rr_runtime.c (modified) (3 diffs)

src/rr_runtime.c

@@ -977 +977 @@
                                crl_context_table *arg_ctx )
 {
+  crl_symbol_obj *retval = NULL;
   crl_assert( call->type == OP_CALL_GOTO );
   if( (*functor_def)->type == STRUCTURE_FUNCTION_DEF )
     {
-      crl_symbol_obj *retval = NULL;
       // create argument context and do argument passing!
       // then call function and return
@@ -1090 +1090 @@
   else if( (*functor_def)->type == TYPE_BUILTIN_CALLBACK )
     {
+      struct crl_builtin_function_def_t * cb = (*functor_def)->op_a.callback;
+      unsigned int n_args = 0;
+      if( call->op_b_t == TYPE_ARGUMENTS )
+        {
+          n_args = crl_dd_stack_get_size( call->op_b.stack_table );
+        }
+      unsigned int n_params = callback->n_parameters;
+
+      if( n_args >= n_args )
+        {
+          member_function *callback__ = cb->callback;
+          retval = callback__( call, ...... );
+        }
+      else
+        {
+          crl_fatal("function <%s> requires <%i> parameters <%i> were passed!\n", );
+        }
     }
   else
@@ -1096 +1113 @@
                 (*functor_def)->type );
     }
+
   return retval;
 }