#!/bin/sh
#
# Replace manpages hardlinks with symlinks.

V=$(head -1 debian/changelog | sed 's/ .*//;s/tclx//')

test "$1" && verbose=true

# TclX_Main.3tclx and TkX_Main.3tclx are in different packages, make a copy
if cmp debian/tclx$V/usr/share/man/man3/{TclX_Main.3tclx,TkX_Main.3tclx}; then
    rm -f debian/tclx$V/usr/share/man/man3/TkX_Main.3tclx
    cp -p debian/tclx$V/usr/share/man/man3/{TclX_Main.3tclx,TkX_Main.3tclx}
    ln -f debian/tclx$V/usr/share/man/man3/{TkX_Main.3tclx,Tkx_Init.3tclx}
fi

inodes_with_hardlinks=$(
    find debian \( -type f -a -name \*.3tclx \) \
       | xargs ls -i | sed 's| debian/.*||' | sort | uniq -d
)

for inode in $inodes_with_hardlinks; do
    files=$(
	find debian -type f \
	   | xargs ls -i | sed "s/^/ /;/ $inode /!d; s|.* ||" | sort
    )
    target=$(echo "$files" | sed '2,$d; s|.*/||')
    links=$(echo "$files" | sed '1d')
    test "$verbose" && echo "fixing hardlinks to inode $inode ($target)"
    for link in $links; do
	test "$verbose" && echo "  ln -nfs $target $link"
	ln -nfs $target $link
    done
done

# end of file
