Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes to Externals/Eagle/lib/Eagle1.0/vendor.eagle.

   193    193       # NOTE: Set the name of the running test suite, if necessary.
   194    194       #
   195    195       if {![info exists test_suite]} then {
   196    196         set test_suite "System.Data.SQLite Test Suite for Eagle"
   197    197       }
   198    198   
   199    199       #
   200         -    # NOTE: This variable will contain the name of the directory containing the
   201         -    #       vendor-specific testing infrastructure.  If the variable does not
   202         -    #       already exist, create it; otherwise, it has been overridden and the
   203         -    #       existing value should be left intact.
          200  +    # NOTE: When being evaluated in a "safe" interpreter, some steps must be
          201  +    #       skipped due to missing commands and/or sub-commands.
   204    202       #
   205         -    set have_vendor_directory [info exists vendor_directory]
          203  +    if {![interp issafe]} then {
          204  +      #
          205  +      # NOTE: This variable will contain the name of the directory containing
          206  +      #       the vendor-specific testing infrastructure.  If the variable does
          207  +      #       not already exist, create it; otherwise, it has been overridden
          208  +      #       and the existing value should be left intact.
          209  +      #
          210  +      set have_vendor_directory [info exists vendor_directory]
          211  +
          212  +      if {!$have_vendor_directory} then {
          213  +        set vendor_directory ""
          214  +      }
   206    215   
   207         -    if {!$have_vendor_directory} then {
   208         -      set vendor_directory ""
   209         -    }
          216  +      #
          217  +      # NOTE: This procedure will attempt to find the vendor-specific testing
          218  +      #       infrastructure directory and add it to the auto-path for the
          219  +      #       current interpreter.  Normally, this will also set the variable
          220  +      #       created above to point to the directory added to the auto-path;
          221  +      #       however, this will not be done if the variable was not created
          222  +      #       by us.
          223  +      #
          224  +      addTestSuiteToAutoPath stdout [expr {$have_vendor_directory ? "" : \
          225  +          "vendor_directory"}] false
   210    226   
   211         -    #
   212         -    # NOTE: This procedure will attempt to find the vendor-specific testing
   213         -    #       infrastructure directory and add it to the auto-path for the
   214         -    #       current interpreter.  Normally, this will also set the variable
   215         -    #       created above to point to the directory added to the auto-path;
   216         -    #       however, this will not be done if the variable was not created
   217         -    #       by us.
   218         -    #
   219         -    addTestSuiteToAutoPath stdout [expr {$have_vendor_directory ? "" : \
   220         -        "vendor_directory"}] false
          227  +      unset have_vendor_directory
   221    228   
   222         -    unset have_vendor_directory
   223         -
   224         -    #
   225         -    # NOTE: If we actually found a vendor-specific testing infrastructure
   226         -    #       directory then modify the TestPath property of the current
   227         -    #       interpreter to point directly to it.
   228         -    #
   229         -    if {[string length $vendor_directory] > 0} then {
   230         -      setupInterpreterTestPath stdout $vendor_directory false
          229  +      #
          230  +      # NOTE: If we actually found a vendor-specific testing infrastructure
          231  +      #       directory then modify the TestPath property of the current
          232  +      #       interpreter to point directly to it.
          233  +      #
          234  +      if {[string length $vendor_directory] > 0} then {
          235  +        setupInterpreterTestPath stdout $vendor_directory false
          236  +      }
   231    237       }
   232    238   
   233    239       #
   234    240       # HACK: Prevent the Eagle core test suite infrastructure from checking
   235    241       #       test constraints that are time-consuming and/or most likely to
   236    242       #       be superfluous to third-party test suites (i.e. those that are
   237    243       #       not testing the Eagle core library itself).