#! /bin/csh
setenv NEW_DIR "$PWD"
pushd /usr/lib/publisher
foreach font_set ( `ls -d *pixels` )
	pushd $font_set
	foreach resolution_set ( screen xerox300 canon300 )
		if ( -d $resolution_set ) then
		pushd $resolution_set 
		foreach resolution ( `ls -d dpi*` )
			setenv DPI "`( echo $resolution | cut -c4- )`pk"
			pushd $resolution
			foreach font ( `ls *.pk` )
				setenv FONT_NAME "`basename $font pk`"
				setenv NEW_NAME "$NEW_DIR/$FONT_NAME$DPI"
				if ( -e $NEW_NAME == 0 ) ln $font $NEW_NAME
			end
			popd
		end
		popd
		endif
	end
	popd
end
popd