[svn:parrot] r49690 - branches/embed_api/src

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Tue Oct 26 23:45:28 2010
New Revision: 49690
URL: https://trac.parrot.org/parrot/changeset/49690

Log:
adding in a new stub file of embedding API functions I'm playing with

Added:
   branches/embed_api/src/embed_api.c

Added: branches/embed_api/src/embed_api.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/embed_api/src/embed_api.c	Tue Oct 26 23:45:28 2010	(r49690)
@@ -0,0 +1,60 @@
+
+#define EMBED_API_CALLIN(i) { jmp_buf _env; \
+    if (setjmp(_env)) { \
+        interp->api_jmp_buf = NULL; \
+        return 0; \
+    } else { \
+        interp->api_jmp_buf = _env;
+#define EMBED_API_CALLOUT(i) \
+        return 1; \
+    }
+
+PARROT_EXPORT
+PARROT_CANNOT_RETURN_NULL
+PARROT_MALLOC
+Parrot_Interp
+Parrot_api_make_interpreter(ARGIN_NULLOK(Interp *parent), INTVAL flags)
+{
+    ASSERT_ARGS(Parrot_api_make_interpreter)
+    Parrot_set_config_hash();
+    Interp * const interp = allocate_interpreter(parent, flags);
+    return interp;
+}
+
+void
+Parrot_api_initialize_interpreter(ARGIN(Interp *interp))
+{
+    ASSERT_ARGS(Parrot_api_initialize_interpreter)
+    int stacktop;
+    initialize_interpreter(interp, (void*)&stacktop);
+}
+
+void
+Parrot_api_set_runcore(ARGIN(Interp *interp), Parrot_Run_core_t core, Parrot_Uint trace)
+{
+    if (trace)
+        core = PARROT_SLOW_CORE;
+    EMBED_API_CALLIN(interp)
+    Parrot_set_trace(interp, (Parrot_trace_flags)trace);
+    Parrot_set_run_core(interp, core);
+    EMBED_API_CALLOUT(interp)
+}
+
+void
+Parrot_api_set_executable_name(ARGIN(Interp *interp), ARGIN(Parrot_String) name)
+{
+    ASSERT_ARGS(Parrot_api_set_executable_name)
+    EMBED_API_CALLIN(interp)
+    PMC * const name_pmc = Parrot_pmc_new(interp, enum_class_String);
+    VTABLE_set_string_native(interp, name_pmc, name);
+    VTABLE_set_pmc_keyed_int(interp, interp->iglobals, IGLOBALS_EXECUTABLE,
+        name_pmc);
+    EMBED_API_CALLOUT(interp)
+}
+
+void
+Parrot_api_destroy_interpreter(ARGIN(Interp *interp))
+{
+    Parrot_destroy(interp);
+}
+