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

documented qse_awk_rtx_valtostr() and renamed qse_awk_rtx_valtostrdup()

Browse Source 
to qse_awk_rtx_valtocpldup()
This commit is contained in:
hyung-hwan
2009-03-02 03:58:19 +00:00
parent 0b89f7e322
commit 004ba389f2
16 changed files with 233 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
qse/lib/awk/Awk.cpp
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.cpp 89 2009-02-28 15:27:03Z hyunghwan.chung $
* $Id: Awk.cpp 90 2009-03-01 09:58:19Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -340,7 +340,7 @@ int Awk::Argument::init (val_t* v)
this->inum = ((qse_awk_val_int_t*)v)->val;
this->rnum = (qse_real_t)((qse_awk_val_int_t*)v)->val;
this->str.ptr = qse_awk_rtx_valtostrdup (
this->str.ptr = qse_awk_rtx_valtocpldup (
this->run->run, v, &this->str.len);
if (this->str.ptr != QSE_NULL) return 0;
}
@ -349,7 +349,7 @@ int Awk::Argument::init (val_t* v)
this->inum = (qse_long_t)((qse_awk_val_real_t*)v)->val;
this->rnum = ((qse_awk_val_real_t*)v)->val;
this->str.ptr = qse_awk_rtx_valtostrdup (
this->str.ptr = qse_awk_rtx_valtocpldup (
this->run->run, v, &this->str.len);
if (this->str.ptr != QSE_NULL) return 0;
}
@ -358,7 +358,7 @@ int Awk::Argument::init (val_t* v)
this->inum = 0;
this->rnum = 0.0;
this->str.ptr = qse_awk_rtx_valtostrdup (
this->str.ptr = qse_awk_rtx_valtocpldup (
this->run->run, v, &this->str.len);
if (this->str.ptr != QSE_NULL) return 0;
}

36
qse/lib/awk/fnc.c
View File

@ -1,5 +1,5 @@
/*
* $Id: fnc.c 89 2009-02-28 15:27:03Z hyunghwan.chung $
* $Id: fnc.c 90 2009-03-01 09:58:19Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -249,7 +249,7 @@ static int fnc_close (
}
else
{
name = qse_awk_rtx_valtostrdup (run, a0, &len);
name = qse_awk_rtx_valtocpldup (run, a0, &len);
if (name == QSE_NULL) return -1;
}
@ -362,7 +362,7 @@ static int fnc_fflush (
}
else
{
str0 = qse_awk_rtx_valtostrdup (run, a0, &len0);
str0 = qse_awk_rtx_valtocpldup (run, a0, &len0);
if (str0 == QSE_NULL) return -1;
}
@ -433,7 +433,7 @@ static int fnc_index (
}
else
{
str0 = qse_awk_rtx_valtostrdup (run, a0, &len0);
str0 = qse_awk_rtx_valtocpldup (run, a0, &len0);
if (str0 == QSE_NULL) return -1;
}
@ -444,7 +444,7 @@ static int fnc_index (
}
else
{
str1 = qse_awk_rtx_valtostrdup (run, a1, &len1);
str1 = qse_awk_rtx_valtocpldup (run, a1, &len1);
if (str1 == QSE_NULL)
{
if (a0->type != QSE_AWK_VAL_STR)
@ -488,7 +488,7 @@ static int fnc_length (
}
else
{
str = qse_awk_rtx_valtostrdup (run, v, &len);
str = qse_awk_rtx_valtocpldup (run, v, &len);
if (str == QSE_NULL) return -1;
QSE_AWK_FREE (run->awk, str);
}
@ -529,7 +529,7 @@ static int fnc_substr (
}
else
{
str = qse_awk_rtx_valtostrdup (run, a0, &len);
str = qse_awk_rtx_valtocpldup (run, a0, &len);
if (str == QSE_NULL) return -1;
}
@ -634,7 +634,7 @@ static int fnc_split (
}
else
{
str = qse_awk_rtx_valtostrdup (run, a0, &str_len);
str = qse_awk_rtx_valtocpldup (run, a0, &str_len);
if (str == QSE_NULL) return -1;
str_free = str;
}
@ -657,7 +657,7 @@ static int fnc_split (
}
else
{
fs_ptr = qse_awk_rtx_valtostrdup (run, t1, &fs_len);
fs_ptr = qse_awk_rtx_valtocpldup (run, t1, &fs_len);
if (fs_ptr == QSE_NULL)
{
if (str_free != QSE_NULL)
@ -683,7 +683,7 @@ static int fnc_split (
}
else
{
fs_ptr = qse_awk_rtx_valtostrdup (run, a2, &fs_len);
fs_ptr = qse_awk_rtx_valtocpldup (run, a2, &fs_len);
if (fs_ptr == QSE_NULL)
{
if (str_free != QSE_NULL)
@ -850,7 +850,7 @@ static int fnc_tolower (
}
else
{
str = qse_awk_rtx_valtostrdup (run, a0, &len);
str = qse_awk_rtx_valtocpldup (run, a0, &len);
if (str == QSE_NULL) return -1;
}
@ -889,7 +889,7 @@ static int fnc_toupper (
}
else
{
str = qse_awk_rtx_valtostrdup (run, a0, &len);
str = qse_awk_rtx_valtocpldup (run, a0, &len);
if (str == QSE_NULL) return -1;
}
@ -955,7 +955,7 @@ static int __substitute (qse_awk_rtx_t* run, qse_long_t max_count)
}
else
{
a0_ptr = qse_awk_rtx_valtostrdup (run, a0, &a0_len);
a0_ptr = qse_awk_rtx_valtocpldup (run, a0, &a0_len);
if (a0_ptr == QSE_NULL)
{
FREE_A_PTRS (run->awk);
@ -971,7 +971,7 @@ static int __substitute (qse_awk_rtx_t* run, qse_long_t max_count)
}
else
{
a1_ptr = qse_awk_rtx_valtostrdup (run, a1, &a1_len);
a1_ptr = qse_awk_rtx_valtocpldup (run, a1, &a1_len);
if (a1_ptr == QSE_NULL)
{
FREE_A_PTRS (run->awk);
@ -1026,7 +1026,7 @@ static int __substitute (qse_awk_rtx_t* run, qse_long_t max_count)
}
else
{
a2_ptr = qse_awk_rtx_valtostrdup (run, *a2_ref, &a2_len);
a2_ptr = qse_awk_rtx_valtocpldup (run, *a2_ref, &a2_len);
if (a2_ptr == QSE_NULL)
{
FREE_A_PTRS (run->awk);
@ -1234,7 +1234,7 @@ static int fnc_match (
}
else
{
str0 = qse_awk_rtx_valtostrdup (run, a0, &len0);
str0 = qse_awk_rtx_valtocpldup (run, a0, &len0);
if (str0 == QSE_NULL) return -1;
}
@ -1251,7 +1251,7 @@ static int fnc_match (
}
else
{
str1 = qse_awk_rtx_valtostrdup (run, a1, &len1);
str1 = qse_awk_rtx_valtocpldup (run, a1, &len1);
if (str1 == QSE_NULL)
{
if (a0->type != QSE_AWK_VAL_STR)
@ -1356,7 +1356,7 @@ static int fnc_sprintf (
}
else
{
cs0.ptr = qse_awk_rtx_valtostrdup (run, a0, &cs0.len);
cs0.ptr = qse_awk_rtx_valtocpldup (run, a0, &cs0.len);
if (cs0.ptr == QSE_NULL)
{
qse_str_fini (&fbu);

4
qse/lib/awk/rio.c
View File

@ -1,5 +1,5 @@
/*
* $Id: rio.c 89 2009-02-28 15:27:03Z hyunghwan.chung $
* $Id: rio.c 90 2009-03-01 09:58:19Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -217,7 +217,7 @@ int qse_awk_rtx_readio (
}
else
{
rs_ptr = qse_awk_rtx_valtostrdup (run, rs, &rs_len);
rs_ptr = qse_awk_rtx_valtocpldup (run, rs, &rs_len);
if (rs_ptr == QSE_NULL)
{
qse_awk_rtx_refdownval (run, rs);

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

@ -1,5 +1,5 @@
/*
* $Id: std.c 89 2009-02-28 15:27:03Z hyunghwan.chung $
* $Id: std.c 90 2009-03-01 09:58:19Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -1268,7 +1268,7 @@ static int fnc_system (qse_awk_rtx_t* run, const qse_char_t* fnm, qse_size_t fnl
}
else
{
str = qse_awk_rtx_valtostrdup (run, v, &len);
str = qse_awk_rtx_valtocpldup (run, v, &len);
if (str == QSE_NULL) return -1;
}

13
qse/lib/awk/val.c
View File

@ -1,5 +1,5 @@
/*
* $Id: val.c 89 2009-02-28 15:27:03Z hyunghwan.chung $
* $Id: val.c 90 2009-03-01 09:58:19Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -730,15 +730,6 @@ static qse_char_t* str_to_str (
}
#endif
/* TODO: current combination
no buffer => indicated by NULL, option (PRINT)
fixed buffer => indicated by FIXED, option (PRINT) => USE CPL INSTEAD, PRINT made an option
dynamic buffer => option (CLEAR, PRINT) =>
PRINT OPTION applies to real_to_str only.
how to handle CLEAR...
*/
static qse_char_t* str_to_str (
qse_awk_rtx_t* rtx, const qse_char_t* str, qse_size_t str_len,
qse_awk_rtx_valtostr_out_t* out)
@ -1129,7 +1120,7 @@ qse_char_t* qse_awk_rtx_valtostr (
return QSE_NULL;
}
qse_char_t* qse_awk_rtx_valtostrdup (
qse_char_t* qse_awk_rtx_valtocpldup (
qse_awk_rtx_t* rtx, qse_awk_val_t* v, qse_size_t* len)
{
qse_awk_rtx_valtostr_out_t out;