mirror/autoconf
2
0
Fork 0
mirror of git://git.sv.gnu.org/autoconf synced 2025-01-18 10:45:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
* acgeneral.m4 (AC_PREFIX_PROGRAM): Use m4_toupper().
* aclang.m4 (AC_F77_FUNC): Use m4_toupper()/m4_tolower().
This commit is contained in:
Akim Demaille 2000-10-24 17:25:18 +00:00
parent a2f945e4c0
commit b60b89ed66
9 changed files with 44 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -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.

2
acgeneral.m4
View File

@ -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

4
aclang.m4
View File

@ -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

4
lib/autoconf/c.m4
View File

@ -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

4
lib/autoconf/fortran.m4
View File

@ -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

2
lib/autoconf/general.m4
View File

@ -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

4
lib/autoconf/lang.m4
View File

@ -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

14
lib/m4sugar/m4sugar.m4
View File

@ -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)
# ----------------

14
m4sugar.m4
View File

@ -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)
# ----------------