set platform $tcl_platform(platform)

      if {[info exists tcl_platform(machine)]} then {
        set machine $tcl_platform(machine)
      } else {
        set machine ""
      }

      if {[info exists tcl_platform(os)]} then {
        set os $tcl_platform(os)
      } else {
        set os ""
      }

      switch -exact -- $platform {
        unix {
          switch -exact -- $os {
            Darwin {
              switch -exact -- $machine {
                "Power Macintosh" {
                  return macosx-power
                }
                x86_64 {
                  return macosx-x64
                }
              }
            }
            Linux {
              switch -exact -- $machine {
                i386 {
                  return linux-x86
                }
                x86_64 {
                  return linux-x64
                }
                alpha -
                armv4l -
                armv6l -
                armv7l -
                ia64 -
                ppc {
                  return [appendArgs linux- $machine]
                }
              }
            }
          }
        }
        windows {
          switch -exact -- $machine {
            intel -
            ia32_on_win64 {
              return win32-x86
            }
            arm {
              return [appendArgs win32- $machine]



            }
            amd64 {
              return win64-x64
            }
            ia64 -
            arm64 {
              return [appendArgs win64- $machine]
            }
          }
        }
      }
    }

    return ""

      error "version Id must be hexadecimal"
    }
  }

  #
  # NOTE: This procedure verifies the platform specified by the caller.  The
  #       platform argument must be an empty string -OR- one of the literal
  #       strings "msil" or "neutral", or one of the values returned by the
  #       [getPlatform] procedure.  An empty string means that the associated
  #       entity does not require a specific platform.  The varName argument
  #       is the name of a variable in the context of the immediate caller
  #       that will receive a modified platform name, if applicable.  Upon
  #       failure, a script error will be raised.  The return value is
  #       undefined.
  #
  proc verifyPlatform { platform varName } {
    #
    # NOTE: The platform name must be matched exactly and case-sensitively.
    #
    switch -exact -- $platform {
      "" {

        }

        #
        # NOTE: Check the current platform and the neutral platform, in that
        #       order, to see if that platform is supported by the package
        #       being saught.  If so, return that platform.
        #
        foreach thisPlatform [list [getPlatform] msil neutral] {
          if {[lsearch -exact $platforms $thisPlatform] != -1} then {
            set newPlatform $thisPlatform
            return
          }
        }

        #
        # NOTE: If this point is reached, there are no supported platforms
        #       that are compatible with the current one for the specified
        #       package.
        #
        error "could not automatically detect platform"
      }
      msil -
      neutral -
      win32-arm -
      win32-x86 -
      win64-arm64 -
      win64-ia64 -
      win64-x64 {
        #

  #
  # NOTE: This procedure checks if there is a higher version available of the
  #       specified package on the package file server.  The language argument
  #       must be one of the literal strings "eagle", "tcl", or "client".  The
  #       version argument must be one of the literal strings "8.4", "8.5", or
  #       "8.6" when the language is "tcl" -OR- the literal string "1.0" when
  #       the language is either "eagle" or "client".  The platform argument
  #       must be an empty string -OR- one of the literal strings "msil" or
  #       "neutral", or one of the values returned by the [getPlatform]
  #       procedure.  An empty string means that the associated package does
  #       not require a specific platform.  The packageName argument is a
  #       directory name relative to the language and version-specific
  #       directory on the package file server and may be an empty string.
  #       The usePgp argument should be non-zero when an OpenPGP signature
  #       file needs to be downloaded and verified for the downloaded file.
  #
  # <public>
  proc checkForHigherVersion { language version platform packageName usePgp } {
    variable clientDirectory

  #       downloaded, this procedure assumes the corresponding data file was
  #       already downloaded (i.e. since OpenPGP needs both to perform the
  #       signature checks).  The language argument must be one of the
  #       literal strings "eagle", "tcl", or "client".  The version argument
  #       must be one of the literal strings "8.4", "8.5", or "8.6" when the
  #       language is "tcl" -OR- the literal string "1.0" when the language
  #       is either "eagle" or "client".  The platform argument must be an
  #       empty string -OR- one of the literal strings "msil" or "neutral", or
  #       one of the values returned by the [getPlatform] procedure.  An empty
  #       string means that the associated package does not require a specific
  #       platform.  The fileName argument is a file name relative to the
  #       language and version-specific directory on the package file server.
  #       The localFileName argument is the file name where the downloaded
  #       file should be written.  The usePgp argument should be non-zero when
  #       the OpenPGP signature file needs to be verified for the downloaded
  #       file.

  # NOTE: This procedure attempts to download a list of files, optionally
  #       persistening them for subsequent uses by the target language.
  #       The language argument must be one of the literal strings "eagle",
  #       "tcl", or "client".  The version argument must be one of the
  #       literal strings "8.4", "8.5", or "8.6" when the language is "tcl"
  #       -OR- the literal string "1.0" when the language is either "eagle"
  #       or "client".  The platform argument must be an empty string -OR-
  #       one of the literal strings "msil" or "neutral", or one of the values
  #       returned by the [getPlatform] procedure..  An empty string means
  #       that the associated package does not require a specific platform.
  #       The fileNames argument must be a well-formed list of file names to
  #       download, each one relative to the language and version-specific
  #       directory on the package file server.  The options argument must
  #       be a dictionary of name/value pairs.  The -persistent option should
  #       be non-zero if the downloaded files should be saved to permanent
  #       storage for subsequent use.  The -usePgp option should be non-zero