现代Fortran中实现可变参数日志函数的可行性问询

你的需求完全可以实现，Fortran虽然没有原生可变参数函数，但可以通过以下两种主流方案达成目标，其中预处理器宏方案最贴合你想要的调用体验，且能适配CMake：

方案一：使用Fortran预处理器（CPP）可变参数宏 #

这是最接近你需求的方案，利用编译器自带的Fortran预处理器（多数主流编译器如Gfortran、Intel Fortran都支持），通过宏直接封装write到缓冲区的逻辑，完全模拟log_info(<变量列表>)的单行调用。

实现代码 #

日志模块（logging.f90）

module logging_mod
  implicit none
  private
  public :: log_info

  ! 定义可变参数宏：展开为写入临时缓冲区并返回修剪后的结果
#ifdef __cpp
#define log_info(...) &
  (character(len=4096) :: _log_buf; write(_log_buf, *) __VA_ARGS__; trim(adjustl(_log_buf)))
#endif

end module

用户调用代码（main.f90）

program test_logging
  use logging_mod
  implicit none
  character(len=:), allocatable :: msg

  ! 调用方式完全符合你的需求
  msg = log_info('what a great day', 12)
  print *, "格式化后日志：", msg

  msg = log_info('I wish fortran had variadic', 3.14, [1,2,3])
  print *, "格式化后日志：", msg
end program

CMake适配配置 #

在CMakeLists.txt中直接开启编译器的预处理器选项即可，无需额外工具：

cmake_minimum_required(VERSION 3.10)
project(fortran_logging)

enable_language(Fortran)

# 根据编译器类型开启预处理器
if(CMAKE_Fortran_COMPILER_ID MATCHES "GNU")
  set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fcpp")
elseif(CMAKE_Fortran_COMPILER_ID MATCHES "Intel")
  set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fpp")
endif()

add_executable(test_logger main.f90 logging.f90)

方案优势 #

• 完全支持任意数量、类型、秩的参数（只要write(*,*)能处理的都支持）
• 用户调用方式和你给出的示例完全一致
• 无需额外依赖，直接适配CMake构建流程

方案二：纯Fortran重载过程（折中方案） #

如果不想依赖预处理器，可以通过重载log_info函数实现，针对不同参数数量、类型组合编写对应的函数版本。

实现代码示例 #

module logging_mod
  implicit none
  private
  public :: log_info

  ! 定义重载接口
  interface log_info
    module procedure log_str, log_str_int, log_int_arr
  end interface

contains

! 单字符串参数版本
function log_str(arg) result(msg)
  character(len=*), intent(in) :: arg
  character(len=:), allocatable :: msg
  write(msg, *) arg
end function

! 字符串+整数参数版本
function log_str_int(arg1, arg2) result(msg)
  character(len=*), intent(in) :: arg1
  integer, intent(in) :: arg2
  character(len=:), allocatable :: msg
  write(msg, *) arg1, arg2
end function

! 整数数组参数版本
function log_int_arr(arg) result(msg)
  integer, intent(in) :: arg(:)
  character(len=:), allocatable :: msg
  write(msg, *) arg
end function

! 可继续添加更多参数组合的重载版本...
end module

方案优缺点 #

• 优点：纯Fortran实现，不依赖预处理器，兼容性好
• 缺点：需要手动编写大量重载函数，参数数量和类型组合受限，维护成本高

总结 #

• 优先选择预处理器宏方案，完全满足你的需求且适配CMake
• 若禁止使用预处理器，可采用重载过程方案折中实现

内容的提问来源于stack exchange，提问作者Re'em