System.Data.SQLite
Check-in [c0de75b66e]
Not logged in

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

Overview
Comment:Update Eagle in externals to the pending beta 29 release.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c0de75b66ee1e5857d8b0c6b17031376a68b680b
User & Date: mistachkin 2013-12-18 05:33:25
Context
2013-12-18
08:01
Prefer the new -anyInitialize argument over -preInitialize when using the Eagle shell, where applicable. check-in: d0f59a690b user: mistachkin tags: trunk
05:33
Update Eagle in externals to the pending beta 29 release. check-in: c0de75b66e user: mistachkin tags: trunk
2013-12-11
07:54
Remove the now unused SQLiteConvert.ColumnToType method. Add TraceWarning connection flag to enable tracing of type mapping failures and disable tracing of them by default, pursuant to [6d45c782e4]. Update internal error message list to include SQLITE_NOTICE and SQLITE_WARNING. Update internal SQLiteConfigOpsEnum enumeration to include recently added values in the SQLite core library. check-in: 16f09dbc53 user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Externals/Eagle/bin/Eagle.dll.

cannot compute difference between binary files

Changes to Externals/Eagle/bin/EagleShell.exe.

cannot compute difference between binary files

Changes to Externals/Eagle/bin/x64/Spilornis.dll.

cannot compute difference between binary files

Changes to Externals/Eagle/bin/x86/Spilornis.dll.

cannot compute difference between binary files

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

  1431   1431                   # NOTE: The engine patch level from the line is greater,
  1432   1432                   #       we are out-of-date.  Return the result of our
  1433   1433                   #       checking now.
  1434   1434                   #
  1435   1435                   if {$checkBuild} then {
  1436   1436                     return [list [appendArgs \
  1437   1437                         "latest build " $patchLevel ", dated " $dateTime \
  1438         -                      ", is newer than running build " $enginePatchLevel \
         1438  +                      ", is newer than the running build " $enginePatchLevel \
  1439   1439                         ", dated " $engineDateTime] [list $baseUri \
  1440   1440                         $patchLevel] [list $notes]]
  1441   1441                   }
  1442   1442   
  1443   1443                   #
  1444   1444                   # NOTE: The script patch level from the line matches the
  1445   1445                   #       current engine patch level exactly, this script
................................................................................
  1654   1654                 } elseif {$checkBuild && $compare < 0} then {
  1655   1655                   #
  1656   1656                   # NOTE: The patch level from the line is less, we are more
  1657   1657                   #       up-to-date than the latest version?
  1658   1658                   #
  1659   1659                   return [list [appendArgs \
  1660   1660                       "running build " $enginePatchLevel ", dated " \
  1661         -                    $engineDateTime ", is newer than latest build " \
         1661  +                    $engineDateTime ", is newer than the latest build " \
  1662   1662                       $patchLevel ", dated " $dateTime]]
  1663   1663                 } elseif {$checkBuild} then {
  1664   1664                   #
  1665   1665                   # NOTE: The patch levels are equal, we are up-to-date.
  1666   1666                   #
  1667   1667                   return [list [appendArgs \
  1668   1668                       "running build " $enginePatchLevel ", dated " \
................................................................................
  1686   1686             return [list [appendArgs \
  1687   1687                 "processed " $scriptCount(total) " update scripts: " \
  1688   1688                 [array get scriptCount]]]
  1689   1689           } else {
  1690   1690             return [list "no update scripts were processed"]
  1691   1691           }
  1692   1692         } else {
  1693         -        return [list "could not determine if running build is the latest"]
         1693  +        return [list \
         1694  +            "could not determine if running build is the latest build"]
  1694   1695         }
  1695   1696       }
  1696   1697   
  1697   1698       proc getReturnType { object member } {
  1698   1699         if {[string length $object] == 0 || [string length $member] == 0} then {
  1699   1700           return ""
  1700   1701         }

Added Externals/Eagle/lib/Test1.0/all.eagle.

            1  +###############################################################################
            2  +#
            3  +# all.eagle --
            4  +#
            5  +# This file contains a top-level script to run all of the Eagle tests.
            6  +# Execute it by invoking "source all.eagle".
            7  +#
            8  +# Extensible Adaptable Generalized Logic Engine (Eagle)
            9  +# Test Suite File
           10  +#
           11  +# Copyright (c) 2007-2012 by Joe Mistachkin.  All rights reserved.
           12  +#
           13  +# See the file "license.terms" for information on usage and redistribution of
           14  +# this file, and for a DISCLAIMER OF ALL WARRANTIES.
           15  +#
           16  +# RCS: @(#) $Id: $
           17  +#
           18  +###############################################################################
           19  +
           20  +#
           21  +# NOTE: *WARNING* This file must be capable of being evaluated in both Tcl and
           22  +#       Eagle in a completely "clean" interpreter; therefore, no script library
           23  +#       procedures provided by the Eagle.Library or Eagle.Test packages may be
           24  +#       used, including [isEagle], until after the test prologue has been
           25  +#       evaluated (below).  Unfortunately, this makes it somewhat impractical
           26  +#       to evaluate the test prologue using the abstracted [runTestPrologue]
           27  +#       script library procedure from the Eagle.Test package.  Instead, we must
           28  +#       assume that the test prologue file exists in the same directory as this
           29  +#       file and evaluate it using [source].  For third-party applications and
           30  +#       plugins that are Eagle-specific (i.e. they cannot be used in Tcl), the
           31  +#       following code snippet may be used instead of setting the "test_path"
           32  +#       variable and then evaluating the "prologue.eagle" file directly:
           33  +#
           34  +#           package require Eagle.Library
           35  +#           package require Eagle.Test
           36  +#
           37  +#           runTestPrologue
           38  +#
           39  +#       When using the above code snippet, the following code snippet may also
           40  +#       be used at the very end of the corresponding "all.eagle" file instead
           41  +#       of evaluating the "epilogue.eagle" file directly:
           42  +#
           43  +#           runTestEpilogue
           44  +#
           45  +if {![info exists test_path]} then {
           46  +  set test_path [file normalize [file dirname [info script]]]
           47  +}
           48  +
           49  +source [file join $test_path prologue.eagle]
           50  +
           51  +set no(prologue.eagle) true
           52  +set no(epilogue.eagle) true
           53  +
           54  +set test_time [time {
           55  +  runAllTests $test_channel $test_path \
           56  +      [getTestFiles [list $test_path] $test_flags(-file) \
           57  +          $test_flags(-notFile)] \
           58  +      [list [file tail [info script]] *.tcl pkgIndex.eagle \
           59  +          constraints.eagle epilogue.eagle prologue.eagle]
           60  +}]
           61  +
           62  +tputs $test_channel [appendArgs "---- all tests completed in " $test_time \n]
           63  +unset test_time
           64  +
           65  +unset no(epilogue.eagle)
           66  +unset no(prologue.eagle)
           67  +
           68  +if {[array size no] == 0} then {unset no}
           69  +
           70  +source [file join $test_path epilogue.eagle]

Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.

   398    398       #
   399    399       # NOTE: Set the Tcl shell executable to use for those specialized
   400    400       #       tests that may require it, if necessary.
   401    401       #
   402    402       if {![info exists test_tclsh]} then {
   403    403         #
   404    404         # NOTE: When running in Eagle, more complex logic is required to
   405         -      #       determine the Tcl shell to use for the various tests that
   406         -      #       require it.  Also, this same logic is used with Tcl when it
   407         -      #       is not running from an instance of the Tcl shell executable.
          405  +      #       determine the native Tcl shell to use for the various tests
          406  +      #       that require it.  Also, this same logic is used with Tcl
          407  +      #       when it is not running from an instance of the Tcl shell
          408  +      #       executable.
   408    409         #
   409    410         if {[isEagle] || ![string match tclsh* $bin_file]} then {
   410    411           if {[info exists test_flags(-tclsh)] && \
   411    412               [string length $test_flags(-tclsh)] > 0} then {
   412    413             #
   413         -          # NOTE: Use the Tcl shell specified via the command line.
          414  +          # NOTE: Use the native Tcl shell specified via the command line.
   414    415             #
   415    416             set test_tclsh $test_flags(-tclsh)
   416    417           } else {
   417    418             if {![info exists no(getTclShellFileName)]} then {
   418    419               #
   419         -            # NOTE: Attempt to automatically select a Tcl shell to use.
          420  +            # NOTE: Attempt to automatically select the native Tcl shell
          421  +            #       to use.
   420    422               #
   421         -            tputs $test_channel \
   422         -                "==== WARNING: attempting automatic Tcl shell selection...\n"
          423  +            if {![info exists no(warningForTclShell)]} then {
          424  +              tputs $test_channel \
          425  +                  "==== WARNING: attempting automatic Tcl shell selection...\n"
          426  +            }
   423    427   
   424    428               set test_tclsh [getTclShellFileName true]
   425    429             } else {
   426    430               #
   427    431               # NOTE: Skip detection and use the fallback default.
   428    432               #
   429    433               set test_tclsh tclsh
................................................................................
   438    442     #
   439    443     # NOTE: When running in Eagle, check for any non-core plugins loaded into
   440    444     #       the interpreter and issue warnings if any are found.  The warning
   441    445     #       may be used to explain subsequent test failures due to the extra
   442    446     #       plugins being loaded (i.e. there are some tests are sensitive to
   443    447     #       having "unexpected" plugins loaded).
   444    448     #
   445         -  if {[isEagle]} then {
          449  +  if {[isEagle] && ![info exists no(warningForPlugin)]} then {
   446    450       foreach loaded [info loaded] {
   447    451         #
   448    452         # HACK: This code assumes that all plugins in the "Eagle._Plugins"
   449    453         #       namespace belong to the Eagle core library itself.
   450    454         #
   451    455         if {![string match Eagle._Plugins.* [lindex $loaded 1]]} then {
   452    456           tputs $test_channel [appendArgs \
................................................................................
   542    546         [expr {[info exists test_configuration] ? \
   543    547             $test_configuration : "<none>"}] \n]
   544    548   
   545    549     tputs $test_channel [appendArgs "---- test suffix: " \
   546    550         [expr {[info exists test_suffix] ? \
   547    551             $test_suffix : "<none>"}] \n]
   548    552   
   549         -  if {[isEagle]} then {
          553  +  if {[isEagle] && ![info exists no(warningForStrongName)]} then {
   550    554       catch {info engine PublicKeyToken} publicKeyToken
   551    555   
   552    556       if {[string length $publicKeyToken] == 0} then {
   553    557         #
   554    558         # NOTE: The Eagle core library is not strong name signed.  This is not an
   555    559         #       error, per se; however, it may cause some tests to fail and it
   556    560         #       should be reported to the user and noted in the test suite log
................................................................................
  1398   1402         #
  1399   1403         if {![info exists no(testShell)]} then {
  1400   1404           #
  1401   1405           # NOTE: For test "debug-1.3".
  1402   1406           #
  1403   1407           checkForObjectMember $test_channel Eagle._Tests.Default \
  1404   1408               *TestShellMainCore*
         1409  +      }
  1405   1410   
         1411  +      #
         1412  +      # NOTE: Has quiet property testing support been disabled?
         1413  +      #
         1414  +      if {![info exists no(testSetQuiet)]} then {
  1406   1415           #
  1407   1416           # NOTE: For tests "basic-1.36" and "debug-1.3".
  1408   1417           #
  1409   1418           checkForObjectMember $test_channel Eagle._Tests.Default \
  1410   1419               *TestSetQuiet*
  1411   1420         }
         1421  +
         1422  +      #
         1423  +      # NOTE: Has complaint testing support been disabled?
         1424  +      #
         1425  +      if {![info exists no(testSetComplain)]} then {
         1426  +        #
         1427  +        # NOTE: This is not currently used by any tests.
         1428  +        #
         1429  +        checkForObjectMember $test_channel Eagle._Tests.Default \
         1430  +            *TestSetComplain*
         1431  +      }
  1412   1432   
  1413   1433         #
  1414   1434         # NOTE: Has linked variable testing support been disabled?
  1415   1435         #
  1416   1436         if {![info exists no(testLinkedVariables)]} then {
  1417   1437           #
  1418   1438           # NOTE: For tests "basic-1.39", "basic-1.40", "basic-1.41",