Return to f002542 CVS log

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

Plan 9 NeXT

#!/bin/rc

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

fn mkextract{
	
	sed '/^$/d; /^#/d' $2 | awk '
	BEGIN { doprint=0 }
	doprint && /^[^	]/	{ doprint=0 }
	doprint			{ print $1 "'.$O'"; for(i=2; i <= NF; i++)
								print $i "'.$O'"; }
	$0 ~ field		{ doprint=1; next }
	' 'field=^'$1 |sort|uniq
}

mkextract link $1

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