diff --git a/ase/awk/run.c b/ase/awk/run.c index fa2e238f..79b4dab3 100644 --- a/ase/awk/run.c +++ b/ase/awk/run.c @@ -1,5 +1,5 @@ /* - * $Id: run.c,v 1.290 2006-12-04 06:04:07 bacon Exp $ + * $Id: run.c,v 1.291 2006-12-04 06:28:56 bacon Exp $ */ #include @@ -4067,6 +4067,7 @@ static ase_awk_val_t* __eval_binop_nm ( ase_awk_refupval (run, rv); +wprintf (L"STRING: [%S]\n", ((ase_awk_val_str_t*)lv)->buf); res = __eval_binop_match0 (run, lv, rv, 0); ase_awk_refdownval (run, lv); diff --git a/ase/test/awk/cou-004.awk b/ase/test/awk/cou-004.awk new file mode 100644 index 00000000..df559a9f --- /dev/null +++ b/ase/test/awk/cou-004.awk @@ -0,0 +1 @@ +$0 >= "M" diff --git a/ase/test/awk/cou-005.awk b/ase/test/awk/cou-005.awk new file mode 100644 index 00000000..d609c02f --- /dev/null +++ b/ase/test/awk/cou-005.awk @@ -0,0 +1 @@ +$1 < $4 diff --git a/ase/test/awk/cou-006.awk b/ase/test/awk/cou-006.awk new file mode 100644 index 00000000..19ab3b3c --- /dev/null +++ b/ase/test/awk/cou-006.awk @@ -0,0 +1 @@ +$2 < $3 diff --git a/ase/test/awk/cou-007.awk b/ase/test/awk/cou-007.awk new file mode 100644 index 00000000..d583cd82 --- /dev/null +++ b/ase/test/awk/cou-007.awk @@ -0,0 +1 @@ +/Asia/ diff --git a/ase/test/awk/cou-008.awk b/ase/test/awk/cou-008.awk new file mode 100644 index 00000000..43069847 --- /dev/null +++ b/ase/test/awk/cou-008.awk @@ -0,0 +1 @@ +$4 ~ /Asia/ diff --git a/ase/test/awk/cou-009.awk b/ase/test/awk/cou-009.awk new file mode 100644 index 00000000..9a6a6bc6 --- /dev/null +++ b/ase/test/awk/cou-009.awk @@ -0,0 +1 @@ +$4 !~ /Asia/ diff --git a/ase/test/awk/cou-010.awk b/ase/test/awk/cou-010.awk new file mode 100644 index 00000000..c3651638 --- /dev/null +++ b/ase/test/awk/cou-010.awk @@ -0,0 +1 @@ +$0 ~ /Asia/ diff --git a/ase/test/awk/cou-011.awk b/ase/test/awk/cou-011.awk new file mode 100644 index 00000000..23b93b5a --- /dev/null +++ b/ase/test/awk/cou-011.awk @@ -0,0 +1 @@ +$2 !~ /^[0-9]+$]/