* m4sugar.m4: (m4_tolower, m4_toupper): New macros.

* acgeneral.m4 (AC_PREFIX_PROGRAM): Use m4_toupper().
* aclang.m4 (AC_F77_FUNC): Use m4_toupper()/m4_tolower().

diff --git a/ChangeLog b/ChangeLog
index 0cf722dfa9fe2c4a6286c328541b59ffcd7afccd..c2f0685bf57e0694e1bfea960e654af004a23bf7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-24  Lars J. Aas  <larsa@sim.no>
+
+       * m4sugar.m4: (m4_tolower, m4_toupper): New macros.
+       * acgeneral.m4 (AC_PREFIX_PROGRAM): Use m4_toupper().
+       * aclang.m4 (AC_F77_FUNC): Use m4_toupper()/m4_tolower().
+
 2000-10-24  Pavel Roskin  <proski@gnu.org>
 
        * m4sugar.m4 (m4_quote): Comment change.

diff --git a/acgeneral.m4 b/acgeneral.m4
index adf067c455179a0af5da600e3ec55dac2c6a59c5..dfa09f8ab22ac699ebcef329854d0c5138712fdf 100644 (file)
--- a/acgeneral.m4
+++ b/acgeneral.m4
@@ -3271,7 +3271,7 @@ fi
 # No big loss, I think, since most configures don't use this macro anyway.
 AC_DEFUN([AC_PREFIX_PROGRAM],
 [dnl Get an upper case version of $[1].
-pushdef([AC_Prog], translit([$1], [a-z], [A-Z]))dnl
+pushdef([AC_Prog], m4_toupper([$1]))dnl
 if test "x$prefix" = xNONE; then
 dnl We reimplement AC_MSG_CHECKING (mostly) to avoid the ... in the middle.
   echo $ECHO_N "checking for prefix by $ECHO_C" >&AC_FD_MSG

diff --git a/aclang.m4 b/aclang.m4
index e1f754de40efd59fd3e7bb9a92bc5b17f7a6b7e8..51fbe0cde6435b9e29a4607a40b63959be1a4693 100644 (file)
--- a/aclang.m4
+++ b/aclang.m4
@@ -1733,8 +1733,8 @@ esac
 AC_DEFUN([AC_F77_FUNC],
 [AC_REQUIRE([_AC_F77_NAME_MANGLING])dnl
 case $ac_cv_f77_mangling in
-  upper*) ac_val="translit([$1],[a-z],[A-Z])" ;;
-  lower*) ac_val="translit([$1],[A-Z],[a-z])" ;;
+  upper*) ac_val="m4_toupper([$1])" ;;
+  lower*) ac_val="m4_tolower([$1])" ;;
   *)      ac_val="unknown" ;;
 esac
 case $ac_cv_f77_mangling in *," underscore"*) ac_val="$ac_val"_ ;; esac

diff --git a/lib/autoconf/c.m4 b/lib/autoconf/c.m4
index e1f754de40efd59fd3e7bb9a92bc5b17f7a6b7e8..51fbe0cde6435b9e29a4607a40b63959be1a4693 100644 (file)
--- a/lib/autoconf/c.m4
+++ b/lib/autoconf/c.m4
@@ -1733,8 +1733,8 @@ esac
 AC_DEFUN([AC_F77_FUNC],
 [AC_REQUIRE([_AC_F77_NAME_MANGLING])dnl
 case $ac_cv_f77_mangling in
-  upper*) ac_val="translit([$1],[a-z],[A-Z])" ;;
-  lower*) ac_val="translit([$1],[A-Z],[a-z])" ;;
+  upper*) ac_val="m4_toupper([$1])" ;;
+  lower*) ac_val="m4_tolower([$1])" ;;
   *)      ac_val="unknown" ;;
 esac
 case $ac_cv_f77_mangling in *," underscore"*) ac_val="$ac_val"_ ;; esac

diff --git a/lib/autoconf/fortran.m4 b/lib/autoconf/fortran.m4
index e1f754de40efd59fd3e7bb9a92bc5b17f7a6b7e8..51fbe0cde6435b9e29a4607a40b63959be1a4693 100644 (file)
--- a/lib/autoconf/fortran.m4
+++ b/lib/autoconf/fortran.m4
@@ -1733,8 +1733,8 @@ esac
 AC_DEFUN([AC_F77_FUNC],
 [AC_REQUIRE([_AC_F77_NAME_MANGLING])dnl
 case $ac_cv_f77_mangling in
-  upper*) ac_val="translit([$1],[a-z],[A-Z])" ;;
-  lower*) ac_val="translit([$1],[A-Z],[a-z])" ;;
+  upper*) ac_val="m4_toupper([$1])" ;;
+  lower*) ac_val="m4_tolower([$1])" ;;
   *)      ac_val="unknown" ;;
 esac
 case $ac_cv_f77_mangling in *," underscore"*) ac_val="$ac_val"_ ;; esac

diff --git a/lib/autoconf/general.m4 b/lib/autoconf/general.m4
index adf067c455179a0af5da600e3ec55dac2c6a59c5..dfa09f8ab22ac699ebcef329854d0c5138712fdf 100644 (file)
--- a/lib/autoconf/general.m4
+++ b/lib/autoconf/general.m4
@@ -3271,7 +3271,7 @@ fi
 # No big loss, I think, since most configures don't use this macro anyway.
 AC_DEFUN([AC_PREFIX_PROGRAM],
 [dnl Get an upper case version of $[1].
-pushdef([AC_Prog], translit([$1], [a-z], [A-Z]))dnl
+pushdef([AC_Prog], m4_toupper([$1]))dnl
 if test "x$prefix" = xNONE; then
 dnl We reimplement AC_MSG_CHECKING (mostly) to avoid the ... in the middle.
   echo $ECHO_N "checking for prefix by $ECHO_C" >&AC_FD_MSG

diff --git a/lib/autoconf/lang.m4 b/lib/autoconf/lang.m4
index e1f754de40efd59fd3e7bb9a92bc5b17f7a6b7e8..51fbe0cde6435b9e29a4607a40b63959be1a4693 100644 (file)
--- a/lib/autoconf/lang.m4
+++ b/lib/autoconf/lang.m4
@@ -1733,8 +1733,8 @@ esac
 AC_DEFUN([AC_F77_FUNC],
 [AC_REQUIRE([_AC_F77_NAME_MANGLING])dnl
 case $ac_cv_f77_mangling in
-  upper*) ac_val="translit([$1],[a-z],[A-Z])" ;;
-  lower*) ac_val="translit([$1],[A-Z],[a-z])" ;;
+  upper*) ac_val="m4_toupper([$1])" ;;
+  lower*) ac_val="m4_tolower([$1])" ;;
   *)      ac_val="unknown" ;;
 esac
 case $ac_cv_f77_mangling in *," underscore"*) ac_val="$ac_val"_ ;; esac

diff --git a/lib/m4sugar/m4sugar.m4 b/lib/m4sugar/m4sugar.m4
index fa623eb0af52448a968352095db159270a92e25b..53107395c5091eccbfe485b363ec6527e03c740b 100644 (file)
--- a/lib/m4sugar/m4sugar.m4
+++ b/lib/m4sugar/m4sugar.m4
@@ -467,6 +467,20 @@ define([_m4_foreach],
 ## Text processing.  ##
 ## ----------------- ##
 
+# m4_tolower(STRING)
+# m4_toupper(STRING)
+# ------------------
+# These macros lowercase and uppercase strings.
+define([m4_tolower],
+[translit([$1],
+          [ABCDEFGHIJKLMNOPQRSTUVWXYZ],
+          [abcdefghijklmnopqrstuvwxyz])])
+
+define([m4_toupper],
+[translit([$1],
+          [abcdefghijklmnopqrstuvwxyz],
+          [ABCDEFGHIJKLMNOPQRSTUVWXYZ])])
+
 
 # m4_quote(STRING)
 # ----------------

diff --git a/m4sugar.m4 b/m4sugar.m4
index fa623eb0af52448a968352095db159270a92e25b..53107395c5091eccbfe485b363ec6527e03c740b 100644 (file)
--- a/m4sugar.m4
+++ b/m4sugar.m4
@@ -467,6 +467,20 @@ define([_m4_foreach],
 ## Text processing.  ##
 ## ----------------- ##
 
+# m4_tolower(STRING)
+# m4_toupper(STRING)
+# ------------------
+# These macros lowercase and uppercase strings.
+define([m4_tolower],
+[translit([$1],
+          [ABCDEFGHIJKLMNOPQRSTUVWXYZ],
+          [abcdefghijklmnopqrstuvwxyz])])
+
+define([m4_toupper],
+[translit([$1],
+          [abcdefghijklmnopqrstuvwxyz],
+          [ABCDEFGHIJKLMNOPQRSTUVWXYZ])])
+
 
 # m4_quote(STRING)
 # ----------------