System.Data.SQLite
Check-in [9e66a41b59]
Not logged in

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

Overview
Comment:Pickup Eagle script library fixes from upstream.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9e66a41b59fe28475a0caa103db53282f87bf6fa
User & Date: mistachkin 2016-03-24 20:42:23
Context
2016-03-24
20:42
Avoid calling Win32 specific SQLite APIs on non-Windows platforms. check-in: 70d83a095a user: mistachkin tags: trunk
20:42
Pickup Eagle script library fixes from upstream. check-in: 9e66a41b59 user: mistachkin tags: trunk
04:59
In the batch build tool, add support for per-configuration MSBuild properties. Use them to enable all the typical diagnostic features in the Mono debug builds. check-in: 4e85b70ca1 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

123
124
125
126
127
128
129
130
131
132

133
134
135
136
137
138
139
140
141
142

143
144
145
146
147
148
149
150
        $operationCount \n]

    unset operationCount

    #
    # NOTE: Show the current state of the memory.
    #
    catch {debug memory} memory

    tputs $test_channel [appendArgs "---- ending memory: " \

        [formatListAsDict $memory <none>] \n]

    unset memory

    #
    # NOTE: Show the current state of the native stack.
    #
    catch {debug stack true} stack

    tputs $test_channel [appendArgs "---- ending stack: " \

        [formatListAsDict $stack <none>] \n]

    unset stack

    #
    # NOTE: Check for and display any duplicate test names that we found.  In
    #       theory, this checking may produce false positives if a test file
    #       (or the entire test suite) is run multiple times without resetting







|


>
|






|


>
|







123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
        $operationCount \n]

    unset operationCount

    #
    # NOTE: Show the current state of the memory.
    #
    set memory(0) [catch {debug memory} memory(1)]

    tputs $test_channel [appendArgs "---- ending memory: " \
        [formatListAsDict [expr {$memory(0) == 0 ? $memory(1) : ""}] \
        <none>] \n]

    unset memory

    #
    # NOTE: Show the current state of the native stack.
    #
    set stack(0) [catch {debug stack true} stack(1)]

    tputs $test_channel [appendArgs "---- ending stack: " \
        [formatListAsDict [expr {$stack(0) == 0 ? $stack(1) : ""}] \
        <none>] \n]

    unset stack

    #
    # NOTE: Check for and display any duplicate test names that we found.  In
    #       theory, this checking may produce false positives if a test file
    #       (or the entire test suite) is run multiple times without resetting

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

767
768
769
770
771
772
773

774

775
776

777
778
779
780
781
782

783

784
785

786
787
788
789
790
791
792
793
794

795
796
797
798
799
800

801
802
803
804
805
806

807
808
809
810
811
812

813
814
815
816
817
818
819
820
    tputs $test_channel [appendArgs "---- threadId: " \
        [info tid] \n]

    tputs $test_channel [appendArgs "---- processors: " \
        [info processors] \n]

    if {[llength [info commands object]] > 0} then {

      catch {object invoke Console.InputEncoding WebName} encoding

    } else {
      set encoding unavailable

    }

    tputs $test_channel [appendArgs "---- input encoding: " \
        $encoding \n]

    if {[llength [info commands object]] > 0} then {

      catch {object invoke Console.OutputEncoding WebName} encoding

    } else {
      set encoding unavailable

    }

    tputs $test_channel [appendArgs "---- output encoding: " \
        $encoding \n]

    unset encoding
    catch {host query} host

    tputs $test_channel [appendArgs "---- host query: " \

        [formatListAsDict $host <none>] \n]

    unset host
    catch {debug memory} memory

    tputs $test_channel [appendArgs "---- starting memory: " \

        [formatListAsDict $memory <none>] \n]

    unset memory
    catch {debug stack true} stack

    tputs $test_channel [appendArgs "---- starting stack: " \

        [formatListAsDict $stack <none>] \n]

    unset stack
    catch {file drive} drive

    tputs $test_channel [appendArgs "---- system drive: " \

        [formatListAsDict $drive <none>] \n]

    unset drive
  }

  tputs $test_channel [appendArgs "---- executable: \"" \
      $bin_file \"\n]








>
|
>

<
>



|


>
|
>

<
>



|


|


>
|


|


>
|


|


>
|


|


>
|







767
768
769
770
771
772
773
774
775
776
777

778
779
780
781
782
783
784
785
786
787
788

789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
    tputs $test_channel [appendArgs "---- threadId: " \
        [info tid] \n]

    tputs $test_channel [appendArgs "---- processors: " \
        [info processors] \n]

    if {[llength [info commands object]] > 0} then {
      set encoding(0) [catch {
        object invoke Console.InputEncoding WebName
      } encoding(1)]
    } else {

      set encoding(0) 0; set encoding(1) unavailable
    }

    tputs $test_channel [appendArgs "---- input encoding: " \
        [expr {$encoding(0) == 0 ? $encoding(1) : "<none>"}] \n]

    if {[llength [info commands object]] > 0} then {
      set encoding(0) [catch {
        object invoke Console.OutputEncoding WebName
      } encoding(1)]
    } else {

      set encoding(0) 0; set encoding(1) unavailable
    }

    tputs $test_channel [appendArgs "---- output encoding: " \
        [expr {$encoding(0) == 0 ? $encoding(1) : "<none>"}] \n]

    unset encoding
    set host(0) [catch {host query} host(1)]

    tputs $test_channel [appendArgs "---- host query: " \
        [formatListAsDict [expr {$host(0) == 0 ? $host(1) : ""}] \
        <none>] \n]

    unset host
    set memory(0) [catch {debug memory} memory(1)]

    tputs $test_channel [appendArgs "---- starting memory: " \
        [formatListAsDict [expr {$memory(0) == 0 ? $memory(1) : ""}] \
        <none>] \n]

    unset memory
    set stack(0) [catch {debug stack true} stack(1)]

    tputs $test_channel [appendArgs "---- starting stack: " \
        [formatListAsDict [expr {$stack(0) == 0 ? $stack(1) : ""}] \
        <none>] \n]

    unset stack
    set drive(0) [catch {file drive} drive(1)]

    tputs $test_channel [appendArgs "---- system drive: " \
        [formatListAsDict [expr {$drive(0) == 0 ? $drive(1) : ""}] \
        <none>] \n]

    unset drive
  }

  tputs $test_channel [appendArgs "---- executable: \"" \
      $bin_file \"\n]