#!/bin/echo Source me: .
#
# Copyright (c) 2002-2004 by Frederick Bruckman
# All rights reserved.

# Fill out installed dependents of contents of first argument,
# with no recursion. Emits <category>/<subdirectory> pairs to
# standard out.
#
fill_out_I () {
	Flag_D=yes
	saved_Flag_d=$Flag_d
	unset Flag_d
	fill_out_Dd "$1" \
	| while read dirname
	do
		pkgname=$(dir_to_pkg $dirname)
		basename=${pkgname%%-[0-9]*}
		pkg_info -e ${basename}'-[0-9]*'
	done \
	| while read pkgname
	do
		basename=${pkgname%%-[0-9]*}
		canonify ${basename}'-[0-9].*'
	done
	unset Flag_D
	if [ -n "$saved_Flag_d" ]
		then Flag_d=yes
	fi
}
