From e45a334019ea7d35e2b014fb1db4b4f7c3d3f752 Mon Sep 17 00:00:00 2001
From: "D. Richard Hipp" <drh@hwaci.com>
Date: Tue, 7 Nov 2017 16:54:20 +0000
Subject: [PATCH] Add the --trace option to the sqlite3_checker utility
 program.

---
 ext/repair/sqlite3_checker.tcl | 35 +++++++++++++++++++++++++++--------
 1 file changed, 27 insertions(+), 8 deletions(-)

diff --git a/ext/repair/sqlite3_checker.tcl b/ext/repair/sqlite3_checker.tcl
index ab8d05e600..88c265f93c 100644
--- a/ext/repair/sqlite3_checker.tcl
+++ b/ext/repair/sqlite3_checker.tcl
@@ -42,7 +42,7 @@ proc tclsh {} {
 
 # Do an incremental integrity check of a single index
 #
-proc check_index {idxname batchsize} {
+proc check_index {idxname batchsize bTrace} {
   set i 0
   set more 1
   set nerr 0
@@ -51,18 +51,30 @@ proc check_index {idxname batchsize} {
                     WHERE name=$idxname}]
   puts -nonewline "$idxname: $i of $max rows ($pct%)\r"
   flush stdout
-  while {$more} {
-    set more 0
-    db eval {SELECT errmsg, current_key AS key
+  if {$bTrace} {
+    set sql {SELECT errmsg, current_key AS key,
+                    CASE WHEN rowid=1 THEN scanner_sql END AS traceOut
+               FROM incremental_index_check($idxname)
+              WHERE after_key=$key
+              LIMIT $batchsize}
+  } else {
+    set sql {SELECT errmsg, current_key AS key, NULL AS traceOut
                FROM incremental_index_check($idxname)
               WHERE after_key=$key
-              LIMIT $batchsize} {
+              LIMIT $batchsize}
+  }
+  while {$more} {
+    set more 0
+    db eval $sql {
       set more 1
       if {$errmsg!=""} {
         incr nerr
         puts "$idxname: key($key): $errmsg"
+      } elseif {$traceOut!=""} {
+        puts "$idxname: $traceOut"
       }
       incr i
+      
     }
     set x [format {%.1f} [expr {($i*100.0)/$max}]]
     if {$x!=$pct} {
@@ -97,6 +109,8 @@ Options:
 
    --tclsh           Run the built-in TCL interpreter (for debugging)
 
+   --trace           (Debugging only:) Output trace information on the scan
+
    --version         Show the version number of SQLite
 }
   exit 1
@@ -110,6 +124,7 @@ set zIndex {}
 set zTable {}
 set batchsize 1000
 set bAll 1
+set bTrace 0
 set argc [llength $argv]
 for {set i 0} {$i<$argc} {incr i} {
   set arg [lindex $argv $i]
@@ -133,6 +148,10 @@ for {set i 0} {$i<$argc} {incr i} {
     set bAll 0
     continue
   }
+  if {[regexp {^-+trace$} $arg]} {
+    set bTrace 1
+    continue
+  }
   if {[regexp {^-+batchsize$} $arg]} {
     incr i
     if {$i>=$argc} {
@@ -224,13 +243,13 @@ if {$bSummary} {
   }
 }
 if {$zIndex!=""} {
-  check_index $zIndex $batchsize
+  check_index $zIndex $batchsize $bTrace
 }
 if {$zTable!=""} {
   foreach idx [db eval {SELECT name FROM sqlite_master
                          WHERE type='index' AND rootpage>0
                            AND tbl_name=$zTable}] {
-    check_index $idx $batchsize
+    check_index $idx $batchsize $bTrace
   }
 }
 if {$bAll} {
@@ -238,6 +257,6 @@ if {$bAll} {
                         WHERE type='index' AND rootpage>0
                         ORDER BY nEntry}]
   foreach idx $allidx {
-    check_index $idx $batchsize
+    check_index $idx $batchsize $bTrace
   }
 }
-- 
2.11.4.GIT