如何设置并访问Fortran自定义预处理器变量？

核心结论 #

完全可以通过自定义预处理器变量GUI来拆分GUI与无GUI逻辑，你需要通过编译器命令行或构建工具来定义这个宏。

具体实现方法 #

1. 直接通过编译器命令行定义 #

你使用的!DEC$是Intel Fortran编译器（ifort/ifx）的专用预处理器指令，直接在编译时添加对应参数即可定义GUI宏：

• Windows平台构建带GUI版本：

  ifort /DGUI your_source.f90
  

• Windows平台构建无GUI版本：

  ifort your_source.f90
  

• Linux平台构建带GUI版本：

  ifx -DGUI your_source.f90
  

• Linux平台构建无GUI版本：

  ifx your_source.f90
  

2. 结合平台判断的代码结构 #

可以将平台判断与GUI判断嵌套，同时处理平台差异和GUI逻辑：

!DEC$ IF DEFINED(_WIN32)
    ! Windows通用逻辑（如文件路径、系统调用）
    !DEC$ IF DEFINED(GUI)
        ! Windows GUI专属代码（如调用Win32 API、链接GUI库）
    !DEC$ ELSE
        ! Windows无GUI终端代码
    !DEC$ ENDIF
!DEC$ ELSEIF DEFINED(__linux)
    ! Linux通用逻辑（如权限、系统调用）
    !DEC$ IF DEFINED(GUI)
        ! Linux GUI专属代码（如GTK/Qt绑定）
    !DEC$ ELSE
        ! Linux无GUI终端代码
    !DEC$ ENDIF
!DEC$ ENDIF

3. 使用构建工具（如CMake）简化配置 #

如果项目规模较大，推荐用CMake统一管理构建流程，添加可配置选项：

# 添加GUI构建选项，默认开启
option(BUILD_GUI "Build application with GUI support" ON)

# 创建可执行文件
add_executable(your_fortran_app src/main.f90 src/utils.f90)

# 根据选项定义GUI宏
if(BUILD_GUI)
    target_compile_definitions(your_fortran_app PRIVATE GUI)
endif()

# 平台相关的库链接（示例）
if(WIN32)
    if(BUILD_GUI)
        # 链接Windows GUI库，如user32.lib
        target_link_libraries(your_fortran_app PRIVATE user32)
    endif()
elseif(UNIX)
    if(BUILD_GUI)
        # 链接Linux GUI库，如GTK3
        find_package(PkgConfig REQUIRED)
        pkg_check_modules(GTK3 REQUIRED gtk+-3.0)
        target_include_directories(your_fortran_app PRIVATE ${GTK3_INCLUDE_DIRS})
        target_link_libraries(your_fortran_app PRIVATE ${GTK3_LIBRARIES})
    endif()
endif()

使用时只需通过CMake参数选择构建版本：

# 构建带GUI版本
cmake -S . -B build -DBUILD_GUI=ON
# 构建无GUI版本
cmake -S . -B build -DBUILD_GUI=OFF

注意事项 #

• 若后续需要兼容GCC的gfortran编译器，可将Intel专用的!DEC$ IF DEFINED(...)替换为标准Fortran预处理器指令!IFDEF GUI或#ifdef GUI，提升兼容性。
• 若需给宏赋值（如GUI=2），可使用-DGUI=2（Linux）或/DGUI=2（Windows），代码中通过!DEC$ IF GUI == 2判断。

内容的提问来源于stack exchange，提问作者byl