Diff: vm/func.c

Revision:

0:65f1469d6bfb

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vm/func.c	Sat Mar 02 11:54:20 2013 +0000
@@ -0,0 +1,73 @@
+/*
+# This file is Copyright 2002 Dean Hall.
+# This file is part of the PyMite VM.
+# This file is licensed under the MIT License.
+# See the LICENSE file for details.
+*/
+
+
+#undef __FILE_ID__
+#define __FILE_ID__ 0x04
+
+
+/**
+ * \file
+ * \brief Function Object Type
+ *
+ * Function object type operations.
+ */
+
+
+#include "pm.h"
+
+
+PmReturn_t
+func_new(pPmObj_t pco, pPmObj_t pglobals, pPmObj_t *r_pfunc)
+{
+    PmReturn_t retval = PM_RET_OK;
+    pPmFunc_t pfunc = C_NULL;
+    uint8_t *pchunk;
+    pPmObj_t pobj;
+    uint8_t objid;
+
+    C_ASSERT(OBJ_GET_TYPE(pco) != OBJ_TYPE_COB
+             || OBJ_GET_TYPE(pco) != OBJ_TYPE_NOB);
+    C_ASSERT(OBJ_GET_TYPE(pglobals) == OBJ_TYPE_DIC);
+
+    /* Allocate a func obj */
+    retval = heap_getChunk(sizeof(PmFunc_t), &pchunk);
+    PM_RETURN_IF_ERROR(retval);
+    pfunc = (pPmFunc_t)pchunk;
+
+    /* Init func */
+    OBJ_SET_TYPE(pfunc, OBJ_TYPE_FXN);
+    pfunc->f_co = (pPmCo_t)pco;
+    pfunc->f_globals = C_NULL;
+    pfunc->f_attrs = C_NULL;
+
+#ifdef HAVE_DEFAULTARGS
+    /* Clear default args (will be set later, if at all) */
+    pfunc->f_defaultargs = C_NULL;
+#endif /* HAVE_DEFAULTARGS */
+
+#ifdef HAVE_CLOSURES
+    /* Clear field for closure tuple */
+    pfunc->f_closure = C_NULL;
+#endif /* HAVE_CLOSURES */
+
+    /* Create attrs dict for regular func (not native) */
+    if (OBJ_GET_TYPE(pco) == OBJ_TYPE_COB)
+    {
+        heap_gcPushTempRoot((pPmObj_t)pfunc, &objid);
+        retval = dict_new(&pobj);
+        heap_gcPopTempRoot(objid);
+        PM_RETURN_IF_ERROR(retval);
+        pfunc->f_attrs = (pPmDict_t)pobj;
+
+        /* Store the given globals dict */
+        pfunc->f_globals = (pPmDict_t)pglobals;
+    }
+
+    *r_pfunc = (pPmObj_t)pfunc;
+    return PM_RET_OK;
+}