qse/regress/awk/cou-020.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; }
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. 2013-04-16 15:30:37 +00:00			`function basename (str) {`
			`ridx = str::rindex (str, "/");`
			`if (ridx == 0) return str;`
			`else return substr (str, ridx + 1);`
			`}`
			`FNR <= 5 { print basename(FILENAME) ": " $0; }`