[35085] trunk/dports/lang/guile16/Portfile

reiffert at macports.org reiffert at macports.org
Sun Mar 16 16:14:05 PDT 2008


Revision: 35085
          http://trac.macosforge.org/projects/macports/changeset/35085
Author:   reiffert at macports.org
Date:     2008-03-16 16:14:03 -0700 (Sun, 16 Mar 2008)

Log Message:
-----------
Fixes many references to guile instead of guile16. Fixes #14296.

Modified Paths:
--------------
    trunk/dports/lang/guile16/Portfile

Modified: trunk/dports/lang/guile16/Portfile
===================================================================
--- trunk/dports/lang/guile16/Portfile	2008-03-16 22:50:18 UTC (rev 35084)
+++ trunk/dports/lang/guile16/Portfile	2008-03-16 23:14:03 UTC (rev 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|\\<guile\\/|\\<guile16\\/|g"   $src_file
+				reinplace "s|libguile\\.h|libguile16\\.h|g" $src_file
+				reinplace "s|libguile/|libguile16/|g"       $src_file
+			 }
 		  }
-
-		  proc process_file { src_file } {
-		     reinplace "s|\\<guile\\/|\<guile16\\/|g"    $src_file
-		     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
 	}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080316/e3a4fc2b/attachment.html


More information about the macports-changes mailing list