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

fixed the execution behavior of double patterned action block(e.g. /a/,/b/)

Browse Source
This commit is contained in:
hyung-hwan 2020-03-08 14:20:48 +00:00
parent 41dd60e4b2
commit c44525c276
1 changed files with 6 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
qse/lib/awk/run.c
View File

@ -1828,39 +1828,22 @@ static int run_pblock (qse_awk_rtx_t* rtx, qse_awk_chain_t* cha, qse_size_t bno)
v1 = eval_expression(rtx, ptn); v1 = eval_expression(rtx, ptn);
if (!v1) return -1; if (!v1) return -1;
qse_awk_rtx_refupval (rtx, v1); qse_awk_rtx_refupval (rtx, v1);
rtx->pattern_range_state[bno] = qse_awk_rtx_valtobool(rtx, v1);
if (qse_awk_rtx_valtobool(rtx, v1))
{
rtx->active_block = blk;
if (run_block(rtx, blk) <= -1)
{
qse_awk_rtx_refdownval (rtx, v1);
return -1;
}
rtx->pattern_range_state[bno] = 1;
}
qse_awk_rtx_refdownval (rtx, v1); qse_awk_rtx_refdownval (rtx, v1);
} }
else if (rtx->pattern_range_state[bno] == 1)
if (rtx->pattern_range_state[bno] == 1)
{ {
qse_awk_val_t* v2; qse_awk_val_t* v2;
v2 = eval_expression(rtx, ptn->next); v2 = eval_expression(rtx, ptn->next);
if (!v2) return -1; if (!v2) return -1;
qse_awk_rtx_refupval (rtx, v2); qse_awk_rtx_refupval (rtx, v2);
rtx->pattern_range_state[bno] = !qse_awk_rtx_valtobool(rtx, v2);
qse_awk_rtx_refdownval (rtx, v2);
rtx->active_block = blk; rtx->active_block = blk;
if (run_block(rtx, blk) <= -1) if (run_block(rtx, blk) <= -1) return -1;
{
qse_awk_rtx_refdownval(rtx, v2);
return -1;
}
if (qse_awk_rtx_valtobool(rtx, v2)) rtx->pattern_range_state[bno] = 0;
qse_awk_rtx_refdownval (rtx, v2);
} }
} }
} }