Diff
Not logged in

Differences From Artifact [2df5f1ebc0]:

To Artifact [18b3f30652]:


614
615
616
617
618
619
620

621
622
623
624
625
626
627
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628







+







    return [list]
  }

  #
  # NOTE: This procedure returns the base URI for the package repository
  #       server.  There are no arguments.
  #
  # <internal>
  proc getLookupBaseUri {} {
    global env

    set varName [appendArgs [getLookupVarNamePrefix] base_uri]

    if {[info exists $varName]} then {
      return [set $varName]
644
645
646
647
648
649
650





651
652
653
654
655
656
657
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663







+
+
+
+
+







  #       name of the package being looked up, it cannot be an empty
  #       string.  The version argument is the specific version being
  #       looked up -OR- an empty string for any available version.  There
  #       are no HTTP requests issued by this procedure; it simply returns
  #       the URI to use.
  #
  proc getLookupUri { apiKeys package version } {
    #
    # NOTE: Fetch the base URI for the package repository server.  If it
    #       is not available for some reason, just return an empty string
    #       to the caller (i.e. as we cannot do anything productive).
    #
    set baseUri [getLookupBaseUri]

    if {[string length $baseUri] == 0} then {
      return ""
    }

    #
1012
1013
1014
1015
1016
1017
1018

1019
1020
1021
1022
1023
1024
1025
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032







+







    }

    #
    # NOTE: Load a native Tcl library.  It absolutely must be signed with a
    #       valid Authenticode signature.
    #
    tcl load -findflags +TrustedOnly -loadflags +SetDllDirectory
    # tcl load -findflags =Typical -loadflags +SetDllDirectory

    #
    # NOTE: Verify that the native Tcl library appears to have beed loaded
    #       into this interpreter.
    #
    tclMustBeReady
  }