} 
 
  # 
  # NOTE: This procedure is used to provide a TIP #194 compatible [apply] 
  #       command to the native Tcl 8.4 interpreter.  Eagle and native Tcl 
  #       8.5 (or higher) have this command built-in. 
  #       8.5 (or higher) have this command built-in.  The lambdaExpr 
  #       argument must be a list with two or three elements.  The first 
  #       element is the list of arguments to the procedure.  The second 
  #       element is the body of the procedure.  The third element is the 
  #       target namespace for the procedure.  If the third element is not 
  #       specified, the global namespace is used.  Any remaining arguments 
  #       are passed to the procedure verbatim. 
  # 
  if {[llength [info commands ::apply]] == 0} then { 
    proc ::apply { lambdaExpr args } { 
      set length [llength $lambdaExpr] 
 

    } 
  } 
 
  # 
  # NOTE: This procedure returns a formatted, possibly version-specific, 
  #       package name, for use in logging. 
  #       package name, for use in logging.  The package argument is the 
  #       name of the package.  The version argument is the version of the 
  #       package. 
  # 
  proc formatPackageName { package version } { 
    return [string trim [appendArgs $package " " $version]] 
  } 
 

  # 
  # NOTE: This procedure returns the list of API keys to use when looking 
  #       up packages via the package repository server.  An empty list 
  #       is returned if no API keys are currently configured.  The prefix 
  #       argument is an extra variable name prefix to check prior to any 
  #       that are already configured. 
  #       that are already configured.  The prefixOnly argument should be 
  #       non-zero to exclude any API keys other than those based on the 
  #       prefix specified by the caller. 
  # 
  # <internal> 
  proc getApiKeys { {prefix ""} } { 
  proc getApiKeys { {prefix ""} {prefixOnly false} } { 
    global env 
    variable autoApiKeys 
 
    # 
    # NOTE: If the caller specified a variable name prefix, try to use it 
    #       first. 
    # 
    set prefixes [list] 
 
    if {[string length $prefix] > 0} then { 
      lappend prefixes $prefix 
    } 
 
    # 
    # NOTE: Next, fallback to the variable name prefix for this package. 
    # NOTE: Next, fallback to the variable name prefix for this package, 
    #       unless the caller has forbidden us to do so. 
    # 
    if {!$prefixOnly} then { 
    lappend prefixes [getLookupVarNamePrefix] 
      lappend prefixes [getLookupVarNamePrefix] 
    } 
 
    # 
    # NOTE: Try each variable name prefix, in order, until a set of API 
    #       keys is found. 
    # 

        return $env($varName) 
      } 
    } 
 
    # 
    # NOTE: If there is a default list of API keys, just return it. 
    # NOTE: If there is a default list of API keys, just return it, 
    #       unless the caller has forbidden us to do so. 
    # 
    if {!$prefixOnly && \ 
    if {[info exists autoApiKeys] && [llength $autoApiKeys] > 0} then { 
        [info exists autoApiKeys] && [llength $autoApiKeys] > 0} then { 
      return $autoApiKeys 
    } 
 
    # 
    # NOTE: Otherwise, return the system default, which is "anonymous" 

  } 
 
  # 
  # NOTE: This procedure, which may only be used from an Eagle script, checks 
  #       if a native Tcl library is loaded and ready.  If not, a script error 
  #       is raised. 
  #       is raised.  There are no arguments. 
  # 
  proc tclMustBeReady {} { 
    # 
    # NOTE: This procedure is useless when running in native Tcl; therefore, 
    #       forbid its use there. 

  } 
 
  # 
  # NOTE: This procedure is designed for Eagle.  It attempts to load the 
  #       "best" native Tcl library.  It may raise any number of script 
  #       errors. 
  #       errors.  There are no arguments. 
  # 
  proc makeTclReady {} { 
    # 
    # NOTE: This procedure is useless when running in native Tcl; therefore, 
    #       forbid its use there. 

  } 
 
  # 
  # NOTE: This procedure, which may only be used from a native Tcl script, 
  #       checks if Garuda and Eagle are loaded and ready.  If not, a script 
  #       error is raised. 
  #       error is raised.  There are no arguments. 
  # 
  proc eagleMustBeReady {} { 
    # 
    # NOTE: This procedure is useless when running in Eagle; therefore, 
    #       forbid its use there. 

  } 
 
  # 
  # NOTE: This procedure is designed for native Tcl.  It attempts to load 
  #       the Garuda package and gain access to Eagle.  It may raise any 
  #       number of script errors. 
  #       number of script errors.  There are no arguments. 
  # 
  proc makeEagleReady {} { 
    # 
    # NOTE: This procedure is useless when running in Eagle; therefore, 
    #       forbid its use there. 

    } else { 
      error "unsupported script certificate" 
    } 
  } 
 
  # 
  # NOTE: This procedure returns non-zero if the specified package can be 
  #       downloaded, i.e. because it is not required for the downloading 
  #       process itself to be functional, etc.  The package argument is 
  #       the name of the package to check. 
  # 
  proc canDownloadPackage { package } { 
    # 
    # NOTE: Since the "http" and "tls" packages are required from within 
    #       the custom [package unknown] itself, in order to locate and 
    #       download the requested package, we must return false here to 
    #       prevent needless recursion. 
    # 
    if {[lsearch -exact [list http tls] $package] != -1} then { 
      return false 
    } 
 
    # 
    # NOTE: Currently, all other packages, including Garuda, are legal to 
    #       handle from the custom [package unknown] handler. 
    # 
    return true 
  } 
 
  # 
  # NOTE: This procedure performs initial setup of the package repository 
  #       client, using the current configuration parameters.  There are 
  #       no arguments.  It may load the Garuda package when evaluated in 
  #       native Tcl.  It may load a native Tcl library when evaluated in 

    variable verboseUnknownResult 
 
    # 
    # NOTE: First, run our special [package unknown] handler. 
    # 
    if {[canDownloadPackage $package]} then { 
    set code(1) [catch { 
      getPackageFromRepository $package $version handler 
    } result(1)] 
      set code(1) [catch { 
        getPackageFromRepository $package $version handler 
      } result(1)] 
 
    if {$verboseUnknownResult} then { 
      pkgLog [appendArgs \ 
          "repository handler results for package \"" [formatPackageName \ 
          $package $version] "\" are " [formatResult $code(1) $result(1)]] 
      if {$verboseUnknownResult} then { 
        pkgLog [appendArgs \ 
            "repository handler results for package \"" [formatPackageName \ 
            $package $version] "\" are " [formatResult $code(1) $result(1)]] 
      } 
    } 
 
    # 
    # NOTE: Next, run the saved [package unknown] handler. 
    # 

  # NOTE: This procedure sets up the default values for all configuration 
  #       parameters used by the package repository client.  There are no 
  #       arguments. 
  # 
  proc setupPackageUnknownVars {} { 
    # 
    # NOTE: Is this HTTP request processor allowed to use plain HTTP if/when 
    #       the "tls" package is not available?  This should only be changed 
    #       if the "tls" package cannot be easily installed for use with the 
    #       native Tcl interpreter in use.  It should be noted here that the 
    #       official package repository server reserves the right to refuse 
    #       plain HTTP connections, which means that changing this setting 
    #       may be totally pointless. 
    # 
    variable allowInsecureHttp; # DEFAULT: false 
 
    if {![info exists allowInsecureHttp]} then { 
      set allowInsecureHttp false 
    } 
 
    # 
    # NOTE: What is the default set of API keys if none were set explicitly? 
    #       This list is subject to change at any time -AND- may be empty or 
    #       may contain non-working API keys, please do not rely on it. 
    # 

    #       HTTP response data.  It does not contain special code to handle 
    #       HTTP status codes other than 3XX (e.g. 4XX, 5XX, etc). 
    # 
    # <public> 
    proc getFileViaHttp { uri redirectLimit channel quiet args } { 
      # 
      # NOTE: This variable is used to determine if plain HTTP is allowed if 
      #       the "tls" package is not available. 
      # 
      variable allowInsecureHttp 
 
      # 
      # NOTE: This variable is used to keep track of the currently scheduled 
      #       (i.e. pending) [after] event. 
      # 
      variable afterForPageProgress 
 
      # 
      # NOTE: This procedure requires the modern version of the HTTP package, 
      #       which is typically included with the Tcl core distribution. 
      # 
      package require http 2.0 
 
      # 
      # NOTE: If the 'tls' package is available, always attempt to use HTTPS. 
      # NOTE: If the 'tls' package is available, always attempt to use HTTPS; 
      #       otherwise, only attempt to use HTTP if explicitly allowed. 
      # 
      if {[catch {package require tls}] == 0} then { 
        ::http::register https 443 ::tls::socket 
 
        if {[string range $uri 0 6] eq "http://"} then { 
          set uri [appendArgs https:// [string range $uri 7 end]] 
        } 
      } elseif {$allowInsecureHttp} then { 
        if {[string range $uri 0 7] eq "https://"} then { 
          set uri [appendArgs http:// [string range $uri 8 end]] 
        } 
      } 
 
      # 
      # NOTE: Unless the caller forbids it, display progress messages during 
      #       the download.