能够自我复制并且有用的程序——不是 quine

Question

我有一个执行有用任务的程序。现在，除了执行原始任务之外，我还想在编译的可执行文件运行时生成纯文本源代码。这不是奎因，但可能是相关的。

此功能通常很有用，但我的特定程序是用 Fortran 90 编写的并使用 Mako 模板。编译后，它可以访问原始源代码文件，但我希望能够确保用户运行可执行文件时源存在。

这有可能实现吗？

下面是一个执行简单任务的简单 Fortran 90 示例。

program exampl
  implicit none
  write(*,*) 'this is my useful output'
end program exampl

是否可以修改此程序，使其执行相同的任务（编译时输出字符串）并输出包含源代码的 Fortran 90 文本文件？

提前致谢

Answer 1

我已经很久没有接触过 Fortran（而且我从未处理过 Fortran 90），所以我不确定，但我看到了一种基本方法，只要该语言支持代码中的字符串文字，就应该有效。

将整个程序包含在一个文字块中。显然，您不能在其中包含文字，而是需要某种标记来告诉您的程序包含文字块。

显然，这意味着您有源代码的两份副本，一份位于另一份内部。因为这很丑陋，所以我不会这样做，而是将源代码与 include_me 令牌一起存储在其中，并通过在编译之前构建嵌套文件的程序运行它。请注意，该程序将与从文字块重新创建代码的例程共享大量代码。如果您打算走这条路，我也会让程序吐出该程序的源代码，这样任何试图修改文件的人都不需要处理两个副本。

Answer 2

我的原始程序（参见问题）已编辑：添加一个包含语句

调用此文件“exampl.f90”

program exampl
  implicit none
  write(*,*) "this is my useful output"
  open(unit=2,file="exampl_out.f90")
  include "exampl_source.f90"
  close(2)
end program exampl

然后另一个程序（在本例中用Python编写）读取该源

import os
f=open('exampl.f90') # read in exampl.f90
g=open('exampl_source.f90','w') # and replace each line with write(*,*) 'line'
for line in f:
  #print 'write(2,*) \''+line.rstrip()+'\'\n',
  g.write('write(2,*) \''+line.rstrip()+'\'\n')
f.close
g.close
# then complie exampl.f90 (which includes exampl_source.f90)
os.system('gfortran exampl.f90')
os.system('/bin/rm exampl_source.f90')

运行此python脚本会生成一个可执行文件。当可执行文件运行时，它执行原始任务并打印源代码。