| 82 | |
| 83 | patchfiles patch-configure.in |
| 84 | |
| 85 | post-patch { |
| 86 | # |
| 87 | # Recursively process a directory |
| 88 | # |
| 89 | proc process_dir { src_dir } { |
| 90 | foreach src_file [ glob [ file join $src_dir * ] ] { |
| 91 | if { [ file isdirectory $src_file ] } { |
| 92 | process_dir $src_file |
| 93 | } else { |
| 94 | process_file $src_file |
| 95 | } |
| 96 | } |
| 97 | } |
| 98 | |
| 99 | |
| 100 | # |
| 101 | # Process file |
| 102 | # |
| 103 | proc process_file { src_file } { |
| 104 | reinplace "s/\\<guile\\//\<guile16\\//g" $src_file |
| 105 | reinplace "s/libguile\\.h/libguile16\\.h/g" $src_file |
| 106 | } |
| 107 | |
| 108 | foreach src [ glob [ file join ${worksrcpath}/src * ] ] { |
| 109 | if { [ file isdirectory $src ] } { |
| 110 | process_dir $src |
| 111 | } else { |
| 112 | process_file $src |
| 113 | } |
| 114 | } |
| 115 | } |