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

added a new special word and and or. compiler yet to be enhanced

Browse Source
This commit is contained in:
hyung-hwan
2018-03-03 03:28:10 +00:00
parent 5aee382e9e
commit c387772803
3 changed files with 27 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/comp.c
View File

@ -650,6 +650,17 @@ enum
};
/* ========================================================================= */
static int compile_and (hcl_t* hcl, hcl_oop_t src)
{
hcl_seterrbfmt (hcl, HCL_ENOIMPL, "and not implemented");
return -1;
}
static int compile_or (hcl_t* hcl, hcl_oop_t src)
{
hcl_seterrbfmt (hcl, HCL_ENOIMPL, "or not implemented");
return -1;
}
static int compile_break (hcl_t* hcl, hcl_oop_t src)
{
@ -1301,6 +1312,10 @@ static int compile_cons_xlist_expression (hcl_t* hcl, hcl_oop_t obj)
{
switch (syncode)
{
case HCL_SYNCODE_AND:
if (compile_and(hcl, obj) <= -1) return -1;
break;
case HCL_SYNCODE_BREAK:
/* break */
if (compile_break(hcl, obj) <= -1) return -1;
@ -1331,6 +1346,10 @@ static int compile_cons_xlist_expression (hcl_t* hcl, hcl_oop_t obj)
if (compile_lambda(hcl, obj, 0) <= -1) return -1;
break;
case HCL_SYNCODE_OR:
if (compile_or(hcl, obj) <= -1) return -1;
break;
case HCL_SYNCODE_SET:
/* (set x 10)
* (set x (lambda (x y) (+ x y)) */