Changeset 34852


Ignore:
Timestamp:
Mar 9, 2008, 1:45:22 AM (13 years ago)
Author:
raimue@…
Message:

macports1.0/macports.tcl:
New API: macports::getsourceconfigdir
Returns the path to .config for a porturl.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/variant-descs-14482/base/src/macports1.0/macports.tcl

    r34313 r34852  
    884884    } else {
    885885        return -code error "Can't parse url $url"
     886    }
     887}
     888
     889##
     890# Get the path to the .config directory of the source
     891#
     892# @param url port url
     893# @return path to the .config directory or an empty string if the protocol does \
     894#         not support .config
     895proc macports::getsourceconfigdir {url} {
     896    set protocol [macports::getprotocol $url]
     897    switch -- ${protocol} {
     898        file {
     899            return [file normalize [file join [macports::getportdir $url] .. .. .config]]
     900        }
     901        default {
     902            return ""
     903        }
    886904    }
    887905}
Note: See TracChangeset for help on using the changeset viewer.