kuroko-lang/kuroko
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add a quick introspection function since we lack __dict__

Browse Source
This commit is contained in:
K. Lange 2023-06-14 13:10:57 +09:00
parent 85319d7f27
commit ed2405f46b
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/sys.c
View File

@ -179,6 +179,28 @@ KRK_Function(inspect_value) {
return OBJECT_VAL(krk_newBytes(sizeof(KrkValue),(uint8_t*)&argv[0])); return OBJECT_VAL(krk_newBytes(sizeof(KrkValue),(uint8_t*)&argv[0]));
} }
KRK_Function(members) {
KrkValue val;
if (!krk_parseArgs("V", (const char*[]){"obj"}, &val)) return NONE_VAL();
KrkValue myDict = krk_dict_of(0,NULL,0);
krk_push(myDict);
KrkTable * src = NULL;
if (IS_INSTANCE(val) || IS_CLASS(val)) {
src = &AS_INSTANCE(val)->fields;
} else if (IS_CLOSURE(val)) {
src = &AS_CLOSURE(val)->fields;
}
if (src) {
krk_tableAddAll(src, AS_DICT(myDict));
}
return krk_pop();
}
void krk_module_init_kuroko(void) { void krk_module_init_kuroko(void) {
/** /**
* kuroko = module() * kuroko = module()
@ -226,6 +248,8 @@ void krk_module_init_kuroko(void) {
"Removes a module from the module table. It is not necessarily garbage collected if other references to it exist."); "Removes a module from the module table. It is not necessarily garbage collected if other references to it exist.");
KRK_DOC(BIND_FUNC(vm.system,inspect_value), KRK_DOC(BIND_FUNC(vm.system,inspect_value),
"Obtain the memory representation of a stack value."); "Obtain the memory representation of a stack value.");
KRK_DOC(BIND_FUNC(vm.system,members),
"Obtain a copy of a dict of the direct members of an object.");
krk_attachNamedObject(&vm.system->fields, "module", (KrkObj*)vm.baseClasses->moduleClass); krk_attachNamedObject(&vm.system->fields, "module", (KrkObj*)vm.baseClasses->moduleClass);
krk_attachNamedObject(&vm.system->fields, "path_sep", (KrkObj*)S(PATH_SEP)); krk_attachNamedObject(&vm.system->fields, "path_sep", (KrkObj*)S(PATH_SEP));
KrkValue module_paths = krk_list_of(0,NULL,0); KrkValue module_paths = krk_list_of(0,NULL,0);