103 lines
1.8 KiB
Plaintext
Executable File
103 lines
1.8 KiB
Plaintext
Executable File
XCOMM!/bin/ksh
|
|
XCOMM $TOG: configShlibs.src /main/1 1998/03/11 16:18:33 mgreess $
|
|
|
|
#define STAR *
|
|
|
|
XCOMM ############################################
|
|
RemoveShlibFiles()
|
|
{
|
|
while read -r SRC
|
|
do
|
|
if [ "$SRC" != "" ]
|
|
then
|
|
rm -f "$SRC"
|
|
dirname=${SRC%/STAR}
|
|
if [ -d "$dirname" ]
|
|
then
|
|
cd "$dirname" || exit
|
|
while [ "$dirname" != "$CDE_TOP" ]
|
|
do
|
|
cd ..
|
|
rmdir "${dirname##STAR/}" >/dev/null 2>/dev/null
|
|
dirname=${dirname%/STAR}
|
|
done
|
|
fi
|
|
fi
|
|
done <<-EOF
|
|
#include "CDE-SHLIBS.list"
|
|
EOF
|
|
}
|
|
|
|
VerifyInstalledFiles()
|
|
{
|
|
echo "Status mode owner group filename"
|
|
echo "-----------------------------------------"
|
|
XCOMM exists correct correct correct /usr/dt/foo1
|
|
XCOMM MISSING WRONG WRONG WRONG /usr/dt/foo2
|
|
XCOMM exists the link is correct /usr/dt/link
|
|
|
|
while read -r SRC
|
|
do
|
|
#include "../verify.func"
|
|
done <<-EOF
|
|
#include "CDE-SHLIBS.lst"
|
|
EOF
|
|
}
|
|
|
|
#include "../option.func"
|
|
|
|
MakeTheLink()
|
|
{
|
|
XCOMM
|
|
XCOMM Usage: configTT
|
|
XCOMM
|
|
XCOMM creates links in the install tree libtt.so -> libtt.so.1
|
|
XCOMM
|
|
|
|
cd CDE_INSTALLATION_TOP/lib || exit
|
|
|
|
for lib in $(/bin/ls lib*.so.*)
|
|
do
|
|
link=$(echo "$lib" | cut -d. -f1,2)
|
|
|
|
rm -f "$link"
|
|
ln -s "$lib" "$link"
|
|
|
|
done
|
|
|
|
}
|
|
|
|
XCOMM #########################################################################
|
|
XCOMM
|
|
XCOMM Main Body
|
|
XCOMM
|
|
XCOMM #########################################################################
|
|
|
|
retval=0
|
|
CDE_TOP=CDE_INSTALLATION_TOP
|
|
|
|
HandleOption $*
|
|
|
|
if [ "$OPERATION" = "deconfigure" ]
|
|
then
|
|
|
|
echo "de-Configuring for CDE-SHLIBS..."
|
|
|
|
RemoveShlibFiles
|
|
|
|
VerifyInstalledFiles
|
|
|
|
elif [ "$OPERATION" = "configure" ]
|
|
then
|
|
|
|
MakeTheLink
|
|
|
|
elif [ "$OPERATION" = "verify" ]
|
|
then
|
|
|
|
VerifyInstalledFiles
|
|
|
|
fi
|
|
|
|
return $retval
|