RFE: "platform" info target

[afb@…]

Similar to "port version", a "port platform" target to tell the current platform.

$ port platform
Platform: darwin 8 i386

Good for knowing what to put into Portfile platform variants, or for bug reports ?

[afb@…]

Not sure about the actual implementation, my Tcl skills failed me so I just hacked it:

proc action_platform { action portlist opts } {
#	global os.platform os.major os.arch 
#	puts "Platform: ${os.platform} ${os.major} ${os.arch}"
#	return 0

	global tcl_platform
	set os $tcl_platform(os)
	set platform [string tolower $os]
	set version $tcl_platform(osVersion)
	regexp {([0-9]*)[0-9\.]?} $version match major
	set arch $tcl_platform(machine)
	if {$arch == "Power Macintosh"} {
		set arch "powerpc"
	}
	if {$arch == "i686" || $arch == "x86"} {
		set arch "i386"
	}
	puts "Platform: $platform $major $arch"
	return 0
}

[jmpp@…]

Milestone Needs developer review deleted

[afb@…]

Did you have any feedback on this ? (especially changing i686 to i386)

[afb@…]

Added i386 normalization in r28635...

[afb@…]

Cleaned up version:

proc action_platform { action portlist opts } {
#	global os.platform os.major os.arch 
	global tcl_platform
	set os_platform [string tolower $tcl_platform(os)]
	set os_version $tcl_platform(osVersion)
	set os_arch $tcl_platform(machine)
	if {$os_arch == "Power Macintosh"} { set os_arch "powerpc" }
	if {$os_arch == "i586" || $os_arch == "i686"} { set os_arch "i386" }
	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}"
	return 0
}

[afb@…]

Added, r32724.