/ Hex Artifact Content
Login

Artifact 6b5a099476ab96e7bca8bb6c48bc28700157a314:


0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20  /*.** Copyright 
0010: 28 63 29 20 32 30 30 31 20 44 2e 20 52 69 63 68  (c) 2001 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54  ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66  his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f  ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75  u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20  te it and/or.** 
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20  modify it under 
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65  the terms of the
0090: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62   GNU General Pub
00a0: 6c 69 63 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61  lic.** License a
00b0: 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 20 74  s published by t
00c0: 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65  he Free Software
00d0: 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74   Foundation; eit
00e0: 68 65 72 0a 2a 2a 20 76 65 72 73 69 6f 6e 20 32  her.** version 2
00f0: 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c   of the License,
0100: 20 6f 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74   or (at your opt
0110: 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76  ion) any later v
0120: 65 72 73 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68  ersion..**.** Th
0130: 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69  is program is di
0140: 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65  stributed in the
0150: 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69   hope that it wi
0160: 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a  ll be useful,.**
0170: 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59   but WITHOUT ANY
0180: 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f   WARRANTY; witho
0190: 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c  ut even the impl
01a0: 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a  ied warranty of.
01b0: 2a 2a 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49  ** MERCHANTABILI
01c0: 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f  TY or FITNESS FO
01d0: 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50  R A PARTICULAR P
01e0: 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65  URPOSE.  See the
01f0: 20 47 4e 55 0a 2a 2a 20 47 65 6e 65 72 61 6c 20   GNU.** General 
0200: 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66  Public License f
0210: 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e  or more details.
0220: 0a 2a 2a 20 0a 2a 2a 20 59 6f 75 20 73 68 6f 75  .** .** You shou
0230: 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64  ld have received
0240: 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47   a copy of the G
0250: 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69  NU General Publi
0260: 63 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61 6c 6f  c.** License alo
0270: 6e 67 20 77 69 74 68 20 74 68 69 73 20 6c 69 62  ng with this lib
0280: 72 61 72 79 3b 20 69 66 20 6e 6f 74 2c 20 77 72  rary; if not, wr
0290: 69 74 65 20 74 6f 20 74 68 65 0a 2a 2a 20 46 72  ite to the.** Fr
02a0: 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e  ee Software Foun
02b0: 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39  dation, Inc., 59
02c0: 20 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20   Temple Place - 
02d0: 53 75 69 74 65 20 33 33 30 2c 0a 2a 2a 20 42 6f  Suite 330,.** Bo
02e0: 73 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d  ston, MA  02111-
02f0: 31 33 30 37 2c 20 55 53 41 2e 0a 2a 2a 0a 2a 2a  1307, USA..**.**
0300: 20 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 20   Author contact 
0310: 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20  information:.** 
0320: 20 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a    drh@hwaci.com.
0330: 2a 2a 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e  **   http://www.
0340: 68 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a  hwaci.com/drh/.*
0350: 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  *.**************
0360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0390: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 43  ***********.** C
03a0: 6f 64 65 20 66 6f 72 20 74 65 73 74 69 6e 67 20  ode for testing 
03b0: 74 68 65 20 62 74 72 65 65 2e 63 20 6d 6f 64 75  the btree.c modu
03c0: 6c 65 20 69 6e 20 53 51 4c 69 74 65 2e 20 20 54  le in SQLite.  T
03d0: 68 69 73 20 63 6f 64 65 0a 2a 2a 20 69 73 20 6e  his code.** is n
03e0: 6f 74 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74  ot included in t
03f0: 68 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72  he SQLite librar
0400: 79 2e 20 20 49 74 20 69 73 20 75 73 65 64 20 66  y.  It is used f
0410: 6f 72 20 61 75 74 6f 6d 61 74 65 64 0a 2a 2a 20  or automated.** 
0420: 74 65 73 74 69 6e 67 20 6f 66 20 74 68 65 20 53  testing of the S
0430: 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 0a 2a  QLite library..*
0440: 2a 0a 2a 2a 20 24 49 64 3a 20 74 65 73 74 33 2e  *.** $Id: test3.
0450: 63 2c 76 20 31 2e 35 20 32 30 30 31 2f 30 36 2f  c,v 1.5 2001/06/
0460: 33 30 20 32 31 3a 35 33 3a 35 33 20 64 72 68 20  30 21:53:53 drh 
0470: 45 78 70 20 24 0a 2a 2f 0a 23 69 6e 63 6c 75 64  Exp $.*/.#includ
0480: 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a  e "sqliteInt.h".
0490: 23 69 6e 63 6c 75 64 65 20 22 70 61 67 65 72 2e  #include "pager.
04a0: 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 62 74 72  h".#include "btr
04b0: 65 65 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22  ee.h".#include "
04c0: 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20  tcl.h".#include 
04d0: 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c  <stdlib.h>.#incl
04e0: 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 0a  ude <string.h>..
04f0: 2f 2a 0a 2a 2a 20 49 6e 74 65 72 70 72 65 74 20  /*.** Interpret 
0500: 61 6e 20 53 51 4c 69 74 65 20 65 72 72 6f 72 20  an SQLite error 
0510: 6e 75 6d 62 65 72 0a 2a 2f 0a 73 74 61 74 69 63  number.*/.static
0520: 20 63 68 61 72 20 2a 65 72 72 6f 72 4e 61 6d 65   char *errorName
0530: 28 69 6e 74 20 72 63 29 7b 0a 20 20 63 68 61 72  (int rc){.  char
0540: 20 2a 7a 4e 61 6d 65 3b 0a 20 20 73 77 69 74 63   *zName;.  switc
0550: 68 28 20 72 63 20 29 7b 0a 20 20 20 20 63 61 73  h( rc ){.    cas
0560: 65 20 53 51 4c 49 54 45 5f 4f 4b 3a 20 20 20 20  e SQLITE_OK:    
0570: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51       zName = "SQ
0580: 4c 49 54 45 5f 4f 4b 22 3b 20 20 20 20 20 20 20  LITE_OK";       
0590: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61     break;.    ca
05a0: 73 65 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3a  se SQLITE_ERROR:
05b0: 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53        zName = "S
05c0: 51 4c 49 54 45 5f 45 52 52 4f 52 22 3b 20 20 20  QLITE_ERROR";   
05d0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63      break;.    c
05e0: 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 54 45 52  ase SQLITE_INTER
05f0: 4e 41 4c 3a 20 20 20 7a 4e 61 6d 65 20 3d 20 22  NAL:   zName = "
0600: 53 51 4c 49 54 45 5f 49 4e 54 45 52 4e 41 4c 22  SQLITE_INTERNAL"
0610: 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20  ;    break;.    
0620: 63 61 73 65 20 53 51 4c 49 54 45 5f 50 45 52 4d  case SQLITE_PERM
0630: 3a 20 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20  :       zName = 
0640: 22 53 51 4c 49 54 45 5f 50 45 52 4d 22 3b 20 20  "SQLITE_PERM";  
0650: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
0660: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 41 42 4f   case SQLITE_ABO
0670: 52 54 3a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d  RT:      zName =
0680: 20 22 53 51 4c 49 54 45 5f 41 42 4f 52 54 22 3b   "SQLITE_ABORT";
0690: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
06a0: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 42 55    case SQLITE_BU
06b0: 53 59 3a 20 20 20 20 20 20 20 7a 4e 61 6d 65 20  SY:       zName 
06c0: 3d 20 22 53 51 4c 49 54 45 5f 42 55 53 59 22 3b  = "SQLITE_BUSY";
06d0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
06e0: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 4e     case SQLITE_N
06f0: 4f 4d 45 4d 3a 20 20 20 20 20 20 7a 4e 61 6d 65  OMEM:      zName
0700: 20 3d 20 22 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d   = "SQLITE_NOMEM
0710: 22 3b 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  ";       break;.
0720: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
0730: 52 45 41 44 4f 4e 4c 59 3a 20 20 20 7a 4e 61 6d  READONLY:   zNam
0740: 65 20 3d 20 22 53 51 4c 49 54 45 5f 52 45 41 44  e = "SQLITE_READ
0750: 4f 4e 4c 59 22 3b 20 20 20 20 62 72 65 61 6b 3b  ONLY";    break;
0760: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
0770: 5f 49 4e 54 45 52 52 55 50 54 3a 20 20 7a 4e 61  _INTERRUPT:  zNa
0780: 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4e 54  me = "SQLITE_INT
0790: 45 52 52 55 50 54 22 3b 20 20 20 62 72 65 61 6b  ERRUPT";   break
07a0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54  ;.    case SQLIT
07b0: 45 5f 49 4f 45 52 52 3a 20 20 20 20 20 20 7a 4e  E_IOERR:      zN
07c0: 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 49 4f  ame = "SQLITE_IO
07d0: 45 52 52 22 3b 20 20 20 20 20 20 20 62 72 65 61  ERR";       brea
07e0: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49  k;.    case SQLI
07f0: 54 45 5f 43 4f 52 52 55 50 54 3a 20 20 20 20 7a  TE_CORRUPT:    z
0800: 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f 43  Name = "SQLITE_C
0810: 4f 52 52 55 50 54 22 3b 20 20 20 20 20 62 72 65  ORRUPT";     bre
0820: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
0830: 49 54 45 5f 4e 4f 54 46 4f 55 4e 44 3a 20 20 20  ITE_NOTFOUND:   
0840: 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45 5f  zName = "SQLITE_
0850: 4e 4f 54 46 4f 55 4e 44 22 3b 20 20 20 20 62 72  NOTFOUND";    br
0860: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
0870: 4c 49 54 45 5f 46 55 4c 4c 3a 20 20 20 20 20 20  LITE_FULL:      
0880: 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54 45   zName = "SQLITE
0890: 5f 46 55 4c 4c 22 3b 20 20 20 20 20 20 20 20 62  _FULL";        b
08a0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53  reak;.    case S
08b0: 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3a 20  QLITE_CANTOPEN: 
08c0: 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49 54    zName = "SQLIT
08d0: 45 5f 43 41 4e 54 4f 50 45 4e 22 3b 20 20 20 20  E_CANTOPEN";    
08e0: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
08f0: 53 51 4c 49 54 45 5f 50 52 4f 54 4f 43 4f 4c 3a  SQLITE_PROTOCOL:
0900: 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c 49     zName = "SQLI
0910: 54 45 5f 50 52 4f 54 4f 43 4f 4c 22 3b 20 20 20  TE_PROTOCOL";   
0920: 20 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 66 61   break;.    defa
0930: 75 6c 74 3a 20 20 20 20 20 20 20 20 20 20 20 20  ult:            
0940: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 22 53 51 4c      zName = "SQL
0950: 49 54 45 5f 55 6e 6b 6e 6f 77 6e 22 3b 20 20 20  ITE_Unknown";   
0960: 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 72    break;.  }.  r
0970: 65 74 75 72 6e 20 7a 4e 61 6d 65 3b 0a 7d 0a 0a  eturn zName;.}..
0980: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 62  /*.** Usage:   b
0990: 74 72 65 65 5f 6f 70 65 6e 20 46 49 4c 45 4e 41  tree_open FILENA
09a0: 4d 45 0a 2a 2a 0a 2a 2a 20 4f 70 65 6e 20 61 20  ME.**.** Open a 
09b0: 6e 65 77 20 64 61 74 61 62 61 73 65 0a 2a 2f 0a  new database.*/.
09c0: 73 74 61 74 69 63 20 69 6e 74 20 62 74 72 65 65  static int btree
09d0: 5f 6f 70 65 6e 28 0a 20 20 76 6f 69 64 20 2a 4e  _open(.  void *N
09e0: 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e  otUsed,.  Tcl_In
09f0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20  terp *interp,   
0a00: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65   /* The TCL inte
0a10: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76  rpreter that inv
0a20: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e  oked this comman
0a30: 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c  d */.  int argc,
0a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0a50: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d   Number of argum
0a60: 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a  ents */.  char *
0a70: 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20  *argv           
0a80: 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68   /* Text of each
0a90: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a   argument */.){.
0aa0: 20 20 42 74 72 65 65 20 2a 70 42 74 3b 0a 20 20    Btree *pBt;.  
0ab0: 69 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 7a  int rc;.  char z
0ac0: 42 75 66 5b 31 30 30 5d 3b 0a 20 20 69 66 28 20  Buf[100];.  if( 
0ad0: 61 72 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54  argc!=2 ){.    T
0ae0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
0af0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23  interp, "wrong #
0b00: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65   args: should be
0b10: 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20   \"", argv[0],. 
0b20: 20 20 20 20 20 20 22 20 46 49 4c 45 4e 41 4d 45        " FILENAME
0b30: 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  \"", 0);.    ret
0b40: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
0b50: 20 7d 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65   }.  rc = sqlite
0b60: 42 74 72 65 65 4f 70 65 6e 28 61 72 67 76 5b 31  BtreeOpen(argv[1
0b70: 5d 2c 20 30 36 36 36 2c 20 26 70 42 74 29 3b 0a  ], 0666, &pBt);.
0b80: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45    if( rc!=SQLITE
0b90: 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  _OK ){.    Tcl_A
0ba0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
0bb0: 72 70 2c 20 65 72 72 6f 72 4e 61 6d 65 28 72 63  rp, errorName(rc
0bc0: 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72  ), 0);.    retur
0bd0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
0be0: 0a 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c  .  sprintf(zBuf,
0bf0: 22 30 78 25 78 22 2c 28 69 6e 74 29 70 42 74 29  "0x%x",(int)pBt)
0c00: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65  ;.  Tcl_AppendRe
0c10: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75  sult(interp, zBu
0c20: 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20  f, 0);.  return 
0c30: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  TCL_OK;.}../*.**
0c40: 20 55 73 61 67 65 3a 20 20 20 62 74 72 65 65 5f   Usage:   btree_
0c50: 63 6c 6f 73 65 20 49 44 0a 2a 2a 0a 2a 2a 20 43  close ID.**.** C
0c60: 6c 6f 73 65 20 74 68 65 20 67 69 76 65 6e 20 64  lose the given d
0c70: 61 74 61 62 61 73 65 2e 0a 2a 2f 0a 73 74 61 74  atabase..*/.stat
0c80: 69 63 20 69 6e 74 20 62 74 72 65 65 5f 63 6c 6f  ic int btree_clo
0c90: 73 65 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55  se(.  void *NotU
0ca0: 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72  sed,.  Tcl_Inter
0cb0: 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a  p *interp,    /*
0cc0: 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72   The TCL interpr
0cd0: 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65  eter that invoke
0ce0: 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a  d this command *
0cf0: 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20  /.  int argc,   
0d00: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
0d10: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74  mber of argument
0d20: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72  s */.  char **ar
0d30: 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  gv            /*
0d40: 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72   Text of each ar
0d50: 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42  gument */.){.  B
0d60: 74 72 65 65 20 2a 70 42 74 3b 0a 20 20 69 6e 74  tree *pBt;.  int
0d70: 20 72 63 3b 0a 20 20 69 66 28 20 61 72 67 63 21   rc;.  if( argc!
0d80: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =2 ){.    Tcl_Ap
0d90: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
0da0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
0db0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
0dc0: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20   argv[0],.      
0dd0: 20 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a 20 20   " ID\"", 0);.  
0de0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
0df0: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63  OR;.  }.  if( Tc
0e00: 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c  l_GetInt(interp,
0e10: 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74 2a 29   argv[1], (int*)
0e20: 26 70 42 74 29 20 29 20 72 65 74 75 72 6e 20 54  &pBt) ) return T
0e30: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d  CL_ERROR;.  rc =
0e40: 20 73 71 6c 69 74 65 42 74 72 65 65 43 6c 6f 73   sqliteBtreeClos
0e50: 65 28 70 42 74 29 3b 0a 20 20 69 66 28 20 72 63  e(pBt);.  if( rc
0e60: 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  !=SQLITE_OK ){. 
0e70: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
0e80: 75 6c 74 28 69 6e 74 65 72 70 2c 20 65 72 72 6f  ult(interp, erro
0e90: 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20  rName(rc), 0);. 
0ea0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
0eb0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72  ROR;.  }.  retur
0ec0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  n TCL_OK;.}../*.
0ed0: 2a 2a 20 55 73 61 67 65 3a 20 20 20 62 74 72 65  ** Usage:   btre
0ee0: 65 5f 62 65 67 69 6e 5f 74 72 61 6e 73 61 63 74  e_begin_transact
0ef0: 69 6f 6e 20 49 44 0a 2a 2a 0a 2a 2a 20 53 74 61  ion ID.**.** Sta
0f00: 72 74 20 61 20 6e 65 77 20 74 72 61 6e 73 61 63  rt a new transac
0f10: 74 69 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  tion.*/.static i
0f20: 6e 74 20 62 74 72 65 65 5f 62 65 67 69 6e 5f 74  nt btree_begin_t
0f30: 72 61 6e 73 61 63 74 69 6f 6e 28 0a 20 20 76 6f  ransaction(.  vo
0f40: 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54  id *NotUsed,.  T
0f50: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0f60: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c  p,    /* The TCL
0f70: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61   interpreter tha
0f80: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63  t invoked this c
0f90: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20  ommand */.  int 
0fa0: 61 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20  argc,           
0fb0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
0fc0: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63  arguments */.  c
0fd0: 68 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20  har **argv      
0fe0: 20 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66        /* Text of
0ff0: 20 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a   each argument *
1000: 2f 0a 29 7b 0a 20 20 42 74 72 65 65 20 2a 70 42  /.){.  Btree *pB
1010: 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69  t;.  int rc;.  i
1020: 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20 20  f( argc!=2 ){.  
1030: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
1040: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e  lt(interp, "wron
1050: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64  g # args: should
1060: 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d   be \"", argv[0]
1070: 2c 0a 20 20 20 20 20 20 20 22 20 49 44 5c 22 22  ,.       " ID\""
1080: 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  , 0);.    return
1090: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
10a0: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74    if( Tcl_GetInt
10b0: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d  (interp, argv[1]
10c0: 2c 20 28 69 6e 74 2a 29 26 70 42 74 29 20 29 20  , (int*)&pBt) ) 
10d0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
10e0: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 42  ;.  rc = sqliteB
10f0: 74 72 65 65 42 65 67 69 6e 54 72 61 6e 73 28 70  treeBeginTrans(p
1100: 42 74 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53  Bt);.  if( rc!=S
1110: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
1120: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
1130: 28 69 6e 74 65 72 70 2c 20 65 72 72 6f 72 4e 61  (interp, errorNa
1140: 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20  me(rc), 0);.    
1150: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
1160: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54  ;.  }.  return T
1170: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
1180: 55 73 61 67 65 3a 20 20 20 62 74 72 65 65 5f 72  Usage:   btree_r
1190: 6f 6c 6c 62 61 63 6b 20 49 44 0a 2a 2a 0a 2a 2a  ollback ID.**.**
11a0: 20 52 6f 6c 6c 62 61 63 6b 20 63 68 61 6e 67 65   Rollback change
11b0: 73 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  s.*/.static int 
11c0: 62 74 72 65 65 5f 72 6f 6c 6c 62 61 63 6b 28 0a  btree_rollback(.
11d0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c    void *NotUsed,
11e0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
11f0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65  nterp,    /* The
1200: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72   TCL interpreter
1210: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68   that invoked th
1220: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20  is command */.  
1230: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20  int argc,       
1240: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
1250: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f   of arguments */
1260: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20  .  char **argv  
1270: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78            /* Tex
1280: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65  t of each argume
1290: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 72 65 65  nt */.){.  Btree
12a0: 20 2a 70 42 74 3b 0a 20 20 69 6e 74 20 72 63 3b   *pBt;.  int rc;
12b0: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29  .  if( argc!=2 )
12c0: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
12d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
12e0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
12f0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67  ould be \"", arg
1300: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 49  v[0],.       " I
1310: 44 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65  D\"", 0);.    re
1320: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1330: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65    }.  if( Tcl_Ge
1340: 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67  tInt(interp, arg
1350: 76 5b 31 5d 2c 20 28 69 6e 74 2a 29 26 70 42 74  v[1], (int*)&pBt
1360: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
1370: 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c  RROR;.  rc = sql
1380: 69 74 65 42 74 72 65 65 52 6f 6c 6c 62 61 63 6b  iteBtreeRollback
1390: 28 70 42 74 29 3b 0a 20 20 69 66 28 20 72 63 21  (pBt);.  if( rc!
13a0: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
13b0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
13c0: 6c 74 28 69 6e 74 65 72 70 2c 20 65 72 72 6f 72  lt(interp, error
13d0: 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20  Name(rc), 0);.  
13e0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
13f0: 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  OR;.  }.  return
1400: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
1410: 2a 20 55 73 61 67 65 3a 20 20 20 62 74 72 65 65  * Usage:   btree
1420: 5f 63 6f 6d 6d 69 74 20 49 44 0a 2a 2a 0a 2a 2a  _commit ID.**.**
1430: 20 43 6f 6d 6d 69 74 20 61 6c 6c 20 63 68 61 6e   Commit all chan
1440: 67 65 73 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ges.*/.static in
1450: 74 20 62 74 72 65 65 5f 63 6f 6d 6d 69 74 28 0a  t btree_commit(.
1460: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c    void *NotUsed,
1470: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
1480: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65  nterp,    /* The
1490: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72   TCL interpreter
14a0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68   that invoked th
14b0: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20  is command */.  
14c0: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20  int argc,       
14d0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
14e0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f   of arguments */
14f0: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20  .  char **argv  
1500: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78            /* Tex
1510: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65  t of each argume
1520: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 72 65 65  nt */.){.  Btree
1530: 20 2a 70 42 74 3b 0a 20 20 69 6e 74 20 72 63 3b   *pBt;.  int rc;
1540: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 20 29  .  if( argc!=2 )
1550: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
1560: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
1570: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
1580: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67  ould be \"", arg
1590: 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 49  v[0],.       " I
15a0: 44 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65  D\"", 0);.    re
15b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
15c0: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65    }.  if( Tcl_Ge
15d0: 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67  tInt(interp, arg
15e0: 76 5b 31 5d 2c 20 28 69 6e 74 2a 29 26 70 42 74  v[1], (int*)&pBt
15f0: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
1600: 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c  RROR;.  rc = sql
1610: 69 74 65 42 74 72 65 65 43 6f 6d 6d 69 74 28 70  iteBtreeCommit(p
1620: 42 74 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53  Bt);.  if( rc!=S
1630: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
1640: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
1650: 28 69 6e 74 65 72 70 2c 20 65 72 72 6f 72 4e 61  (interp, errorNa
1660: 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20  me(rc), 0);.    
1670: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
1680: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54  ;.  }.  return T
1690: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
16a0: 55 73 61 67 65 3a 20 20 20 62 74 72 65 65 5f 63  Usage:   btree_c
16b0: 72 65 61 74 65 5f 74 61 62 6c 65 20 49 44 0a 2a  reate_table ID.*
16c0: 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61 20 6e 65  *.** Create a ne
16d0: 77 20 74 61 62 6c 65 20 69 6e 20 74 68 65 20 64  w table in the d
16e0: 61 74 61 62 61 73 65 0a 2a 2f 0a 73 74 61 74 69  atabase.*/.stati
16f0: 63 20 69 6e 74 20 62 74 72 65 65 5f 63 72 65 61  c int btree_crea
1700: 74 65 5f 74 61 62 6c 65 28 0a 20 20 76 6f 69 64  te_table(.  void
1710: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c   *NotUsed,.  Tcl
1720: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
1730: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69      /* The TCL i
1740: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20  nterpreter that 
1750: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d  invoked this com
1760: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72  mand */.  int ar
1770: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  gc,             
1780: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72   /* Number of ar
1790: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61  guments */.  cha
17a0: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20  r **argv        
17b0: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65      /* Text of e
17c0: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a  ach argument */.
17d0: 29 7b 0a 20 20 42 74 72 65 65 20 2a 70 42 74 3b  ){.  Btree *pBt;
17e0: 0a 20 20 69 6e 74 20 72 63 2c 20 69 54 61 62 6c  .  int rc, iTabl
17f0: 65 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33  e;.  char zBuf[3
1800: 30 5d 3b 0a 20 20 69 66 28 20 61 72 67 63 21 3d  0];.  if( argc!=
1810: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70  2 ){.    Tcl_App
1820: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
1830: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a  , "wrong # args:
1840: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20   should be \"", 
1850: 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20 20  argv[0],.       
1860: 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a 20 20 20  " ID\"", 0);.   
1870: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
1880: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c  R;.  }.  if( Tcl
1890: 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20  _GetInt(interp, 
18a0: 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74 2a 29 26  argv[1], (int*)&
18b0: 70 42 74 29 20 29 20 72 65 74 75 72 6e 20 54 43  pBt) ) return TC
18c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20  L_ERROR;.  rc = 
18d0: 73 71 6c 69 74 65 42 74 72 65 65 43 72 65 61 74  sqliteBtreeCreat
18e0: 65 54 61 62 6c 65 28 70 42 74 2c 20 26 69 54 61  eTable(pBt, &iTa
18f0: 62 6c 65 29 3b 0a 20 20 69 66 28 20 72 63 21 3d  ble);.  if( rc!=
1900: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20  SQLITE_OK ){.   
1910: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
1920: 74 28 69 6e 74 65 72 70 2c 20 65 72 72 6f 72 4e  t(interp, errorN
1930: 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20  ame(rc), 0);.   
1940: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
1950: 52 3b 0a 20 20 7d 0a 20 20 73 70 72 69 6e 74 66  R;.  }.  sprintf
1960: 28 7a 42 75 66 2c 20 22 25 64 22 2c 20 69 54 61  (zBuf, "%d", iTa
1970: 62 6c 65 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65  ble);.  Tcl_Appe
1980: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
1990: 20 7a 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74   zBuf, 0);.  ret
19a0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
19b0: 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 62 74  *.** Usage:   bt
19c0: 72 65 65 5f 64 72 6f 70 5f 74 61 62 6c 65 20 49  ree_drop_table I
19d0: 44 20 54 41 42 4c 45 4e 55 4d 0a 2a 2a 0a 2a 2a  D TABLENUM.**.**
19e0: 20 44 65 6c 65 74 65 20 61 6e 20 65 6e 74 69 72   Delete an entir
19f0: 65 20 74 61 62 6c 65 20 66 72 6f 6d 20 74 68 65  e table from the
1a00: 20 64 61 74 61 62 61 73 65 0a 2a 2f 0a 73 74 61   database.*/.sta
1a10: 74 69 63 20 69 6e 74 20 62 74 72 65 65 5f 64 72  tic int btree_dr
1a20: 6f 70 5f 74 61 62 6c 65 28 0a 20 20 76 6f 69 64  op_table(.  void
1a30: 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c   *NotUsed,.  Tcl
1a40: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
1a50: 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69      /* The TCL i
1a60: 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74 20  nterpreter that 
1a70: 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d  invoked this com
1a80: 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72  mand */.  int ar
1a90: 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  gc,             
1aa0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72   /* Number of ar
1ab0: 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61  guments */.  cha
1ac0: 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20  r **argv        
1ad0: 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65      /* Text of e
1ae0: 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a  ach argument */.
1af0: 29 7b 0a 20 20 42 74 72 65 65 20 2a 70 42 74 3b  ){.  Btree *pBt;
1b00: 0a 20 20 69 6e 74 20 69 54 61 62 6c 65 3b 0a 20  .  int iTable;. 
1b10: 20 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 61   int rc;.  if( a
1b20: 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63  rgc!=3 ){.    Tc
1b30: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
1b40: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20  nterp, "wrong # 
1b50: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20  args: should be 
1b60: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20  \"", argv[0],.  
1b70: 20 20 20 20 20 22 20 49 44 20 54 41 42 4c 45 4e       " ID TABLEN
1b80: 55 4d 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72  UM\"", 0);.    r
1b90: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1ba0: 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47  .  }.  if( Tcl_G
1bb0: 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72  etInt(interp, ar
1bc0: 67 76 5b 31 5d 2c 20 28 69 6e 74 2a 29 26 70 42  gv[1], (int*)&pB
1bd0: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f  t) ) return TCL_
1be0: 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c  ERROR;.  if( Tcl
1bf0: 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20  _GetInt(interp, 
1c00: 61 72 67 76 5b 32 5d 2c 20 26 69 54 61 62 6c 65  argv[2], &iTable
1c10: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
1c20: 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c  RROR;.  rc = sql
1c30: 69 74 65 42 74 72 65 65 44 72 6f 70 54 61 62 6c  iteBtreeDropTabl
1c40: 65 28 70 42 74 2c 20 69 54 61 62 6c 65 29 3b 0a  e(pBt, iTable);.
1c50: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45    if( rc!=SQLITE
1c60: 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  _OK ){.    Tcl_A
1c70: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
1c80: 72 70 2c 20 65 72 72 6f 72 4e 61 6d 65 28 72 63  rp, errorName(rc
1c90: 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72  ), 0);.    retur
1ca0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
1cb0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
1cc0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65  ;.}../*.** Usage
1cd0: 3a 20 20 20 62 74 72 65 65 5f 67 65 74 5f 6d 65  :   btree_get_me
1ce0: 74 61 20 49 44 0a 2a 2a 0a 2a 2a 20 52 65 74 75  ta ID.**.** Retu
1cf0: 72 6e 20 6d 65 74 61 20 64 61 74 61 0a 2a 2f 0a  rn meta data.*/.
1d00: 73 74 61 74 69 63 20 69 6e 74 20 62 74 72 65 65  static int btree
1d10: 5f 67 65 74 5f 6d 65 74 61 28 0a 20 20 76 6f 69  _get_meta(.  voi
1d20: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63  d *NotUsed,.  Tc
1d30: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
1d40: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20  ,    /* The TCL 
1d50: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74  interpreter that
1d60: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f   invoked this co
1d70: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61  mmand */.  int a
1d80: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20  rgc,            
1d90: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61    /* Number of a
1da0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68  rguments */.  ch
1db0: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20  ar **argv       
1dc0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20       /* Text of 
1dd0: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f  each argument */
1de0: 0a 29 7b 0a 20 20 42 74 72 65 65 20 2a 70 42 74  .){.  Btree *pBt
1df0: 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e  ;.  int rc;.  in
1e00: 74 20 69 3b 0a 20 20 69 6e 74 20 61 4d 65 74 61  t i;.  int aMeta
1e10: 5b 53 51 4c 49 54 45 5f 4e 5f 42 54 52 45 45 5f  [SQLITE_N_BTREE_
1e20: 4d 45 54 41 5d 3b 0a 20 20 69 66 28 20 61 72 67  META];.  if( arg
1e30: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=2 ){.    Tcl_
1e40: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
1e50: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
1e60: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
1e70: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20  ", argv[0],.    
1e80: 20 20 20 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a     " ID\"", 0);.
1e90: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
1ea0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
1eb0: 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72  Tcl_GetInt(inter
1ec0: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74  p, argv[1], (int
1ed0: 2a 29 26 70 42 74 29 20 29 20 72 65 74 75 72 6e  *)&pBt) ) return
1ee0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63   TCL_ERROR;.  rc
1ef0: 20 3d 20 73 71 6c 69 74 65 42 74 72 65 65 47 65   = sqliteBtreeGe
1f00: 74 4d 65 74 61 28 70 42 74 2c 20 61 4d 65 74 61  tMeta(pBt, aMeta
1f10: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c  );.  if( rc!=SQL
1f20: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63  ITE_OK ){.    Tc
1f30: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
1f40: 6e 74 65 72 70 2c 20 65 72 72 6f 72 4e 61 6d 65  nterp, errorName
1f50: 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65  (rc), 0);.    re
1f60: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1f70: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69    }.  for(i=0; i
1f80: 3c 53 51 4c 49 54 45 5f 4e 5f 42 54 52 45 45 5f  <SQLITE_N_BTREE_
1f90: 4d 45 54 41 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  META; i++){.    
1fa0: 63 68 61 72 20 7a 42 75 66 5b 33 30 5d 3b 0a 20  char zBuf[30];. 
1fb0: 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c     sprintf(zBuf,
1fc0: 22 25 64 22 2c 61 4d 65 74 61 5b 69 5d 29 3b 0a  "%d",aMeta[i]);.
1fd0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c      Tcl_AppendEl
1fe0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42  ement(interp, zB
1ff0: 75 66 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72  uf);.  }.  retur
2000: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  n TCL_OK;.}../*.
2010: 2a 2a 20 55 73 61 67 65 3a 20 20 20 62 74 72 65  ** Usage:   btre
2020: 65 5f 75 70 64 61 74 65 5f 6d 65 74 61 20 49 44  e_update_meta ID
2030: 20 4d 45 54 41 44 41 54 41 2e 2e 2e 0a 2a 2a 0a   METADATA....**.
2040: 2a 2a 20 52 65 74 75 72 6e 20 6d 65 74 61 20 64  ** Return meta d
2050: 61 74 61 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ata.*/.static in
2060: 74 20 62 74 72 65 65 5f 75 70 64 61 74 65 5f 6d  t btree_update_m
2070: 65 74 61 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74  eta(.  void *Not
2080: 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Used,.  Tcl_Inte
2090: 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f  rp *interp,    /
20a0: 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70  * The TCL interp
20b0: 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b  reter that invok
20c0: 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20  ed this command 
20d0: 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20  */.  int argc,  
20e0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
20f0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e  umber of argumen
2100: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61  ts */.  char **a
2110: 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20 2f  rgv            /
2120: 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20 61  * Text of each a
2130: 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20  rgument */.){.  
2140: 42 74 72 65 65 20 2a 70 42 74 3b 0a 20 20 69 6e  Btree *pBt;.  in
2150: 74 20 72 63 3b 0a 20 20 69 6e 74 20 69 3b 0a 20  t rc;.  int i;. 
2160: 20 69 6e 74 20 61 4d 65 74 61 5b 53 51 4c 49 54   int aMeta[SQLIT
2170: 45 5f 4e 5f 42 54 52 45 45 5f 4d 45 54 41 5d 3b  E_N_BTREE_META];
2180: 0a 0a 20 20 69 66 28 20 61 72 67 63 21 3d 32 2b  ..  if( argc!=2+
2190: 53 51 4c 49 54 45 5f 4e 5f 42 54 52 45 45 5f 4d  SQLITE_N_BTREE_M
21a0: 45 54 41 20 29 7b 0a 20 20 20 20 63 68 61 72 20  ETA ){.    char 
21b0: 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 20 20 73 70  zBuf[30];.    sp
21c0: 72 69 6e 74 66 28 7a 42 75 66 2c 22 25 64 22 2c  rintf(zBuf,"%d",
21d0: 53 51 4c 49 54 45 5f 4e 5f 42 54 52 45 45 5f 4d  SQLITE_N_BTREE_M
21e0: 45 54 41 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70  ETA);.    Tcl_Ap
21f0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
2200: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
2210: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
2220: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20   argv[0],.      
2230: 20 22 20 49 44 20 4d 45 54 41 44 41 54 41 2e 2e   " ID METADATA..
2240: 2e 5c 22 20 28 4d 45 54 41 44 41 54 41 20 69 73  .\" (METADATA is
2250: 20 22 2c 20 7a 42 75 66 2c 20 22 20 69 6e 74 65   ", zBuf, " inte
2260: 67 65 72 73 29 22 2c 20 30 29 3b 0a 20 20 20 20  gers)", 0);.    
2270: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
2280: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f  ;.  }.  if( Tcl_
2290: 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61  GetInt(interp, a
22a0: 72 67 76 5b 31 5d 2c 20 28 69 6e 74 2a 29 26 70  rgv[1], (int*)&p
22b0: 42 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c  Bt) ) return TCL
22c0: 5f 45 52 52 4f 52 3b 0a 20 20 66 6f 72 28 69 3d  _ERROR;.  for(i=
22d0: 30 3b 20 69 3c 53 51 4c 49 54 45 5f 4e 5f 42 54  0; i<SQLITE_N_BT
22e0: 52 45 45 5f 4d 45 54 41 3b 20 69 2b 2b 29 7b 0a  REE_META; i++){.
22f0: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49      if( Tcl_GetI
2300: 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b  nt(interp, argv[
2310: 69 2b 32 5d 2c 20 26 61 4d 65 74 61 5b 69 5d 29  i+2], &aMeta[i])
2320: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
2330: 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20  ROR;.  }.  rc = 
2340: 73 71 6c 69 74 65 42 74 72 65 65 55 70 64 61 74  sqliteBtreeUpdat
2350: 65 4d 65 74 61 28 70 42 74 2c 20 61 4d 65 74 61  eMeta(pBt, aMeta
2360: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c  );.  if( rc!=SQL
2370: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63  ITE_OK ){.    Tc
2380: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2390: 6e 74 65 72 70 2c 20 65 72 72 6f 72 4e 61 6d 65  nterp, errorName
23a0: 28 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65  (rc), 0);.    re
23b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
23c0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c    }.  return TCL
23d0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73  _OK;.}../*.** Us
23e0: 61 67 65 3a 20 20 20 62 74 72 65 65 5f 70 61 67  age:   btree_pag
23f0: 65 5f 64 75 6d 70 20 49 44 20 50 41 47 45 4e 55  e_dump ID PAGENU
2400: 4d 0a 2a 2a 0a 2a 2a 20 50 72 69 6e 74 20 61 20  M.**.** Print a 
2410: 64 69 73 61 73 73 65 6d 62 6c 79 20 6f 66 20 61  disassembly of a
2420: 20 70 61 67 65 20 6f 6e 20 73 74 61 6e 64 61 72   page on standar
2430: 64 20 6f 75 74 70 75 74 0a 2a 2f 0a 73 74 61 74  d output.*/.stat
2440: 69 63 20 69 6e 74 20 62 74 72 65 65 5f 70 61 67  ic int btree_pag
2450: 65 5f 64 75 6d 70 28 0a 20 20 76 6f 69 64 20 2a  e_dump(.  void *
2460: 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49  NotUsed,.  Tcl_I
2470: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20  nterp *interp,  
2480: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74    /* The TCL int
2490: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e  erpreter that in
24a0: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61  voked this comma
24b0: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63  nd */.  int argc
24c0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ,              /
24d0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75  * Number of argu
24e0: 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20  ments */.  char 
24f0: 2a 2a 61 72 67 76 20 20 20 20 20 20 20 20 20 20  **argv          
2500: 20 20 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63    /* Text of eac
2510: 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b  h argument */.){
2520: 0a 20 20 42 74 72 65 65 20 2a 70 42 74 3b 0a 20  .  Btree *pBt;. 
2530: 20 69 6e 74 20 69 50 61 67 65 3b 0a 20 20 69 6e   int iPage;.  in
2540: 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 61 72 67  t rc;..  if( arg
2550: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=3 ){.    Tcl_
2560: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
2570: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
2580: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
2590: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20  ", argv[0],.    
25a0: 20 20 20 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a     " ID\"", 0);.
25b0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
25c0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
25d0: 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72  Tcl_GetInt(inter
25e0: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74  p, argv[1], (int
25f0: 2a 29 26 70 42 74 29 20 29 20 72 65 74 75 72 6e  *)&pBt) ) return
2600: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66   TCL_ERROR;.  if
2610: 28 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74  ( Tcl_GetInt(int
2620: 65 72 70 2c 20 61 72 67 76 5b 32 5d 2c 20 26 69  erp, argv[2], &i
2630: 50 61 67 65 29 20 29 20 72 65 74 75 72 6e 20 54  Page) ) return T
2640: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d  CL_ERROR;.  rc =
2650: 20 73 71 6c 69 74 65 42 74 72 65 65 50 61 67 65   sqliteBtreePage
2660: 44 75 6d 70 28 70 42 74 2c 20 69 50 61 67 65 29  Dump(pBt, iPage)
2670: 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49  ;.  if( rc!=SQLI
2680: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c  TE_OK ){.    Tcl
2690: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
26a0: 74 65 72 70 2c 20 65 72 72 6f 72 4e 61 6d 65 28  terp, errorName(
26b0: 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  rc), 0);.    ret
26c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
26d0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f   }.  return TCL_
26e0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61  OK;.}../*.** Usa
26f0: 67 65 3a 20 20 20 62 74 72 65 65 5f 70 61 67 65  ge:   btree_page
2700: 72 5f 73 74 61 74 73 20 49 44 0a 2a 2a 0a 2a 2a  r_stats ID.**.**
2710: 20 52 65 74 75 72 6e 73 20 70 61 67 65 72 20 73   Returns pager s
2720: 74 61 74 69 73 74 69 63 73 0a 2a 2f 0a 73 74 61  tatistics.*/.sta
2730: 74 69 63 20 69 6e 74 20 62 74 72 65 65 5f 70 61  tic int btree_pa
2740: 67 65 72 5f 73 74 61 74 73 28 0a 20 20 76 6f 69  ger_stats(.  voi
2750: 64 20 2a 4e 6f 74 55 73 65 64 2c 0a 20 20 54 63  d *NotUsed,.  Tc
2760: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
2770: 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c 20  ,    /* The TCL 
2780: 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61 74  interpreter that
2790: 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63 6f   invoked this co
27a0: 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 61  mmand */.  int a
27b0: 72 67 63 2c 20 20 20 20 20 20 20 20 20 20 20 20  rgc,            
27c0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61    /* Number of a
27d0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 63 68  rguments */.  ch
27e0: 61 72 20 2a 2a 61 72 67 76 20 20 20 20 20 20 20  ar **argv       
27f0: 20 20 20 20 20 2f 2a 20 54 65 78 74 20 6f 66 20       /* Text of 
2800: 65 61 63 68 20 61 72 67 75 6d 65 6e 74 20 2a 2f  each argument */
2810: 0a 29 7b 0a 20 20 42 74 72 65 65 20 2a 70 42 74  .){.  Btree *pBt
2820: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74  ;.  int i;.  int
2830: 20 2a 61 3b 0a 0a 20 20 69 66 28 20 61 72 67 63   *a;..  if( argc
2840: 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  !=2 ){.    Tcl_A
2850: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
2860: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67  rp, "wrong # arg
2870: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22  s: should be \""
2880: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20  , argv[0],.     
2890: 20 20 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a 20    " ID\"", 0);. 
28a0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
28b0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54  ROR;.  }.  if( T
28c0: 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70  cl_GetInt(interp
28d0: 2c 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74 2a  , argv[1], (int*
28e0: 29 26 70 42 74 29 20 29 20 72 65 74 75 72 6e 20  )&pBt) ) return 
28f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 61 20 3d  TCL_ERROR;.  a =
2900: 20 73 71 6c 69 74 65 70 61 67 65 72 5f 73 74 61   sqlitepager_sta
2910: 74 73 28 73 71 6c 69 74 65 42 74 72 65 65 50 61  ts(sqliteBtreePa
2920: 67 65 72 28 70 42 74 29 29 3b 0a 20 20 66 6f 72  ger(pBt));.  for
2930: 28 69 3d 30 3b 20 69 3c 39 3b 20 69 2b 2b 29 7b  (i=0; i<9; i++){
2940: 0a 20 20 20 20 73 74 61 74 69 63 20 63 68 61 72  .    static char
2950: 20 2a 7a 4e 61 6d 65 5b 5d 20 3d 20 7b 0a 20 20   *zName[] = {.  
2960: 20 20 20 20 22 72 65 66 22 2c 20 22 70 61 67 65      "ref", "page
2970: 22 2c 20 22 6d 61 78 22 2c 20 22 73 69 7a 65 22  ", "max", "size"
2980: 2c 20 22 73 74 61 74 65 22 2c 20 22 65 72 72 22  , "state", "err"
2990: 2c 0a 20 20 20 20 20 20 22 68 69 74 22 2c 20 22  ,.      "hit", "
29a0: 6d 69 73 73 22 2c 20 22 6f 76 66 6c 22 2c 0a 20  miss", "ovfl",. 
29b0: 20 20 20 7d 3b 0a 20 20 20 20 63 68 61 72 20 7a     };.    char z
29c0: 42 75 66 5b 31 30 30 5d 3b 0a 20 20 20 20 54 63  Buf[100];.    Tc
29d0: 6c 5f 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  l_AppendElement(
29e0: 69 6e 74 65 72 70 2c 20 7a 4e 61 6d 65 5b 69 5d  interp, zName[i]
29f0: 29 3b 0a 20 20 20 20 73 70 72 69 6e 74 66 28 7a  );.    sprintf(z
2a00: 42 75 66 2c 22 25 64 22 2c 61 5b 69 5d 29 3b 0a  Buf,"%d",a[i]);.
2a10: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 45 6c      Tcl_AppendEl
2a20: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 7a 42  ement(interp, zB
2a30: 75 66 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72  uf);.  }.  retur
2a40: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  n TCL_OK;.}../*.
2a50: 2a 2a 20 55 73 61 67 65 3a 20 20 20 62 74 72 65  ** Usage:   btre
2a60: 65 5f 70 61 67 65 72 5f 72 65 66 5f 64 75 6d 70  e_pager_ref_dump
2a70: 20 49 44 0a 2a 2a 0a 2a 2a 20 50 72 69 6e 74 20   ID.**.** Print 
2a80: 6f 75 74 20 61 6c 6c 20 6f 75 74 73 74 61 6e 64  out all outstand
2a90: 69 6e 67 20 70 61 67 65 73 2e 0a 2a 2f 0a 73 74  ing pages..*/.st
2aa0: 61 74 69 63 20 69 6e 74 20 62 74 72 65 65 5f 70  atic int btree_p
2ab0: 61 67 65 72 5f 72 65 66 5f 64 75 6d 70 28 0a 20  ager_ref_dump(. 
2ac0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a   void *NotUsed,.
2ad0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
2ae0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20  terp,    /* The 
2af0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20  TCL interpreter 
2b00: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69  that invoked thi
2b10: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69  s command */.  i
2b20: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20  nt argc,        
2b30: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
2b40: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a  of arguments */.
2b50: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20    char **argv   
2b60: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74           /* Text
2b70: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e   of each argumen
2b80: 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 72 65 65 20  t */.){.  Btree 
2b90: 2a 70 42 74 3b 0a 0a 20 20 69 66 28 20 61 72 67  *pBt;..  if( arg
2ba0: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=2 ){.    Tcl_
2bb0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
2bc0: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
2bd0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
2be0: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20  ", argv[0],.    
2bf0: 20 20 20 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a     " ID\"", 0);.
2c00: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
2c10: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
2c20: 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72  Tcl_GetInt(inter
2c30: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74  p, argv[1], (int
2c40: 2a 29 26 70 42 74 29 20 29 20 72 65 74 75 72 6e  *)&pBt) ) return
2c50: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 73 71   TCL_ERROR;.  sq
2c60: 6c 69 74 65 70 61 67 65 72 5f 72 65 66 64 75 6d  litepager_refdum
2c70: 70 28 73 71 6c 69 74 65 42 74 72 65 65 50 61 67  p(sqliteBtreePag
2c80: 65 72 28 70 42 74 29 29 3b 0a 20 20 72 65 74 75  er(pBt));.  retu
2c90: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  rn TCL_OK;.}../*
2ca0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 62 74 72  .** Usage:   btr
2cb0: 65 65 5f 73 61 6e 69 74 79 5f 63 68 65 63 6b 20  ee_sanity_check 
2cc0: 49 44 20 52 4f 4f 54 20 2e 2e 2e 0a 2a 2a 0a 2a  ID ROOT ....**.*
2cd0: 2a 20 4c 6f 6f 6b 20 74 68 72 6f 75 67 68 20 65  * Look through e
2ce0: 76 65 72 79 20 70 61 67 65 20 6f 66 20 74 68 65  very page of the
2cf0: 20 67 69 76 65 6e 20 42 54 72 65 65 20 66 69 6c   given BTree fil
2d00: 65 20 74 6f 20 76 65 72 69 66 79 20 63 6f 72 72  e to verify corr
2d10: 65 63 74 0a 2a 2a 20 66 6f 72 6d 61 74 74 69 6e  ect.** formattin
2d20: 67 20 61 6e 64 20 6c 69 6e 6b 61 67 65 2e 20 20  g and linkage.  
2d30: 52 65 74 75 72 6e 20 61 20 6c 69 6e 65 20 6f 66  Return a line of
2d40: 20 74 65 78 74 20 66 6f 72 20 65 61 63 68 20 70   text for each p
2d50: 72 6f 62 6c 65 6d 20 66 6f 75 6e 64 2e 0a 2a 2a  roblem found..**
2d60: 20 52 65 74 75 72 6e 20 61 6e 20 65 6d 70 74 79   Return an empty
2d70: 20 73 74 72 69 6e 67 20 69 66 20 65 76 65 72 79   string if every
2d80: 74 68 69 6e 67 20 77 6f 72 6b 65 64 2e 0a 2a 2f  thing worked..*/
2d90: 0a 73 74 61 74 69 63 20 69 6e 74 20 62 74 72 65  .static int btre
2da0: 65 5f 73 61 6e 69 74 79 5f 63 68 65 63 6b 28 0a  e_sanity_check(.
2db0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c    void *NotUsed,
2dc0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
2dd0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65  nterp,    /* The
2de0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72   TCL interpreter
2df0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68   that invoked th
2e00: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20  is command */.  
2e10: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20  int argc,       
2e20: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
2e30: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f   of arguments */
2e40: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20  .  char **argv  
2e50: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78            /* Tex
2e60: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65  t of each argume
2e70: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 72 65 65  nt */.){.  Btree
2e80: 20 2a 70 42 74 3b 0a 20 20 63 68 61 72 20 2a 7a   *pBt;.  char *z
2e90: 52 65 73 75 6c 74 3b 0a 20 20 69 6e 74 20 6e 52  Result;.  int nR
2ea0: 6f 6f 74 3b 0a 20 20 69 6e 74 20 2a 61 52 6f 6f  oot;.  int *aRoo
2eb0: 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 69  t;.  int i;..  i
2ec0: 66 28 20 61 72 67 63 3c 33 20 29 7b 0a 20 20 20  f( argc<3 ){.   
2ed0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
2ee0: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67  t(interp, "wrong
2ef0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
2f00: 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c  be \"", argv[0],
2f10: 0a 20 20 20 20 20 20 20 22 20 49 44 20 52 4f 4f  .       " ID ROO
2f20: 54 20 2e 2e 2e 5c 22 22 2c 20 30 29 3b 0a 20 20  T ...\"", 0);.  
2f30: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
2f40: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63  OR;.  }.  if( Tc
2f50: 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c  l_GetInt(interp,
2f60: 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74 2a 29   argv[1], (int*)
2f70: 26 70 42 74 29 20 29 20 72 65 74 75 72 6e 20 54  &pBt) ) return T
2f80: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 6e 52 6f 6f  CL_ERROR;.  nRoo
2f90: 74 20 3d 20 61 72 67 63 2d 32 3b 0a 20 20 61 52  t = argc-2;.  aR
2fa0: 6f 6f 74 20 3d 20 6d 61 6c 6c 6f 63 28 20 73 69  oot = malloc( si
2fb0: 7a 65 6f 66 28 69 6e 74 29 2a 28 61 72 67 63 2d  zeof(int)*(argc-
2fc0: 32 29 20 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b  2) );.  for(i=0;
2fd0: 20 69 3c 61 72 67 63 2d 32 3b 20 69 2b 2b 29 7b   i<argc-2; i++){
2fe0: 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74  .    if( Tcl_Get
2ff0: 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76  Int(interp, argv
3000: 5b 69 2b 32 5d 2c 20 26 61 52 6f 6f 74 5b 69 5d  [i+2], &aRoot[i]
3010: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
3020: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 52 65 73  RROR;.  }.  zRes
3030: 75 6c 74 20 3d 20 73 71 6c 69 74 65 42 74 72 65  ult = sqliteBtre
3040: 65 53 61 6e 69 74 79 43 68 65 63 6b 28 70 42 74  eSanityCheck(pBt
3050: 2c 20 61 52 6f 6f 74 2c 20 6e 52 6f 6f 74 29 3b  , aRoot, nRoot);
3060: 0a 20 20 69 66 28 20 7a 52 65 73 75 6c 74 20 29  .  if( zResult )
3070: 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  {.    Tcl_Append
3080: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a  Result(interp, z
3090: 52 65 73 75 6c 74 2c 20 30 29 3b 0a 20 20 20 20  Result, 0);.    
30a0: 66 72 65 65 28 7a 52 65 73 75 6c 74 29 3b 20 0a  free(zResult); .
30b0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c    }.  return TCL
30c0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73  _OK;.}../*.** Us
30d0: 61 67 65 3a 20 20 20 62 74 72 65 65 5f 63 75 72  age:   btree_cur
30e0: 73 6f 72 20 49 44 20 54 41 42 4c 45 4e 55 4d 0a  sor ID TABLENUM.
30f0: 2a 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61 20 6e  **.** Create a n
3100: 65 77 20 63 75 72 73 6f 72 2e 20 20 52 65 74 75  ew cursor.  Retu
3110: 72 6e 20 74 68 65 20 49 44 20 66 6f 72 20 74 68  rn the ID for th
3120: 65 20 63 75 72 73 6f 72 2e 0a 2a 2f 0a 73 74 61  e cursor..*/.sta
3130: 74 69 63 20 69 6e 74 20 62 74 72 65 65 5f 63 75  tic int btree_cu
3140: 72 73 6f 72 28 0a 20 20 76 6f 69 64 20 2a 4e 6f  rsor(.  void *No
3150: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74  tUsed,.  Tcl_Int
3160: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20  erp *interp,    
3170: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72  /* The TCL inter
3180: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f  preter that invo
3190: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64  ked this command
31a0: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20   */.  int argc, 
31b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
31c0: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  Number of argume
31d0: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a  nts */.  char **
31e0: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20  argv            
31f0: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20  /* Text of each 
3200: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20  argument */.){. 
3210: 20 42 74 72 65 65 20 2a 70 42 74 3b 0a 20 20 69   Btree *pBt;.  i
3220: 6e 74 20 69 54 61 62 6c 65 3b 0a 20 20 42 74 43  nt iTable;.  BtC
3230: 75 72 73 6f 72 20 2a 70 43 75 72 3b 0a 20 20 69  ursor *pCur;.  i
3240: 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 7a 42  nt rc;.  char zB
3250: 75 66 5b 33 30 5d 3b 0a 0a 20 20 69 66 28 20 61  uf[30];..  if( a
3260: 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63  rgc!=3 ){.    Tc
3270: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
3280: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20  nterp, "wrong # 
3290: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20  args: should be 
32a0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20  \"", argv[0],.  
32b0: 20 20 20 20 20 22 20 49 44 20 54 41 42 4c 45 4e       " ID TABLEN
32c0: 55 4d 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72  UM\"", 0);.    r
32d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
32e0: 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47  .  }.  if( Tcl_G
32f0: 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72  etInt(interp, ar
3300: 67 76 5b 31 5d 2c 20 28 69 6e 74 2a 29 26 70 42  gv[1], (int*)&pB
3310: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f  t) ) return TCL_
3320: 45 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c  ERROR;.  if( Tcl
3330: 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20  _GetInt(interp, 
3340: 61 72 67 76 5b 32 5d 2c 20 26 69 54 61 62 6c 65  argv[2], &iTable
3350: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
3360: 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73 71 6c  RROR;.  rc = sql
3370: 69 74 65 42 74 72 65 65 43 75 72 73 6f 72 28 70  iteBtreeCursor(p
3380: 42 74 2c 20 69 54 61 62 6c 65 2c 20 26 70 43 75  Bt, iTable, &pCu
3390: 72 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a  r);.  if( rc ){.
33a0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
33b0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 65 72 72  sult(interp, err
33c0: 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a  orName(rc), 0);.
33d0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
33e0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 73 70 72 69  RROR;.  }.  spri
33f0: 6e 74 66 28 7a 42 75 66 2c 22 30 78 25 78 22 2c  ntf(zBuf,"0x%x",
3400: 20 28 69 6e 74 29 70 43 75 72 29 3b 0a 20 20 54   (int)pCur);.  T
3410: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
3420: 69 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29  interp, zBuf, 0)
3430: 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  ;.  return SQLIT
3440: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55  E_OK;.}../*.** U
3450: 73 61 67 65 3a 20 20 20 62 74 72 65 65 5f 63 6c  sage:   btree_cl
3460: 6f 73 65 5f 63 75 72 73 6f 72 20 49 44 0a 2a 2a  ose_cursor ID.**
3470: 0a 2a 2a 20 43 6c 6f 73 65 20 61 20 63 75 72 73  .** Close a curs
3480: 6f 72 20 6f 70 65 6e 65 64 20 75 73 69 6e 67 20  or opened using 
3490: 62 74 72 65 65 5f 63 75 72 73 6f 72 2e 0a 2a 2f  btree_cursor..*/
34a0: 0a 73 74 61 74 69 63 20 69 6e 74 20 62 74 72 65  .static int btre
34b0: 65 5f 63 6c 6f 73 65 5f 63 75 72 73 6f 72 28 0a  e_close_cursor(.
34c0: 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c    void *NotUsed,
34d0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
34e0: 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65  nterp,    /* The
34f0: 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72   TCL interpreter
3500: 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68   that invoked th
3510: 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20  is command */.  
3520: 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20  int argc,       
3530: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
3540: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f   of arguments */
3550: 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20  .  char **argv  
3560: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78            /* Tex
3570: 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65  t of each argume
3580: 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 43 75 72  nt */.){.  BtCur
3590: 73 6f 72 20 2a 70 43 75 72 3b 0a 20 20 69 6e 74  sor *pCur;.  int
35a0: 20 72 63 3b 0a 0a 20 20 69 66 28 20 61 72 67 63   rc;..  if( argc
35b0: 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  !=2 ){.    Tcl_A
35c0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
35d0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67  rp, "wrong # arg
35e0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22  s: should be \""
35f0: 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20  , argv[0],.     
3600: 20 20 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a 20    " ID\"", 0);. 
3610: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
3620: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54  ROR;.  }.  if( T
3630: 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70  cl_GetInt(interp
3640: 2c 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74 2a  , argv[1], (int*
3650: 29 26 70 43 75 72 29 20 29 20 72 65 74 75 72 6e  )&pCur) ) return
3660: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63   TCL_ERROR;.  rc
3670: 20 3d 20 73 71 6c 69 74 65 42 74 72 65 65 43 6c   = sqliteBtreeCl
3680: 6f 73 65 43 75 72 73 6f 72 28 70 43 75 72 29 3b  oseCursor(pCur);
3690: 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20  .  if( rc ){.   
36a0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
36b0: 74 28 69 6e 74 65 72 70 2c 20 65 72 72 6f 72 4e  t(interp, errorN
36c0: 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a 20 20 20  ame(rc), 0);.   
36d0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
36e0: 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  R;.  }.  return 
36f0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  SQLITE_OK;.}../*
3700: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 62 74 72  .** Usage:   btr
3710: 65 65 5f 6d 6f 76 65 5f 74 6f 20 49 44 20 4b 45  ee_move_to ID KE
3720: 59 0a 2a 2a 0a 2a 2a 20 4d 6f 76 65 20 74 68 65  Y.**.** Move the
3730: 20 63 75 72 73 6f 72 20 74 6f 20 74 68 65 20 65   cursor to the e
3740: 6e 74 72 79 20 77 69 74 68 20 74 68 65 20 67 69  ntry with the gi
3750: 76 65 6e 20 6b 65 79 2e 0a 2a 2f 0a 73 74 61 74  ven key..*/.stat
3760: 69 63 20 69 6e 74 20 62 74 72 65 65 5f 6d 6f 76  ic int btree_mov
3770: 65 5f 74 6f 28 0a 20 20 76 6f 69 64 20 2a 4e 6f  e_to(.  void *No
3780: 74 55 73 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74  tUsed,.  Tcl_Int
3790: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20  erp *interp,    
37a0: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72  /* The TCL inter
37b0: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f  preter that invo
37c0: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64  ked this command
37d0: 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 63 2c 20   */.  int argc, 
37e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
37f0: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  Number of argume
3800: 6e 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a  nts */.  char **
3810: 61 72 67 76 20 20 20 20 20 20 20 20 20 20 20 20  argv            
3820: 2f 2a 20 54 65 78 74 20 6f 66 20 65 61 63 68 20  /* Text of each 
3830: 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20  argument */.){. 
3840: 20 42 74 43 75 72 73 6f 72 20 2a 70 43 75 72 3b   BtCursor *pCur;
3850: 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74  .  int rc;.  int
3860: 20 72 65 73 3b 0a 20 20 63 68 61 72 20 7a 42 75   res;.  char zBu
3870: 66 5b 32 30 5d 3b 0a 0a 20 20 69 66 28 20 61 72  f[20];..  if( ar
3880: 67 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c  gc!=3 ){.    Tcl
3890: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
38a0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61  terp, "wrong # a
38b0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c  rgs: should be \
38c0: 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20  "", argv[0],.   
38d0: 20 20 20 20 22 20 49 44 20 4b 45 59 5c 22 22 2c      " ID KEY\"",
38e0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20   0);.    return 
38f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
3900: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 28   if( Tcl_GetInt(
3910: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c  interp, argv[1],
3920: 20 28 69 6e 74 2a 29 26 70 43 75 72 29 20 29 20   (int*)&pCur) ) 
3930: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
3940: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 42  ;.  rc = sqliteB
3950: 74 72 65 65 4d 6f 76 65 74 6f 28 70 43 75 72 2c  treeMoveto(pCur,
3960: 20 61 72 67 76 5b 32 5d 2c 20 73 74 72 6c 65 6e   argv[2], strlen
3970: 28 61 72 67 76 5b 32 5d 29 2c 20 26 72 65 73 29  (argv[2]), &res)
3980: 3b 20 20 0a 20 20 69 66 28 20 72 63 20 29 7b 0a  ;  .  if( rc ){.
3990: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
39a0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 65 72 72  sult(interp, err
39b0: 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b 0a  orName(rc), 0);.
39c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
39d0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 73 70 72 69  RROR;.  }.  spri
39e0: 6e 74 66 28 7a 42 75 66 2c 22 25 64 22 2c 72 65  ntf(zBuf,"%d",re
39f0: 73 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64  s);.  Tcl_Append
3a00: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a  Result(interp, z
3a10: 42 75 66 2c 20 30 29 3b 0a 20 20 72 65 74 75 72  Buf, 0);.  retur
3a20: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a  n SQLITE_OK;.}..
3a30: 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 20 62  /*.** Usage:   b
3a40: 74 72 65 65 5f 64 65 6c 65 74 65 20 49 44 0a 2a  tree_delete ID.*
3a50: 2a 0a 2a 2a 20 44 65 6c 65 74 65 20 74 68 65 20  *.** Delete the 
3a60: 65 6e 74 72 79 20 74 68 61 74 20 74 68 65 20 63  entry that the c
3a70: 75 72 73 6f 72 20 69 73 20 70 6f 69 6e 74 69 6e  ursor is pointin
3a80: 67 20 74 6f 0a 2a 2f 0a 73 74 61 74 69 63 20 69  g to.*/.static i
3a90: 6e 74 20 62 74 72 65 65 5f 64 65 6c 65 74 65 28  nt btree_delete(
3aa0: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64  .  void *NotUsed
3ab0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
3ac0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68  interp,    /* Th
3ad0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65  e TCL interprete
3ae0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74  r that invoked t
3af0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20  his command */. 
3b00: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20   int argc,      
3b10: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
3b20: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a  r of arguments *
3b30: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20  /.  char **argv 
3b40: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65             /* Te
3b50: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d  xt of each argum
3b60: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 43 75  ent */.){.  BtCu
3b70: 72 73 6f 72 20 2a 70 43 75 72 3b 0a 20 20 69 6e  rsor *pCur;.  in
3b80: 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 61 72 67  t rc;..  if( arg
3b90: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=2 ){.    Tcl_
3ba0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
3bb0: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
3bc0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
3bd0: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20  ", argv[0],.    
3be0: 20 20 20 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a     " ID\"", 0);.
3bf0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
3c00: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
3c10: 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72  Tcl_GetInt(inter
3c20: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74  p, argv[1], (int
3c30: 2a 29 26 70 43 75 72 29 20 29 20 72 65 74 75 72  *)&pCur) ) retur
3c40: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72  n TCL_ERROR;.  r
3c50: 63 20 3d 20 73 71 6c 69 74 65 42 74 72 65 65 44  c = sqliteBtreeD
3c60: 65 6c 65 74 65 28 70 43 75 72 29 3b 0a 20 20 69  elete(pCur);.  i
3c70: 66 28 20 72 63 20 29 7b 0a 20 20 20 20 54 63 6c  f( rc ){.    Tcl
3c80: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
3c90: 74 65 72 70 2c 20 65 72 72 6f 72 4e 61 6d 65 28  terp, errorName(
3ca0: 72 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74  rc), 0);.    ret
3cb0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
3cc0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49   }.  return SQLI
3cd0: 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  TE_OK;.}../*.** 
3ce0: 55 73 61 67 65 3a 20 20 20 62 74 72 65 65 5f 69  Usage:   btree_i
3cf0: 6e 73 65 72 74 20 49 44 20 4b 45 59 20 44 41 54  nsert ID KEY DAT
3d00: 41 0a 2a 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61  A.**.** Create a
3d10: 20 6e 65 77 20 65 6e 74 72 79 20 77 69 74 68 20   new entry with 
3d20: 74 68 65 20 67 69 76 65 6e 20 6b 65 79 20 61 6e  the given key an
3d30: 64 20 64 61 74 61 2e 20 20 49 66 20 61 6e 20 65  d data.  If an e
3d40: 6e 74 72 79 20 61 6c 72 65 61 64 79 0a 2a 2a 20  ntry already.** 
3d50: 65 78 69 73 74 73 20 77 69 74 68 20 74 68 65 20  exists with the 
3d60: 73 61 6d 65 20 6b 65 79 20 74 68 65 20 6f 6c 64  same key the old
3d70: 20 65 6e 74 72 79 20 69 73 20 6f 76 65 72 77 72   entry is overwr
3d80: 69 74 74 65 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63  itten..*/.static
3d90: 20 69 6e 74 20 62 74 72 65 65 5f 69 6e 73 65 72   int btree_inser
3da0: 74 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73  t(.  void *NotUs
3db0: 65 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ed,.  Tcl_Interp
3dc0: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20   *interp,    /* 
3dd0: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  The TCL interpre
3de0: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64  ter that invoked
3df0: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f   this command */
3e00: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20  .  int argc,    
3e10: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
3e20: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
3e30: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67   */.  char **arg
3e40: 76 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  v            /* 
3e50: 54 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67  Text of each arg
3e60: 75 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74  ument */.){.  Bt
3e70: 43 75 72 73 6f 72 20 2a 70 43 75 72 3b 0a 20 20  Cursor *pCur;.  
3e80: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 61  int rc;..  if( a
3e90: 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63  rgc!=4 ){.    Tc
3ea0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
3eb0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20  nterp, "wrong # 
3ec0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20  args: should be 
3ed0: 5c 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20  \"", argv[0],.  
3ee0: 20 20 20 20 20 22 20 49 44 20 4b 45 59 20 44 41       " ID KEY DA
3ef0: 54 41 5c 22 22 2c 20 30 29 3b 0a 20 20 20 20 72  TA\"", 0);.    r
3f00: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
3f10: 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47  .  }.  if( Tcl_G
3f20: 65 74 49 6e 74 28 69 6e 74 65 72 70 2c 20 61 72  etInt(interp, ar
3f30: 67 76 5b 31 5d 2c 20 28 69 6e 74 2a 29 26 70 43  gv[1], (int*)&pC
3f40: 75 72 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c  ur) ) return TCL
3f50: 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20 3d 20 73  _ERROR;.  rc = s
3f60: 71 6c 69 74 65 42 74 72 65 65 49 6e 73 65 72 74  qliteBtreeInsert
3f70: 28 70 43 75 72 2c 20 61 72 67 76 5b 32 5d 2c 20  (pCur, argv[2], 
3f80: 73 74 72 6c 65 6e 28 61 72 67 76 5b 32 5d 29 2c  strlen(argv[2]),
3f90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3fa0: 20 20 20 20 20 20 20 20 20 20 61 72 67 76 5b 33            argv[3
3fb0: 5d 2c 20 73 74 72 6c 65 6e 28 61 72 67 76 5b 33  ], strlen(argv[3
3fc0: 5d 29 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b  ]));.  if( rc ){
3fd0: 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52  .    Tcl_AppendR
3fe0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 65 72  esult(interp, er
3ff0: 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29 3b  rorName(rc), 0);
4000: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
4010: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74  ERROR;.  }.  ret
4020: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d  urn SQLITE_OK;.}
4030: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20  ../*.** Usage:  
4040: 20 62 74 72 65 65 5f 6e 65 78 74 20 49 44 0a 2a   btree_next ID.*
4050: 2a 0a 2a 2a 20 4d 6f 76 65 20 74 68 65 20 63 75  *.** Move the cu
4060: 72 73 6f 72 20 74 6f 20 74 68 65 20 6e 65 78 74  rsor to the next
4070: 20 65 6e 74 72 79 20 69 6e 20 74 68 65 20 74 61   entry in the ta
4080: 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ble..*/.static i
4090: 6e 74 20 62 74 72 65 65 5f 6e 65 78 74 28 0a 20  nt btree_next(. 
40a0: 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64 2c 0a   void *NotUsed,.
40b0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
40c0: 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20  terp,    /* The 
40d0: 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20  TCL interpreter 
40e0: 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69  that invoked thi
40f0: 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69  s command */.  i
4100: 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20 20 20  nt argc,        
4110: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20        /* Number 
4120: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a  of arguments */.
4130: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 20 20    char **argv   
4140: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74           /* Text
4150: 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d 65 6e   of each argumen
4160: 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 43 75 72 73  t */.){.  BtCurs
4170: 6f 72 20 2a 70 43 75 72 3b 0a 20 20 69 6e 74 20  or *pCur;.  int 
4180: 72 63 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 21  rc;..  if( argc!
4190: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70  =2 ){.    Tcl_Ap
41a0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
41b0: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
41c0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c  : should be \"",
41d0: 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20 20 20 20   argv[0],.      
41e0: 20 22 20 49 44 5c 22 22 2c 20 30 29 3b 0a 20 20   " ID\"", 0);.  
41f0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
4200: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63  OR;.  }.  if( Tc
4210: 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70 2c  l_GetInt(interp,
4220: 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e 74 2a 29   argv[1], (int*)
4230: 26 70 43 75 72 29 20 29 20 72 65 74 75 72 6e 20  &pCur) ) return 
4240: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 72 63 20  TCL_ERROR;.  rc 
4250: 3d 20 73 71 6c 69 74 65 42 74 72 65 65 4e 65 78  = sqliteBtreeNex
4260: 74 28 70 43 75 72 2c 20 30 29 3b 0a 20 20 69 66  t(pCur, 0);.  if
4270: 28 20 72 63 20 29 7b 0a 20 20 20 20 54 63 6c 5f  ( rc ){.    Tcl_
4280: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
4290: 65 72 70 2c 20 65 72 72 6f 72 4e 61 6d 65 28 72  erp, errorName(r
42a0: 63 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75  c), 0);.    retu
42b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
42c0: 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  }.  return SQLIT
42d0: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55  E_OK;.}../*.** U
42e0: 73 61 67 65 3a 20 20 20 62 74 72 65 65 5f 6b 65  sage:   btree_ke
42f0: 79 20 49 44 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72  y ID.**.** Retur
4300: 6e 20 74 68 65 20 6b 65 79 20 66 6f 72 20 74 68  n the key for th
4310: 65 20 65 6e 74 72 79 20 61 74 20 77 68 69 63 68  e entry at which
4320: 20 74 68 65 20 63 75 72 73 6f 72 20 69 73 20 70   the cursor is p
4330: 6f 69 6e 74 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74  ointing..*/.stat
4340: 69 63 20 69 6e 74 20 62 74 72 65 65 5f 6b 65 79  ic int btree_key
4350: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65  (.  void *NotUse
4360: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  d,.  Tcl_Interp 
4370: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54  *interp,    /* T
4380: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74  he TCL interpret
4390: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20  er that invoked 
43a0: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a  this command */.
43b0: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20    int argc,     
43c0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
43d0: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20  er of arguments 
43e0: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76  */.  char **argv
43f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
4400: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75  ext of each argu
4410: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 43  ment */.){.  BtC
4420: 75 72 73 6f 72 20 2a 70 43 75 72 3b 0a 20 20 69  ursor *pCur;.  i
4430: 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 6e 3b 0a  nt rc;.  int n;.
4440: 20 20 63 68 61 72 20 2a 7a 42 75 66 3b 0a 0a 20    char *zBuf;.. 
4450: 20 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a   if( argc!=2 ){.
4460: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
4470: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72  sult(interp, "wr
4480: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75  ong # args: shou
4490: 6c 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b  ld be \"", argv[
44a0: 30 5d 2c 0a 20 20 20 20 20 20 20 22 20 49 44 5c  0],.       " ID\
44b0: 22 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75  "", 0);.    retu
44c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
44d0: 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49  }.  if( Tcl_GetI
44e0: 6e 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b  nt(interp, argv[
44f0: 31 5d 2c 20 28 69 6e 74 2a 29 26 70 43 75 72 29  1], (int*)&pCur)
4500: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
4510: 52 4f 52 3b 0a 20 20 73 71 6c 69 74 65 42 74 72  ROR;.  sqliteBtr
4520: 65 65 4b 65 79 53 69 7a 65 28 70 43 75 72 2c 20  eeKeySize(pCur, 
4530: 26 6e 29 3b 0a 20 20 7a 42 75 66 20 3d 20 6d 61  &n);.  zBuf = ma
4540: 6c 6c 6f 63 28 20 6e 2b 31 20 29 3b 0a 20 20 72  lloc( n+1 );.  r
4550: 63 20 3d 20 73 71 6c 69 74 65 42 74 72 65 65 4b  c = sqliteBtreeK
4560: 65 79 28 70 43 75 72 2c 20 30 2c 20 6e 2c 20 7a  ey(pCur, 0, n, z
4570: 42 75 66 29 3b 0a 20 20 69 66 28 20 72 63 20 29  Buf);.  if( rc )
4580: 7b 0a 20 20 20 20 66 72 65 65 28 7a 42 75 66 29  {.    free(zBuf)
4590: 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  ;.    Tcl_Append
45a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 65  Result(interp, e
45b0: 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30 29  rrorName(rc), 0)
45c0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
45d0: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 42  _ERROR;.  }.  zB
45e0: 75 66 5b 6e 5d 20 3d 20 30 3b 0a 20 20 54 63 6c  uf[n] = 0;.  Tcl
45f0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
4600: 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b 0a  terp, zBuf, 0);.
4610: 20 20 66 72 65 65 28 7a 42 75 66 29 3b 0a 20 20    free(zBuf);.  
4620: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
4630: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65  ;.}../*.** Usage
4640: 3a 20 20 20 62 74 72 65 65 5f 64 61 74 61 20 49  :   btree_data I
4650: 44 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74  D.**.** Return t
4660: 68 65 20 64 61 74 61 20 66 6f 72 20 74 68 65 20  he data for the 
4670: 65 6e 74 72 79 20 61 74 20 77 68 69 63 68 20 74  entry at which t
4680: 68 65 20 63 75 72 73 6f 72 20 69 73 20 70 6f 69  he cursor is poi
4690: 6e 74 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63  nting..*/.static
46a0: 20 69 6e 74 20 62 74 72 65 65 5f 64 61 74 61 28   int btree_data(
46b0: 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65 64  .  void *NotUsed
46c0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
46d0: 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54 68  interp,    /* Th
46e0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65  e TCL interprete
46f0: 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20 74  r that invoked t
4700: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20  his command */. 
4710: 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20 20   int argc,      
4720: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
4730: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 2a  r of arguments *
4740: 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20  /.  char **argv 
4750: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 65             /* Te
4760: 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75 6d  xt of each argum
4770: 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 43 75  ent */.){.  BtCu
4780: 72 73 6f 72 20 2a 70 43 75 72 3b 0a 20 20 69 6e  rsor *pCur;.  in
4790: 74 20 72 63 3b 0a 20 20 69 6e 74 20 6e 3b 0a 20  t rc;.  int n;. 
47a0: 20 63 68 61 72 20 2a 7a 42 75 66 3b 0a 0a 20 20   char *zBuf;..  
47b0: 69 66 28 20 61 72 67 63 21 3d 32 20 29 7b 0a 20  if( argc!=2 ){. 
47c0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
47d0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
47e0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
47f0: 64 20 62 65 20 5c 22 22 2c 20 61 72 67 76 5b 30  d be \"", argv[0
4800: 5d 2c 0a 20 20 20 20 20 20 20 22 20 49 44 5c 22  ],.       " ID\"
4810: 22 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72  ", 0);.    retur
4820: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
4830: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e  .  if( Tcl_GetIn
4840: 74 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31  t(interp, argv[1
4850: 5d 2c 20 28 69 6e 74 2a 29 26 70 43 75 72 29 20  ], (int*)&pCur) 
4860: 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ) return TCL_ERR
4870: 4f 52 3b 0a 20 20 73 71 6c 69 74 65 42 74 72 65  OR;.  sqliteBtre
4880: 65 44 61 74 61 53 69 7a 65 28 70 43 75 72 2c 20  eDataSize(pCur, 
4890: 26 6e 29 3b 0a 20 20 7a 42 75 66 20 3d 20 6d 61  &n);.  zBuf = ma
48a0: 6c 6c 6f 63 28 20 6e 2b 31 20 29 3b 0a 20 20 72  lloc( n+1 );.  r
48b0: 63 20 3d 20 73 71 6c 69 74 65 42 74 72 65 65 44  c = sqliteBtreeD
48c0: 61 74 61 28 70 43 75 72 2c 20 30 2c 20 6e 2c 20  ata(pCur, 0, n, 
48d0: 7a 42 75 66 29 3b 0a 20 20 69 66 28 20 72 63 20  zBuf);.  if( rc 
48e0: 29 7b 0a 20 20 20 20 66 72 65 65 28 7a 42 75 66  ){.    free(zBuf
48f0: 29 3b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  );.    Tcl_Appen
4900: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
4910: 65 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 30  errorName(rc), 0
4920: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
4930: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a  L_ERROR;.  }.  z
4940: 42 75 66 5b 6e 5d 20 3d 20 30 3b 0a 20 20 54 63  Buf[n] = 0;.  Tc
4950: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
4960: 6e 74 65 72 70 2c 20 7a 42 75 66 2c 20 30 29 3b  nterp, zBuf, 0);
4970: 0a 20 20 66 72 65 65 28 7a 42 75 66 29 3b 0a 20  .  free(zBuf);. 
4980: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
4990: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67  K;.}../*.** Usag
49a0: 65 3a 20 20 20 62 74 72 65 65 5f 63 75 72 73 6f  e:   btree_curso
49b0: 72 5f 64 75 6d 70 20 49 44 0a 2a 2a 0a 2a 2a 20  r_dump ID.**.** 
49c0: 52 65 74 75 72 6e 20 65 69 67 68 74 20 69 6e 74  Return eight int
49d0: 65 67 65 72 73 20 63 6f 6e 74 61 69 6e 69 6e 67  egers containing
49e0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f   information abo
49f0: 75 74 20 74 68 65 20 65 6e 74 72 79 20 74 68 65  ut the entry the
4a00: 0a 2a 2a 20 63 75 72 73 6f 72 20 69 73 20 70 6f  .** cursor is po
4a10: 69 6e 74 69 6e 67 20 74 6f 3a 0a 2a 2a 0a 2a 2a  inting to:.**.**
4a20: 20 20 20 61 52 65 73 75 6c 74 5b 30 5d 20 3d 20     aResult[0] = 
4a30: 20 54 68 65 20 70 61 67 65 20 6e 75 6d 62 65 72   The page number
4a40: 0a 2a 2a 20 20 20 61 52 65 73 75 6c 74 5b 31 5d  .**   aResult[1]
4a50: 20 3d 20 20 54 68 65 20 65 6e 74 72 79 20 6e 75   =  The entry nu
4a60: 6d 62 65 72 0a 2a 2a 20 20 20 61 52 65 73 75 6c  mber.**   aResul
4a70: 74 5b 32 5d 20 3d 20 20 54 6f 74 61 6c 20 6e 75  t[2] =  Total nu
4a80: 6d 62 65 72 20 6f 66 20 65 6e 74 72 69 65 73 20  mber of entries 
4a90: 6f 6e 20 74 68 69 73 20 70 61 67 65 0a 2a 2a 20  on this page.** 
4aa0: 20 20 61 52 65 73 75 6c 74 5b 33 5d 20 3d 20 20    aResult[3] =  
4ab0: 53 69 7a 65 20 6f 66 20 74 68 69 73 20 65 6e 74  Size of this ent
4ac0: 72 79 0a 2a 2a 20 20 20 61 52 65 73 75 6c 74 5b  ry.**   aResult[
4ad0: 34 5d 20 3d 20 20 4e 75 6d 62 65 72 20 6f 66 20  4] =  Number of 
4ae0: 66 72 65 65 20 62 79 74 65 73 20 6f 6e 20 74 68  free bytes on th
4af0: 69 73 20 70 61 67 65 0a 2a 2a 20 20 20 61 52 65  is page.**   aRe
4b00: 73 75 6c 74 5b 35 5d 20 3d 20 20 4e 75 6d 62 65  sult[5] =  Numbe
4b10: 72 20 6f 66 20 66 72 65 65 20 62 6c 6f 63 6b 73  r of free blocks
4b20: 20 6f 6e 20 74 68 65 20 70 61 67 65 0a 2a 2a 20   on the page.** 
4b30: 20 20 61 52 65 73 75 6c 74 5b 36 5d 20 3d 20 20    aResult[6] =  
4b40: 50 61 67 65 20 6e 75 6d 62 65 72 20 6f 66 20 74  Page number of t
4b50: 68 65 20 6c 65 66 74 20 63 68 69 6c 64 20 6f 66  he left child of
4b60: 20 74 68 69 73 20 65 6e 74 72 79 0a 2a 2a 20 20   this entry.**  
4b70: 20 61 52 65 73 75 6c 74 5b 37 5d 20 3d 20 20 50   aResult[7] =  P
4b80: 61 67 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 68  age number of th
4b90: 65 20 72 69 67 68 74 20 63 68 69 6c 64 20 66 6f  e right child fo
4ba0: 72 20 74 68 65 20 77 68 6f 6c 65 20 70 61 67 65  r the whole page
4bb0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 62  .*/.static int b
4bc0: 74 72 65 65 5f 63 75 72 73 6f 72 5f 64 75 6d 70  tree_cursor_dump
4bd0: 28 0a 20 20 76 6f 69 64 20 2a 4e 6f 74 55 73 65  (.  void *NotUse
4be0: 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  d,.  Tcl_Interp 
4bf0: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54  *interp,    /* T
4c00: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74  he TCL interpret
4c10: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20  er that invoked 
4c20: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a  this command */.
4c30: 20 20 69 6e 74 20 61 72 67 63 2c 20 20 20 20 20    int argc,     
4c40: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
4c50: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20  er of arguments 
4c60: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 61 72 67 76  */.  char **argv
4c70: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
4c80: 65 78 74 20 6f 66 20 65 61 63 68 20 61 72 67 75  ext of each argu
4c90: 6d 65 6e 74 20 2a 2f 0a 29 7b 0a 20 20 42 74 43  ment */.){.  BtC
4ca0: 75 72 73 6f 72 20 2a 70 43 75 72 3b 0a 20 20 69  ursor *pCur;.  i
4cb0: 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20 69 2c 20  nt rc;.  int i, 
4cc0: 6a 3b 0a 20 20 69 6e 74 20 61 52 65 73 75 6c 74  j;.  int aResult
4cd0: 5b 38 5d 3b 0a 20 20 63 68 61 72 20 7a 42 75 66  [8];.  char zBuf
4ce0: 5b 34 30 30 5d 3b 0a 0a 20 20 69 66 28 20 61 72  [400];..  if( ar
4cf0: 67 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c  gc!=2 ){.    Tcl
4d00: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
4d10: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61  terp, "wrong # a
4d20: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c  rgs: should be \
4d30: 22 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 20 20 20  "", argv[0],.   
4d40: 20 20 20 20 22 20 49 44 5c 22 22 2c 20 30 29 3b      " ID\"", 0);
4d50: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
4d60: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28  ERROR;.  }.  if(
4d70: 20 54 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65   Tcl_GetInt(inte
4d80: 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 28 69 6e  rp, argv[1], (in
4d90: 74 2a 29 26 70 43 75 72 29 20 29 20 72 65 74 75  t*)&pCur) ) retu
4da0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
4db0: 72 63 20 3d 20 73 71 6c 69 74 65 42 74 72 65 65  rc = sqliteBtree
4dc0: 43 75 72 73 6f 72 44 75 6d 70 28 70 43 75 72 2c  CursorDump(pCur,
4dd0: 20 61 52 65 73 75 6c 74 29 3b 0a 20 20 69 66 28   aResult);.  if(
4de0: 20 72 63 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41   rc ){.    Tcl_A
4df0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
4e00: 72 70 2c 20 65 72 72 6f 72 4e 61 6d 65 28 72 63  rp, errorName(rc
4e10: 29 2c 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72  ), 0);.    retur
4e20: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
4e30: 0a 20 20 6a 20 3d 20 30 3b 0a 20 20 66 6f 72 28  .  j = 0;.  for(
4e40: 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 52  i=0; i<sizeof(aR
4e50: 65 73 75 6c 74 29 2f 73 69 7a 65 6f 66 28 61 52  esult)/sizeof(aR
4e60: 65 73 75 6c 74 5b 30 5d 29 3b 20 69 2b 2b 29 7b  esult[0]); i++){
4e70: 0a 20 20 20 20 73 70 72 69 6e 74 66 28 26 7a 42  .    sprintf(&zB
4e80: 75 66 5b 6a 5d 2c 22 20 25 64 22 2c 20 61 52 65  uf[j]," %d", aRe
4e90: 73 75 6c 74 5b 69 5d 29 3b 0a 20 20 20 20 6a 20  sult[i]);.    j 
4ea0: 2b 3d 20 73 74 72 6c 65 6e 28 26 7a 42 75 66 5b  += strlen(&zBuf[
4eb0: 6a 5d 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 41  j]);.  }.  Tcl_A
4ec0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
4ed0: 72 70 2c 20 26 7a 42 75 66 5b 31 5d 2c 20 30 29  rp, &zBuf[1], 0)
4ee0: 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  ;.  return SQLIT
4ef0: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52  E_OK;.}../*.** R
4f00: 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73  egister commands
4f10: 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e   with the TCL in
4f20: 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e  terpreter..*/.in
4f30: 74 20 53 71 6c 69 74 65 74 65 73 74 33 5f 49 6e  t Sqlitetest3_In
4f40: 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  it(Tcl_Interp *i
4f50: 6e 74 65 72 70 29 7b 0a 20 20 54 63 6c 5f 43 72  nterp){.  Tcl_Cr
4f60: 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eateCommand(inte
4f70: 72 70 2c 20 22 62 74 72 65 65 5f 6f 70 65 6e 22  rp, "btree_open"
4f80: 2c 20 62 74 72 65 65 5f 6f 70 65 6e 2c 20 30 2c  , btree_open, 0,
4f90: 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74   0);.  Tcl_Creat
4fa0: 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c  eCommand(interp,
4fb0: 20 22 62 74 72 65 65 5f 63 6c 6f 73 65 22 2c 20   "btree_close", 
4fc0: 62 74 72 65 65 5f 63 6c 6f 73 65 2c 20 30 2c 20  btree_close, 0, 
4fd0: 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65  0);.  Tcl_Create
4fe0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
4ff0: 22 62 74 72 65 65 5f 62 65 67 69 6e 5f 74 72 61  "btree_begin_tra
5000: 6e 73 61 63 74 69 6f 6e 22 2c 0a 20 20 20 20 20  nsaction",.     
5010: 20 62 74 72 65 65 5f 62 65 67 69 6e 5f 74 72 61   btree_begin_tra
5020: 6e 73 61 63 74 69 6f 6e 2c 20 30 2c 20 30 29 3b  nsaction, 0, 0);
5030: 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d  .  Tcl_CreateCom
5040: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 62 74  mand(interp, "bt
5050: 72 65 65 5f 63 6f 6d 6d 69 74 22 2c 20 62 74 72  ree_commit", btr
5060: 65 65 5f 63 6f 6d 6d 69 74 2c 20 30 2c 20 30 29  ee_commit, 0, 0)
5070: 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f  ;.  Tcl_CreateCo
5080: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 62  mmand(interp, "b
5090: 74 72 65 65 5f 72 6f 6c 6c 62 61 63 6b 22 2c 20  tree_rollback", 
50a0: 62 74 72 65 65 5f 72 6f 6c 6c 62 61 63 6b 2c 20  btree_rollback, 
50b0: 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65  0, 0);.  Tcl_Cre
50c0: 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ateCommand(inter
50d0: 70 2c 20 22 62 74 72 65 65 5f 63 72 65 61 74 65  p, "btree_create
50e0: 5f 74 61 62 6c 65 22 2c 20 62 74 72 65 65 5f 63  _table", btree_c
50f0: 72 65 61 74 65 5f 74 61 62 6c 65 2c 20 30 2c 20  reate_table, 0, 
5100: 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65  0);.  Tcl_Create
5110: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
5120: 22 62 74 72 65 65 5f 64 72 6f 70 5f 74 61 62 6c  "btree_drop_tabl
5130: 65 22 2c 20 62 74 72 65 65 5f 64 72 6f 70 5f 74  e", btree_drop_t
5140: 61 62 6c 65 2c 20 30 2c 20 30 29 3b 0a 20 20 54  able, 0, 0);.  T
5150: 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64  cl_CreateCommand
5160: 28 69 6e 74 65 72 70 2c 20 22 62 74 72 65 65 5f  (interp, "btree_
5170: 67 65 74 5f 6d 65 74 61 22 2c 20 62 74 72 65 65  get_meta", btree
5180: 5f 67 65 74 5f 6d 65 74 61 2c 20 30 2c 20 30 29  _get_meta, 0, 0)
5190: 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f  ;.  Tcl_CreateCo
51a0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 62  mmand(interp, "b
51b0: 74 72 65 65 5f 75 70 64 61 74 65 5f 6d 65 74 61  tree_update_meta
51c0: 22 2c 20 62 74 72 65 65 5f 75 70 64 61 74 65 5f  ", btree_update_
51d0: 6d 65 74 61 2c 20 30 2c 20 30 29 3b 0a 20 20 54  meta, 0, 0);.  T
51e0: 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64  cl_CreateCommand
51f0: 28 69 6e 74 65 72 70 2c 20 22 62 74 72 65 65 5f  (interp, "btree_
5200: 70 61 67 65 5f 64 75 6d 70 22 2c 20 62 74 72 65  page_dump", btre
5210: 65 5f 70 61 67 65 5f 64 75 6d 70 2c 20 30 2c 20  e_page_dump, 0, 
5220: 30 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65  0);.  Tcl_Create
5230: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
5240: 22 62 74 72 65 65 5f 70 61 67 65 72 5f 73 74 61  "btree_pager_sta
5250: 74 73 22 2c 20 62 74 72 65 65 5f 70 61 67 65 72  ts", btree_pager
5260: 5f 73 74 61 74 73 2c 20 30 2c 20 30 29 3b 0a 20  _stats, 0, 0);. 
5270: 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61   Tcl_CreateComma
5280: 6e 64 28 69 6e 74 65 72 70 2c 20 22 62 74 72 65  nd(interp, "btre
5290: 65 5f 70 61 67 65 72 5f 72 65 66 5f 64 75 6d 70  e_pager_ref_dump
52a0: 22 2c 20 62 74 72 65 65 5f 70 61 67 65 72 5f 72  ", btree_pager_r
52b0: 65 66 5f 64 75 6d 70 2c 20 30 2c 20 30 29 3b 0a  ef_dump, 0, 0);.
52c0: 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d    Tcl_CreateComm
52d0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 62 74 72  and(interp, "btr
52e0: 65 65 5f 63 75 72 73 6f 72 22 2c 20 62 74 72 65  ee_cursor", btre
52f0: 65 5f 63 75 72 73 6f 72 2c 20 30 2c 20 30 29 3b  e_cursor, 0, 0);
5300: 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d  .  Tcl_CreateCom
5310: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 62 74  mand(interp, "bt
5320: 72 65 65 5f 63 6c 6f 73 65 5f 63 75 72 73 6f 72  ree_close_cursor
5330: 22 2c 20 62 74 72 65 65 5f 63 6c 6f 73 65 5f 63  ", btree_close_c
5340: 75 72 73 6f 72 2c 20 30 2c 20 30 29 3b 0a 20 20  ursor, 0, 0);.  
5350: 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e  Tcl_CreateComman
5360: 64 28 69 6e 74 65 72 70 2c 20 22 62 74 72 65 65  d(interp, "btree
5370: 5f 6d 6f 76 65 5f 74 6f 22 2c 20 62 74 72 65 65  _move_to", btree
5380: 5f 6d 6f 76 65 5f 74 6f 2c 20 30 2c 20 30 29 3b  _move_to, 0, 0);
5390: 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d  .  Tcl_CreateCom
53a0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 62 74  mand(interp, "bt
53b0: 72 65 65 5f 64 65 6c 65 74 65 22 2c 20 62 74 72  ree_delete", btr
53c0: 65 65 5f 64 65 6c 65 74 65 2c 20 30 2c 20 30 29  ee_delete, 0, 0)
53d0: 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f  ;.  Tcl_CreateCo
53e0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 62  mmand(interp, "b
53f0: 74 72 65 65 5f 69 6e 73 65 72 74 22 2c 20 62 74  tree_insert", bt
5400: 72 65 65 5f 69 6e 73 65 72 74 2c 20 30 2c 20 30  ree_insert, 0, 0
5410: 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43  );.  Tcl_CreateC
5420: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
5430: 62 74 72 65 65 5f 6e 65 78 74 22 2c 20 62 74 72  btree_next", btr
5440: 65 65 5f 6e 65 78 74 2c 20 30 2c 20 30 29 3b 0a  ee_next, 0, 0);.
5450: 20 20 54 63 6c 5f 43 72 65 61 74 65 43 6f 6d 6d    Tcl_CreateComm
5460: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 62 74 72  and(interp, "btr
5470: 65 65 5f 6b 65 79 22 2c 20 62 74 72 65 65 5f 6b  ee_key", btree_k
5480: 65 79 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c  ey, 0, 0);.  Tcl
5490: 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69  _CreateCommand(i
54a0: 6e 74 65 72 70 2c 20 22 62 74 72 65 65 5f 64 61  nterp, "btree_da
54b0: 74 61 22 2c 20 62 74 72 65 65 5f 64 61 74 61 2c  ta", btree_data,
54c0: 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f 43 72   0, 0);.  Tcl_Cr
54d0: 65 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eateCommand(inte
54e0: 72 70 2c 20 22 62 74 72 65 65 5f 63 75 72 73 6f  rp, "btree_curso
54f0: 72 5f 64 75 6d 70 22 2c 20 62 74 72 65 65 5f 63  r_dump", btree_c
5500: 75 72 73 6f 72 5f 64 75 6d 70 2c 20 30 2c 20 30  ursor_dump, 0, 0
5510: 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 43  );.  Tcl_CreateC
5520: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
5530: 62 74 72 65 65 5f 73 61 6e 69 74 79 5f 63 68 65  btree_sanity_che
5540: 63 6b 22 2c 20 62 74 72 65 65 5f 73 61 6e 69 74  ck", btree_sanit
5550: 79 5f 63 68 65 63 6b 2c 20 30 2c 20 30 29 3b 0a  y_check, 0, 0);.
5560: 20 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e    Tcl_LinkVar(in
5570: 74 65 72 70 2c 20 22 70 61 67 65 72 5f 72 65 66  terp, "pager_ref
5580: 69 6e 66 6f 5f 65 6e 61 62 6c 65 22 2c 20 28 63  info_enable", (c
5590: 68 61 72 2a 29 26 70 61 67 65 72 5f 72 65 66 69  har*)&pager_refi
55a0: 6e 66 6f 5f 65 6e 61 62 6c 65 2c 0a 20 20 20 20  nfo_enable,.    
55b0: 20 54 43 4c 5f 4c 49 4e 4b 5f 49 4e 54 29 3b 0a   TCL_LINK_INT);.
55c0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
55d0: 0a 7d 0a                                         .}.