# @HEADER
# *****************************************************************************
#            TriBITS: Tribal Build, Integrate, and Test System
#
# Copyright 2013-2016 NTESS and the TriBITS contributors.
# SPDX-License-Identifier: BSD-3-Clause
# *****************************************************************************
# @HEADER

# Function that defines variables describing the BLAS name mangling convention
#
# Sets the following outputs on success:
#
#  BLAS_FN_CASE
#    "UPPER" if names are translated to upper-case,
#    "LOWER" otherwise.
#
#  BLAS_FN_UNDERSCORE
#    "NO_UNDER" if nothing is appended, "UNDER" if
#    one underscore is appended, and "SECOND_UNDER"
#    if a function with an underscore has a second
#    appended.
#
# BLAS_FUNC_DEFAULT
#    The default mangling for Fortran functions
#    that do not contain an underscore.
#
#  The Fortran 2003 name binding facilities and ISO_C_BINDING module
#  should be preferred over cpp macro trickery whenever possible.
#
function(blas_mangling)

  if(NOT DEFINED BLAS_FN_CASE)

    if (${PROJECT_NAME}_VERBOSE_CONFIGURE)
      message("BLAS_MANGLING: Testing name Mangling Schemes!\n")
    endif()

    find_file(_blascmakelists blasmangle/ ${CMAKE_MODULE_PATH})
    if (NOT _blascmakelists)
      message(STATUS "Error, the file blasmangle could not be found so we can not determine Fortran name mangling!")
      return()
    endif()

    set(_fcmangledir ${PROJECT_BINARY_DIR}/CMakeFiles/CMakeTmp/blasmangle)
    file(MAKE_DIRECTORY ${_fcmangledir})

    foreach(cdef LOWER UPPER)

      foreach(udef UNDER NO_UNDER)

        if (${PROJECT_NAME}_VERBOSE_CONFIGURE)
          message("BLAS_MANGLING: Testing ${cdef} ${udef}\n\n")
        endif()

        set(_fcmangledir_case "${_fcmangledir}/${cdef}/${udef}")
        file(MAKE_DIRECTORY "${_fcmangledir}/${cdef}")
        file(MAKE_DIRECTORY ${_fcmangledir_case})

        try_compile(_blasmngl ${_fcmangledir_case} ${_blascmakelists} blasmangle
          CMAKE_FLAGS "-DMANGLE_FLAGS:STRING=-DFC_FN_${cdef};-DFC_FN_${udef}"
          OUTPUT_VARIABLE _blasmngl_output
          )
        if (${PROJECT_NAME}_VERBOSE_CONFIGURE)
          message("${_blasmngl_output}\n\n")
        endif()

        if(_blasmngl)
          if (${PROJECT_NAME}_VERBOSE_CONFIGURE)
            message("BLAS_MANGLING: Bingo!  ${cdef} ${udef} is the correct BLAS name mangling!\n")
          endif()
          set(BLAS_FN_CASE ${cdef} CACHE INTERNAL
            "Case used by Fortran functions" FORCE)
          set(BLAS_FN_UNDERSCORE ${udef} CACHE INTERNAL
            "Underscore convention used by Fortran functions" FORCE)
          break()
        endif()

      endforeach()

      if(_blasmngl)
        break()
      endif()

    endforeach()

    if(_blasmngl)
      message(STATUS "BLAS name mangling: ${BLAS_FN_CASE} ${BLAS_FN_UNDERSCORE}")
    else()
      message(STATUS "Warning, cannot automatically determine BLAS mangling.")
    endif()

  endif()

  if (BLAS_FN_CASE STREQUAL LOWER)
    set(BLAS_NAME_NAME name)
  elseif (BLAS_FN_CASE STREQUAL UPPER)
    set(BLAS_NAME_NAME NAME)
  endif()

  if (BLAS_FN_UNDERSCORE)
    if(BLAS_FN_UNDERSCORE STREQUAL "UNDER")
      set(BLAS_FUNC_DEFAULT "(name,NAME) ${BLAS_NAME_NAME} ## _" CACHE INTERNAL "")
    else()
      set(BLAS_FUNC_DEFAULT "(name,NAME) ${BLAS_NAME_NAME}" CACHE INTERNAL "")
    endif()
  endif()

endfunction()