[34512] trunk/base/src/port1.0/portlint.tcl
afb at macports.org
afb at macports.org
Wed Feb 27 01:36:58 PST 2008
Revision: 34512
http://trac.macosforge.org/projects/macports/changeset/34512
Author: afb at macports.org
Date: 2008-02-27 01:36:56 -0800 (Wed, 27 Feb 2008)
Log Message:
-----------
lint: check that all dependencies actually exist (#14380)
Modified Paths:
--------------
trunk/base/src/port1.0/portlint.tcl
Modified: trunk/base/src/port1.0/portlint.tcl
===================================================================
--- trunk/base/src/port1.0/portlint.tcl 2008-02-27 08:50:25 UTC (rev 34511)
+++ trunk/base/src/port1.0/portlint.tcl 2008-02-27 09:36:56 UTC (rev 34512)
@@ -283,7 +283,7 @@
set portarch ${os.arch}
global description long_description platforms categories all_variants
global maintainers homepage master_sites checksums patchfiles
- global fetch.type
+ global depends_lib depends_build depends_run fetch.type
global lint_portsystem lint_platforms lint_categories
global lint_required lint_optional lint_variants
@@ -416,6 +416,25 @@
incr variantnumber
}
+ set all_depends {}
+ if {[info exists depends_lib]} { lappend all_depends $depends_lib }
+ if {[info exists depends_build]} { lappend all_depends $depends_build }
+ if {[info exists depends_run]} { lappend all_depends $depends_run }
+ foreach depspec $all_depends {
+ set dep [lindex [split $depspec :] end]
+ if {[catch {set res [mport_search "^$dep\$"]} error]} {
+ global errorInfo
+ ui_debug "$errorInfo"
+ continue
+ }
+ if {$res == ""} {
+ ui_error "Unknown dependency: $dep"
+ incr errors
+ } else {
+ ui_info "OK: Found dependency: $dep"
+ }
+ }
+
if {[string match "*darwinports at opendarwin.org*" $maintainers]} {
ui_warn "Using legacy email address for no/open maintainer"
incr warnings
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080227/987095ba/attachment.html
More information about the macports-changes
mailing list