Differences From Artifact [f4bc5e5781]:

• File client/1.0/neutral/pkgd.eagle — part of check-in [25cb98f2fe] at 2016-12-23 00:15:46 on branch trunk — When storing the directory portion of 'info script', normalize it first. Fixes to the checkout directory handling for staging files in the package uploader client. (user: mistachkin, size: 56770) [annotate] [blame] [check-ins using]

To Artifact [290790a04d]:

• File client/1.0/neutral/pkgd.eagle — part of check-in [378a6a413c] at 2016-12-23 02:27:48 on branch trunk — For the package uploader, if the target platform is 'neutral' or the same as the current platform, use 'automatic' (an empty string) instead. (user: mistachkin, size: 56786) [annotate] [blame] [check-ins using]

750
751
752
753
754
755
756

757
758
759
760
761
762
763

  }

  #
  # NOTE: This procedure returns the name of the current platform.  There are
  #       no arguments.  An empty string will be returned if the name of the
  #       current platform cannot be determined for any reason.
  #

  proc getPlatform {} {
    global tcl_platform

    if {[info exists tcl_platform(platform)]} then {
      set platform $tcl_platform(platform)

      if {[info exists tcl_platform(machine)]} then {

>

750
751
752
753
754
755
756
757
758
759
760
761
762
763
764

  }

  #
  # NOTE: This procedure returns the name of the current platform.  There are
  #       no arguments.  An empty string will be returned if the name of the
  #       current platform cannot be determined for any reason.
  #
  # <internal>
  proc getPlatform {} {
    global tcl_platform

    if {[info exists tcl_platform(platform)]} then {
      set platform $tcl_platform(platform)

      if {[info exists tcl_platform(machine)]} then {