| | 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 | } |