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:
@ -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; }
|
||||
|
@ -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; }
|
||||
|
Reference in New Issue
Block a user