我可以使用什么正则表达式来修复这个非标准 Fortran 语法？

Question

我有一堆使用非标准结构符号的 Fortran 77 文件 (此处描述）：

STRUCTURE /item/
   INTEGER id
   CHARACTER(LEN=200) description
   REAL price
END STRUCTURE

这显然是一些旧编译器使用的语法，但后来在 Fortran 90 中标准化为以下内容：

TYPE item
   INTEGER id
   CHARACTER(LEN=200) description
   REAL price
END TYPE

我想做的是使用 sed 或其他一些适当的语法工具自动处理我的源文件以找到旧语法的所有使用并修补它们以使用更新的语法（即将“结构”的所有实例更改为“类型”并删除斜杠）。我确信我可以构建一些正则表达式来做到这一点，但我在这方面的技术还不够熟练，无法开始。

顺便说一句，与记录符号存在类似的不兼容性，也在链接中进行了描述：

RECORD /item/ pear, store_catalog(100)

成为：

TYPE(item) pear, store_catalog(100)

我假设也可以使用类似的技术来修复这些实例。

Answer 1

我对 Fortran 语法不太熟悉，所以我不知道如何概括这一点，但您的示例可以通过

sed 's%^STRUCTURE /\(.*\)/$%TYPE \1%;
     s%^END STRUCTURE$%END TYPE%'

注意使用 % 来分隔命令 (s，替代），模式和替换。通常您会使用 /，但这是要匹配的模式的一部分。

您的 RECORD 问题确实应该有类似的解决方案。