98 lines
1.8 KiB
C
98 lines
1.8 KiB
C
#include <qse/awk/stdawk.h>
|
|
#include <qse/si/sio.h>
|
|
|
|
/* this sample produces 8 text files containing multiplication chart. */
|
|
|
|
const qse_char_t* src = QSE_T(
|
|
"BEGIN {"
|
|
" for (i=2;i<=9;i++)"
|
|
" {"
|
|
" print \"OFILENAME:\" OFILENAME;"
|
|
" for (j=1;j<=9;j++)"
|
|
" print i \"*\" j \"=\" i * j;"
|
|
" nextofile;"
|
|
" }"
|
|
"}"
|
|
);
|
|
|
|
int main ()
|
|
{
|
|
qse_awk_t* awk = QSE_NULL;
|
|
qse_awk_rtx_t* rtx = QSE_NULL;
|
|
qse_awk_val_t* retv;
|
|
qse_awk_parsestd_t psin[2];
|
|
int ret = -1, opt;
|
|
|
|
const qse_char_t* output_files[] =
|
|
{
|
|
QSE_T("awk12.out.2"),
|
|
QSE_T("awk12.out.3"),
|
|
QSE_T("awk12.out.4"),
|
|
QSE_T("awk12.out.5"),
|
|
QSE_T("awk12.out.6"),
|
|
QSE_T("awk12.out.7"),
|
|
QSE_T("awk12.out.8"),
|
|
QSE_T("awk12.out.9"),
|
|
QSE_NULL
|
|
};
|
|
|
|
qse_open_stdsios ();
|
|
|
|
awk = qse_awk_openstd (0, QSE_NULL);
|
|
if (awk == QSE_NULL)
|
|
{
|
|
qse_fprintf (QSE_STDERR, QSE_T("ERROR: cannot open awk\n"));
|
|
goto oops;
|
|
}
|
|
|
|
qse_awk_getopt (awk, QSE_AWK_TRAIT, &opt);
|
|
opt |= QSE_AWK_NEXTOFILE;
|
|
qse_awk_setopt (awk, QSE_AWK_TRAIT, &opt);
|
|
|
|
psin[0].type = QSE_AWK_PARSESTD_STR;
|
|
psin[0].u.str.ptr = src;
|
|
psin[0].u.str.len = qse_strlen(src);
|
|
psin[1].type = QSE_AWK_PARSESTD_NULL;
|
|
|
|
if (qse_awk_parsestd (awk, psin, QSE_NULL) <= -1)
|
|
{
|
|
qse_fprintf (QSE_STDERR, QSE_T("ERROR: %s\n"),
|
|
qse_awk_geterrmsg(awk));
|
|
goto oops;
|
|
}
|
|
|
|
rtx = qse_awk_rtx_openstd (
|
|
awk,
|
|
0,
|
|
QSE_T("awk12"),
|
|
QSE_NULL, /* stdin */
|
|
output_files,
|
|
QSE_NULL /* default cmgr */
|
|
);
|
|
if (rtx == QSE_NULL)
|
|
{
|
|
qse_fprintf (QSE_STDERR, QSE_T("ERROR: %s\n"),
|
|
qse_awk_geterrmsg(awk));
|
|
goto oops;
|
|
}
|
|
|
|
retv = qse_awk_rtx_loop (rtx);
|
|
if (retv == QSE_NULL)
|
|
{
|
|
qse_fprintf (QSE_STDERR, QSE_T("ERROR: %s\n"),
|
|
qse_awk_rtx_geterrmsg(rtx));
|
|
goto oops;
|
|
}
|
|
|
|
qse_awk_rtx_refdownval (rtx, retv);
|
|
ret = 0;
|
|
|
|
oops:
|
|
if (rtx != QSE_NULL) qse_awk_rtx_close (rtx);
|
|
if (awk != QSE_NULL) qse_awk_close (awk);
|
|
|
|
qse_close_stdsios ();
|
|
return ret;
|
|
}
|
|
|