Return to getul CVS log

Up to [Research Unix] / researchv10dc / vol2 / index / tools

researchv10 Dan Cross

awk '
/^\.UL /	{
	if($0 ~ /"/){
		n=split($0,a,"\"")
		term = a[2]
	}
	else{ term = $2
		if(NF == 2){
			getline
			term = term " " $1
		}
	}
	print term
}' $1 >`basename $1`.ul

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