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

changed code for new qse_awk_valtostr().

Browse Source 
- fixed a bug in shorten_record() in awk/run.c
- added qse_awk_valtostrdup()
- added qse_awk_rtx_alloc ()
- added qse_awk_rtx_free ()
This commit is contained in:
hyung-hwan
2009-03-01 09:27:03 +00:00
parent 283bcfb2ea
commit 0b89f7e322
13 changed files with 322 additions and 201 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/*
* $Id: awk03.c 86 2009-02-26 12:55:05Z hyunghwan.chung $
* $Id: awk03.c 89 2009-02-28 15:27:03Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -92,8 +92,8 @@ int main ()
for (i = 0; i < QSE_COUNTOF(fnc); i++)
{
qse_awk_val_t* v;
qse_char_t buf[1000];
qse_size_t bufsize;
qse_char_t* str;
qse_size_t len;
v = qse_awk_rtx_call (rtx, fnc[i], QSE_NULL, 0);
if (v == QSE_NULL)
@ -103,10 +103,16 @@ int main ()
ret = -1; goto oops;
}
bufsize = QSE_COUNTOF(buf);
qse_awk_rtx_valtostr (rtx, v,
QSE_AWK_RTX_VALTOSTR_FIXED, buf, &bufsize);
qse_printf (QSE_T("return: [%.*s]\n"), (int)bufsize, buf);
str = qse_awk_rtx_valtostrdup (rtx, v, &len);
if (str == QSE_NULL)
{
qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),
qse_awk_rtx_geterrmsg(rtx));
ret = -1; goto oops;
}
qse_printf (QSE_T("return: [%.*s]\n"), (int)len, str);
qse_awk_rtx_free (rtx, str);
/* clear the return value */
qse_awk_rtx_refdownval (rtx, v);

20
qse/test/awk/awk04.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk04.c 86 2009-02-26 12:55:05Z hyunghwan.chung $
* $Id: awk04.c 89 2009-02-28 15:27:03Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -37,8 +37,8 @@ int main ()
qse_awk_t* awk = QSE_NULL;
qse_awk_rtx_t* rtx = QSE_NULL;
qse_awk_parsestd_in_t psin;
qse_char_t buf[1000];
qse_size_t bufsize;
qse_char_t* str;
qse_size_t len;
qse_awk_val_t* v;
qse_awk_val_t* arg[2] = { QSE_NULL, QSE_NULL };
int ret, i;
@ -105,10 +105,16 @@ int main ()
ret = -1; goto oops;
}
bufsize = QSE_COUNTOF(buf);
qse_awk_rtx_valtostr (rtx, v,
QSE_AWK_RTX_VALTOSTR_FIXED, buf, &bufsize);
qse_printf (QSE_T("[%.*s]\n"), (int)bufsize, buf);
str = qse_awk_rtx_valtostrdup (rtx, v, &len);
if (str == QSE_NULL)
{
qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),
qse_awk_rtx_geterrmsg(rtx));
ret = -1; goto oops;
}
qse_printf (QSE_T("[%.*s]\n"), (int)len, str);
qse_awk_rtx_free (rtx, str);
/* clear the return value */
qse_awk_rtx_refdownval (rtx, v);