amended the reference handling in Awk.cpp.

added str::index() and str::rindex().
enhanded qse_awk_rtx_valtobool().
removed QSE_AWK_NCMPONSTR from QSE_AWK_CLASSIC.
added QSE_AWK_NCMPONSTR to QSE_AWK_MODERN.
This commit is contained in:
2013-04-16 15:30:37 +00:00
parent 23d316a659
commit 3d813a1bf1
6 changed files with 190 additions and 54 deletions

View File

@ -1 +1,7 @@
FNR == 1, FNR == 5 { print FILENAME ": " $0; }
function basename (str) {
ridx = str::rindex (str, "/");
if (ridx == 0) return str;
else return substr (str, ridx + 1);
}
FNR == 1, FNR == 5 { print basename(FILENAME) ": " $0; }

View File

@ -1 +1,6 @@
FNR <= 5 { print FILENAME ": " $0; }
function basename (str) {
ridx = str::rindex (str, "/");
if (ridx == 0) return str;
else return substr (str, ridx + 1);
}
FNR <= 5 { print basename(FILENAME) ": " $0; }