most recent changes, diff for guile16
Index: lang/guile16/Portfile
--- lang/guile16/Portfile (revision 35084)
+++ lang/guile16/Portfile (revision 35085)
@@ -4,7 +4,7 @@
name guile16
version 1.6.8
-revision 2
+revision 3
categories lang
maintainers nomaintainer
platforms darwin
@@ -93,36 +93,12 @@
reinplace "s|${prefix}/bin/guile|${prefix}/bin/guile16|g" ${destroot}${prefix}/bin/guile16-config
reinplace "s|libguile\\.|libguile16\\.|g" ${destroot}${prefix}/lib/libguile16.la
reinplace "s|libguile.la|libguile16.la|g" ${destroot}${prefix}/lib/libguilereadline-v-12.la
-
- #
- # Code to process the header files and modify their contents to point to guile16 files
- #
- proc process_dir { src_dir } {
- foreach src_file [ glob [ file join $src_dir * ] ] {
- if { [ file isdirectory $src_file ] } {
- process_dir $src_file
- } else {
- process_file $src_file
- }
- }
+
+ fs-traverse src_file ${destroot}${prefix}/include/ {
+ if { [ file isfile ${src_file} ] } {
+ reinplace "s|\\
+ reinplace "s|libguile\\.h|libguile16\\.h|g" $src_file
+ reinplace "s|libguile/|libguile16/|g" $src_file
+ }
}
-
- proc process_file { src_file } {
- reinplace "s|\\
- reinplace "s|libguile\\.h|libguile16\\.h|g" $src_file
- reinplace "s|libguile/|libguile16/|g" $src_file
- }
-
- proc process_path { src_path } {
- if { [ file isdirectory $src_path ] } {
- process_dir $src_path
- } else {
- process_file $src_path
- }
- }
-
- process_path ${destroot}${prefix}/include/guile16/
- process_path ${destroot}${prefix}/include/libguile16/
- process_path ${destroot}${prefix}/include/libguile16.h
- process_path ${destroot}${prefix}/include/guile-readline/readline.h
}