[136722] trunk/dports/_resources/port1.0/group/select-1.0.tcl

[larryv at macports.org]

Revision: 136722
          https://trac.macports.org/changeset/136722
Author:   larryv at macports.org
Date:     2015-05-24 21:31:35 -0700 (Sun, 24 May 2015)
Log Message:
-----------
select-1.0: Allow relative paths for files in `filespath`

This lets ports reference their select files by filename alone. Thus,
this "port"...

    PortGroup       select 1.0
    ...
    select.group    foo
    select.file     ${filespath}/bar

... can now be written as...

    PortGroup       select 1.0
    ...
    select.group    foo
    select.file     bar

Absolute paths may still be used if desired.

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

Modified: trunk/dports/_resources/port1.0/group/select-1.0.tcl
===================================================================
--- trunk/dports/_resources/port1.0/group/select-1.0.tcl	2015-05-25 04:31:33 UTC (rev 136721)
+++ trunk/dports/_resources/port1.0/group/select-1.0.tcl	2015-05-25 04:31:35 UTC (rev 136722)
@@ -41,9 +41,13 @@
 namespace eval select {}
 
 proc select::install {group file {name ""}} {
-    global applications_dir destroot developer_dir \
+    global applications_dir destroot developer_dir filespath \
             frameworks_dir prefix
 
+    if {[file pathtype $file] eq "relative"} {
+        set file ${filespath}/$file
+    }
+
     # Optional argument specifies file name
     if {$name eq ""} {
         set name [file tail $file]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150524/443cbb01/attachment.html>