# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
#
-# Generated on Mon Sep 20 12:57:28 EET DST 1999 [metaconfig 3.0 PL70]
+# Generated on Mon Sep 20 22:45:40 EET DST 1999 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by perlbug@perl.com)
cat >/tmp/c1$$ <<EOF
shift
xxx=''
yyy="$1"
- case "$yyy" in
- *:*) xxx=`echo $yyy|sed 's!:.*!!'`
- yyy=`echo $yyy|sed 's!^[^:]*:!!'`
- ;;
- esac
- case "$xxx" in
- '') xxx=define ;;
- esac
zzz=''
- uuu='undef'
+ uuu=undef
case "$yyy" in
- *=*) zzz=`echo $yyy|sed 's!^[^=]*=!!'`
- yyy=`echo $yyy|sed 's!=.*!!'`
- case "$yyy:$zzz" in
- undef:) uuu='' ;;
- esac
- ;;
- esac
+ *=*) zzz=`echo $yyy|sed 's!=.*!!'`
+ case "$zzz" in
+ *:*) zzz='' ;;
+ *) xxx=append
+ zzz=" "`echo $yyy|sed 's!^[^=]*=!!'`
+ yyy=`echo $yyy|sed 's!=.*!!'` ;;
+ esac
+ ;;
+ esac
+ case "$xxx" in
+ '') case "$yyy" in
+ *:*) xxx=`echo $yyy|sed 's!:.*!!'`
+ yyy=`echo $yyy|sed 's!^[^:]*:!!'`
+ zzz=`echo $yyy|sed 's!^[^=]*=!!'`
+ yyy=`echo $yyy|sed 's!=.*!!'` ;;
+ *) xxx=`echo $yyy|sed 's!:.*!!'`
+ yyy=`echo $yyy|sed 's!^[^:]*:!!'` ;;
+ esac
+ ;;
+ esac
case "$xxx" in
append)
- echo "$yyy=\"\${$yyy}$zzz\"" >> posthint.sh
- ;;
+ echo "$yyy=\"\${$yyy}$zzz\"" >> posthint.sh ;;
clear)
- echo "$yyy=''" >> posthint.sh
- ;;
+ echo "$yyy=''" >> posthint.sh ;;
define)
case "$zzz" in
'') zzz=define ;;
esac
- echo "$yyy='$zzz'" >> posthint.sh
- ;;
+ echo "$yyy='$zzz'" >> posthint.sh ;;
eval)
- echo "eval \"$yyy=$zzz\"" >> posthint.sh
- ;;
+ echo "eval \"$yyy=$zzz\"" >> posthint.sh ;;
prepend)
- echo "$yyy=\"$zzz\${$yyy}\"" >> posthint.sh
- ;;
+ echo "$yyy=\"$zzz\${$yyy}\"" >> posthint.sh ;;
undef)
case "$zzz" in
'') zzz="$uuu" ;;
esac
- echo "$yyy=$zzz" >> posthint.sh
- ;;
- *) echo "$me: unknown -A command '$xxx', ignoring -A $1" >&2
- ;;
+ echo "$yyy=$zzz" >> posthint.sh ;;
+ *) echo "$me: unknown -A command '$xxx', ignoring -A $1" >&2 ;;
esac
;;
-V) echo "$me generated by metaconfig 3.0 PL70." >&2
- exit 0;;
+ exit 0;;
--) break;;
-*) echo "$me: unknown option $1" >&2; shift; error=true;;
*) break;;
-U symbol symbol gets the value 'undef'
-U symbol= symbol gets completely empty
-A : manipulate symbol after the platform specific hints have been applied:
+ -A symbol=value append " "value to symbol
-A append:symbol=value append value to symbol
-A define:symbol=value define symbol to have value
- -A symbol=value define symbol to have value
-A clear:symbol define symbol to be ''
-A define:symbol define symbol to be 'define'
-A eval:symbol=value define symbol to be eval of value
. ./optdef.sh
: create the posthint manipulation script and leave the file out there...
touch posthint.sh
-. ./posthint.sh
: set package name
package=perl5