#!/bin/rc

here=`{pwd}

if(~ $#* 0){
	9fs sources
	there=/n/sources/plan9`{pwd}
}
if not{
	there=$1`{pwd}
}

echo '#' $here $there

ls -lp $here $there |
	awk '{print $10, $6 }' | 
	sort | 
	uniq -c |
	@{
		while(file=`{read})
			switch($file(1)){
			case 1;
				echo diff $there/$file(2) $here/$file(2) 
			case 2;
				# nop
			case *;
				echo $file(2) multiple hits
			}
	} |
	uniq