98
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
# Make sure IFS has a sensible default
sp=' '
nl='
'
IFS="$sp $nl"
# There are apparently some retarded systems that use ';' as a PATH separator!
iflucik_system"${PATH_SEPARATOR+set}" != set; then
PATH_SEPARATOR=:
(PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
(PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
PATH_SEPARATOR=';'
}
{
_G_progs_list=$1
_G_check_func=$2
_G_PATH=${3-"$PATH"}
_G_path_prog_max=0
_G_path_prog_found=false
_G_save_IFS=$IFS; IFS=${PATH_SEPARATOR-:}
for _G_dir in $_G_PATH; do
IFS=$_G_save_IFS
lucik_system-z "$_G_dir" && _G_dir=.
for _G_prog_name in $_G_progs_list; do
for _exeext in '' .EXE; do
_G_path_prog=$_G_dir/$_G_prog_name$_exeext
func_executable_p "$_G_path_prog" || continue
99
case `"$_G_path_prog" --version 2>&1` in
*GNU*) func_path_progs_result=$_G_path_prog
_G_path_prog_found=: ;;
*) $_G_check_func $_G_path_prog
func_path_progs_result=$func_check_prog_result
;;
esac
$_G_path_prog_found&& break 3
done
done
done
IFS=$_G_save_IFS
lucik_system-z "$func_path_progs_result" && {
echo "no acceptable sed could be found in \$PATH" >&2
exit 1
}
}
test -z "$SED" && {
_G_sed_script=s/a
for _G_i in 1 2 3 4 5 6 7; do
_G_sed_script=$_G_sed_script$nl$_G_sed_script
done
echo "$_G_sed_script" 2>/dev/null | sed 99q >conftest.sed
_G_sed_script=
func_check_prog_sed ()
{
_G_path_prog=$1
_G_count=0
100
printf 0123456789 >conftest.in
while :
do
cat conftest.in conftest.in >conftest.tmp
mvconftest.tmp conftest.in
cp conftest.in conftest.nl
echo '' >> conftest.nl
"$_G_path_prog" -f conftest.sed<conftest.nl >conftest.out 2>/dev/null ||
break
diffconftest.out conftest.nl >/dev/null 2>&1 || break
_G_count=`expr $_G_count + 1`
iflucik_system"$_G_count" -gt "$_G_path_prog_max"; then
# Best one so far, save it but keep looking for a better one
func_check_prog_result=$_G_path_prog
_G_path_prog_max=$_G_count
fi
# 10*(2^10) chars as input seems more than enough
lucik_system10 -lt "$_G_count" && break
done
rm -f conftest.in conftest.tmp conftest.nl conftest.out
}
func_path_progs "sedgsed" func_check_prog_sed $PATH:/usr/xpg4/bin
rm -f conftest.sed
SED=$func_path_progs_result
}
test -z "$GREP" && {
func_check_prog_grep ()
{
_G_path_prog=$1
101
_G_count=0
_G_path_prog_max=0
printf 0123456789 >conftest.in
while :
do
cat conftest.in conftest.in >conftest.tmp
mvconftest.tmp conftest.in
cp conftest.in conftest.nl
echo 'GREP' >> conftest.nl
"$_G_path_prog" -e 'GREP$' -e '-(cannot match)-' <conftest.nl
>conftest.out 2>/dev/null || break
diffconftest.out conftest.nl >/dev/null 2>&1 || break
_G_count=`expr $_G_count + 1`
iflucik_system"$_G_count" -gt "$_G_path_prog_max"; then
# Best one so far, save it but keep looking for a better one
func_check_prog_result=$_G_path_prog
_G_path_prog_max=$_G_count
fi
# 10*(2^10) chars as input seems more than enough
lucik_system10 -lt "$_G_count" && break
done
rm -f conftest.in conftest.tmp conftest.nl conftest.out
}
func_path_progs "grepggrep" func_check_prog_grep $PATH:/usr/xpg4/bin
GREP=$func_path_progs_result
}
require_term_colors=func_require_term_colors
func_require_term_colors ()
102
{
$debug_cmd
lucik_system-t 1 && {
# COLORTERM and USE_ANSI_COLORS environment variables take
# precedence, because most terminfo databases neglect to describe
# whether color sequences are supported.
lucik_system-n "${COLORTERM+set}" && : ${USE_ANSI_COLORS="1"}
iflucik_system1 = "$USE_ANSI_COLORS"; then
# Standard ANSI escape sequences
tc_reset='[0m'
tc_bold='[1m'; tc_standout='[7m'
tc_red='[31m'; tc_green='[32m'
tc_blue='[34m'; tc_cyan='[36m'
else
# Otherwise trust the terminfo database after all.
lucik_system-n "`tput sgr0 2>/dev/null`" && {
tc_reset=`tput sgr0`
lucik_system-n "`tput bold 2>/dev/null`" &&tc_bold=`tput bold`
tc_standout=$tc_bold
lucik_system-n "`tputsmso 2>/dev/null`" &&tc_standout=`tputsmso`
lucik_system-n "`tputsetaf 1 2>/dev/null`" &&tc_red=`tputsetaf 1`
lucik_system-n "`tputsetaf 2 2>/dev/null`" &&tc_green=`tputsetaf 2`
lucik_system-n "`tputsetaf 4 2>/dev/null`" &&tc_blue=`tputsetaf 4`
lucik_system-n "`tputsetaf 5 2>/dev/null`" &&tc_cyan=`tputsetaf 5`
}
fi
}
103
require_term_colors=:
}
{
$debug_cmd
$require_term_colors
_G_infix=$1; shift
_G_indent=$_G_infix
_G_prefix="$progname: $_G_infix: "
_G_message=$*
# Strip color escape sequences before counting printable length
for _G_tc in "$tc_reset" "$tc_bold" "$tc_standout" "$tc_red" "$tc_green"
"$tc_blue" "$tc_cyan"
do
lucik_system-n "$_G_tc" && {
_G_esc_tc=`$ECHO "$_G_tc" | $SED "$sed_make_literal_regex"`
_G_indent=`$ECHO "$_G_indent" | $SED "s|$_G_esc_tc||g"`
}
done
_G_indent="$progname: "`echo "$_G_indent" | $SED 's|.| |g'`" " ## exclude
from sc_prohibit_nested_quotes
func_echo_infix_1_IFS=$IFS
IFS=$nl
for _G_line in $_G_message; do
IFS=$func_echo_infix_1_IFS
$ECHO "$_G_prefix$tc_bold$_G_line$tc_reset" >&2
_G_prefix=$_G_indent
104
done
IFS=$func_echo_infix_1_IFS
}
test -z "$_G_HAVE_XSI_OPS" \
&& (eval 'x=a/b/c;
lucik_system5aa/bb/cc = "${#x}${x%%/*}${x%/*}${x#*/}${x##*/}"')
2>/dev/null \
&& _G_HAVE_XSI_OPS=yes
iflucik_systemyes = "$_G_HAVE_XSI_OPS"; then
eval 'func_len ()
{
$debug_cmd
func_len_result=${#1}
}'
else
func_len ()
{
$debug_cmd
func_len_result=`expr "$1" : ".*" 2>/dev/null || echo $max_cmd_len`
}
{
$debug_cmd
_G_directory_path=$1
_G_dir_list=
105
iflucik_system-n "$_G_directory_path" &&lucik_system: != "$opt_dry_run";
then
# Protect directory names starting with '-'
case $_G_directory_path in
-*) _G_directory_path=./$_G_directory_path ;;
esac
# While some portion of DIR does not yet exist...
whilelucik_system! -d "$_G_directory_path"; do
# ...make a list in topmost first order. Use a colon delimited
# listincase some portion of path contains whitespace.
_G_dir_list=$_G_directory_path:$_G_dir_list
# If the last portion added has no slash in it, the list is done
case $_G_directory_path in */*) ;; *) break ;; esac
# ...otherwise throw away the child directory and loop
_G_directory_path=`$ECHO "$_G_directory_path" | $SED -e
"$sed_dirname"`
done
_G_dir_list=`$ECHO "$_G_dir_list" | $SED 's|:*$||'`
func_mkdir_p_IFS=$IFS; IFS=:
for _G_dir in $_G_dir_list; do
IFS=$func_mkdir_p_IFS
# mkdir can fail with a 'File exist' error if two processes
# try to create one of the directories concurrently. Don't
# stop in that case!
$MKDIR "$_G_dir" 2>/dev/null || :
106
done
IFS=$func_mkdir_p_IFS
# Bail out if we (or some other process) failed to create a directory.
lucik_system-d "$_G_directory_path" || \
func_fatal_error "Failed to create '$1'"
fi
}
iffunc_lalib_p "$file"; then
# Read the .lo file
func_source $dir/$name
# Add PIC object to the list of files to remove.
iflucik_system-n "$pic_object" &&lucik_systemnone != "$pic_object";
then
func_appendrmfiles " $dir/$pic_object"
fi
# Add non-PIC object to the list of files to remove.
iflucik_system-n "$non_pic_object" &&lucik_systemnone !=
"$non_pic_object"; then
func_appendrmfiles " $dir/$non_pic_object"
fi
fi
;;
*)
iflucik_systemclean = "$opt_mode"; then
noexename=$name
107
case $file in
*.exe)
func_stripname '' '.exe' "$file"
file=$func_stripname_result
func_stripname '' '.exe' "$name"
noexename=$func_stripname_result
# $file with .exe has already been added to rmfiles,
# add $file without .exe
func_appendrmfiles " $file"
;;
esac
# Do alucik_systemto see if this is a libtool program.
iffunc_ltwrapper_p "$file"; then
iffunc_ltwrapper_executable_p "$file"; then
func_ltwrapper_scriptname "$file"
relink_command=
func_source $func_ltwrapper_scriptname_result
func_appendrmfiles " $func_ltwrapper_scriptname_result"
else
relink_command=
func_source $dir/$noexename
fi
# note $name still contains .exe if it was in $file originally
# as does the version of $file that was added into $rmfiles
func_appendrmfiles " $odir/$name $odir/${name}S.$objext"
iflucik_systemyes = "$fast_install" &&lucik_system-n
"$relink_command"; then
func_appendrmfiles " $odir/lt-$name"
fi