/\=/ does not require \ even in older awk

[metaconfig.git] / U / perl / uselongdbl.U

diff --git a/U/perl/uselongdbl.U b/U/perl/uselongdbl.U
index e937627..9a17542 100644 (file)
--- a/U/perl/uselongdbl.U
+++ b/U/perl/uselongdbl.U
@@ -5,7 +5,7 @@
 ?RCS: You may distribute under the terms of either the GNU General Public
 ?RCS: License or the Artistic License, as specified in the README file.
 ?RCS:
-?MAKE:uselongdouble: Myread Oldconfig Setvar cat test usemorebits d_sqrtl
+?MAKE:uselongdouble: Myread Oldconfig Setvar cat test usemorebits
 ?MAKE: -pick add $@ %<
 ?Y:TOP
 ?S:uselongdouble:
@@ -20,12 +20,10 @@
 ?H:?%<:#$uselongdouble USE_LONG_DOUBLE         /**/
 ?H:?%<:#endif
 ?H:.
-?LINT:set uselongdouble
 ?LINT:extern ccflags
-?LINT:change ccflags
 ?LINT:use usemorebits
-?LINT:use uselargefiles
 ?F:!uselongdouble.cbu
+: Check for uselongdouble support
 case "$ccflags" in
 *-DUSE_LONG_DOUBLE*|*-DUSE_MORE_BITS*) uselongdouble="$define" ;;
 esac
@@ -44,7 +42,7 @@ EOM
 rp='Try to use long doubles if available?'
 . ./myread
 case "$ans" in
-y|Y)   val="$define"   ;;
+y|Y)   val="$define"   ;;
 *)      val="$undef"   ;;
 esac
 set uselongdouble
@@ -54,31 +52,19 @@ case "$uselongdouble" in
 true|[yY]*) uselongdouble="$define" ;;
 esac
 
-case "$uselongdouble" in
-$define)
 : Look for a hint-file generated 'call-back-unit'.  If the
 : user has specified that long doubles should be used,
 : we may need to set or change some other defaults.
-       if $test -f uselongdouble.cbu; then
-               echo "Your platform has some specific hints for long doubles, using them..."
-               . ./uselongdouble.cbu
-       else
+if $test -f uselongdouble.cbu; then
+    echo "Your platform has some specific hints regarding long doubles, using them..."
+    . ./uselongdouble.cbu
+else
+    case "$uselongdouble" in
+       $define)
                $cat <<EOM
-(Your platform doesn't have any specific hints for long doubles.)
+(Your platform does not have any specific hints for long doubles.)
 EOM
-       fi
        ;;
-esac
-
-case "$uselongdouble:$d_sqrtl" in
-$define:$undef)
-               $cat <<EOM >&4
-
-You requested the use of long doubles but you do not seem to have
-the mathematic functions for long doubles.  I'm disabling the use
-of long doubles.
-EOM
-       uselongdouble=$undef
-       ;;
-esac
+    esac
+fi