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

interim commit

Browse Source
This commit is contained in:
hyung-hwan
2009-07-25 23:18:42 +00:00
parent 1e7f2551e5
commit 90955d1b0a
5 changed files with 92 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
qse/lib/awk/err.c
View File

@ -1,5 +1,5 @@
/*
* $Id: err.c 240 2009-07-19 13:02:33Z hyunghwan.chung $
* $Id: err.c 245 2009-07-25 05:18:42Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -43,14 +43,6 @@ const qse_char_t* qse_awk_dflerrstr (qse_awk_t* awk, qse_awk_errnum_t errnum)
QSE_T("block nested too deeply"),
QSE_T("expression nested too deeply"),
QSE_T("failed to open source input"),
QSE_T("failed to close source input"),
QSE_T("failed to read source input"),
QSE_T("failed to open source output"),
QSE_T("failed to close source output"),
QSE_T("failed to write source output"),
QSE_T("invalid character '${0}'"),
QSE_T("invalid digit '${0}'"),
QSE_T("failed to unget character"),

29
qse/lib/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c 241 2009-07-22 12:47:13Z hyunghwan.chung $
* $Id: parse.c 245 2009-07-25 05:18:42Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -509,7 +509,8 @@ static int parse (qse_awk_t* awk)
{
/* cannot open the source file.
* it doesn't even have to call CLOSE */
if (ISNOERR(awk)) SETERR (awk, QSE_AWK_ESINOP);
if (ISNOERR(awk))
SETERRARG (awk, QSE_AWK_EOPEN, 0, QSE_T("<SIN>"), 5);
return -1;
}
@ -581,7 +582,8 @@ exit_parse:
{
/* this is to keep the earlier error above
* that might be more critical than this */
if (ISNOERR(awk)) SETERR (awk, QSE_AWK_ESINCL);
if (ISNOERR(awk))
SETERRARG (awk, QSE_AWK_ECLOSE, 0, QSE_T("<SIN>"), 5);
n = -1;
}
}
@ -606,6 +608,14 @@ static int begin_include (qse_awk_t* awk)
return -1;
}
CLRERR (awk);
op = awk->src.ios.in (awk, QSE_AWK_SIO_OPEN, QSE_NULL, 0);
if (op <= -1)
{
if (ISNOERR(awk)) SETERRTOK (awk, QSE_AWK_EOPEN);
return -1;
}
/* TODO: implement this */
SETERRLIN (awk, QSE_AWK_ENOSUP, awk->ptoken.line);
return -1;
@ -4977,7 +4987,8 @@ static int get_char (qse_awk_t* awk)
);
if (n <= -1)
{
if (ISNOERR(awk)) SETERR (awk, QSE_AWK_ESINRD);
if (ISNOERR(awk))
SETERRARG (awk, QSE_AWK_EREAD, 0, QSE_T("<SIN>"), 5);
return -1;
}
@ -5482,7 +5493,8 @@ static int deparse (qse_awk_t* awk)
op = awk->src.ios.out (awk, QSE_AWK_SIO_OPEN, QSE_NULL, 0);
if (op <= -1)
{
if (ISNOERR(awk)) SETERR (awk, QSE_AWK_ESOUTOP);
if (ISNOERR(awk))
SETERRARG (awk, QSE_AWK_EOPEN, 0, QSE_T("<SOUT>"), 6);
return -1;
}
@ -5690,7 +5702,8 @@ exit_deparse:
{
if (n == 0)
{
if (ISNOERR(awk)) SETERR (awk, QSE_AWK_ESOUTCL);
if (ISNOERR(awk))
SETERRARG (awk, QSE_AWK_ECLOSE, 0, QSE_T("<SOUT>"), 6);
n = -1;
}
}
@ -5781,7 +5794,6 @@ static int flush_out (qse_awk_t* awk)
while (awk->src.shared.buf_pos < awk->src.shared.buf_len)
{
CLRERR (awk);
n = awk->src.ios.out (
awk, QSE_AWK_SIO_WRITE,
&awk->src.shared.buf[awk->src.shared.buf_pos],
@ -5789,7 +5801,8 @@ static int flush_out (qse_awk_t* awk)
);
if (n <= 0)
{
if (ISNOERR(awk)) SETERR (awk, QSE_AWK_ESOUTWR);
if (ISNOERR(awk))
SETERRARG (awk, QSE_AWK_EWRITE, 0, QSE_T("<SOUT>"), 6);
return -1;
}

62
qse/lib/awk/std.c
View File

@ -1,5 +1,5 @@
/*
* $Id: std.c 237 2009-07-16 12:43:47Z hyunghwan.chung $
* $Id: std.c 245 2009-07-25 05:18:42Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -157,7 +157,7 @@ void* qse_awk_getxtnstd (qse_awk_t* awk)
static qse_ssize_t sf_in (
qse_awk_t* awk, qse_awk_sio_cmd_t cmd,
qse_char_t* data, qse_size_t size)
qse_awk_sio_arg_t* arg, qse_char_t* data, qse_size_t size)
{
xtn_t* xtn = QSE_XTN (awk);
@ -182,7 +182,17 @@ static qse_ssize_t sf_in (
xtn->s.in.u.file,
QSE_SIO_READ
);
if (xtn->s.in.handle == QSE_NULL) return -1;
if (xtn->s.in.handle == QSE_NULL)
{
qse_cstr_t arg;
arg.ptr = xtn->s.in.u.file;
arg.len = qse_strlen(arg.ptr);
qse_awk_seterror (
awk, QSE_AWK_EOPEN,
0, &arg
);
return -1;
}
}
return 1;
@ -214,8 +224,21 @@ static qse_ssize_t sf_in (
{
case QSE_AWK_PARSESTD_FILE:
case QSE_AWK_PARSESTD_STDIO:
{
qse_ssize_t n;
QSE_ASSERT (xtn->s.in.handle != QSE_NULL);
return qse_sio_getsn (xtn->s.in.handle, data, size);
n = qse_sio_getsn (xtn->s.in.handle, data, size);
if (n == -1)
{
qse_cstr_t arg;
arg.ptr = xtn->s.in.u.file;
arg.len = qse_strlen(arg.ptr);
qse_awk_seterror (
awk, QSE_AWK_EREAD, 0, &arg);
}
return n;
}
case QSE_AWK_PARSESTD_CP:
{
@ -244,8 +267,8 @@ static qse_ssize_t sf_in (
}
static qse_ssize_t sf_out (
qse_awk_t* awk, qse_awk_sio_cmd_t cmd,
qse_char_t* data, qse_size_t size)
qse_awk_t* awk, qse_awk_sio_cmd_t cmd,
qse_awk_sio_arg_t* arg, qse_char_t* data, qse_size_t size)
{
xtn_t* xtn = QSE_XTN (awk);
@ -272,7 +295,17 @@ static qse_ssize_t sf_out (
QSE_SIO_CREATE |
QSE_SIO_TRUNCATE
);
if (xtn->s.out.handle == QSE_NULL) return -1;
if (xtn->s.out.handle == QSE_NULL)
{
qse_cstr_t arg;
arg.ptr = xtn->s.out.u.file;
arg.len = qse_strlen(arg.ptr);
qse_awk_seterror (
awk, QSE_AWK_EOPEN,
0, &arg
);
return -1;
}
}
return 1;
@ -319,8 +352,21 @@ static qse_ssize_t sf_out (
{
case QSE_AWK_PARSESTD_FILE:
case QSE_AWK_PARSESTD_STDIO:
{
qse_ssize_t n;
QSE_ASSERT (xtn->s.out.handle != QSE_NULL);
return qse_sio_putsn (xtn->s.out.handle, data, size);
n = qse_sio_putsn (xtn->s.out.handle, data, size);
if (n == -1)
{
qse_cstr_t arg;
arg.ptr = xtn->s.in.u.file;
arg.len = qse_strlen(arg.ptr);
qse_awk_seterror (
awk, QSE_AWK_EWRITE, 0, &arg);
}
return n;
}
case QSE_AWK_PARSESTD_CP:
{