mirror of
https://github.com/janet-lang/janet
synced 2024-11-15 05:04:49 +00:00
24 lines
698 B
C
24 lines
698 B
C
#include <gst/gst.h>
|
|
|
|
GstObject *gst_c_module(Gst *vm, const GstModuleItem *mod) {
|
|
GstObject *module = gst_object(vm, 10);
|
|
while (mod->name != NULL) {
|
|
GstValue key = gst_load_cstring(vm, mod->name);
|
|
GstValue val;
|
|
val.type = GST_CFUNCTION;
|
|
val.data.cfunction = mod->data;
|
|
gst_object_put(vm, module, key, val);
|
|
mod++;
|
|
}
|
|
return module;
|
|
}
|
|
|
|
void gst_c_register(Gst *vm, const char *packagename, GstObject *mod) {
|
|
GstValue modv;
|
|
if (vm->rootenv == NULL)
|
|
vm->rootenv = gst_object(vm, 10);
|
|
modv.type = GST_OBJECT;
|
|
modv.data.object = mod;
|
|
gst_object_put(vm, vm->rootenv, gst_load_cstring(vm, packagename), modv);
|
|
}
|