kolan
/
CMake
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ENH: fix upper case

This commit is contained in:
Bill Hoffman 2008-10-29 17:37:01 -04:00
parent b0536e29ea
commit 5995ff36df
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Modules/FortranCInterface.cmake
View File

@ -187,10 +187,10 @@ function(create_fortran_c_interface NAMESPACE FUNCTIONS HEADER)
endif(found)
endif(NOT FORTRAN_C_MANGLING_FOUND)
foreach(f ${${FUNCTIONS}})
if(${FORTRAN_C_MANGLING_UPPERCASE})
string(TOUPPER "${f}" ff)
if(FORTRAN_C_MANGLING_UPPERCASE)
string(TOUPPER "${f}" f)
else()
string(TOLOWER "${f}" ff)
string(TOLOWER "${f}" f)
endif()
if("${f}" MATCHES ":")
string(REGEX REPLACE "(.*):(.*)" "\\1" module "${f}")
@ -199,7 +199,7 @@ function(create_fortran_c_interface NAMESPACE FUNCTIONS HEADER)
#define ${NAMESPACE}${module}_${function} ${FORTRAN_C_MODULE_PREFIX}${module}${FORTRAN_C_MODULE_SUFFIX}${function}
")
else("${f}" MATCHES ":")
set(function "${FORTRAN_C_PREFIX}${ff}${FORTRAN_C_SUFFIX}")
set(function "${FORTRAN_C_PREFIX}${f}${FORTRAN_C_SUFFIX}")
if("${f}" MATCHES "_" AND FORTRAN_C_MANGLING_EXTRA_UNDERSCORE)
set(function "${function}_")
endif("${f}" MATCHES "_" AND FORTRAN_C_MANGLING_EXTRA_UNDERSCORE)