Changeset 89428 for trunk/base

Timestamp:

Jan 28, 2012, 7:42:22 PM (12 years ago)

Author:

raimue@…

Message:

port1.0/portlint.tcl:
Check for incorrect svn properties

File:

• trunk/base/src/port1.0/portlint.tcl (modified) (1 diff)

trunk/base/src/port1.0/portlint.tcl

@@ -607 +607 @@
     ui_debug "Revision: $revision"
     ui_debug "Archs: $portarch"
+
+    ###################################################################
+
+    set svn_cmd ""
+    catch {set svn_cmd [findBinary svn]}
+    if {$svn_cmd != "" && ([file exists $portpath/.svn] || ![catch {exec $svn_cmd info $portpath > /dev/null 2>@1}])} {
+        ui_debug "Checking svn properties"
+        if [catch {exec $svn_cmd propget svn:keywords $portfile 2>@1} output] {
+            ui_warn "Unable to check for svn:keywords property: $output"
+        } else {
+            ui_debug "Property svn:keywords is \"$output\", should be \"Id\""
+            if {$output != "Id"} {
+                ui_error "Missing subversion property on Portfile, please execute: svn ps svn:keywords Id Portfile"
+                incr errors
+            }
+        }
+        if [catch {exec $svn_cmd propget svn:eol-style $portfile 2>@1} output] {
+            ui_warn "Unable to check for svn:eol-style property: $output"
+        } else {
+            ui_debug "Property svn:eol-style is \"$output\", should be \"native\""
+            if {$output != "native"} {
+                ui_error "Missing subversion property on Portfile, please execute: svn ps svn:eol-tyle native Portfile"
+                incr errors
+            }
+        }
+    }
+
     ###################################################################