proc createRepositoryScript { 
          serverId versionId language version platform fileNames options } { 
    ::PackageRepository::verifyServerId $serverId 
    ::PackageDownloader::verifyVersionId $versionId 
    ::PackageDownloader::verifyLanguageAndVersion $language $version isClient 
    ::PackageDownloader::verifyPlatform $platform platform 
 
    set prologue "" 
 
    if {[string length $serverId] > 0} then { 
      append prologue "  ::PackageDownloader::useServerId " $serverId \n 

  # 
  proc submitPackageMetadata { 
          apiKey package patchLevel language script certificate } { 
    variable verboseMetadataSubmit 
 
    ::PackageDownloader::verifyPackageName $package 
    ::PackageDownloader::verifyPackagePatchLevel $patchLevel 
 
    # 
    # NOTE: Fetch the submission URI for the package repository server.  If 
    #       it is not available for some reason, raise a script error. 
    # 
    set uri [getSubmitUri] 
 
    if {[string length $uri] == 0} then { 
      error "" 
    } 
 
    if {[string length $language] == 0} then { 
      set language [expr {[isEagle] ? "Eagle" : "Tcl"}] 
    } 
 
    ::PackageRepository::verifyMetadataLanguage $language 
 
    if {[isEagle]} then { 
      set boundary [string map \ 
          [list + "" / "" = ""] [base64 encode [expr {randstr(50)}]]] 
    } else { 

    variable fossilFileNameOnly 
 
    ::PackageDownloader::verifyLanguageAndVersion $language $version isClient 
 
    if {$isClient} then { 
      error "cannot stage files: client files must be committed directly" 
      error "cannot stage package files for client" 
    } 
 
    ::PackageDownloader::verifyPlatform $platform platform 
    verifyCheckoutDirectory 
 

  proc commitPackageFiles { package patchLevel language version varName } { 
    variable checkoutDirectory 
    variable fossilCommitCommand 
    variable fossilCommitPattern 
    variable fossilFileNameOnly 
 
    ::PackageDownloader::verifyPackageName $package 
    ::PackageDownloader::verifyPackagePatchLevel $patchLevel 
    ::PackageDownloader::verifyLanguageAndVersion $language $version isClient 
 
    if {$isClient} then { 
      error "cannot commit package files for client" 
    } 
 
    fossilMustBeInstalled 
    verifyCheckoutDirectory 
 
    set branch [appendArgs pkg_ $package _ $patchLevel]