hyung-hwan
3d813a1bf1
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.
7 lines
185 B
Awk
7 lines
185 B
Awk
function basename (str) {
|
|
ridx = str::rindex (str, "/");
|
|
if (ridx == 0) return str;
|
|
else return substr (str, ridx + 1);
|
|
}
|
|
FNR <= 5 { print basename(FILENAME) ": " $0; }
|