reinplace loop

[Mark Brethen]

Given a directory tree

src/Mod
      |-- Arch
      |-- Assembly
      |-- Cam
      |-- CMakeFiles
      |-- Complete

In need to reinplace the CMakeLists file in each subdirectory, replacing 'Mod/(subdirectory)' with 'lib/${name}/Mod/(subdirectory). How do you write a tcl loop to accomplish this? (Avoids creating a multitude of patch files.)


Mark