I have been looking a bit inside PDDs and parrot source and find no way to
load a pointer to a function as a PMC inside the VM.
What I want to do is to embed parrot into a C program and make some of the
functions of this C program available via NCI to the vm.
I have achieved this by using the tip noted in docs/compiler_faq.pod (thanks
kjs!)
which says I need to pass a null string to loadlib and compile the parent C
program
with -export-dynamic which is GCC specific... So imho looks like an ugly system-
dependant 'hack'.
I have found some interesting funcs in src/inter_misc.c but seems not to fix
the problem,
can anybody give me an appoint? I know that the NCI part is not yet finished,
but IMHO
these functions should follow the Parrot_ name convention and make them
available from
the Parrot API.
Here's the source:
#include <parrot/parrot.h>
void func()
{
printf("Hello World!\n");
}
int main(int argc, char **argv)
{
PMC *method;
Parrot_Interp pvm = Parrot_new(NULL);
register_nci_method(pvm, enum_class_NCI, &func, "func", "v");
Parrot_PackFile pf = Parrot_readbc(pvm, "hello.pbc");
if (pf == NULL) {
fprintf(stderr, "Oops. Cannot open hello.pbc\n");
return 1;
}
/* */
Parrot_loadbc(pvm, pf);
Parrot_runcode(pvm, argc, argv);
Parrot_destroy(pvm);
}
$ cat hello.pir
.sub main :main
func()
say "Hello World"
.end
$ cat Makefile
all:
parrot -o hello.pbc hello.pir
gcc main.c `pkg-config --cflags --libs parrot` -export-dynamic
Thanks!
--pancake
