conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

support 2-argument if syntax

This commit is contained in:
Yuichi Nishiwaki 2013-10-29 22:15:58 +09:00
parent 759c9eb55c
commit edd890ae0b
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/codegen.c
View File

@ -262,9 +262,18 @@ codegen(codegen_state *state, pic_value obj)
} }
else if (sym == pic->sIF) { else if (sym == pic->sIF) {
int s,t; int s,t;
pic_value if_true, if_false;
if (pic_length(pic, obj) != 4) { if_false = pic_false_value();
switch (pic_length(pic, obj)) {
default:
pic_error(pic, "syntax error"); pic_error(pic, "syntax error");
break;
case 4:
if_false = pic_car(pic, pic_cdr(pic, pic_cdr(pic, pic_cdr(pic, obj))));
FALLTHROUGH;
case 3:
if_true = pic_car(pic, pic_cdr(pic, pic_cdr(pic, obj)));
} }
codegen(state, pic_car(pic, pic_cdr(pic, obj))); codegen(state, pic_car(pic, pic_cdr(pic, obj)));
@ -273,14 +282,14 @@ codegen(codegen_state *state, pic_value obj)
s = irep->clen++; s = irep->clen++;
/* if false branch */ /* if false branch */
codegen(state, pic_car(pic, pic_cdr(pic, pic_cdr(pic, pic_cdr(pic, obj))))); codegen(state, if_false);
irep->code[irep->clen].insn = OP_JMP; irep->code[irep->clen].insn = OP_JMP;
t = irep->clen++; t = irep->clen++;
irep->code[s].u.i = irep->clen - s; irep->code[s].u.i = irep->clen - s;
/* if true branch */ /* if true branch */
codegen(state, pic_car(pic, pic_cdr(pic, pic_cdr(pic, obj)))); codegen(state, if_true);
irep->code[t].u.i = irep->clen - t; irep->code[t].u.i = irep->clen - t;
break; break;
} }