/ Hex Artifact Content
Login

Artifact 4a5a3af3f450fe503e5a2985e98516dc2a6b9ad247449e284c1cf140fc91720f:


0000: 2f 2a 0a 2a 2a 20 52 65 61 64 20 61 6e 20 53 51  /*.** Read an SQ
0010: 4c 69 74 65 20 64 61 74 61 62 61 73 65 20 66 69  Lite database fi
0020: 6c 65 20 61 6e 64 20 61 6e 61 6c 79 7a 65 20 69  le and analyze i
0030: 74 73 20 73 70 61 63 65 20 75 74 69 6c 69 7a 61  ts space utiliza
0040: 74 69 6f 6e 2e 20 20 47 65 6e 65 72 61 74 65 0a  tion.  Generate.
0050: 2a 2a 20 74 65 78 74 20 6f 6e 20 73 74 61 6e 64  ** text on stand
0060: 61 72 64 20 6f 75 74 70 75 74 2e 0a 2a 2f 0a 23  ard output..*/.#
0070: 64 65 66 69 6e 65 20 54 43 4c 53 48 5f 49 4e 49  define TCLSH_INI
0080: 54 5f 50 52 4f 43 20 73 71 6c 69 74 65 33 5f 63  T_PROC sqlite3_c
0090: 68 65 63 6b 65 72 5f 69 6e 69 74 5f 70 72 6f 63  hecker_init_proc
00a0: 0a 23 64 65 66 69 6e 65 20 53 51 4c 49 54 45 5f  .#define SQLITE_
00b0: 45 4e 41 42 4c 45 5f 44 42 50 41 47 45 5f 56 54  ENABLE_DBPAGE_VT
00c0: 41 42 20 31 0a 23 64 65 66 69 6e 65 20 53 51 4c  AB 1.#define SQL
00d0: 49 54 45 5f 45 4e 41 42 4c 45 5f 4a 53 4f 4e 31  ITE_ENABLE_JSON1
00e0: 20 31 0a 23 75 6e 64 65 66 20 53 51 4c 49 54 45   1.#undef SQLITE
00f0: 5f 54 48 52 45 41 44 53 41 46 45 0a 23 64 65 66  _THREADSAFE.#def
0100: 69 6e 65 20 53 51 4c 49 54 45 5f 54 48 52 45 41  ine SQLITE_THREA
0110: 44 53 41 46 45 20 30 0a 23 75 6e 64 65 66 20 53  DSAFE 0.#undef S
0120: 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 43 4f 4c  QLITE_ENABLE_COL
0130: 55 4d 4e 5f 4d 45 54 41 44 41 54 41 0a 23 64 65  UMN_METADATA.#de
0140: 66 69 6e 65 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fine SQLITE_OMIT
0150: 5f 44 45 43 4c 54 59 50 45 20 31 0a 23 64 65 66  _DECLTYPE 1.#def
0160: 69 6e 65 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  ine SQLITE_OMIT_
0170: 44 45 50 52 45 43 41 54 45 44 20 31 0a 23 64 65  DEPRECATED 1.#de
0180: 66 69 6e 65 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fine SQLITE_OMIT
0190: 5f 50 52 4f 47 52 45 53 53 5f 43 41 4c 4c 42 41  _PROGRESS_CALLBA
01a0: 43 4b 20 31 0a 23 64 65 66 69 6e 65 20 53 51 4c  CK 1.#define SQL
01b0: 49 54 45 5f 4f 4d 49 54 5f 53 48 41 52 45 44 5f  ITE_OMIT_SHARED_
01c0: 43 41 43 48 45 20 31 0a 23 64 65 66 69 6e 65 20  CACHE 1.#define 
01d0: 53 51 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 4d  SQLITE_DEFAULT_M
01e0: 45 4d 53 54 41 54 55 53 20 30 0a 23 64 65 66 69  EMSTATUS 0.#defi
01f0: 6e 65 20 53 51 4c 49 54 45 5f 4d 41 58 5f 45 58  ne SQLITE_MAX_EX
0200: 50 52 5f 44 45 50 54 48 20 30 0a 49 4e 43 4c 55  PR_DEPTH 0.INCLU
0210: 44 45 20 73 71 6c 69 74 65 33 2e 63 0a 49 4e 43  DE sqlite3.c.INC
0220: 4c 55 44 45 20 24 52 4f 4f 54 2f 73 72 63 2f 74  LUDE $ROOT/src/t
0230: 63 6c 73 71 6c 69 74 65 2e 63 0a 49 4e 43 4c 55  clsqlite.c.INCLU
0240: 44 45 20 24 52 4f 4f 54 2f 65 78 74 2f 6d 69 73  DE $ROOT/ext/mis
0250: 63 2f 62 74 72 65 65 69 6e 66 6f 2e 63 0a 49 4e  c/btreeinfo.c.IN
0260: 43 4c 55 44 45 20 24 52 4f 4f 54 2f 65 78 74 2f  CLUDE $ROOT/ext/
0270: 72 65 70 61 69 72 2f 63 68 65 63 6b 69 6e 64 65  repair/checkinde
0280: 78 2e 63 0a 49 4e 43 4c 55 44 45 20 24 52 4f 4f  x.c.INCLUDE $ROO
0290: 54 2f 65 78 74 2f 72 65 70 61 69 72 2f 63 68 65  T/ext/repair/che
02a0: 63 6b 66 72 65 65 6c 69 73 74 2e 63 0a 0a 2f 2a  ckfreelist.c../*
02b0: 0a 2a 2a 20 44 65 63 6f 64 65 20 61 20 70 6f 69  .** Decode a poi
02c0: 6e 74 65 72 20 74 6f 20 61 6e 20 73 71 6c 69 74  nter to an sqlit
02d0: 65 33 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 69 6e  e3 object..*/.in
02e0: 74 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 54  t getDbPointer(T
02f0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0300: 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  p, const char *z
0310: 41 2c 20 73 71 6c 69 74 65 33 20 2a 2a 70 70 44  A, sqlite3 **ppD
0320: 62 29 7b 0a 20 20 73 74 72 75 63 74 20 53 71 6c  b){.  struct Sql
0330: 69 74 65 44 62 20 2a 70 3b 0a 20 20 54 63 6c 5f  iteDb *p;.  Tcl_
0340: 43 6d 64 49 6e 66 6f 20 63 6d 64 49 6e 66 6f 3b  CmdInfo cmdInfo;
0350: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 43 6f  .  if( Tcl_GetCo
0360: 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70  mmandInfo(interp
0370: 2c 20 7a 41 2c 20 26 63 6d 64 49 6e 66 6f 29 20  , zA, &cmdInfo) 
0380: 29 7b 0a 20 20 20 20 70 20 3d 20 28 73 74 72 75  ){.    p = (stru
0390: 63 74 20 53 71 6c 69 74 65 44 62 2a 29 63 6d 64  ct SqliteDb*)cmd
03a0: 49 6e 66 6f 2e 6f 62 6a 43 6c 69 65 6e 74 44 61  Info.objClientDa
03b0: 74 61 3b 0a 20 20 20 20 2a 70 70 44 62 20 3d 20  ta;.    *ppDb = 
03c0: 70 2d 3e 64 62 3b 0a 20 20 20 20 72 65 74 75 72  p->db;.    retur
03d0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 7d 65 6c 73  n TCL_OK;.  }els
03e0: 65 7b 0a 20 20 20 20 2a 70 70 44 62 20 3d 20 30  e{.    *ppDb = 0
03f0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
0400: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65  _ERROR;.  }.  re
0410: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
0420: 2f 2a 0a 2a 2a 20 20 20 73 71 6c 69 74 65 33 5f  /*.**   sqlite3_
0430: 69 6d 70 6f 73 74 65 72 20 64 62 20 6d 61 69 6e  imposter db main
0440: 20 72 6f 6f 74 70 61 67 65 20 7b 43 52 45 41 54   rootpage {CREAT
0450: 45 20 54 41 42 4c 45 2e 2e 2e 7d 20 20 3b 23 20  E TABLE...}  ;# 
0460: 73 65 74 75 70 20 61 6e 20 69 6d 70 6f 73 74 65  setup an imposte
0470: 72 0a 2a 2a 20 20 20 73 71 6c 69 74 65 33 5f 69  r.**   sqlite3_i
0480: 6d 70 6f 73 74 65 72 20 64 62 20 6d 61 69 6e 20  mposter db main 
0490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
04a0: 20 20 20 20 20 20 20 20 20 20 20 20 3b 23 20 72              ;# r
04b0: 6d 20 61 6c 6c 20 69 6d 70 6f 73 74 65 72 73 0a  m all imposters.
04c0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 71  */.static int sq
04d0: 6c 69 74 65 33 5f 69 6d 70 6f 73 74 65 72 28 0a  lite3_imposter(.
04e0: 20 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61    void *clientDa
04f0: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ta,.  Tcl_Interp
0500: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
0510: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
0520: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
0530: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a  .  sqlite3 *db;.
0540: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53    const char *zS
0550: 63 68 65 6d 61 3b 0a 20 20 69 6e 74 20 69 52 6f  chema;.  int iRo
0560: 6f 74 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  ot;.  const char
0570: 20 2a 7a 53 71 6c 3b 0a 0a 20 20 69 66 28 20 6f   *zSql;..  if( o
0580: 62 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d  bjc!=3 && objc!=
0590: 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f  5 ){.    Tcl_Wro
05a0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
05b0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 20 53  , 1, objv, "DB S
05c0: 43 48 45 4d 41 20 5b 52 4f 4f 54 50 41 47 45 20  CHEMA [ROOTPAGE 
05d0: 53 51 4c 5d 22 29 3b 0a 20 20 20 20 72 65 74 75  SQL]");.    retu
05e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
05f0: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69  }.  if( getDbPoi
0600: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c  nter(interp, Tcl
0610: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
0620: 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75  1]), &db) ) retu
0630: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
0640: 7a 53 63 68 65 6d 61 20 3d 20 54 63 6c 5f 47 65  zSchema = Tcl_Ge
0650: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29  tString(objv[2])
0660: 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33 20  ;.  if( objc==3 
0670: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 74  ){.    sqlite3_t
0680: 65 73 74 5f 63 6f 6e 74 72 6f 6c 28 53 51 4c 49  est_control(SQLI
0690: 54 45 5f 54 45 53 54 43 54 52 4c 5f 49 4d 50 4f  TE_TESTCTRL_IMPO
06a0: 53 54 45 52 2c 20 64 62 2c 20 7a 53 63 68 65 6d  STER, db, zSchem
06b0: 61 2c 20 30 2c 20 31 29 3b 0a 20 20 7d 65 6c 73  a, 0, 1);.  }els
06c0: 65 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f 47  e{.    if( Tcl_G
06d0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  etIntFromObj(int
06e0: 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 69  erp, objv[3], &i
06f0: 52 6f 6f 74 29 20 29 20 72 65 74 75 72 6e 20 54  Root) ) return T
0700: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7a 53  CL_ERROR;.    zS
0710: 71 6c 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  ql = Tcl_GetStri
0720: 6e 67 28 6f 62 6a 76 5b 34 5d 29 3b 0a 20 20 20  ng(objv[4]);.   
0730: 20 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f   sqlite3_test_co
0740: 6e 74 72 6f 6c 28 53 51 4c 49 54 45 5f 54 45 53  ntrol(SQLITE_TES
0750: 54 43 54 52 4c 5f 49 4d 50 4f 53 54 45 52 2c 20  TCTRL_IMPOSTER, 
0760: 64 62 2c 20 7a 53 63 68 65 6d 61 2c 20 31 2c 20  db, zSchema, 1, 
0770: 69 52 6f 6f 74 29 3b 0a 20 20 20 20 73 71 6c 69  iRoot);.    sqli
0780: 74 65 33 5f 65 78 65 63 28 64 62 2c 20 7a 53 71  te3_exec(db, zSq
0790: 6c 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 20  l, 0, 0, 0);.   
07a0: 20 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f   sqlite3_test_co
07b0: 6e 74 72 6f 6c 28 53 51 4c 49 54 45 5f 54 45 53  ntrol(SQLITE_TES
07c0: 54 43 54 52 4c 5f 49 4d 50 4f 53 54 45 52 2c 20  TCTRL_IMPOSTER, 
07d0: 64 62 2c 20 7a 53 63 68 65 6d 61 2c 20 30 2c 20  db, zSchema, 0, 
07e0: 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  0);.  }.  return
07f0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 69 6e 63   TCL_OK;.}..#inc
0800: 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 0a  lude <stdio.h>..
0810: 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 6c 69  const char *sqli
0820: 74 65 33 5f 63 68 65 63 6b 65 72 5f 69 6e 69 74  te3_checker_init
0830: 5f 70 72 6f 63 28 54 63 6c 5f 49 6e 74 65 72 70  _proc(Tcl_Interp
0840: 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 54 63 6c   *interp){.  Tcl
0850: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
0860: 64 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  d(interp, "sqlit
0870: 65 33 5f 69 6d 70 6f 73 74 65 72 22 2c 20 0a 20  e3_imposter", . 
0880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0890: 20 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d        (Tcl_ObjCm
08a0: 64 50 72 6f 63 2a 29 73 71 6c 69 74 65 33 5f 69  dProc*)sqlite3_i
08b0: 6d 70 6f 73 74 65 72 2c 20 30 2c 20 30 29 3b 0a  mposter, 0, 0);.
08c0: 20 20 73 71 6c 69 74 65 33 5f 61 75 74 6f 5f 65    sqlite3_auto_e
08d0: 78 74 65 6e 73 69 6f 6e 28 28 76 6f 69 64 28 2a  xtension((void(*
08e0: 29 28 76 6f 69 64 29 29 73 71 6c 69 74 65 33 5f  )(void))sqlite3_
08f0: 62 74 72 65 65 69 6e 66 6f 5f 69 6e 69 74 29 3b  btreeinfo_init);
0900: 0a 20 20 73 71 6c 69 74 65 33 5f 61 75 74 6f 5f  .  sqlite3_auto_
0910: 65 78 74 65 6e 73 69 6f 6e 28 28 76 6f 69 64 28  extension((void(
0920: 2a 29 28 76 6f 69 64 29 29 73 71 6c 69 74 65 33  *)(void))sqlite3
0930: 5f 63 68 65 63 6b 69 6e 64 65 78 5f 69 6e 69 74  _checkindex_init
0940: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 61 75 74  );.  sqlite3_aut
0950: 6f 5f 65 78 74 65 6e 73 69 6f 6e 28 28 76 6f 69  o_extension((voi
0960: 64 28 2a 29 28 76 6f 69 64 29 29 73 71 6c 69 74  d(*)(void))sqlit
0970: 65 33 5f 63 68 65 63 6b 66 72 65 65 6c 69 73 74  e3_checkfreelist
0980: 5f 69 6e 69 74 29 3b 0a 20 20 72 65 74 75 72 6e  _init);.  return
0990: 0a 42 45 47 49 4e 5f 53 54 52 49 4e 47 0a 49 4e  .BEGIN_STRING.IN
09a0: 43 4c 55 44 45 20 24 52 4f 4f 54 2f 65 78 74 2f  CLUDE $ROOT/ext/
09b0: 72 65 70 61 69 72 2f 73 71 6c 69 74 65 33 5f 63  repair/sqlite3_c
09c0: 68 65 63 6b 65 72 2e 74 63 6c 0a 45 4e 44 5f 53  hecker.tcl.END_S
09d0: 54 52 49 4e 47 0a 3b 0a 7d 0a                    TRING.;.}.