#       script file, if it exists.  Any script errors raised are not
  #       masked.  The script argument must be the fully qualified path
  #       and file name for the primary package repository client script
  #       file.
  #
  # <public>
  proc maybeReadSettingsFile { script } {
    global tcl_platform

    if {[string length $script] == 0 || \
        ![file exists $script] || ![file isfile $script]} then {
      return
    }

    foreach prefix [list $tcl_platform(user) ""] {
      if {[string length $prefix] > 0} then {
        set prefix [appendArgs . $prefix]
      }

    set fileName [appendArgs \
        [file rootname $script] .settings [file extension $script]]
      set fileName [appendArgs \
          [file rootname $script] .settings $prefix [file extension \
          $script]]

    if {[file exists $fileName] && [file isfile $fileName]} then {
      uplevel 1 [list source $fileName]
      if {[file exists $fileName] && [file isfile $fileName]} then {
        uplevel 1 [list source $fileName]
      }
    }
  }

  #
  # NOTE: This procedure sets up the default values for all configuration
  #       parameters used by the package repository client.  There are no
  #       arguments.