Re: [9fans] Sam scripting

[erik quanstrom <quanstro@coraid.com>]

[-- Attachment #1: Type: text/plain, Size: 489 bytes --]

sure, you can use sam for scripting.  one can suppress
starting samterm with the -d option.  though this is more
like using ed in a script than sed.

i attached a unix script that i use to find people in
address files with records containing a '^NAME	' field,
delimited by newlines.  it's written for byron's rc.

there's also an "ssam" out there analogous to sed.
i believe this is the url:
	http://www.freshports.org/editors/ssam/
though i haven't checked it myself.

- erik

[-- Attachment #2: tel.sam --]
[-- Type: text/plain, Size: 482 bytes --]

#!/usr/local/bin/rc
# bugs -- case sensitive matching

nl = '
'
bookdir = $home/doc/address
book = ()

if (~ $1 -b){
	shift
	if (~ $1 /* ./ ../)
		book = $1
	else
		book = $bookdir/$1
	shift
} else {
	for (i in $bookdir/*)
		if (test -f $i)
			book = ($book $i)
}

if (~ $#* 0)
	exit 0

args = $1
shift
for (i)
	args = $args'|'$i

echo 'X:.: , x/^\n/+/(.+\n)+/ g/^NAME.*('^$args^')/ p' | \
	sam -d $book >[2] /dev/null | \
	sed '2,$ s/^NAME/\'$nl'&/g'