Defined Parrot_api_hbdb_run_code()

frontend/hbdb/main.c

@@ -152,10 +152,17 @@ main(int argc, const char *argv[])
     }
 
     /* Run bytecode */
+    if (!Parrot_api_hbdb_run_code(interp, argc, argv)) {
+        Parrot_api_destroy_interpreter(interp);
+        fail(interp);
+    }
+
+    /*
     if (!Parrot_api_run_bytecode(interp, pbc, NULL)) {
         Parrot_api_destroy_interpreter(interp);
         fail(interp);
     }
+    */
 
     Parrot_api_destroy_interpreter(interp);
     return (0);

include/parrot/api.h

@@ -354,11 +354,20 @@ Parrot_Int Parrot_api_hbdb_get_line_number(
 PARROT_API
 Parrot_Int Parrot_api_hbdb_init(Parrot_PMC interp_pmc);
 
+PARROT_API
+Parrot_Int Parrot_api_hbdb_run_code(
+    Parrot_PMC interp_pmc,
+    int argc,
+    ARGIN(const char *argv[]))
+        __attribute__nonnull__(3);
+
 #define ASSERT_ARGS_Parrot_api_hbdb_get_command __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
 #define ASSERT_ARGS_Parrot_api_hbdb_get_line_number \
      __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(context_pmc))
 #define ASSERT_ARGS_Parrot_api_hbdb_init __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
+#define ASSERT_ARGS_Parrot_api_hbdb_run_code __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+       PARROT_ASSERT_ARG(argv))
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 /* HEADERIZER END: src/embed/hbdb.c */
 

include/parrot/hbdb.h

@@ -147,6 +147,10 @@ INTVAL hbdb_get_line_number(PARROT_INTERP, ARGIN(PMC *context_pmc))
 void hbdb_init(PARROT_INTERP)
         __attribute__nonnull__(1);
 
+void hbdb_run_code(PARROT_INTERP, int argc, ARGIN(const char *argv[]))
+        __attribute__nonnull__(1)
+        __attribute__nonnull__(3);
+
 #define ASSERT_ARGS_hbdb_cmd_break __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(hbdb) \
     , PARROT_ASSERT_ARG(command))
@@ -160,6 +164,9 @@ void hbdb_init(PARROT_INTERP)
     , PARROT_ASSERT_ARG(context_pmc))
 #define ASSERT_ARGS_hbdb_init __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp))
+#define ASSERT_ARGS_hbdb_run_code __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+       PARROT_ASSERT_ARG(interp) \
+    , PARROT_ASSERT_ARG(argv))
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 /* HEADERIZER END: src/hbdb.c */
 

src/embed/hbdb.c

@@ -100,6 +100,29 @@ Parrot_api_hbdb_init(Parrot_PMC interp_pmc)
 
 /*
 
+=item C<Parrot_Int Parrot_api_hbdb_run_code(Parrot_PMC interp_pmc, int argc,
+const char *argv[])>
+
+Wrapper function for C<hbdb_run_code()>. Begins the main runloop by executing the code in the
+file specified on the command-line.
+
+=cut
+
+*/
+
+PARROT_API
+Parrot_Int
+Parrot_api_hbdb_run_code(Parrot_PMC interp_pmc, int argc, ARGIN(const char *argv[]))
+{
+    EMBED_API_CALLIN(interp_pmc, interp)
+
+    hbdb_run_code(interp, argc, argv);
+
+    EMBED_API_CALLOUT(interp_pmc, interp)
+}
+
+/*
+
 =back
 
 =head1 SEE ALSO

src/hbdb.c

@@ -271,7 +271,7 @@ Begins the main runloop by executing the code in the file specified on the comma
 */
 
 void
-hbdb_run_code(PARROT_INTERP, int argc, const char *argv[])
+hbdb_run_code(PARROT_INTERP, int argc, ARGIN(const char *argv[]))
 {
     ASSERT_ARGS(hbdb_run_code)