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-11-19 11:21:06 +00:00
parent 75c75d7a41
commit ec5b916081
4 changed files with 27 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ase/awk/awk.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk.h,v 1.145 2006-11-19 10:12:07 bacon Exp $ * $Id: awk.h,v 1.146 2006-11-19 11:21:06 bacon Exp $
*/ */
#ifndef _ASE_AWK_AWK_H_ #ifndef _ASE_AWK_AWK_H_
@ -143,7 +143,7 @@ enum
/* allow undeclared variables */ /* allow undeclared variables */
ASE_AWK_IMPLICIT = (1 << 0), ASE_AWK_IMPLICIT = (1 << 0),
/* variable requires explicit declaration */ /* allow explicit variable declarations */
ASE_AWK_EXPLICIT = (1 << 1), ASE_AWK_EXPLICIT = (1 << 1),
/* a function name should not coincide to be a variable name */ /* a function name should not coincide to be a variable name */

20
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.203 2006-11-17 07:04:31 bacon Exp $ * $Id: parse.c,v 1.204 2006-11-19 11:21:06 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -4325,6 +4325,15 @@ static int __deparse (ase_awk_t* awk)
ASE_AWK_ASSERT (awk, len != (ase_size_t)-1); ASE_AWK_ASSERT (awk, len != (ase_size_t)-1);
if (ase_awk_putsrcstrx (awk, tmp, len) == -1) if (ase_awk_putsrcstrx (awk, tmp, len) == -1)
EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE); EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE);
/*
if (ase_awk_putsrcstrx (awk,
awk->parse.globals.buf[i].name,
awk->parse.globals.buf[i].name_len) == -1)
{
EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE);
}
*/
if (ase_awk_putsrcstr (awk, ASE_T(", ")) == -1) if (ase_awk_putsrcstr (awk, ASE_T(", ")) == -1)
EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE); EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE);
} }
@ -4334,6 +4343,15 @@ static int __deparse (ase_awk_t* awk)
ASE_AWK_ASSERT (awk, len != (ase_size_t)-1); ASE_AWK_ASSERT (awk, len != (ase_size_t)-1);
if (ase_awk_putsrcstrx (awk, tmp, len) == -1) if (ase_awk_putsrcstrx (awk, tmp, len) == -1)
EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE); EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE);
/*
if (ase_awk_putsrcstrx (awk,
awk->parse.globals.buf[i].name,
awk->parse.globals.buf[i].name_len) == -1)
{
EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE);
}
*/
if (ase_awk_putsrcstr (awk, ASE_T(";\n\n")) == -1) if (ase_awk_putsrcstr (awk, ASE_T(";\n\n")) == -1)
EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE); EXIT_DEPARSE (ASE_AWK_ESRCOUTWRITE);
} }

4
ase/awk/tree.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: tree.c,v 1.88 2006-11-18 15:36:57 bacon Exp $ * $Id: tree.c,v 1.89 2006-11-19 11:21:06 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -384,6 +384,7 @@ static int __print_expression (ase_awk_t* awk, ase_awk_nde_t* nde)
px->id.idxa, 10, px->id.idxa, 10,
ASE_NULL, tmp, ase_countof(tmp)); ASE_NULL, tmp, ase_countof(tmp));
PUT_SRCSTRX (awk, tmp, n); PUT_SRCSTRX (awk, tmp, n);
/*PUT_SRCSTRX (awk, px->id.name, px->id.name_len);*/
} }
else else
{ {
@ -406,6 +407,7 @@ static int __print_expression (ase_awk_t* awk, ase_awk_nde_t* nde)
px->id.idxa, 10, px->id.idxa, 10,
ASE_NULL, tmp, ase_countof(tmp)); ASE_NULL, tmp, ase_countof(tmp));
PUT_SRCSTRX (awk, tmp, n); PUT_SRCSTRX (awk, tmp, n);
/*PUT_SRCSTRX (awk, px->id.name, px->id.name_len);*/
PUT_SRCSTR (awk, ASE_T("[")); PUT_SRCSTR (awk, ASE_T("["));
} }
else else

6
ase/test/awk/awk.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk.c,v 1.117 2006-11-19 07:45:46 bacon Exp $ * $Id: awk.c,v 1.118 2006-11-19 11:21:06 bacon Exp $
*/ */
#include <ase/awk/awk.h> #include <ase/awk/awk.h>
@ -743,9 +743,9 @@ static int __main (int argc, ase_char_t* argv[])
syscas_data_t syscas_data; syscas_data_t syscas_data;
#endif #endif
opt = ASE_AWK_EXPLICIT | ASE_AWK_UNIQUE | ASE_AWK_HASHSIGN | opt = ASE_AWK_IMPLICIT | ASE_AWK_EXPLICIT | ASE_AWK_UNIQUE | ASE_AWK_HASHSIGN |
/*ASE_AWK_DBLSLASHES |*/ /*ASE_AWK_DBLSLASHES |*/
ASE_AWK_SHADING | ASE_AWK_IMPLICIT | ASE_AWK_SHIFT | ASE_AWK_SHADING | ASE_AWK_SHIFT |
ASE_AWK_EXTIO | ASE_AWK_BLOCKLESS | ASE_AWK_STRINDEXONE | ASE_AWK_EXTIO | ASE_AWK_BLOCKLESS | ASE_AWK_STRINDEXONE |
ASE_AWK_STRIPSPACES /*| ASE_AWK_NEWLINE*/; ASE_AWK_STRIPSPACES /*| ASE_AWK_NEWLINE*/;