delphi - Ant 构建可查找应用程序并迭代它们

Question

我使用 Ant 构建 Delphi 应用程序(从 CruiseControl 调用)。

我希望 ant 递归地搜索目录树以查找文件 *.dpr，并在找到时调用第二个 build.xml，或者最好是宏或目标，将每个找到的文件名作为“参数”传递。我发现我可以使用 subant 查找 build.xml 文件并按顺序运行它们，但这不是我想要的，因为我想避免为每个应用程序创建 build.xml 的需要。

我试图避免的是必须在 build.xml 中逐项列出我的应用程序，而是让 ant 找到它们。

请不要告诉我使用不同的构建工具，因为我们已经在使用 Ant 方面进行了大量投资。

Answer 1

如果您使用ant-contrib ，您可以使用 for 循环:

<for param="file">
  <fileset dir="${process.dir}" includes="**/*.dpr" />
  <sequential>
    <ant antfile="subbuild.xml">
      <property name="in" value="@{file}"/>                            
    </ant>
  </sequential>
</for>      

您还可以使用此方法调用宏或目标。