#!/bin/sh

# Copyright for the Uniform Repository Service (c) 1995, 1996, 1997,
# by Gerald Banon. All rights reserved.
# Version 1.1
# createlist

col=$1
					# .t/m1 contains the parents
cat .t/m1 | sed 's!^!'$col'/!' | sed 's!$!/.reserved/ref \\!' >.t/m2
echo cat \\ >.t/m3
echo '>' .t/m6 >.t/m4
cat .t/m3 .t/m2 .t/m4 >.t/m5
chmod +x .t/m5
.t/m5

cat .t/m6 | sed '/^$/d' >.t/m7
					# .t/m7 contains the children
cat .t/member_list .t/m7 | sort -u >.t/m8				# contains the parents and children

comm -23 .t/m8 .t/member_list >.t/m9
if test -s .t/m9
then

	cat .t/m8 >.t/member_list
	cat .t/m7 >.t/m1		# children become parents
	../doc/createlist $col
	
fi