我正在尝试编译一个巨大的、世界知名的数值天气预报代码 - 主要用 Fortran 90 编写 - 使用cpp广泛且成功地与 PGI、Intel 和 gfortran 合作。现在,我继承了一个版本,其中专家添加了数百个可变参数宏案例。他们使用英特尔和fpp,这可能更以 Fortran 为中心,并且可以让一切正常工作。我需要使用 gfortran,但一直无法获得cpp使用新添加的代码来处理此代码。
问题的总体简化如下 -
预处理代码:
PRINT *, "Hello" // "Don"
#define adderv(...) (myadd(__VA_ARGS__))
sumv = adderv(1, 2, 3, 4, 5)
Using cpp没有-traditional
选项将处理可变参数宏,但不处理 Fortran 连接:
$ cpp -P t.F90
PRINT *, "Hello"
sumv = (myadd(1, 2, 3, 4, 5))
另一方面,使用-traditional
flag 处理连接,但不处理可变参数宏:
$ cpp -P -traditional t.F90
t.F90:2:0: error: syntax error in macro parameter list
#define adderv(...) (myadd(__VA_ARGS__))
^
PRINT *, "Hello" // "Don"
sumv = adderv(1, 2, 3, 4, 5)
我真的很难找到一种方法来促进两者的处理。
我开始玩gpp,感觉我已经很接近了,但现实是我距离解决方案可能还有很长的路要走。它不接受...
并且,它不会扩展__VA_ARGS__
。当然,以下内容不再是真正的可变参数宏......
PRINT *, "Hello" // "Don"
#define adderv() (myadd(__VA_ARGS__))
sumv = adderv(1, 2, 3, 4, 5)
$ gpp t.F90
PRINT *, "Hello" // "Don"
sumv = (myadd(__VA_ARGS__))
我在网上搜索过,但没有结果,到目前为止,我看到的最好的可能性(这让我觉得可能丑陋且痛苦)是将所有 Fortran 连接运算符分成单独的行。 IE。
PRINT *, "Hello" // "Don"
becomes
PRINT *, "Hello" /&
& / "Don"
cpp 和 gpp 的内部结构对我来说有点吓人,但如果有人看到成功的潜力并可能为我指明正确的方向,我将非常感激。重组这个巨大的代码确实不是一个选择,尽管如果我足够绝望的话,自动化策略(例如将这些连续运算符分成单独的行)可能是一个选择。
附加信息 - roygbiv 建议我尝试添加-C
旗帜。我们最近一直在抑制它,因为它似乎在 Fortran 代码中引入了许多 C 注释。好吧,我继续尝试了这个,我想我更接近了:
$ cat t.f90
PRINT *, "Hello" // "Don"
#define adderv(...) (myadd(__VA_ARGS__))
sumv = adderv(1, 2, 3, 4, 5)
当我使用 -P 和 -C 标志调用时,它自然会通过 C++(Fortran concat 运算符),但它似乎也会生成一些 C 注释的版权文本:
$ /lib/cpp -P -C t.F90
/* Copyright (C) 1991-2014 Free Software Foundation, Inc.
This file is part of the GNU C Library.
.
.
.
/* wchar_t uses ISO/IEC 10646 (2nd ed., published 2011-03-15) / Unicode 6.0. */
/* We do not support C11 <threads.h>. */
PRINT *, "Hello" // "Don"
sumv = (myadd(1, 2, 3, 4, 5))
一点点研究(去掉cpp生成的注释)表明版权的增加可能是 cpp 的一个相对较新的“功能”。
我看不到任何简单的方法来抑制这种情况,所以我想我可能需要构建一个包装脚本(例如mycpp) 如上所述调用 cpp,过滤掉任何 C 风格注释,然后将其传递到下一阶段。
这不是最优的,而且我有点怀疑,因为整个包中也有 C 代码。不过,从理论上讲,我认为最糟糕的情况是无法在预处理的 C 代码中生成注释。
如果有人知道我如何简单地抑制版权信息的生成,那么我可能会做生意。