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

work in progress. implementing qse_awk_addgblwithmbs() & qse_awk_addgblwithwcs()

Browse Source
This commit is contained in:
hyung-hwan
2019-08-27 08:42:13 +00:00
parent d0d2a7af8c
commit 6cdaf0bda6
2 changed files with 96 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1926,7 +1926,99 @@ int qse_awk_addgbl (qse_awk_t* awk, const qse_char_t* name)
return -1;
}
n = add_global (awk, &ncs, QSE_NULL, 0);
n = add_global(awk, &ncs, QSE_NULL, 0);
/* update the count of the static globals.
* the total global count has been updated inside add_global. */
if (n >= 0) awk->tree.ngbls_base++;
return n;
}
int qse_awk_addgblwithwcs (qse_awk_t* awk, const qse_wchar_t* name)
{
int n;
qse_wcstr_t ncs;
if (awk->tree.ngbls > awk->tree.ngbls_base)
{
/* this function is not allowed after qse_awk_parse is called */
SETERR_COD (awk, QSE_AWK_EPERM);
return -1;
}
ncs.ptr = (qse_wchar_t*)name;
ncs.len = qse_wcslen(name);;
if (ncs.len <= 0)
{
SETERR_COD (awk, QSE_AWK_EINVAL);
return -1;
}
#if defined(QSE_CHAR_IS_MCHAR)
{
qse_mcstr_t mbs;
mbs.ptr = qse_wcstombsdupwithcmgr(name, &mbs.len, awk->_mmgr, awk->_cmgr);
if (!mbs.ptr)
{
SETERR_COD (awk, QSE_AWK_ENOMEM); /* TODO: it could be encoidng error too?? how to tell? */
return -1;
}
n = add_global(awk, &mbs, QSE_NULL, 0);
qse_awk_freemem (awk, mbs.ptr);
}
#else
n = add_global(awk, &ncs, QSE_NULL, 0);
#endif
/* update the count of the static globals.
* the total global count has been updated inside add_global. */
if (n >= 0) awk->tree.ngbls_base++;
return n;
}
int qse_awk_addgblwithmbs (qse_awk_t* awk, const qse_mchar_t* name)
{
int n;
qse_mcstr_t ncs;
if (awk->tree.ngbls > awk->tree.ngbls_base)
{
/* this function is not allowed after qse_awk_parse is called */
SETERR_COD (awk, QSE_AWK_EPERM);
return -1;
}
ncs.ptr = (qse_mchar_t*)name;
ncs.len = qse_mbslen(name);;
if (ncs.len <= 0)
{
SETERR_COD (awk, QSE_AWK_EINVAL);
return -1;
}
#if defined(QSE_CHAR_IS_MCHAR)
n = add_global(awk, &ncs, QSE_NULL, 0);
#else
{
qse_wcstr_t wcs;
wcs.ptr = qse_mbstowcsdupwithcmgr(name, &wcs.len, awk->_mmgr, awk->_cmgr);
if (!wcs.ptr)
{
SETERR_COD (awk, QSE_AWK_ENOMEM); /* TODO: it could be encoidng error too?? how to tell? */
return -1;
}
n = add_global(awk, &wcs, QSE_NULL, 0);
qse_awk_freemem (awk, wcs.ptr);
}
#endif
/* update the count of the static globals.
* the total global count has been updated inside add_global. */

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

@ -2322,9 +2322,9 @@ static int add_globals (qse_awk_t* awk)
{
xtn_t* xtn = GET_XTN(awk);
xtn->gbl_argc = qse_awk_addgbl (awk, QSE_T("ARGC"));
xtn->gbl_argv = qse_awk_addgbl (awk, QSE_T("ARGV"));
xtn->gbl_environ = qse_awk_addgbl (awk, QSE_T("ENVIRON"));
xtn->gbl_argc = qse_awk_addgbl(awk, QSE_T("ARGC"));
xtn->gbl_argv = qse_awk_addgbl(awk, QSE_T("ARGV"));
xtn->gbl_environ = qse_awk_addgbl(awk, QSE_T("ENVIRON"));
return (xtn->gbl_argc <= -1 ||
xtn->gbl_argv <= -1 ||