Ticket #12794: macports-versions.patch

src/port/port.tcl

@@ -1663 +1663 @@
 }
 
 
+proc macosx_version {} {
+    return [exec /bin/sh -c "/usr/bin/sw_vers | sed -n 's/^ProductVersion:\[\[:space:\]\]//p' | cut -f 1-3 -d."]
+}
+
+proc xcode_version {} {
+    return [exec /bin/sh -c "tr -d '\\r\\n' < /Developer/Applications/Xcode.app/Contents/version.plist | sed -e 's/.*<key>CFBundleShortVersionString<\\/key>.<string>\\(\[0-9.\]*\\)<\\/string>.*/\\1/'"]
+}
+
 proc action_platform { action portlist opts } {
 #   global os.platform os.major os.arch 
     global tcl_platform
@@ -1674 +1682 @@
     set os_major [lindex [split $tcl_platform(osVersion) .] 0]
 #   puts "Platform: ${os.platform} ${os.major} ${os.arch}"
     puts "Platform: ${os_platform} ${os_major} ${os_arch}"
+
+    # check for macosx with the same hack that the implicit variant does
+    if {[file isdirectory /System/Library/Frameworks/Carbon.framework]} {
+        puts "Mac OS X: [macosx_version]"
+        puts "Xcode: [xcode_version]"
+    }
     return 0
 }