Return to f002545 CVS log

Up to [Plan 9 NeXT] / lucent / sys / src / 9 / port

Plan 9 NeXT

#!/bin/rc

if(! ~ $#* 1){
	echo usage: mkstreamlist file >[2=1]
	exit 1
}

fn mkextract{
	
	sed '/^$/d; /^#/d' $2 | awk '
	BEGIN { doprint=0 }
	doprint && /^[^	]/	{ doprint=0 }
	doprint			{ print "st" $1 "'.$O'" }
	$0 ~ field		{ doprint=1; next }
	' 'field=^'$1
}

mkextract stream $1

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.