qse/regress/awk/cou-019.awk

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; }
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 == 1, FNR == 5 { print basename(FILENAME) ": " $0; }`