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

added QSE_AWK_STRIPSTRSPC

Browse Source
This commit is contained in:
hyung-hwan
2009-07-17 06:43:47 +00:00
parent 6b31c85427
commit 602a14a54e
6 changed files with 68 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
qse/lib/awk/misc.c
View File

@ -1,5 +1,5 @@
/*
* $Id: misc.c 230 2009-07-13 08:51:23Z hyunghwan.chung $
* $Id: misc.c 237 2009-07-16 12:43:47Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -58,8 +58,11 @@ qse_long_t qse_awk_strxtolong (
p = str;
end = str + len;
/* strip off leading spaces */
/*while (QSE_AWK_ISSPACE(awk,*p)) p++;*/
if (awk->option & QSE_AWK_STRIPSTRSPC)
{
/* strip off leading spaces */
while (QSE_AWK_ISSPACE(awk,*p)) p++;
}
/* check for a sign */
while (p < end)
@ -182,8 +185,11 @@ qse_real_t qse_awk_strtoreal (qse_awk_t* awk, const qse_char_t* str)
p = str;
/* strip off leading blanks */
/*while (QSE_AWK_ISSPACE(awk,*p)) p++;*/
if (awk->option & QSE_AWK_STRIPSTRSPC)
{
/* strip off leading spaces */
while (QSE_AWK_ISSPACE(awk,*p)) p++;
}
/* check for a sign */
while (*p != QSE_T('\0'))
@ -871,7 +877,7 @@ qse_char_t* qse_awk_rtx_strxntokbyrex (
ptr++;
left--;
}
else if (rtx->awk->option & QSE_AWK_STRIPSPACES)
else if (rtx->awk->option & QSE_AWK_STRIPRECSPC)
{
/* match at the beginning of the input string */
if (match.ptr == substr)
@ -917,7 +923,7 @@ exit_loop:
*errnum = QSE_AWK_ENOERR;
if (rtx->awk->option & QSE_AWK_STRIPSPACES)
if (rtx->awk->option & QSE_AWK_STRIPRECSPC)
{
return (match.ptr+match.len >= substr+sublen)?
QSE_NULL: ((qse_char_t*)match.ptr+match.len);

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

@ -1,5 +1,5 @@
/*
* $Id: std.c 235 2009-07-15 10:43:31Z hyunghwan.chung $
* $Id: std.c 237 2009-07-16 12:43:47Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -1316,8 +1316,8 @@ static int fnc_srand (qse_awk_rtx_t* run, const qse_cstr_t* fnm)
a0 = qse_awk_rtx_getarg (run, 0);
n = qse_awk_rtx_valtonum (run, a0, &lv, &rv);
if (n == -1) return -1;
if (n == 1) lv = (qse_long_t)rv;
if (n <= -1) return -1;
if (n >= 1) lv = (qse_long_t)rv;
rxtn->seed = lv;
}
@ -1325,7 +1325,7 @@ static int fnc_srand (qse_awk_rtx_t* run, const qse_cstr_t* fnm)
{
qse_ntime_t now;
if (qse_gettime(&now) == -1) rxtn->seed >>= 1;
if (qse_gettime(&now) <= -1) rxtn->seed >>= 1;
else rxtn->seed = (unsigned int)now;
}