<pre style='margin:0'>
Rainer Müller (raimue) pushed a commit to branch master
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/f46080ba6d0112d0ed75905d5d4deb2ec9668eba">https://github.com/macports/macports-base/commit/f46080ba6d0112d0ed75905d5d4deb2ec9668eba</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit f46080ba6d0112d0ed75905d5d4deb2ec9668eba
</span>Author: Rainer Müller <raimue@macports.org>
AuthorDate: Tue Apr 3 02:46:18 2018 +0200
<span style='display:block; white-space:pre;color:#404040;'> macports1.0: Write system information to log file
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> See: https://trac.macports.org/ticket/52575
</span>---
src/macports1.0/macports.tcl | 44 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 44 insertions(+)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/macports.tcl b/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 5cd51aa..6a531a0 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -141,8 +141,10 @@ proc macports::init_logging {mport} {
</span> ui_debug "Logging disabled, error opening log file: $err"
return 1
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ macports::_log_sysinfo
</span> return 0
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> proc macports::ch_logging {mport} {
set portname [_mportkey $mport subport]
set portpath [_mportkey $mport portpath]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -159,6 +161,48 @@ proc macports::ch_logging {mport} {
</span> set ::debuglog [open $::debuglogname a]
puts $::debuglog version:1
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# log platform information
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+proc macports::_log_sysinfo {} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ global macports::current_phase
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ global macports::os_platform macports::os_subplatform \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ macports::os_version macports::os_major macports::os_minor \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ macports::os_endian macports::os_arch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ macports::macosx_version macports::macosx_sdk_version macports::macosx_deployment_target \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ macports::xcodeversion
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ global tcl_platform
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set previous_phase ${macports::current_phase}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set macports::current_phase "sysinfo"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {$os_platform eq "darwin"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {$os_subplatform eq "macosx"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[vercmp $macosx_version 10.12] >= 0} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set os_version_string "macOS ${macosx_version}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ } elseif {[vercmp $macosx_version 10.8] >= 0} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set os_version_string "OS X ${macosx_version}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set os_version_string "Mac OS X ${macosx_version}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set os_version_string "PureDarwin ${os_version}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # use capitalized platform name
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set os_version_string "$tcl_platform(os) ${os_version}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ui_debug "$os_version_string ($os_platform/$os_version) arch $os_arch"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ui_debug "MacPorts [macports::version]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {$os_platform eq "darwin" && $os_subplatform eq "macosx"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ui_debug "Xcode ${xcodeversion}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ui_debug "SDK ${macosx_sdk_version}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ui_debug "MACOSX_DEPLOYMENT_TARGET: ${macosx_deployment_target}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set macports::current_phase $previous_phase
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> proc macports::push_log {mport} {
if {![info exists ::logenabled]} {
if {[macports::init_logging $mport] == 0} {
</pre><pre style='margin:0'>
</pre>