Diff
Not logged in

Differences From Artifact [e6c5a6c94c]:

To Artifact [0a7e1a9601]:


854
855
856
857
858












859
860
861
862
863
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875





+
+
+
+
+
+
+
+
+
+
+
+





    #       packages only (i.e. those without any owners). 
    # 
    return [list] 
  } 
 
  # 
  # NOTE: This procedure verifies the language specified by the caller.  The 
  #       language argument must be an empty string -OR- the literal string 
  #       "Eagle" or "Tcl".  This procedure may raise script errors. 
  # 
  # <internal> 
  proc verifyMetadataLanguage { language } { 
    if {[lsearch -exact [list "" Tcl Eagle] $language] == -1} then { 
      error "unsupported metadata language" 
    } 
  } 
 
  # 
  # NOTE: This procedure verifies that the specified value is indeed a valid 
  #       server identifier.  The serverId argument is the value to verify. 
  #       This procedure may raise script errors. 
  # 
1235
1236
1237
1238
1239
1240
1241

1242
1243
1244
1245
1246
1247
1247
1248
1249
1250
1251


1252

1253
1254
1255
1256
1257





-
-
+
-





    #       string, "Tcl", or "Eagle".  If it is an empty string, then the 
    #       current language will be assumed (but not by this procedure). 
    # 
    set language [getDictionaryValue $result Language] 
 
    if {[lsearch -exact [list "" Tcl Eagle] $language] == -1} then { 
      error "unsupported language" 
    verifyMetadataLanguage $language 
    } 
 
    # 
    # NOTE: Grab the package script.  If it is an empty string, then the 
    #       package cannot be loaded and there is nothing to do.  In that 
    #       case, just raise an error. 
1617
1618
1619
1620
1621
1622

1623
1624
1625
1626
1627
1627
1628
1629
1630
1631

1632
1633
1634
1635
1636
1637





-
+





                    # 
                    {%tclMustBeReady%}; return [tcl eval [tcl master] [list \ 
                        uplevel #0 $script(inner)]] 
                  } 
                  default { 
                    error "unsupported language" 
                    error "unsupported metadata language" 
                  } 
                } 
              } finally { 
                # 
                # NOTE: Perform any necessary cleanup steps. 
1785
1786
1787
1788
1789
1790

1791
1792
1793
1794
1795
1795
1796
1797
1798
1799

1800
1801
1802
1803
1804
1805





-
+





            } else { 
              return [uplevel #0 $script(inner)] 
            } 
          } 
          default { 
            error "unsupported language" 
            error "unsupported metadata language" 
          } 
        } 
      } 
    } else { 
      error "unsupported script certificate"