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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-09-16 12:58:38 +00:00
parent 350ec0dbc2
commit d44d550ff8
2 changed files with 33 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
ase/awk/func.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: func.c,v 1.51 2006-09-14 06:40:06 bacon Exp $ * $Id: func.c,v 1.52 2006-09-16 12:58:38 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -822,8 +822,8 @@ static int __substitute (xp_awk_t* awk, void* run, xp_long_t max_count)
xp_char_t* a2_ptr_free = XP_NULL; xp_char_t* a2_ptr_free = XP_NULL;
void* rex; void* rex;
int opt, n; int opt, n;
const xp_char_t* cur_ptr, * match_ptr; const xp_char_t* cur_ptr, * mat_ptr;
xp_size_t cur_len, match_len; xp_size_t cur_len, mat_len, i, m;
xp_awk_str_t new; xp_awk_str_t new;
xp_long_t sub_count; xp_long_t sub_count;
@ -949,7 +949,7 @@ static int __substitute (xp_awk_t* awk, void* run, xp_long_t max_count)
{ {
n = xp_awk_matchrex ( n = xp_awk_matchrex (
awk, rex, opt, cur_ptr, cur_len, awk, rex, opt, cur_ptr, cur_len,
&match_ptr, &match_len, &mat_ptr, &mat_len,
&((xp_awk_run_t*)run)->errnum); &((xp_awk_run_t*)run)->errnum);
} }
else n = 0; else n = 0;
@ -976,8 +976,8 @@ static int __substitute (xp_awk_t* awk, void* run, xp_long_t max_count)
break; break;
} }
if (xp_awk_str_ncat (&new, if (xp_awk_str_ncat (
cur_ptr, match_ptr - cur_ptr) == (xp_size_t)-1) &new, cur_ptr, mat_ptr - cur_ptr) == (xp_size_t)-1)
{ {
FREE_A0_REX (awk, rex); FREE_A0_REX (awk, rex);
xp_awk_str_close (&new); xp_awk_str_close (&new);
@ -985,18 +985,36 @@ static int __substitute (xp_awk_t* awk, void* run, xp_long_t max_count)
return -1; return -1;
} }
/*TODO: handle & */ for (i = 0; i < a1_len; i++)
if (xp_awk_str_ncat (&new, a1_ptr, a1_len) == (xp_size_t)-1) {
if ((i+1) < a1_len &&
a1_ptr[i] == XP_T('\\') &&
a1_ptr[i+1] == XP_T('&'))
{
m = xp_awk_str_ccat (&new, XP_T('&'));
i++;
}
else if (a1_ptr[i] == XP_T('&'))
{
m = xp_awk_str_ncat (&new, mat_ptr, mat_len);
}
else
{
m = xp_awk_str_ccat (&new, a1_ptr[i]);
}
if (m == (xp_size_t)-1)
{ {
FREE_A0_REX (awk, rex); FREE_A0_REX (awk, rex);
xp_awk_str_close (&new); xp_awk_str_close (&new);
FREE_A_PTRS (awk); FREE_A_PTRS (awk);
return -1; return -1;
} }
}
sub_count++; sub_count++;
cur_ptr = match_ptr + match_len; cur_ptr = mat_ptr + mat_len;
cur_len = cur_len - ((match_ptr - cur_ptr) + match_len); cur_len = cur_len - ((mat_ptr - cur_ptr) + mat_len);
} }
FREE_A0_REX (awk, rex); FREE_A0_REX (awk, rex);

1
ase/test/awk/t46.awk Normal file
View File

@ -0,0 +1 @@
BEGIN { t = "whoabcabcabcwho"; gsub ("abc", "[\\&][&][\\&]", t); print t; }