[70025] trunk/dports/_resources/port1.0/group/texlive-1.0.tcl

[dports at macports.org]

Revision: 70025
          http://trac.macports.org/changeset/70025
Author:   dports at macports.org
Date:     2010-07-26 16:27:32 -0700 (Mon, 26 Jul 2010)
Log Message:
-----------
texlive portgroup: make texlive.exclude also exclude the contents of
any named directories

Modified Paths:
--------------
    trunk/dports/_resources/port1.0/group/texlive-1.0.tcl

Modified: trunk/dports/_resources/port1.0/group/texlive-1.0.tcl
===================================================================
--- trunk/dports/_resources/port1.0/group/texlive-1.0.tcl	2010-07-26 22:52:16 UTC (rev 70024)
+++ trunk/dports/_resources/port1.0/group/texlive-1.0.tcl	2010-07-26 23:27:32 UTC (rev 70025)
@@ -135,9 +135,24 @@
         foreach indexname $indexlist {            
             set filelist [open ${worksrcpath}/tlpkginfo/${indexname}]
             while {[gets $filelist line] >= 0} {
-                if {[lsearch -exact ${texlive.exclude} $line] >= 0} {
+                # Check if file is excluded
+                set excluded false
+                foreach excludeline ${texlive.exclude} {
+                    if {[string equal -nocase $line $excludeline]} {
+                        # file is specifically excluded
+                        set excluded true
+                        break
+                    }
+                    if {[string equal -nocase -length [expr [string length $excludeline] + 1] $line "$excludeline/"]} {
+                        # this is a file in an excluded directory
+                        set excluded true
+                        break;
+                    }
+                }
+                if {$excluded} {
                     continue
                 }
+                    
                 set srcfile ${worksrcpath}/${indexname}/$line
 
                 # check for manpages and treat specially
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100726/6a04dca5/attachment-0001.html>