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

enhanced qse_awk_parsesimple() more

Browse Source
This commit is contained in:
hyung-hwan
2009-02-22 08:16:35 +00:00
parent 82cbaab6f2
commit 2e24e29e8c
6 changed files with 152 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
qse/test/awk/awk01.c
View File

@ -40,6 +40,7 @@ int main ()
{
qse_awk_t* awk = QSE_NULL;
qse_awk_rtx_t* rtx = QSE_NULL;
qse_awk_parsesimple_in_t psin;
int ret;
awk = qse_awk_opensimple ();
@ -49,13 +50,10 @@ int main ()
goto oops;
}
ret = qse_awk_parsesimple (
awk,
/* parse AWK source in a string */
QSE_AWK_PARSESIMPLE_STR, src,
/* no deparse output */
QSE_AWK_PARSESIMPLE_NONE, QSE_NULL
);
psin.type = QSE_AWK_PARSESIMPLE_STR;
psin.u.str = src;
ret = qse_awk_parsesimple (awk, &psin, QSE_NULL);
if (ret == -1)
{
qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),

17
qse/test/awk/awk02.c
View File

@ -43,6 +43,10 @@ int main ()
{
qse_awk_t* awk = QSE_NULL;
qse_awk_rtx_t* rtx = QSE_NULL;
qse_awk_parsesimple_in_t psin;
qse_awk_parsesimple_out_t psout;
int ret;
awk = qse_awk_opensimple ();
@ -55,13 +59,12 @@ int main ()
qse_memset (srcout, QSE_T(' '), QSE_COUNTOF(srcout)-1);
srcout[QSE_COUNTOF(srcout)-1] = QSE_T('\0');
ret = qse_awk_parsesimple (
awk,
/* parse the source in src */
QSE_AWK_PARSESIMPLE_STR, src,
/* deparse into srcout */
QSE_AWK_PARSESIMPLE_STR, srcout
);
psin.type = QSE_AWK_PARSESIMPLE_STR;
psin.u.str = src;
psout.type = QSE_AWK_PARSESIMPLE_STR;
psout.u.str = srcout;
ret = qse_awk_parsesimple (awk, &psin, &psout);
if (ret == -1)
{
qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),

14
qse/test/awk/awk03.c
View File

@ -47,6 +47,9 @@ int main ()
{
qse_awk_t* awk = QSE_NULL;
qse_awk_rtx_t* rtx = QSE_NULL;
qse_awk_parsesimple_in_t psin;
int ret, i;
/* create a main processor */
@ -60,13 +63,10 @@ int main ()
/* don't allow BEGIN, END, pattern-action blocks */
qse_awk_setoption (awk, qse_awk_getoption(awk) & ~QSE_AWK_PABLOCK);
ret = qse_awk_parsesimple (
awk,
/* parse AWK source in a string */
QSE_AWK_PARSESIMPLE_STR, src,
/* no parse output */
QSE_AWK_PARSESIMPLE_NONE, QSE_NULL
);
psin.type = QSE_AWK_PARSESIMPLE_STR;
psin.u.str = src;
ret = qse_awk_parsesimple (awk, &psin, QSE_NULL);
if (ret == -1)
{
qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),