A lighter read function

["David J. Fiander" <david@golem.uucp>]

Having seen, and been shocked at, the read example that comes
with the rc sources, I decided to try to write one that doesn't
require all of awk to run.  The following function provides
exactly the same functionality as the example source, except it
uses line(1) and doesn't do the assignment if the read fails.

nl='
'
fn read {
	x=() ifs=$nl {
		x = `{line || echo 1^$nl^1; echo 0} 
		if (~ $x(2) 0) $1 = $x(1)
		return $x(2)
	}
}

--
David J. Fiander   |email [Fr., = enamel] Used attrib. in `email ink', ink
<david@golem.uucp> |used on glass, porcelain, etc.