hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

enhanced the print function to print the class name for a class
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source 
enahnced the compiler to handle class defintion better.
updated method management routines into method dictionary
This commit is contained in:
hyung-hwan
2024-07-19 20:50:28 +09:00
parent 91e1e8c9c3
commit f216699240
8 changed files with 169 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/print.c
View File

@ -692,14 +692,31 @@ next:
goto print_word;
case HCL_BRAND_CLASS:
/* TODO: print the class name */
word_index = WORD_CLASS;
goto print_word;
{
hcl_oop_class_t _class = (hcl_oop_class_t)obj;
if (HCL_IS_NIL(hcl, _class->name))
{
word_index = WORD_CLASS;
goto print_word;
}
HCL_ASSERT (hcl, HCL_IS_SYMBOL(hcl, _class->name));
if (hcl_bfmt_out(hcl, fmtout, "%.*js", HCL_OBJ_GET_SIZE(_class->name), HCL_OBJ_GET_CHAR_SLOT(_class->name)) <= -1) return -1;
break;
}
case HCL_BRAND_INSTANCE:
/* TODO: print the class name also */
word_index = WORD_INSTANCE;
goto print_word;
{
hcl_oop_class_t _class = (hcl_oop_class_t)HCL_CLASSOF(hcl, obj);
HCL_ASSERT (hcl, HCL_IS_CLASS(hcl, _class));
if (HCL_IS_NIL(hcl, _class->name))
{
word_index = WORD_INSTANCE;
goto print_word;
}
HCL_ASSERT (hcl, HCL_IS_SYMBOL(hcl, _class->name));
if (hcl_bfmt_out(hcl, fmtout, "#INSTANCE OF %.*js", HCL_OBJ_GET_SIZE(_class->name), HCL_OBJ_GET_CHAR_SLOT(_class->name)) <= -1) return -1;
break;
}
default:
HCL_DEBUG3 (hcl, "Internal error - unknown object type %d at %s:%d\n", (int)brand, __FILE__, __LINE__);