[sql] Import reference version of SQLite 3.10.2.

third_party/sqlite/sqlite-src-3100200/ext/rbu/rbu_common.tcl

Index: third_party/sqlite/sqlite-src-3100200/ext/rbu/rbu_common.tcl
diff --git a/third_party/sqlite/sqlite-src-3100200/ext/rbu/rbu_common.tcl b/third_party/sqlite/sqlite-src-3100200/ext/rbu/rbu_common.tcl
new file mode 100644
index 0000000000000000000000000000000000000000..8190021baf9072236864173f5bf93faadd3beedd
--- /dev/null
+++ b/third_party/sqlite/sqlite-src-3100200/ext/rbu/rbu_common.tcl
@@ -0,0 +1,38 @@
+# 2015 Aug 8
+#
+# The author disclaims copyright to this source code.  In place of
+# a legal notice, here is a blessing:
+#
+#    May you do good and not evil.
+#    May you find forgiveness for yourself and forgive others.
+#    May you share freely, never taking more than you give.
+#
+#***********************************************************************
+#
+
+if {![info exists testdir]} {
+  set testdir [file join [file dirname [info script]] .. .. test]
+}
+source $testdir/tester.tcl
+
+# Run the RBU in file $rbu on target database $target until completion.
+#
+proc run_rbu {target rbu} {
+  sqlite3rbu rbu $target $rbu
+  while 1 {
+    set rc [rbu step]
+    if {$rc!="SQLITE_OK"} break
+  }
+  rbu close
+}
+
+proc step_rbu {target rbu} {
+  while 1 {
+    sqlite3rbu rbu $target $rbu
+    set rc [rbu step]
+    rbu close
+    if {$rc != "SQLITE_OK"} break
+  }
+  set rc
+}
+