#       request to be considered successful. 
    # 
    return [expr {$code eq "OK"}] 
  } 
 
  # 
  # NOTE: This procedure returns non-zero if the specified string value is a 
  #       valid package name.  The emptyOk argument can be non-zero if the 
  #       caller wishes to permit an empty string.  This procedure is shared 
  #       with the server. 
  # 
  proc isValidPackageName { name {emptyOk false} } { 
    if {$emptyOk && [string length $name] == 0} then { 
      return true 
    } 
 
    return [regexp -- {^[A-Za-z][0-9A-Za-z\.]*$} $name] 
  } 
 
  # 
  # NOTE: This procedure was stolen from the "common.tcl" script used by the 
  #       package repository server.  It has been modified to support both 
  #       native Tcl and Eagle.  It should be noted here that TIP #268 syntax 
  #       is not supported by Eagle.  For native Tcl, the requirement argument 

  #       the literal string "handler". 
  # 
  proc extractAndVerifyLookupMetadata { result varName caller } { 
    variable strictUnknownLanguage 
 
    # 
    # NOTE: Grab the returned package name.  It cannot be an empty string 
    #       and it must conform to the general conventions for a package 
    #       name. 
    # 
    set name [getDictionaryValue $result Name] 
 
    if {[string length $name] == 0} then { 
      error "missing name" 
    } 
 
    if {![isValidPackageName $name false]} then { 
      error "bad name" 
    } 
 
    # 
    # NOTE: Grab the returned patch level.  It cannot be an empty string 
    #       and it must conform to the TIP #268 requirements for a single 
    #       package version. 
    # 

    #       this client.  In that case, just raise an error. 
    # 
    set certificate [getDictionaryValue $result Certificate] 
 
    if {[string length $certificate] == 0} then { 
      error "missing script certificate" 
      error "missing certificate" 
    } 
 
    # 
    # NOTE: Are we being called from the [package unknown] handler 
    #       in "strict" mode? 

    #       array variable name. 
    # 
    if {[string length $varName] > 0} then { 
      upvar 1 $varName metadata 
 
      set metadata(name) $name 
      set metadata(patchLevel) $patchLevel 
      set metadata(language) $language 
      set metadata(script) $script 
      set metadata(certificate) $certificate 
    } 

    # 
    if {![info exists metadata]} then { 
      error "missing metadata" 
    } 
 
    # 
    # NOTE: If the name for the package is mising, fail. 
    # 
    if {![info exists metadata(name)]} then { 
      error "missing name" 
    } 
 
    # 
    # NOTE: If the patch level for the package is mising, fail. 
    # 
    if {![info exists metadata(patchLevel)]} then { 
      error "missing patch level" 

 
    # 
    # NOTE: If the package script certificate is mising, fail. 
    # 
    if {![info exists metadata(certificate)]} then { 
      error "missing script certificate" 
      error "missing certificate" 
    } 
 
    # 
    # NOTE: Create common cleanup script block that deletes any temporary 
    #       files created for the script verification process. 

            error "unsupported metadata language" 
          } 
        } 
      } 
    } else { 
      error "unsupported script certificate" 
      error "unsupported certificate" 
    } 
  } 
 
  # 
  # NOTE: This procedure returns non-zero if the specified package appears to 

  setupPackageUnknownHandler 
 
  # 
  # NOTE: Provide the package to the interpreter. 
  # 
  package provide Eagle.Package.Repository 1.0.6 
  package provide Eagle.Package.Repository 1.0.8 
}