#       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