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

ENH: fix upper case

Browse Source
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(found)
endif(NOT FORTRAN_C_MANGLING_FOUND) endif(NOT FORTRAN_C_MANGLING_FOUND)
foreach(f ${${FUNCTIONS}}) foreach(f ${${FUNCTIONS}})
if(${FORTRAN_C_MANGLING_UPPERCASE}) if(FORTRAN_C_MANGLING_UPPERCASE)
string(TOUPPER "${f}" ff) string(TOUPPER "${f}" f)
else() else()
string(TOLOWER "${f}" ff) string(TOLOWER "${f}" f)
endif() endif()
if("${f}" MATCHES ":") if("${f}" MATCHES ":")
string(REGEX REPLACE "(.*):(.*)" "\\1" module "${f}") 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} #define ${NAMESPACE}${module}_${function} ${FORTRAN_C_MODULE_PREFIX}${module}${FORTRAN_C_MODULE_SUFFIX}${function}
") ")
else("${f}" MATCHES ":") 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) if("${f}" MATCHES "_" AND FORTRAN_C_MANGLING_EXTRA_UNDERSCORE)
set(function "${function}_") set(function "${function}_")
endif("${f}" MATCHES "_" AND FORTRAN_C_MANGLING_EXTRA_UNDERSCORE) endif("${f}" MATCHES "_" AND FORTRAN_C_MANGLING_EXTRA_UNDERSCORE)