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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2006-01-15 06:51:35 +00:00
parent f0f0ca69ea
commit 0f8a82de49
3 changed files with 29 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ase/awk/Makefile.lcc
View File

@ -1,7 +1,5 @@
SRCS = stx.c memory.c object.c symbol.c class.c dict.c misc.c array.c \
context.c name.c token.c parser.c bootstrp.c bytecode.c interp.c
OBJS = stx.obj memory.obj object.obj symbol.obj class.obj dict.obj misc.obj array.obj \
context.obj name.obj token.obj parser.obj bootstrp.obj bytecode.obj interp.obj
SRCS = awk.c parse.c tree.c
OBJS = awk.obj parse.obj tree.obj
OUT = xpawk.lib
CC = lcc

13
ase/awk/tree.c
View File

@ -1,5 +1,5 @@
/*
* $Id: tree.c,v 1.2 2006-01-14 16:09:57 bacon Exp $
* $Id: tree.c,v 1.3 2006-01-15 06:51:35 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -108,16 +108,17 @@ static void __print_statements (xp_awk_node_t* tree, int depth)
__print_tabs (depth);
xp_printf (XP_TEXT("if ("));
__print_expr_node (((xp_awk_node_if_t*)p)->test);
xp_printf (XP_TEXT(") "));
xp_printf (XP_TEXT(")\n"));
// TODO: identation of depth + 1 if then_part or else_part is not a block
if (((xp_awk_node_if_t*)p)->then_part == XP_NULL)
xp_printf (XP_TEXT(";\n"));
else __print_statements (((xp_awk_node_if_t*)p)->then_part, 0);
xp_printf (XP_TEXT(";\n"));
else __print_statements (((xp_awk_node_if_t*)p)->then_part, depth);
if (((xp_awk_node_if_t*)p)->else_part != XP_NULL) {
__print_tabs (depth);
xp_printf (XP_TEXT("else "));
__print_statements (((xp_awk_node_if_t*)p)->else_part, 0);
xp_printf (XP_TEXT("else\n"));
__print_statements (((xp_awk_node_if_t*)p)->else_part, depth);
}
break;