proc createRepositoryScript { 
          serverId versionId language version platform fileNames options } { 
    ::PackageRepository::verifyServerId $serverId 
    ::PackageDownloader::verifyVersionId $versionId 
    ::PackageDownloader::verifyLanguageAndVersion $language $version isClient 
 
    if {$isClient} then { 
      error "cannot create repository script for client" 
    } 
 
    # 
    # HACK: Automatic detection of the platform must be disabled here, since 
    #       the generated repository script may want it performed late-bound, 
    #       i.e. within the generated script block itself. 
    # 
    if {[string length $platform] > 0} then { 
    ::PackageDownloader::verifyPlatform $platform platform 
      ::PackageDownloader::verifyPlatform $platform platform 
    } 
 
    set prologue "" 
 
    if {[string length $serverId] > 0} then { 
      append prologue "  ::PackageDownloader::useServerId " $serverId \n 

    variable fossilCommitPattern 
    variable fossilFileNameOnly 
 
    ::PackageDownloader::verifyPackageName $package 
    ::PackageDownloader::verifyPackagePatchLevel $patchLevel 
 
    ::PackageDownloader::verifyLanguageAndVersion $language $version isClient 
    ::PackageDownloader::verifyLanguageAndVersion \ 
        [string tolower $language] $version isClient 
 
    if {$isClient} then { 
      error "cannot commit package files for client" 
    }