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 36 20 44 2e 20 52 69 63 68 (c) 2006 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 76 lic.** License v
00b0: 65 72 73 69 6f 6e 20 32 20 61 73 20 70 75 62 6c ersion 2 as publ
00c0: 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 ished by the Fre
00d0: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
00e0: 61 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 ation..**.** Thi
00f0: 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 s program is dis
0100: 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 tributed in the
0110: 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c hope that it wil
0120: 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 l be useful,.**
0130: 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 but WITHOUT ANY
0140: 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 WARRANTY; withou
0150: 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 t even the impli
0160: 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 2a ed warranty of.*
0170: 2a 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 * MERCHANTABILIT
0180: 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 Y or FITNESS FOR
0190: 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 A PARTICULAR PU
01a0: 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 20 RPOSE. See the
01b0: 47 4e 55 0a 2a 2a 20 47 65 6e 65 72 61 6c 20 50 GNU.** General P
01c0: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f ublic License fo
01d0: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a r more details..
01e0: 2a 2a 20 0a 2a 2a 20 59 6f 75 20 73 68 6f 75 6c ** .** You shoul
01f0: 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 d have received
0200: 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e a copy of the GN
0210: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0220: 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e .** License alon
0230: 67 20 77 69 74 68 20 74 68 69 73 20 6c 69 62 72 g with this libr
0240: 61 72 79 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 ary; if not, wri
0250: 74 65 20 74 6f 20 74 68 65 0a 2a 2a 20 46 72 65 te to the.** Fre
0260: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
0270: 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 ation, Inc., 59
0280: 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 Temple Place - S
0290: 75 69 74 65 20 33 33 30 2c 0a 2a 2a 20 42 6f 73 uite 330,.** Bos
02a0: 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d 31 ton, MA 02111-1
02b0: 33 30 37 2c 20 55 53 41 2e 0a 2a 2a 0a 2a 2a 20 307, USA..**.**
02c0: 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69 Author contact i
02d0: 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 nformation:.**
02e0: 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a 2a drh@hwaci.com.*
02f0: 2a 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 * http://www.h
0300: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a waci.com/drh/.**
0310: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
0320: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0330: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0360: 0a 2a 2a 20 0a 2a 2a 20 43 6f 64 65 20 66 6f 72 .** .** Code for
0370: 20 69 6e 74 65 72 66 61 63 69 6e 67 20 74 6f 20 interfacing to
0380: 74 68 65 20 76 61 72 69 6f 75 73 20 64 61 74 61 the various data
0390: 62 61 73 65 73 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 bases..**.** The
03a0: 72 65 20 61 72 65 20 74 68 72 65 65 20 73 65 70 re are three sep
03b0: 61 72 61 74 65 20 64 61 74 61 62 61 73 65 20 66 arate database f
03c0: 69 6c 65 73 20 74 68 61 74 20 66 6f 73 73 69 6c iles that fossil
03d0: 20 69 6e 74 65 72 61 63 74 73 0a 2a 2a 20 77 69 interacts.** wi
03e0: 74 68 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 28 31 29 th:.**.** (1)
03f0: 20 20 54 68 65 20 22 75 73 65 72 22 20 64 61 74 The "user" dat
0400: 61 62 61 73 65 20 69 6e 20 7e 2f 2e 66 6f 73 73 abase in ~/.foss
0410: 69 6c 0a 2a 2a 0a 2a 2a 20 20 20 20 28 32 29 20 il.**.** (2)
0420: 20 54 68 65 20 22 72 65 70 6f 73 69 74 6f 72 79 The "repository
0430: 22 20 64 61 74 61 62 61 73 65 0a 2a 2a 0a 2a 2a " database.**.**
0440: 20 20 20 20 28 33 29 20 20 41 20 6c 6f 63 61 6c (3) A local
0450: 20 63 68 65 63 6b 6f 75 74 20 64 61 74 61 62 61 checkout databa
0460: 73 65 20 6e 61 6d 65 64 20 22 46 4f 53 53 49 4c se named "FOSSIL
0470: 22 20 61 6e 64 20 6c 6f 63 61 74 65 64 20 61 74 " and located at
0480: 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20 20 20 the.**
0490: 72 6f 6f 74 20 6f 66 20 74 68 65 20 6c 6f 63 61 root of the loca
04a0: 6c 20 63 6f 70 79 20 6f 66 20 74 68 65 20 73 6f l copy of the so
04b0: 75 72 63 65 20 74 72 65 65 2e 0a 2a 2a 0a 2a 2f urce tree..**.*/
04c0: 0a 23 69 6e 63 6c 75 64 65 20 22 63 6f 6e 66 69 .#include "confi
04d0: 67 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 g.h".#include <s
04e0: 71 6c 69 74 65 33 2e 68 3e 0a 23 69 6e 63 6c 75 qlite3.h>.#inclu
04f0: 64 65 20 3c 73 79 73 2f 74 79 70 65 73 2e 68 3e de <sys/types.h>
0500: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 73 .#include <sys/s
0510: 74 61 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 tat.h>.#include
0520: 3c 70 77 64 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 <pwd.h>.#include
0530: 20 3c 75 6e 69 73 74 64 2e 68 3e 0a 23 69 6e 63 <unistd.h>.#inc
0540: 6c 75 64 65 20 22 64 62 2e 68 22 0a 0a 23 69 66 lude "db.h"..#if
0550: 20 49 4e 54 45 52 46 41 43 45 0a 2f 2a 0a 2a 2a INTERFACE./*.**
0560: 20 41 6e 20 73 69 6e 67 6c 65 20 53 51 4c 20 73 An single SQL s
0570: 74 61 74 65 6d 65 6e 74 20 69 73 20 72 65 70 72 tatement is repr
0580: 65 73 65 6e 74 65 64 20 61 73 20 61 6e 20 69 6e esented as an in
0590: 73 74 61 6e 63 65 20 6f 66 20 74 68 65 20 66 6f stance of the fo
05a0: 6c 6c 6f 77 69 6e 67 0a 2a 2a 20 73 74 72 75 63 llowing.** struc
05b0: 74 75 72 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 ture..*/.struct
05c0: 53 74 6d 74 20 7b 0a 20 20 42 6c 6f 62 20 73 71 Stmt {. Blob sq
05d0: 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l;
05e0: 20 2f 2a 20 54 68 65 20 53 51 4c 20 66 6f 72 20 /* The SQL for
05f0: 74 68 69 73 20 73 74 61 74 65 6d 65 6e 74 20 2a this statement *
0600: 2f 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 /. sqlite3_stmt
0610: 20 2a 70 53 74 6d 74 3b 20 20 20 20 2f 2a 20 54 *pStmt; /* T
0620: 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 73 71 he results of sq
0630: 6c 69 74 65 33 5f 70 72 65 70 61 72 65 28 29 20 lite3_prepare()
0640: 2a 2f 0a 7d 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 */.};.#endif /*
0650: 49 4e 54 45 52 46 41 43 45 20 2a 2f 0a 0a 2f 2a INTERFACE */../*
0660: 0a 2a 2a 20 43 61 6c 6c 20 74 68 69 73 20 72 6f .** Call this ro
0670: 75 74 69 6e 65 20 77 68 65 6e 20 61 20 64 61 74 utine when a dat
0680: 61 62 61 73 65 20 65 72 72 6f 72 20 6f 63 63 75 abase error occu
0690: 72 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f rs..*/.static vo
06a0: 69 64 20 64 62 5f 65 72 72 28 63 6f 6e 73 74 20 id db_err(const
06b0: 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e char *zFormat, .
06c0: 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 ..){. va_list a
06d0: 70 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 p;. va_start(ap
06e0: 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 66 70 , zFormat);. fp
06f0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 25 rintf(stderr, "%
0700: 73 5c 6e 22 2c 20 76 6d 70 72 69 6e 74 66 28 7a s\n", vmprintf(z
0710: 46 6f 72 6d 61 74 2c 20 61 70 29 29 3b 0a 20 20 Format, ap));.
0720: 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 65 78 va_end(ap);. ex
0730: 69 74 28 31 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 it(1);.}..static
0740: 20 69 6e 74 20 6e 42 65 67 69 6e 20 3d 20 30 3b int nBegin = 0;
0750: 20 20 20 20 20 20 2f 2a 20 4e 65 73 74 69 6e 67 /* Nesting
0760: 20 64 65 70 74 68 20 6f 66 20 42 45 47 49 4e 20 depth of BEGIN
0770: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 6f */.static int do
0780: 52 6f 6c 6c 62 61 63 6b 20 3d 20 30 3b 20 20 2f Rollback = 0; /
0790: 2a 20 54 72 75 65 20 74 6f 20 66 6f 72 63 65 20 * True to force
07a0: 61 20 72 6f 6c 6c 62 61 63 6b 20 2a 2f 0a 0a 2f a rollback */../
07b0: 2a 0a 2a 2a 20 42 65 67 69 6e 20 61 6e 64 20 65 *.** Begin and e
07c0: 6e 64 20 61 20 6e 65 73 74 65 64 20 74 72 61 6e nd a nested tran
07d0: 73 61 63 74 69 6f 6e 0a 2a 2f 0a 76 6f 69 64 20 saction.*/.void
07e0: 64 62 5f 62 65 67 69 6e 5f 74 72 61 6e 73 61 63 db_begin_transac
07f0: 74 69 6f 6e 28 76 6f 69 64 29 7b 0a 20 20 69 66 tion(void){. if
0800: 28 20 6e 42 65 67 69 6e 3d 3d 30 20 29 20 64 62 ( nBegin==0 ) db
0810: 5f 6d 75 6c 74 69 5f 65 78 65 63 28 22 42 45 47 _multi_exec("BEG
0820: 49 4e 22 29 3b 0a 20 20 6e 42 65 67 69 6e 2b 2b IN");. nBegin++
0830: 3b 0a 7d 0a 76 6f 69 64 20 64 62 5f 65 6e 64 5f ;.}.void db_end_
0840: 74 72 61 6e 73 61 63 74 69 6f 6e 28 69 6e 74 20 transaction(int
0850: 72 6f 6c 6c 62 61 63 6b 46 6c 61 67 29 7b 0a 20 rollbackFlag){.
0860: 20 69 66 28 20 72 6f 6c 6c 62 61 63 6b 46 6c 61 if( rollbackFla
0870: 67 20 29 20 64 6f 52 6f 6c 6c 62 61 63 6b 20 3d g ) doRollback =
0880: 20 31 3b 0a 20 20 6e 42 65 67 69 6e 2d 2d 3b 0a 1;. nBegin--;.
0890: 20 20 69 66 28 20 6e 42 65 67 69 6e 3d 3d 30 20 if( nBegin==0
08a0: 29 7b 0a 20 20 20 20 64 62 5f 6d 75 6c 74 69 5f ){. db_multi_
08b0: 65 78 65 63 28 64 6f 52 6f 6c 6c 62 61 63 6b 20 exec(doRollback
08c0: 3f 20 22 52 4f 4c 4c 42 41 43 4b 22 20 3a 20 22 ? "ROLLBACK" : "
08d0: 43 4f 4d 4d 49 54 22 29 3b 0a 20 20 20 20 64 6f COMMIT");. do
08e0: 52 6f 6c 6c 62 61 63 6b 20 3d 20 30 3b 0a 20 20 Rollback = 0;.
08f0: 7d 0a 7d 0a 76 6f 69 64 20 64 62 5f 66 6f 72 63 }.}.void db_forc
0900: 65 5f 72 6f 6c 6c 62 61 63 6b 28 76 6f 69 64 29 e_rollback(void)
0910: 7b 0a 20 20 69 66 28 20 6e 42 65 67 69 6e 20 29 {. if( nBegin )
0920: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 65 78 {. sqlite3_ex
0930: 65 63 28 67 2e 64 62 2c 20 22 52 4f 4c 4c 42 41 ec(g.db, "ROLLBA
0940: 43 4b 22 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 CK", 0, 0, 0);.
0950: 20 7d 0a 20 20 6e 42 65 67 69 6e 20 3d 20 30 3b }. nBegin = 0;
0960: 0a 7d 0a 20 0a 2f 2a 0a 2a 2a 20 50 72 65 70 61 .}. ./*.** Prepa
0970: 72 65 20 6f 72 20 72 65 70 72 65 70 61 72 65 20 re or reprepare
0980: 74 68 65 20 73 71 6c 69 74 65 33 20 73 74 61 74 the sqlite3 stat
0990: 65 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 72 ement from the r
09a0: 61 77 20 53 51 4c 20 74 65 78 74 2e 0a 2a 2f 0a aw SQL text..*/.
09b0: 73 74 61 74 69 63 20 76 6f 69 64 20 72 65 70 72 static void repr
09c0: 65 70 61 72 65 28 53 74 6d 74 20 2a 70 53 74 6d epare(Stmt *pStm
09d0: 74 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74 t){. sqlite3_st
09e0: 6d 74 20 2a 70 4e 65 77 3b 0a 20 20 69 6e 74 20 mt *pNew;. int
09f0: 72 63 3b 0a 20 20 69 66 28 20 28 72 63 20 3d 20 rc;. if( (rc =
0a00: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 28 sqlite3_prepare(
0a10: 67 2e 64 62 2c 20 62 6c 6f 62 5f 62 75 66 66 65 g.db, blob_buffe
0a20: 72 28 26 70 53 74 6d 74 2d 3e 73 71 6c 29 2c 20 r(&pStmt->sql),
0a30: 2d 31 2c 20 26 70 4e 65 77 2c 20 30 29 29 21 3d -1, &pNew, 0))!=
0a40: 30 20 29 7b 0a 20 20 20 20 64 62 5f 65 72 72 28 0 ){. db_err(
0a50: 22 25 73 5c 6e 25 73 22 2c 20 62 6c 6f 62 5f 73 "%s\n%s", blob_s
0a60: 74 72 28 26 70 53 74 6d 74 2d 3e 73 71 6c 29 2c tr(&pStmt->sql),
0a70: 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 sqlite3_errmsg(
0a80: 67 2e 64 62 29 29 3b 0a 20 20 7d 0a 20 20 69 66 g.db));. }. if
0a90: 28 20 70 53 74 6d 74 2d 3e 70 53 74 6d 74 20 29 ( pStmt->pStmt )
0aa0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 74 72 {. sqlite3_tr
0ab0: 61 6e 73 66 65 72 5f 62 69 6e 64 69 6e 67 73 28 ansfer_bindings(
0ac0: 70 53 74 6d 74 2d 3e 70 53 74 6d 74 2c 20 70 4e pStmt->pStmt, pN
0ad0: 65 77 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 ew);. sqlite3
0ae0: 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74 2d _finalize(pStmt-
0af0: 3e 70 53 74 6d 74 29 3b 0a 20 20 7d 0a 20 20 70 >pStmt);. }. p
0b00: 53 74 6d 74 2d 3e 70 53 74 6d 74 20 3d 20 70 4e Stmt->pStmt = pN
0b10: 65 77 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 65 ew;.}../*.** Pre
0b20: 70 61 72 65 20 61 20 53 74 6d 74 2e 20 20 41 73 pare a Stmt. As
0b30: 73 75 6d 65 20 74 68 61 74 20 74 68 65 20 53 74 sume that the St
0b40: 6d 74 20 69 73 20 70 72 65 76 69 6f 75 73 6c 79 mt is previously
0b50: 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 64 2e 0a uninitialized..
0b60: 2a 2a 20 49 66 20 74 68 65 20 69 6e 70 75 74 20 ** If the input
0b70: 73 74 72 69 6e 67 20 63 6f 6e 74 61 69 6e 73 20 string contains
0b80: 6d 75 6c 74 69 70 6c 65 20 53 51 4c 20 73 74 61 multiple SQL sta
0b90: 74 65 6d 65 6e 74 73 2c 20 6f 6e 6c 79 20 74 68 tements, only th
0ba0: 65 20 66 69 72 73 74 0a 2a 2a 20 6f 6e 65 20 69 e first.** one i
0bb0: 73 20 70 72 6f 63 65 73 73 65 64 2e 20 20 41 6c s processed. Al
0bc0: 6c 20 73 74 61 74 65 6d 65 6e 74 73 20 62 65 79 l statements bey
0bd0: 6f 6e 64 20 74 68 65 20 66 69 72 73 74 20 61 72 ond the first ar
0be0: 65 20 73 69 6c 65 6e 74 6c 79 20 69 67 6e 6f 72 e silently ignor
0bf0: 65 64 2e 0a 2a 2f 0a 69 6e 74 20 64 62 5f 76 70 ed..*/.int db_vp
0c00: 72 65 70 61 72 65 28 53 74 6d 74 20 2a 70 53 74 repare(Stmt *pSt
0c10: 6d 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a mt, const char *
0c20: 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 73 74 zFormat, va_list
0c30: 20 61 70 29 7b 0a 20 20 62 6c 6f 62 5f 7a 65 72 ap){. blob_zer
0c40: 6f 28 26 70 53 74 6d 74 2d 3e 73 71 6c 29 3b 0a o(&pStmt->sql);.
0c50: 20 20 62 6c 6f 62 5f 76 61 70 70 65 6e 64 66 28 blob_vappendf(
0c60: 26 70 53 74 6d 74 2d 3e 73 71 6c 2c 20 7a 46 6f &pStmt->sql, zFo
0c70: 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f rmat, ap);. va_
0c80: 65 6e 64 28 61 70 29 3b 0a 20 20 70 53 74 6d 74 end(ap);. pStmt
0c90: 2d 3e 70 53 74 6d 74 20 3d 20 30 3b 0a 20 20 72 ->pStmt = 0;. r
0ca0: 65 70 72 65 70 61 72 65 28 70 53 74 6d 74 29 3b eprepare(pStmt);
0cb0: 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 69 . return 0;.}.i
0cc0: 6e 74 20 64 62 5f 70 72 65 70 61 72 65 28 53 74 nt db_prepare(St
0cd0: 6d 74 20 2a 70 53 74 6d 74 2c 20 63 6f 6e 73 74 mt *pStmt, const
0ce0: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 char *zFormat,
0cf0: 2e 2e 2e 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a ...){. int rc;.
0d00: 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 va_list ap;.
0d10: 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 6f va_start(ap, zFo
0d20: 72 6d 61 74 29 3b 0a 20 20 72 63 20 3d 20 64 62 rmat);. rc = db
0d30: 5f 76 70 72 65 70 61 72 65 28 70 53 74 6d 74 2c _vprepare(pStmt,
0d40: 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 zFormat, ap);.
0d50: 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 72 va_end(ap);. r
0d60: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 69 6e 74 20 eturn rc;.}.int
0d70: 64 62 5f 73 74 61 74 69 63 5f 70 72 65 70 61 72 db_static_prepar
0d80: 65 28 53 74 6d 74 20 2a 70 53 74 6d 74 2c 20 63 e(Stmt *pStmt, c
0d90: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d onst char *zForm
0da0: 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 69 6e 74 20 at, ...){. int
0db0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a rc = SQLITE_OK;.
0dc0: 20 20 69 66 28 20 62 6c 6f 62 5f 73 69 7a 65 28 if( blob_size(
0dd0: 26 70 53 74 6d 74 2d 3e 73 71 6c 29 3d 3d 30 20 &pStmt->sql)==0
0de0: 29 7b 0a 20 20 20 20 76 61 5f 6c 69 73 74 20 61 ){. va_list a
0df0: 70 3b 0a 20 20 20 20 76 61 5f 73 74 61 72 74 28 p;. va_start(
0e00: 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 ap, zFormat);.
0e10: 20 20 72 63 20 3d 20 64 62 5f 76 70 72 65 70 61 rc = db_vprepa
0e20: 72 65 28 70 53 74 6d 74 2c 20 7a 46 6f 72 6d 61 re(pStmt, zForma
0e30: 74 2c 20 61 70 29 3b 0a 20 20 20 20 76 61 5f 65 t, ap);. va_e
0e40: 6e 64 28 61 70 29 3b 0a 20 20 7d 0a 20 20 72 65 nd(ap);. }. re
0e50: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a turn rc;.}../*.*
0e60: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e 64 * Return the ind
0e70: 65 78 20 6f 66 20 61 20 62 69 6e 64 20 70 61 72 ex of a bind par
0e80: 61 6d 65 74 65 72 0a 2a 2f 0a 73 74 61 74 69 63 ameter.*/.static
0e90: 20 69 6e 74 20 70 61 72 61 6d 49 64 78 28 53 74 int paramIdx(St
0ea0: 6d 74 20 2a 70 53 74 6d 74 2c 20 63 6f 6e 73 74 mt *pStmt, const
0eb0: 20 63 68 61 72 20 2a 7a 50 61 72 61 6d 4e 61 6d char *zParamNam
0ec0: 65 29 7b 0a 20 20 69 6e 74 20 69 20 3d 20 73 71 e){. int i = sq
0ed0: 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 6d lite3_bind_param
0ee0: 65 74 65 72 5f 69 6e 64 65 78 28 70 53 74 6d 74 eter_index(pStmt
0ef0: 2d 3e 70 53 74 6d 74 2c 20 7a 50 61 72 61 6d 4e ->pStmt, zParamN
0f00: 61 6d 65 29 3b 0a 20 20 69 66 28 20 69 3d 3d 30 ame);. if( i==0
0f10: 20 29 7b 0a 20 20 20 20 64 62 5f 65 72 72 28 22 ){. db_err("
0f20: 6e 6f 20 73 75 63 68 20 62 69 6e 64 20 70 61 72 no such bind par
0f30: 61 6d 65 74 65 72 3a 20 25 73 5c 6e 25 62 22 2c ameter: %s\n%b",
0f40: 20 7a 50 61 72 61 6d 4e 61 6d 65 2c 20 26 70 53 zParamName, &pS
0f50: 74 6d 74 2d 3e 73 71 6c 29 3b 0a 20 20 7d 0a 20 tmt->sql);. }.
0f60: 20 72 65 74 75 72 6e 20 69 3b 0a 7d 0a 2f 2a 0a return i;.}./*.
0f70: 2a 2a 20 42 69 6e 64 20 61 6e 20 69 6e 74 65 67 ** Bind an integ
0f80: 65 72 2c 20 73 74 72 69 6e 67 2c 20 6f 72 20 42 er, string, or B
0f90: 6c 6f 62 20 76 61 6c 75 65 20 74 6f 20 61 20 6e lob value to a n
0fa0: 61 6d 65 64 20 70 61 72 61 6d 65 74 65 72 2e 0a amed parameter..
0fb0: 2a 2f 0a 69 6e 74 20 64 62 5f 62 69 6e 64 5f 69 */.int db_bind_i
0fc0: 6e 74 28 53 74 6d 74 20 2a 70 53 74 6d 74 2c 20 nt(Stmt *pStmt,
0fd0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 72 const char *zPar
0fe0: 61 6d 4e 61 6d 65 2c 20 69 6e 74 20 69 56 61 6c amName, int iVal
0ff0: 75 65 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 ue){. return sq
1000: 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 28 70 lite3_bind_int(p
1010: 53 74 6d 74 2d 3e 70 53 74 6d 74 2c 20 70 61 72 Stmt->pStmt, par
1020: 61 6d 49 64 78 28 70 53 74 6d 74 2c 20 7a 50 61 amIdx(pStmt, zPa
1030: 72 61 6d 4e 61 6d 65 29 2c 20 69 56 61 6c 75 65 ramName), iValue
1040: 29 3b 0a 7d 0a 69 6e 74 20 64 62 5f 62 69 6e 64 );.}.int db_bind
1050: 5f 69 6e 74 36 34 28 53 74 6d 74 20 2a 70 53 74 _int64(Stmt *pSt
1060: 6d 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a mt, const char *
1070: 7a 50 61 72 61 6d 4e 61 6d 65 2c 20 69 36 34 20 zParamName, i64
1080: 69 56 61 6c 75 65 29 7b 0a 20 20 72 65 74 75 72 iValue){. retur
1090: 6e 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 n sqlite3_bind_i
10a0: 6e 74 36 34 28 70 53 74 6d 74 2d 3e 70 53 74 6d nt64(pStmt->pStm
10b0: 74 2c 20 70 61 72 61 6d 49 64 78 28 70 53 74 6d t, paramIdx(pStm
10c0: 74 2c 20 7a 50 61 72 61 6d 4e 61 6d 65 29 2c 20 t, zParamName),
10d0: 69 56 61 6c 75 65 29 3b 0a 7d 0a 69 6e 74 20 64 iValue);.}.int d
10e0: 62 5f 62 69 6e 64 5f 74 65 78 74 28 53 74 6d 74 b_bind_text(Stmt
10f0: 20 2a 70 53 74 6d 74 2c 20 63 6f 6e 73 74 20 63 *pStmt, const c
1100: 68 61 72 20 2a 7a 50 61 72 61 6d 4e 61 6d 65 2c har *zParamName,
1110: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 const char *zVa
1120: 6c 75 65 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 lue){. return s
1130: 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 qlite3_bind_text
1140: 28 70 53 74 6d 74 2d 3e 70 53 74 6d 74 2c 20 70 (pStmt->pStmt, p
1150: 61 72 61 6d 49 64 78 28 70 53 74 6d 74 2c 20 7a aramIdx(pStmt, z
1160: 50 61 72 61 6d 4e 61 6d 65 29 2c 20 7a 56 61 6c ParamName), zVal
1170: 75 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ue,.
1180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d -
1190: 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 1, SQLITE_STATIC
11a0: 29 3b 0a 7d 0a 69 6e 74 20 64 62 5f 62 69 6e 64 );.}.int db_bind
11b0: 5f 6e 75 6c 6c 28 53 74 6d 74 20 2a 70 53 74 6d _null(Stmt *pStm
11c0: 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a t, const char *z
11d0: 50 61 72 61 6d 4e 61 6d 65 29 7b 0a 20 20 72 65 ParamName){. re
11e0: 74 75 72 6e 20 73 71 6c 69 74 65 33 5f 62 69 6e turn sqlite3_bin
11f0: 64 5f 6e 75 6c 6c 28 70 53 74 6d 74 2d 3e 70 53 d_null(pStmt->pS
1200: 74 6d 74 2c 20 70 61 72 61 6d 49 64 78 28 70 53 tmt, paramIdx(pS
1210: 74 6d 74 2c 20 7a 50 61 72 61 6d 4e 61 6d 65 29 tmt, zParamName)
1220: 29 3b 0a 7d 0a 69 6e 74 20 64 62 5f 62 69 6e 64 );.}.int db_bind
1230: 5f 62 6c 6f 62 28 53 74 6d 74 20 2a 70 53 74 6d _blob(Stmt *pStm
1240: 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a t, const char *z
1250: 50 61 72 61 6d 4e 61 6d 65 2c 20 42 6c 6f 62 20 ParamName, Blob
1260: 2a 70 42 6c 6f 62 29 7b 0a 20 20 72 65 74 75 72 *pBlob){. retur
1270: 6e 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 62 n sqlite3_bind_b
1280: 6c 6f 62 28 70 53 74 6d 74 2d 3e 70 53 74 6d 74 lob(pStmt->pStmt
1290: 2c 20 70 61 72 61 6d 49 64 78 28 70 53 74 6d 74 , paramIdx(pStmt
12a0: 2c 20 7a 50 61 72 61 6d 4e 61 6d 65 29 2c 0a 20 , zParamName),.
12b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
12c0: 20 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 62 75 blob_bu
12d0: 66 66 65 72 28 70 42 6c 6f 62 29 2c 20 62 6c 6f ffer(pBlob), blo
12e0: 62 5f 73 69 7a 65 28 70 42 6c 6f 62 29 2c 20 53 b_size(pBlob), S
12f0: 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 7d QLITE_STATIC);.}
1300: 0a 0a 2f 2a 20 62 69 6e 64 5f 73 74 72 28 29 20 ../* bind_str()
1310: 74 72 65 61 74 73 20 61 20 42 6c 6f 62 20 6f 62 treats a Blob ob
1320: 6a 65 63 74 20 6c 69 6b 65 20 61 20 54 45 58 54 ject like a TEXT
1330: 20 73 74 72 69 6e 67 20 61 6e 64 20 62 69 6e 64 string and bind
1340: 73 20 69 74 0a 2a 2a 20 74 6f 20 74 68 65 20 53 s it.** to the S
1350: 51 4c 20 76 61 72 69 61 62 6c 65 2e 20 20 43 6f QL variable. Co
1360: 6e 73 74 72 61 73 74 20 74 68 69 73 20 74 6f 20 nstrast this to
1370: 62 69 6e 64 5f 62 6c 6f 62 28 29 20 77 68 69 63 bind_blob() whic
1380: 68 20 74 72 65 61 74 73 0a 2a 2a 20 74 68 65 20 h treats.** the
1390: 42 6c 6f 62 20 6f 62 6a 65 63 74 20 6c 69 6b 65 Blob object like
13a0: 20 61 6e 20 53 51 4c 20 42 4c 4f 42 2e 0a 2a 2f an SQL BLOB..*/
13b0: 0a 69 6e 74 20 64 62 5f 62 69 6e 64 5f 73 74 72 .int db_bind_str
13c0: 28 53 74 6d 74 20 2a 70 53 74 6d 74 2c 20 63 6f (Stmt *pStmt, co
13d0: 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 72 61 6d nst char *zParam
13e0: 4e 61 6d 65 2c 20 42 6c 6f 62 20 2a 70 42 6c 6f Name, Blob *pBlo
13f0: 62 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c b){. return sql
1400: 69 74 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 ite3_bind_text(p
1410: 53 74 6d 74 2d 3e 70 53 74 6d 74 2c 20 70 61 72 Stmt->pStmt, par
1420: 61 6d 49 64 78 28 70 53 74 6d 74 2c 20 7a 50 61 amIdx(pStmt, zPa
1430: 72 61 6d 4e 61 6d 65 29 2c 0a 20 20 20 20 20 20 ramName),.
1440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1450: 20 20 20 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 blob_buffer(
1460: 70 42 6c 6f 62 29 2c 20 62 6c 6f 62 5f 73 69 7a pBlob), blob_siz
1470: 65 28 70 42 6c 6f 62 29 2c 20 53 51 4c 49 54 45 e(pBlob), SQLITE
1480: 5f 53 54 41 54 49 43 29 3b 0a 7d 0a 0a 2f 2a 0a _STATIC);.}../*.
1490: 2a 2a 20 53 74 65 70 20 74 68 65 20 53 51 4c 20 ** Step the SQL
14a0: 73 74 61 74 65 6d 65 6e 74 2e 20 20 52 65 74 75 statement. Retu
14b0: 72 6e 20 65 69 74 68 65 72 20 53 51 4c 49 54 45 rn either SQLITE
14c0: 5f 52 4f 57 20 6f 72 20 61 6e 20 65 72 72 6f 72 _ROW or an error
14d0: 20 63 6f 64 65 0a 2a 2a 20 6f 72 20 53 51 4c 49 code.** or SQLI
14e0: 54 45 5f 4f 4b 20 69 66 20 74 68 65 20 73 74 61 TE_OK if the sta
14f0: 74 65 6d 65 6e 74 20 66 69 6e 69 73 68 65 73 20 tement finishes
1500: 73 75 63 63 65 73 73 66 75 6c 6c 79 2e 0a 2a 2f successfully..*/
1510: 0a 69 6e 74 20 64 62 5f 73 74 65 70 28 53 74 6d .int db_step(Stm
1520: 74 20 2a 70 53 74 6d 74 29 7b 0a 20 20 69 6e 74 t *pStmt){. int
1530: 20 72 63 3b 0a 20 20 69 6e 74 20 6c 69 6d 69 74 rc;. int limit
1540: 20 3d 20 33 3b 0a 20 20 77 68 69 6c 65 28 20 6c = 3;. while( l
1550: 69 6d 69 74 2d 2d 20 29 7b 0a 20 20 20 20 72 63 imit-- ){. rc
1560: 20 3d 20 73 71 6c 69 74 65 33 5f 73 74 65 70 28 = sqlite3_step(
1570: 70 53 74 6d 74 2d 3e 70 53 74 6d 74 29 3b 0a 20 pStmt->pStmt);.
1580: 20 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 if( rc==SQLIT
1590: 45 5f 45 52 52 4f 52 20 29 7b 0a 20 20 20 20 20 E_ERROR ){.
15a0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 72 65 rc = sqlite3_re
15b0: 73 65 74 28 70 53 74 6d 74 2d 3e 70 53 74 6d 74 set(pStmt->pStmt
15c0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 );. }. if(
15d0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 53 43 48 45 rc==SQLITE_SCHE
15e0: 4d 41 20 29 7b 0a 20 20 20 20 20 20 72 65 70 72 MA ){. repr
15f0: 65 70 61 72 65 28 70 53 74 6d 74 29 3b 0a 20 20 epare(pStmt);.
1600: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 62 }else{. b
1610: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a reak;. }. }.
1620: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a return rc;.}..
1630: 2f 2a 0a 2a 2a 20 52 65 73 65 74 20 6f 72 20 66 /*.** Reset or f
1640: 69 6e 61 6c 69 7a 65 20 61 20 73 74 61 74 65 6d inalize a statem
1650: 65 6e 74 2e 0a 2a 2f 0a 69 6e 74 20 64 62 5f 72 ent..*/.int db_r
1660: 65 73 65 74 28 53 74 6d 74 20 2a 70 53 74 6d 74 eset(Stmt *pStmt
1670: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 73 71 ){. int rc = sq
1680: 6c 69 74 65 33 5f 72 65 73 65 74 28 70 53 74 6d lite3_reset(pStm
1690: 74 2d 3e 70 53 74 6d 74 29 3b 0a 20 20 64 62 5f t->pStmt);. db_
16a0: 63 68 65 63 6b 5f 72 65 73 75 6c 74 28 72 63 29 check_result(rc)
16b0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d ;. return rc;.}
16c0: 0a 69 6e 74 20 64 62 5f 66 69 6e 61 6c 69 7a 65 .int db_finalize
16d0: 28 53 74 6d 74 20 2a 70 53 74 6d 74 29 7b 0a 20 (Stmt *pStmt){.
16e0: 20 69 6e 74 20 72 63 3b 0a 20 20 62 6c 6f 62 5f int rc;. blob_
16f0: 72 65 73 65 74 28 26 70 53 74 6d 74 2d 3e 73 71 reset(&pStmt->sq
1700: 6c 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 l);. rc = sqlit
1710: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d e3_finalize(pStm
1720: 74 2d 3e 70 53 74 6d 74 29 3b 0a 20 20 64 62 5f t->pStmt);. db_
1730: 63 68 65 63 6b 5f 72 65 73 75 6c 74 28 72 63 29 check_result(rc)
1740: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d ;. return rc;.}
1750: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 ../*.** Return t
1760: 68 65 20 72 6f 77 69 64 20 6f 66 20 74 68 65 20 he rowid of the
1770: 6d 6f 73 74 20 72 65 63 65 6e 74 20 69 6e 73 65 most recent inse
1780: 72 74 0a 2a 2f 0a 69 36 34 20 64 62 5f 6c 61 73 rt.*/.i64 db_las
1790: 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 76 t_insert_rowid(v
17a0: 6f 69 64 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 oid){. return s
17b0: 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 qlite3_last_inse
17c0: 72 74 5f 72 6f 77 69 64 28 67 2e 64 62 29 3b 0a rt_rowid(g.db);.
17d0: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 }../*.** Return
17e0: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 6f the number of ro
17f0: 77 73 20 74 68 61 74 20 77 65 72 65 20 63 68 61 ws that were cha
1800: 6e 67 65 64 20 62 79 20 74 68 65 20 6d 6f 73 74 nged by the most
1810: 20 72 65 63 65 6e 74 0a 2a 2a 20 49 4e 53 45 52 recent.** INSER
1820: 54 2c 20 55 50 44 41 54 45 2c 20 6f 72 20 44 45 T, UPDATE, or DE
1830: 4c 45 54 45 2e 20 20 41 75 78 69 6c 69 61 72 79 LETE. Auxiliary
1840: 20 63 68 61 6e 67 65 73 20 63 61 75 73 65 64 20 changes caused
1850: 62 79 20 74 72 69 67 67 65 72 73 0a 2a 2a 20 6f by triggers.** o
1860: 72 20 6f 74 68 65 72 20 73 69 64 65 20 65 66 66 r other side eff
1870: 65 63 74 73 20 61 72 65 20 6e 6f 74 20 63 6f 75 ects are not cou
1880: 6e 74 65 64 2e 0a 2a 2f 0a 69 6e 74 20 64 62 5f nted..*/.int db_
1890: 63 68 61 6e 67 65 73 28 76 6f 69 64 29 7b 0a 20 changes(void){.
18a0: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 5f return sqlite3_
18b0: 63 68 61 6e 67 65 73 28 67 2e 64 62 29 3b 0a 7d changes(g.db);.}
18c0: 0a 0a 2f 2a 0a 2a 2a 20 45 78 74 72 61 63 74 20 ../*.** Extract
18d0: 74 65 78 74 2c 20 69 6e 74 65 67 65 72 2c 20 6f text, integer, o
18e0: 72 20 62 6c 6f 62 20 76 61 6c 75 65 73 20 66 72 r blob values fr
18f0: 6f 6d 20 74 68 65 20 4e 2d 74 68 20 63 6f 6c 75 om the N-th colu
1900: 6d 6e 20 6f 66 20 74 68 65 0a 2a 2a 20 63 75 72 mn of the.** cur
1910: 72 65 6e 74 20 72 6f 77 2e 0a 2a 2f 0a 69 6e 74 rent row..*/.int
1920: 20 64 62 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 db_column_bytes
1930: 28 53 74 6d 74 20 2a 70 53 74 6d 74 2c 20 69 6e (Stmt *pStmt, in
1940: 74 20 4e 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 t N){. return s
1950: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
1960: 74 65 73 28 70 53 74 6d 74 2d 3e 70 53 74 6d 74 tes(pStmt->pStmt
1970: 2c 20 4e 29 3b 0a 7d 0a 69 6e 74 20 64 62 5f 63 , N);.}.int db_c
1980: 6f 6c 75 6d 6e 5f 69 6e 74 28 53 74 6d 74 20 2a olumn_int(Stmt *
1990: 70 53 74 6d 74 2c 20 69 6e 74 20 4e 29 7b 0a 20 pStmt, int N){.
19a0: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 5f return sqlite3_
19b0: 63 6f 6c 75 6d 6e 5f 69 6e 74 28 70 53 74 6d 74 column_int(pStmt
19c0: 2d 3e 70 53 74 6d 74 2c 20 4e 29 3b 0a 7d 0a 69 ->pStmt, N);.}.i
19d0: 36 34 20 64 62 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 64 db_column_int
19e0: 36 34 28 53 74 6d 74 20 2a 70 53 74 6d 74 2c 20 64(Stmt *pStmt,
19f0: 69 6e 74 20 4e 29 7b 0a 20 20 72 65 74 75 72 6e int N){. return
1a00: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
1a10: 69 6e 74 36 34 28 70 53 74 6d 74 2d 3e 70 53 74 int64(pStmt->pSt
1a20: 6d 74 2c 20 4e 29 3b 0a 7d 0a 64 6f 75 62 6c 65 mt, N);.}.double
1a30: 20 64 62 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 6c db_column_doubl
1a40: 65 28 53 74 6d 74 20 2a 70 53 74 6d 74 2c 20 69 e(Stmt *pStmt, i
1a50: 6e 74 20 4e 29 7b 0a 20 20 72 65 74 75 72 6e 20 nt N){. return
1a60: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
1a70: 6f 75 62 6c 65 28 70 53 74 6d 74 2d 3e 70 53 74 ouble(pStmt->pSt
1a80: 6d 74 2c 20 4e 29 3b 0a 7d 0a 63 6f 6e 73 74 20 mt, N);.}.const
1a90: 63 68 61 72 20 2a 64 62 5f 63 6f 6c 75 6d 6e 5f char *db_column_
1aa0: 74 65 78 74 28 53 74 6d 74 20 2a 70 53 74 6d 74 text(Stmt *pStmt
1ab0: 2c 20 69 6e 74 20 4e 29 7b 0a 20 20 72 65 74 75 , int N){. retu
1ac0: 72 6e 20 28 63 68 61 72 2a 29 73 71 6c 69 74 65 rn (char*)sqlite
1ad0: 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 28 70 53 3_column_text(pS
1ae0: 74 6d 74 2d 3e 70 53 74 6d 74 2c 20 4e 29 3b 0a tmt->pStmt, N);.
1af0: 7d 0a 63 6f 6e 73 74 20 63 68 61 72 20 2a 64 62 }.const char *db
1b00: 5f 63 6f 6c 75 6d 6e 5f 6d 61 6c 6c 6f 63 28 53 _column_malloc(S
1b10: 74 6d 74 20 2a 70 53 74 6d 74 2c 20 69 6e 74 20 tmt *pStmt, int
1b20: 4e 29 7b 0a 20 20 72 65 74 75 72 6e 20 6d 70 72 N){. return mpr
1b30: 69 6e 74 66 28 22 25 73 22 2c 20 64 62 5f 63 6f intf("%s", db_co
1b40: 6c 75 6d 6e 5f 74 65 78 74 28 70 53 74 6d 74 2c lumn_text(pStmt,
1b50: 20 4e 29 29 3b 0a 7d 0a 76 6f 69 64 20 64 62 5f N));.}.void db_
1b60: 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 28 53 74 6d 74 column_blob(Stmt
1b70: 20 2a 70 53 74 6d 74 2c 20 69 6e 74 20 4e 2c 20 *pStmt, int N,
1b80: 42 6c 6f 62 20 2a 70 42 6c 6f 62 29 7b 0a 20 20 Blob *pBlob){.
1b90: 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 42 6c 6f blob_append(pBlo
1ba0: 62 2c 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d b, sqlite3_colum
1bb0: 6e 5f 62 6c 6f 62 28 70 53 74 6d 74 2d 3e 70 53 n_blob(pStmt->pS
1bc0: 74 6d 74 2c 20 4e 29 2c 0a 20 20 20 20 20 20 20 tmt, N),.
1bd0: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 63 sqlite3_c
1be0: 6f 6c 75 6d 6e 5f 62 79 74 65 73 28 70 53 74 6d olumn_bytes(pStm
1bf0: 74 2d 3e 70 53 74 6d 74 2c 20 4e 29 29 3b 0a 7d t->pStmt, N));.}
1c00: 0a 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69 61 6c 69 ../*.** Initiali
1c10: 7a 65 20 61 20 62 6c 6f 62 20 74 6f 20 61 6e 20 ze a blob to an
1c20: 65 70 68 65 72 6d 65 72 61 6c 20 63 6f 70 79 20 ephermeral copy
1c30: 6f 66 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f of the content o
1c40: 66 20 61 0a 2a 2a 20 63 6f 6c 75 6d 6e 20 69 6e f a.** column in
1c50: 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 6f 77 the current row
1c60: 2e 20 20 54 68 65 20 64 61 74 61 20 69 6e 20 74 . The data in t
1c70: 68 65 20 62 6c 6f 62 20 77 69 6c 6c 20 62 65 63 he blob will bec
1c80: 6f 6d 65 0a 2a 2a 20 69 6e 76 61 6c 69 64 20 77 ome.** invalid w
1c90: 68 65 6e 20 74 68 65 20 73 74 61 74 65 6d 65 6e hen the statemen
1ca0: 74 20 69 73 20 73 74 65 70 70 65 64 20 6f 72 20 t is stepped or
1cb0: 72 65 73 65 74 2e 0a 2a 2f 0a 76 6f 69 64 20 64 reset..*/.void d
1cc0: 62 5f 65 70 68 65 6d 65 72 61 6c 5f 62 6c 6f 62 b_ephemeral_blob
1cd0: 28 53 74 6d 74 20 2a 70 53 74 6d 74 2c 20 69 6e (Stmt *pStmt, in
1ce0: 74 20 4e 2c 20 42 6c 6f 62 20 2a 70 42 6c 6f 62 t N, Blob *pBlob
1cf0: 29 7b 0a 20 20 62 6c 6f 62 5f 69 6e 69 74 28 70 ){. blob_init(p
1d00: 42 6c 6f 62 2c 20 73 71 6c 69 74 65 33 5f 63 6f Blob, sqlite3_co
1d10: 6c 75 6d 6e 5f 62 6c 6f 62 28 70 53 74 6d 74 2d lumn_blob(pStmt-
1d20: 3e 70 53 74 6d 74 2c 20 4e 29 2c 0a 20 20 20 20 >pStmt, N),.
1d30: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 sqlite
1d40: 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 28 70 3_column_bytes(p
1d50: 53 74 6d 74 2d 3e 70 53 74 6d 74 2c 20 4e 29 29 Stmt->pStmt, N))
1d60: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63 6b ;.}../*.** Check
1d70: 20 61 20 72 65 73 75 6c 74 20 63 6f 64 65 2e 20 a result code.
1d80: 20 49 66 20 69 74 20 69 73 20 6e 6f 74 20 53 51 If it is not SQ
1d90: 4c 49 54 45 5f 4f 4b 2c 20 70 72 69 6e 74 20 74 LITE_OK, print t
1da0: 68 65 0a 2a 2a 20 63 6f 72 72 65 73 70 6f 6e 64 he.** correspond
1db0: 69 6e 67 20 65 72 72 6f 72 20 6d 65 73 73 61 67 ing error messag
1dc0: 65 20 61 6e 64 20 65 78 69 74 2e 0a 2a 2f 0a 76 e and exit..*/.v
1dd0: 6f 69 64 20 64 62 5f 63 68 65 63 6b 5f 72 65 73 oid db_check_res
1de0: 75 6c 74 28 69 6e 74 20 72 63 29 7b 0a 20 20 69 ult(int rc){. i
1df0: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
1e00: 20 29 7b 0a 20 20 20 20 64 62 5f 65 72 72 28 22 ){. db_err("
1e10: 53 51 4c 20 65 72 72 6f 72 3a 20 25 73 22 2c 20 SQL error: %s",
1e20: 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 67 sqlite3_errmsg(g
1e30: 2e 64 62 29 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a .db));. }.}../*
1e40: 0a 2a 2a 20 45 78 65 63 75 74 65 20 61 20 73 69 .** Execute a si
1e50: 6e 67 6c 65 20 70 72 65 70 61 72 65 64 20 73 74 ngle prepared st
1e60: 61 74 65 6d 65 6e 74 20 75 6e 74 69 6c 20 69 74 atement until it
1e70: 20 66 69 6e 69 73 68 65 73 2e 0a 2a 2f 0a 69 6e finishes..*/.in
1e80: 74 20 64 62 5f 65 78 65 63 28 53 74 6d 74 20 2a t db_exec(Stmt *
1e90: 70 53 74 6d 74 29 7b 0a 20 20 69 6e 74 20 72 63 pStmt){. int rc
1ea0: 3b 0a 20 20 77 68 69 6c 65 28 20 28 72 63 20 3d ;. while( (rc =
1eb0: 20 64 62 5f 73 74 65 70 28 70 53 74 6d 74 29 29 db_step(pStmt))
1ec0: 3d 3d 53 51 4c 49 54 45 5f 52 4f 57 20 29 7b 7d ==SQLITE_ROW ){}
1ed0: 0a 20 20 72 63 20 3d 20 64 62 5f 72 65 73 65 74 . rc = db_reset
1ee0: 28 70 53 74 6d 74 29 3b 0a 20 20 64 62 5f 63 68 (pStmt);. db_ch
1ef0: 65 63 6b 5f 72 65 73 75 6c 74 28 72 63 29 3b 0a eck_result(rc);.
1f00: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a return rc;.}..
1f10: 2f 2a 0a 2a 2a 20 45 78 65 63 75 74 65 20 6d 75 /*.** Execute mu
1f20: 6c 74 69 70 6c 65 20 53 51 4c 20 73 74 61 74 65 ltiple SQL state
1f30: 6d 65 6e 74 73 2e 0a 2a 2f 0a 69 6e 74 20 64 62 ments..*/.int db
1f40: 5f 6d 75 6c 74 69 5f 65 78 65 63 28 63 6f 6e 73 _multi_exec(cons
1f50: 74 20 63 68 61 72 20 2a 7a 53 71 6c 2c 20 2e 2e t char *zSql, ..
1f60: 2e 29 7b 0a 20 20 42 6c 6f 62 20 73 71 6c 3b 0a .){. Blob sql;.
1f70: 20 20 69 6e 74 20 72 63 3b 0a 20 20 76 61 5f 6c int rc;. va_l
1f80: 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a ist ap;. char *
1f90: 7a 45 72 72 20 3d 20 30 3b 0a 20 20 62 6c 6f 62 zErr = 0;. blob
1fa0: 5f 69 6e 69 74 28 26 73 71 6c 2c 20 30 2c 20 30 _init(&sql, 0, 0
1fb0: 29 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 );. va_start(ap
1fc0: 2c 20 7a 53 71 6c 29 3b 0a 20 20 62 6c 6f 62 5f , zSql);. blob_
1fd0: 76 61 70 70 65 6e 64 66 28 26 73 71 6c 2c 20 7a vappendf(&sql, z
1fe0: 53 71 6c 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 Sql, ap);. va_e
1ff0: 6e 64 28 61 70 29 3b 0a 20 20 72 63 20 3d 20 73 nd(ap);. rc = s
2000: 71 6c 69 74 65 33 5f 65 78 65 63 28 67 2e 64 62 qlite3_exec(g.db
2010: 2c 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 26 73 , blob_buffer(&s
2020: 71 6c 29 2c 20 30 2c 20 30 2c 20 26 7a 45 72 72 ql), 0, 0, &zErr
2030: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c );. if( rc!=SQL
2040: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 64 62 ITE_OK ){. db
2050: 5f 65 72 72 28 22 25 73 5c 6e 25 73 22 2c 20 7a _err("%s\n%s", z
2060: 45 72 72 2c 20 62 6c 6f 62 5f 62 75 66 66 65 72 Err, blob_buffer
2070: 28 26 73 71 6c 29 29 3b 0a 20 20 7d 0a 20 20 62 (&sql));. }. b
2080: 6c 6f 62 5f 72 65 73 65 74 28 26 73 71 6c 29 3b lob_reset(&sql);
2090: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a . return rc;.}.
20a0: 0a 2f 2a 0a 2a 2a 20 45 78 65 63 75 74 65 20 61 ./*.** Execute a
20b0: 20 71 75 65 72 79 20 61 6e 64 20 72 65 74 75 72 query and retur
20c0: 6e 20 61 20 73 69 6e 67 6c 65 20 69 6e 74 65 67 n a single integ
20d0: 65 72 20 76 61 6c 75 65 2e 0a 2a 2f 0a 69 36 34 er value..*/.i64
20e0: 20 64 62 5f 69 6e 74 36 34 28 69 36 34 20 69 44 db_int64(i64 iD
20f0: 66 6c 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 flt, const char
2100: 2a 7a 53 71 6c 2c 20 2e 2e 2e 29 7b 0a 20 20 76 *zSql, ...){. v
2110: 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 53 74 6d a_list ap;. Stm
2120: 74 20 73 3b 0a 20 20 69 36 34 20 72 63 3b 0a 20 t s;. i64 rc;.
2130: 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 53 va_start(ap, zS
2140: 71 6c 29 3b 0a 20 20 64 62 5f 76 70 72 65 70 61 ql);. db_vprepa
2150: 72 65 28 26 73 2c 20 7a 53 71 6c 2c 20 61 70 29 re(&s, zSql, ap)
2160: 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a ;. va_end(ap);.
2170: 20 20 69 66 28 20 64 62 5f 73 74 65 70 28 26 73 if( db_step(&s
2180: 29 21 3d 53 51 4c 49 54 45 5f 52 4f 57 20 29 7b )!=SQLITE_ROW ){
2190: 0a 20 20 20 20 72 63 20 3d 20 69 44 66 6c 74 3b . rc = iDflt;
21a0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 63 . }else{. rc
21b0: 20 3d 20 64 62 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 = db_column_int
21c0: 36 34 28 26 73 2c 20 30 29 3b 0a 20 20 7d 0a 20 64(&s, 0);. }.
21d0: 20 64 62 5f 66 69 6e 61 6c 69 7a 65 28 26 73 29 db_finalize(&s)
21e0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d ;. return rc;.}
21f0: 0a 69 6e 74 20 64 62 5f 69 6e 74 28 69 6e 74 20 .int db_int(int
2200: 69 44 66 6c 74 2c 20 63 6f 6e 73 74 20 63 68 61 iDflt, const cha
2210: 72 20 2a 7a 53 71 6c 2c 20 2e 2e 2e 29 7b 0a 20 r *zSql, ...){.
2220: 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 53 va_list ap;. S
2230: 74 6d 74 20 73 3b 0a 20 20 69 6e 74 20 72 63 3b tmt s;. int rc;
2240: 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 . va_start(ap,
2250: 7a 53 71 6c 29 3b 0a 20 20 64 62 5f 76 70 72 65 zSql);. db_vpre
2260: 70 61 72 65 28 26 73 2c 20 7a 53 71 6c 2c 20 61 pare(&s, zSql, a
2270: 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 p);. va_end(ap)
2280: 3b 0a 20 20 69 66 28 20 64 62 5f 73 74 65 70 28 ;. if( db_step(
2290: 26 73 29 21 3d 53 51 4c 49 54 45 5f 52 4f 57 20 &s)!=SQLITE_ROW
22a0: 29 7b 0a 20 20 20 20 72 63 20 3d 20 69 44 66 6c ){. rc = iDfl
22b0: 74 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 t;. }else{.
22c0: 72 63 20 3d 20 64 62 5f 63 6f 6c 75 6d 6e 5f 69 rc = db_column_i
22d0: 6e 74 28 26 73 2c 20 30 29 3b 0a 20 20 7d 0a 20 nt(&s, 0);. }.
22e0: 20 64 62 5f 66 69 6e 61 6c 69 7a 65 28 26 73 29 db_finalize(&s)
22f0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d ;. return rc;.}
2300: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 ../*.** Return T
2310: 52 55 45 20 69 66 20 74 68 65 20 71 75 65 72 79 RUE if the query
2320: 20 77 6f 75 6c 64 20 72 65 74 75 72 6e 20 31 20 would return 1
2330: 6f 72 20 6d 6f 72 65 20 72 6f 77 73 2e 20 20 52 or more rows. R
2340: 65 74 75 72 6e 0a 2a 2a 20 46 41 4c 53 45 20 69 eturn.** FALSE i
2350: 66 20 74 68 65 20 71 75 65 72 79 20 72 65 73 75 f the query resu
2360: 6c 74 20 77 6f 75 6c 64 20 62 65 20 61 6e 20 65 lt would be an e
2370: 6d 70 74 79 20 73 65 74 2e 0a 2a 2f 0a 69 6e 74 mpty set..*/.int
2380: 20 64 62 5f 65 78 69 73 74 73 28 63 6f 6e 73 74 db_exists(const
2390: 20 63 68 61 72 20 2a 7a 53 71 6c 2c 20 2e 2e 2e char *zSql, ...
23a0: 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b ){. va_list ap;
23b0: 0a 20 20 53 74 6d 74 20 73 3b 0a 20 20 69 6e 74 . Stmt s;. int
23c0: 20 72 63 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 rc;. va_start(
23d0: 61 70 2c 20 7a 53 71 6c 29 3b 0a 20 20 64 62 5f ap, zSql);. db_
23e0: 76 70 72 65 70 61 72 65 28 26 73 2c 20 7a 53 71 vprepare(&s, zSq
23f0: 6c 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 l, ap);. va_end
2400: 28 61 70 29 3b 0a 20 20 69 66 28 20 64 62 5f 73 (ap);. if( db_s
2410: 74 65 70 28 26 73 29 21 3d 53 51 4c 49 54 45 5f tep(&s)!=SQLITE_
2420: 52 4f 57 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 ROW ){. rc =
2430: 30 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 0;. }else{.
2440: 72 63 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 64 62 rc = 1;. }. db
2450: 5f 66 69 6e 61 6c 69 7a 65 28 26 73 29 3b 0a 20 _finalize(&s);.
2460: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 0a return rc;.}...
2470: 2f 2a 0a 2a 2a 20 45 78 65 63 75 74 65 20 61 20 /*.** Execute a
2480: 71 75 65 72 79 20 61 6e 64 20 72 65 74 75 72 6e query and return
2490: 20 61 20 66 6c 6f 61 74 69 6e 67 2d 70 6f 69 6e a floating-poin
24a0: 74 20 76 61 6c 75 65 2e 0a 2a 2f 0a 64 6f 75 62 t value..*/.doub
24b0: 6c 65 20 64 62 5f 64 6f 75 62 6c 65 28 64 6f 75 le db_double(dou
24c0: 62 6c 65 20 72 44 66 6c 74 2c 20 63 6f 6e 73 74 ble rDflt, const
24d0: 20 63 68 61 72 20 2a 7a 53 71 6c 2c 20 2e 2e 2e char *zSql, ...
24e0: 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b ){. va_list ap;
24f0: 0a 20 20 53 74 6d 74 20 73 3b 0a 20 20 64 6f 75 . Stmt s;. dou
2500: 62 6c 65 20 72 3b 0a 20 20 76 61 5f 73 74 61 72 ble r;. va_star
2510: 74 28 61 70 2c 20 7a 53 71 6c 29 3b 0a 20 20 64 t(ap, zSql);. d
2520: 62 5f 76 70 72 65 70 61 72 65 28 26 73 2c 20 7a b_vprepare(&s, z
2530: 53 71 6c 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 Sql, ap);. va_e
2540: 6e 64 28 61 70 29 3b 0a 20 20 69 66 28 20 64 62 nd(ap);. if( db
2550: 5f 73 74 65 70 28 26 73 29 21 3d 53 51 4c 49 54 _step(&s)!=SQLIT
2560: 45 5f 52 4f 57 20 29 7b 0a 20 20 20 20 72 20 3d E_ROW ){. r =
2570: 20 72 44 66 6c 74 3b 0a 20 20 7d 65 6c 73 65 7b rDflt;. }else{
2580: 0a 20 20 20 20 72 20 3d 20 64 62 5f 63 6f 6c 75 . r = db_colu
2590: 6d 6e 5f 64 6f 75 62 6c 65 28 26 73 2c 20 30 29 mn_double(&s, 0)
25a0: 3b 0a 20 20 7d 0a 20 20 64 62 5f 66 69 6e 61 6c ;. }. db_final
25b0: 69 7a 65 28 26 73 29 3b 0a 20 20 72 65 74 75 72 ize(&s);. retur
25c0: 6e 20 72 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 45 78 n r;.}../*.** Ex
25d0: 65 63 75 74 65 20 61 20 71 75 65 72 79 20 61 6e ecute a query an
25e0: 64 20 61 70 70 65 6e 64 20 74 68 65 20 66 69 72 d append the fir
25f0: 73 74 20 63 6f 6c 75 6d 6e 20 6f 66 20 74 68 65 st column of the
2600: 20 66 69 72 73 74 20 72 6f 77 0a 2a 2a 20 6f 66 first row.** of
2610: 20 74 68 65 20 72 65 73 75 6c 74 20 73 65 74 20 the result set
2620: 74 6f 20 62 6c 6f 62 20 67 69 76 65 6e 20 69 6e to blob given in
2630: 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d the first argum
2640: 65 6e 74 2e 0a 2a 2f 0a 76 6f 69 64 20 64 62 5f ent..*/.void db_
2650: 62 6c 6f 62 28 42 6c 6f 62 20 2a 70 52 65 73 75 blob(Blob *pResu
2660: 6c 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a lt, const char *
2670: 7a 53 71 6c 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 zSql, ...){. va
2680: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 53 74 6d 74 _list ap;. Stmt
2690: 20 73 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 s;. va_start(a
26a0: 70 2c 20 7a 53 71 6c 29 3b 0a 20 20 64 62 5f 76 p, zSql);. db_v
26b0: 70 72 65 70 61 72 65 28 26 73 2c 20 7a 53 71 6c prepare(&s, zSql
26c0: 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 , ap);. va_end(
26d0: 61 70 29 3b 0a 20 20 69 66 28 20 64 62 5f 73 74 ap);. if( db_st
26e0: 65 70 28 26 73 29 3d 3d 53 51 4c 49 54 45 5f 52 ep(&s)==SQLITE_R
26f0: 4f 57 20 29 7b 0a 20 20 20 20 62 6c 6f 62 5f 61 OW ){. blob_a
2700: 70 70 65 6e 64 28 70 52 65 73 75 6c 74 2c 20 73 ppend(pResult, s
2710: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 6c qlite3_column_bl
2720: 6f 62 28 73 2e 70 53 74 6d 74 2c 20 30 29 2c 0a ob(s.pStmt, 0),.
2730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2740: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3
2750: 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 28 73 2e _column_bytes(s.
2760: 70 53 74 6d 74 2c 20 30 29 29 3b 0a 20 20 7d 0a pStmt, 0));. }.
2770: 20 20 64 62 5f 66 69 6e 61 6c 69 7a 65 28 26 73 db_finalize(&s
2780: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 45 78 65 63 );.}../*.** Exec
2790: 75 74 65 20 61 20 71 75 65 72 79 2e 20 20 52 65 ute a query. Re
27a0: 74 75 72 6e 20 74 68 65 20 66 69 72 73 74 20 63 turn the first c
27b0: 6f 6c 75 6d 6e 20 6f 66 20 74 68 65 20 66 69 72 olumn of the fir
27c0: 73 74 20 72 6f 77 0a 2a 2a 20 6f 66 20 74 68 65 st row.** of the
27d0: 20 72 65 73 75 6c 74 20 73 65 74 20 61 73 20 61 result set as a
27e0: 20 73 74 72 69 6e 67 2e 20 20 53 70 61 63 65 20 string. Space
27f0: 74 6f 20 68 6f 6c 64 20 74 68 65 20 73 74 72 69 to hold the stri
2800: 6e 67 20 69 73 0a 2a 2a 20 6f 62 74 61 69 6e 65 ng is.** obtaine
2810: 64 20 66 72 6f 6d 20 6d 61 6c 6c 6f 63 28 29 2e d from malloc().
2820: 20 20 49 66 20 74 68 65 20 72 65 73 75 6c 74 20 If the result
2830: 73 65 74 20 69 73 20 65 6d 70 74 79 2c 20 72 65 set is empty, re
2840: 74 75 72 6e 0a 2a 2a 20 7a 44 65 66 61 75 6c 74 turn.** zDefault
2850: 20 69 6e 73 74 65 61 64 2e 0a 2a 2f 0a 63 68 61 instead..*/.cha
2860: 72 20 2a 64 62 5f 74 65 78 74 28 63 68 61 72 20 r *db_text(char
2870: 2a 7a 44 65 66 61 75 6c 74 2c 20 63 6f 6e 73 74 *zDefault, const
2880: 20 63 68 61 72 20 2a 7a 53 71 6c 2c 20 2e 2e 2e char *zSql, ...
2890: 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b ){. va_list ap;
28a0: 0a 20 20 53 74 6d 74 20 73 3b 0a 20 20 63 68 61 . Stmt s;. cha
28b0: 72 20 2a 7a 20 3d 20 7a 44 65 66 61 75 6c 74 3b r *z = zDefault;
28c0: 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 . va_start(ap,
28d0: 7a 53 71 6c 29 3b 0a 20 20 64 62 5f 76 70 72 65 zSql);. db_vpre
28e0: 70 61 72 65 28 26 73 2c 20 7a 53 71 6c 2c 20 61 pare(&s, zSql, a
28f0: 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 p);. va_end(ap)
2900: 3b 0a 20 20 69 66 28 20 64 62 5f 73 74 65 70 28 ;. if( db_step(
2910: 26 73 29 3d 3d 53 51 4c 49 54 45 5f 52 4f 57 20 &s)==SQLITE_ROW
2920: 29 7b 0a 20 20 20 20 7a 20 3d 20 6d 70 72 69 6e ){. z = mprin
2930: 74 66 28 22 25 73 22 2c 20 73 71 6c 69 74 65 33 tf("%s", sqlite3
2940: 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 28 73 2e 70 _column_text(s.p
2950: 53 74 6d 74 2c 20 30 29 29 3b 0a 20 20 7d 0a 20 Stmt, 0));. }.
2960: 20 64 62 5f 66 69 6e 61 6c 69 7a 65 28 26 73 29 db_finalize(&s)
2970: 3b 0a 20 20 72 65 74 75 72 6e 20 7a 3b 0a 7d 0a ;. return z;.}.
2980: 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69 61 6c 69 7a ./*.** Initializ
2990: 65 20 61 20 6e 65 77 20 64 61 74 61 62 61 73 65 e a new database
29a0: 20 66 69 6c 65 20 77 69 74 68 20 74 68 65 20 67 file with the g
29b0: 69 76 65 6e 20 73 63 68 65 6d 61 2e 20 20 49 66 iven schema. If
29c0: 20 61 6e 79 74 68 69 6e 67 0a 2a 2a 20 67 6f 65 anything.** goe
29d0: 73 20 77 72 6f 6e 67 2c 20 63 61 6c 6c 20 64 62 s wrong, call db
29e0: 5f 65 72 72 28 29 20 74 6f 20 65 78 69 74 2e 0a _err() to exit..
29f0: 2a 2f 0a 76 6f 69 64 20 64 62 5f 69 6e 69 74 5f */.void db_init_
2a00: 64 61 74 61 62 61 73 65 28 0a 20 20 63 6f 6e 73 database(. cons
2a10: 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 4e 61 6d t char *zFileNam
2a20: 65 2c 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 e, /* Name of
2a30: 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 74 6f database file to
2a40: 20 63 72 65 61 74 65 20 2a 2f 0a 20 20 63 6f 6e create */. con
2a50: 73 74 20 63 68 61 72 20 2a 7a 53 63 68 65 6d 61 st char *zSchema
2a60: 2c 20 20 20 20 20 2f 2a 20 46 69 72 73 74 20 70 , /* First p
2a70: 61 72 74 20 6f 66 20 73 63 68 65 6d 61 20 2a 2f art of schema */
2a80: 0a 20 20 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 . ...
2a90: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 /* A
2aa0: 64 64 69 74 69 6f 6e 61 6c 20 53 51 4c 20 74 6f dditional SQL to
2ab0: 20 72 75 6e 2e 20 20 54 65 72 6d 69 6e 61 74 65 run. Terminate
2ac0: 20 77 69 74 68 20 4e 55 4c 4c 2e 20 2a 2f 0a 29 with NULL. */.)
2ad0: 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b {. sqlite3 *db;
2ae0: 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 63 6f 6e . int rc;. con
2af0: 73 74 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 st char *zSql;.
2b00: 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 0a 20 20 va_list ap;..
2b10: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 6f 70 65 rc = sqlite3_ope
2b20: 6e 28 7a 46 69 6c 65 4e 61 6d 65 2c 20 26 64 62 n(zFileName, &db
2b30: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c );. if( rc!=SQL
2b40: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 64 62 ITE_OK ){. db
2b50: 5f 65 72 72 28 73 71 6c 69 74 65 33 5f 65 72 72 _err(sqlite3_err
2b60: 6d 73 67 28 67 2e 64 62 29 29 3b 0a 20 20 7d 0a msg(g.db));. }.
2b70: 20 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 64 sqlite3_exec(d
2b80: 62 2c 20 22 42 45 47 49 4e 20 45 58 43 4c 55 53 b, "BEGIN EXCLUS
2b90: 49 56 45 22 2c 20 30 2c 20 30 2c 20 30 29 3b 0a IVE", 0, 0, 0);.
2ba0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 65 rc = sqlite3_e
2bb0: 78 65 63 28 64 62 2c 20 7a 53 63 68 65 6d 61 2c xec(db, zSchema,
2bc0: 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 69 66 28 0, 0, 0);. if(
2bd0: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc!=SQLITE_OK )
2be0: 7b 0a 20 20 20 20 64 62 5f 65 72 72 28 73 71 6c {. db_err(sql
2bf0: 69 74 65 33 5f 65 72 72 6d 73 67 28 67 2e 64 62 ite3_errmsg(g.db
2c00: 29 29 3b 0a 20 20 7d 0a 20 20 76 61 5f 73 74 61 ));. }. va_sta
2c10: 72 74 28 61 70 2c 20 7a 53 63 68 65 6d 61 29 3b rt(ap, zSchema);
2c20: 0a 20 20 77 68 69 6c 65 28 20 28 7a 53 71 6c 20 . while( (zSql
2c30: 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 63 6f 6e = va_arg(ap, con
2c40: 73 74 20 63 68 61 72 2a 29 29 21 3d 30 20 29 7b st char*))!=0 ){
2c50: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 . rc = sqlite
2c60: 33 5f 65 78 65 63 28 64 62 2c 20 7a 53 71 6c 2c 3_exec(db, zSql,
2c70: 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 69 0, 0, 0);. i
2c80: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b f( rc!=SQLITE_OK
2c90: 20 29 7b 0a 20 20 20 20 20 20 64 62 5f 65 72 72 ){. db_err
2ca0: 28 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 (sqlite3_errmsg(
2cb0: 67 2e 64 62 29 29 3b 0a 20 20 20 20 7d 0a 20 20 g.db));. }.
2cc0: 7d 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a }. va_end(ap);.
2cd0: 20 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28 64 sqlite3_exec(d
2ce0: 62 2c 20 22 43 4f 4d 4d 49 54 22 2c 20 30 2c 20 b, "COMMIT", 0,
2cf0: 30 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74 65 33 0, 0);. sqlite3
2d00: 5f 63 6c 6f 73 65 28 64 62 29 3b 0a 7d 0a 0a 2f _close(db);.}../
2d10: 2a 0a 2a 2a 20 7a 44 62 4e 61 6d 65 20 69 73 20 *.** zDbName is
2d20: 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 64 61 the name of a da
2d30: 74 61 62 61 73 65 20 66 69 6c 65 2e 20 20 49 66 tabase file. If
2d40: 20 6e 6f 20 6f 74 68 65 72 20 64 61 74 61 62 61 no other databa
2d50: 73 65 0a 2a 2a 20 66 69 6c 65 20 69 73 20 6f 70 se.** file is op
2d60: 65 6e 2c 20 74 68 65 6e 20 6f 70 65 6e 20 74 68 en, then open th
2d70: 69 73 20 6f 6e 65 2e 20 20 49 66 20 61 6e 6f 74 is one. If anot
2d80: 68 65 72 20 64 61 74 61 62 61 73 65 20 66 69 6c her database fil
2d90: 65 20 69 73 0a 2a 2a 20 61 6c 72 65 61 64 79 20 e is.** already
2da0: 6f 70 65 6e 2c 20 74 68 65 6e 20 61 74 74 61 63 open, then attac
2db0: 68 20 7a 44 62 4e 61 6d 65 20 75 73 69 6e 67 20 h zDbName using
2dc0: 74 68 65 20 6e 61 6d 65 20 7a 4c 61 62 65 6c 2e the name zLabel.
2dd0: 0a 2a 2f 0a 76 6f 69 64 20 64 62 5f 6f 70 65 6e .*/.void db_open
2de0: 5f 6f 72 5f 61 74 74 61 63 68 28 63 6f 6e 73 74 _or_attach(const
2df0: 20 63 68 61 72 20 2a 7a 44 62 4e 61 6d 65 2c 20 char *zDbName,
2e00: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4c 61 62 const char *zLab
2e10: 65 6c 29 7b 0a 20 20 69 66 28 20 21 67 2e 64 62 el){. if( !g.db
2e20: 20 29 7b 0a 20 20 20 20 69 6e 74 20 72 63 20 3d ){. int rc =
2e30: 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 28 7a 44 sqlite3_open(zD
2e40: 62 4e 61 6d 65 2c 20 26 67 2e 64 62 29 3b 0a 20 bName, &g.db);.
2e50: 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 if( rc!=SQLIT
2e60: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 64 62 E_OK ){. db
2e70: 5f 65 72 72 28 73 71 6c 69 74 65 33 5f 65 72 72 _err(sqlite3_err
2e80: 6d 73 67 28 67 2e 64 62 29 29 3b 0a 20 20 20 20 msg(g.db));.
2e90: 7d 0a 20 20 20 20 64 62 5f 63 6f 6e 6e 65 63 74 }. db_connect
2ea0: 69 6f 6e 5f 69 6e 69 74 28 29 3b 0a 20 20 7d 65 ion_init();. }e
2eb0: 6c 73 65 7b 0a 20 20 20 20 64 62 5f 6d 75 6c 74 lse{. db_mult
2ec0: 69 5f 65 78 65 63 28 22 41 54 54 41 43 48 20 44 i_exec("ATTACH D
2ed0: 41 54 41 42 41 53 45 20 25 51 20 41 53 20 25 73 ATABASE %Q AS %s
2ee0: 22 2c 20 7a 44 62 4e 61 6d 65 2c 20 7a 4c 61 62 ", zDbName, zLab
2ef0: 65 6c 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a el);. }.}../*.*
2f00: 2a 20 4f 70 65 6e 20 74 68 65 20 75 73 65 72 20 * Open the user
2f10: 64 61 74 61 62 61 73 65 20 69 6e 20 22 7e 2f 2e database in "~/.
2f20: 66 6f 73 73 69 6c 22 2e 20 20 43 72 65 61 74 65 fossil". Create
2f30: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 61 6e the database an
2f40: 65 77 20 69 66 0a 2a 2a 20 69 74 20 64 6f 65 73 ew if.** it does
2f50: 20 6e 6f 74 20 61 6c 72 65 61 64 79 20 65 78 69 not already exi
2f60: 73 74 2e 0a 2a 2f 0a 76 6f 69 64 20 64 62 5f 6f st..*/.void db_o
2f70: 70 65 6e 5f 63 6f 6e 66 69 67 28 76 6f 69 64 29 pen_config(void)
2f80: 7b 0a 20 20 63 68 61 72 20 2a 7a 44 62 4e 61 6d {. char *zDbNam
2f90: 65 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 e;. const char
2fa0: 2a 7a 48 6f 6d 65 20 3d 20 67 65 74 65 6e 76 28 *zHome = getenv(
2fb0: 22 48 4f 4d 45 22 29 3b 0a 20 20 69 66 28 20 7a "HOME");. if( z
2fc0: 48 6f 6d 65 3d 3d 30 20 29 7b 0a 20 20 20 20 64 Home==0 ){. d
2fd0: 62 5f 65 72 72 28 22 63 61 6e 6e 6f 74 20 6c 6f b_err("cannot lo
2fe0: 63 61 6c 20 68 6f 6d 65 20 64 69 72 65 63 74 6f cal home directo
2ff0: 72 79 22 29 3b 0a 20 20 7d 0a 20 20 7a 44 62 4e ry");. }. zDbN
3000: 61 6d 65 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 ame = mprintf("%
3010: 73 2f 2e 66 6f 73 73 69 6c 22 2c 20 7a 48 6f 6d s/.fossil", zHom
3020: 65 29 3b 0a 20 20 69 66 28 20 67 2e 63 6f 6e 66 e);. if( g.conf
3030: 69 67 4f 70 65 6e 20 29 20 72 65 74 75 72 6e 3b igOpen ) return;
3040: 0a 20 20 69 66 28 20 66 69 6c 65 5f 73 69 7a 65 . if( file_size
3050: 28 7a 44 62 4e 61 6d 65 29 3c 31 30 32 34 2a 33 (zDbName)<1024*3
3060: 20 29 7b 0a 20 20 20 20 64 62 5f 69 6e 69 74 5f ){. db_init_
3070: 64 61 74 61 62 61 73 65 28 7a 44 62 4e 61 6d 65 database(zDbName
3080: 2c 20 7a 43 6f 6e 66 69 67 53 63 68 65 6d 61 2c , zConfigSchema,
3090: 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 7d 0a (char*)0);. }.
30a0: 20 20 64 62 5f 6f 70 65 6e 5f 6f 72 5f 61 74 74 db_open_or_att
30b0: 61 63 68 28 7a 44 62 4e 61 6d 65 2c 20 22 63 6f ach(zDbName, "co
30c0: 6e 66 69 67 64 62 22 29 3b 0a 20 20 67 2e 63 6f nfigdb");. g.co
30d0: 6e 66 69 67 4f 70 65 6e 20 3d 20 31 3b 0a 7d 0a nfigOpen = 1;.}.
30e0: 0a 2f 2a 0a 2a 2a 20 49 66 20 7a 44 62 4e 61 6d ./*.** If zDbNam
30f0: 65 20 69 73 20 61 20 76 61 6c 69 64 20 6c 6f 63 e is a valid loc
3100: 61 6c 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 al database file
3110: 2c 20 6f 70 65 6e 20 69 74 20 61 6e 64 20 72 65 , open it and re
3120: 74 75 72 6e 0a 2a 2a 20 74 72 75 65 2e 20 20 49 turn.** true. I
3130: 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 76 61 f it is not a va
3140: 6c 69 64 20 6c 6f 63 61 6c 20 64 61 74 61 62 61 lid local databa
3150: 73 65 20 66 69 6c 65 2c 20 72 65 74 75 72 6e 20 se file, return
3160: 30 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0..*/.static int
3170: 20 69 73 56 61 6c 69 64 4c 6f 63 61 6c 44 62 28 isValidLocalDb(
3180: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 62 4e const char *zDbN
3190: 61 6d 65 29 7b 0a 20 20 69 36 34 20 6c 73 69 7a ame){. i64 lsiz
31a0: 65 3b 0a 20 20 69 66 28 20 61 63 63 65 73 73 28 e;. if( access(
31b0: 7a 44 62 4e 61 6d 65 2c 20 46 5f 4f 4b 29 20 29 zDbName, F_OK) )
31c0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 6c 73 69 return 0;. lsi
31d0: 7a 65 20 3d 20 66 69 6c 65 5f 73 69 7a 65 28 7a ze = file_size(z
31e0: 44 62 4e 61 6d 65 29 3b 0a 20 20 69 66 28 20 6c DbName);. if( l
31f0: 73 69 7a 65 25 31 30 32 34 21 3d 30 20 7c 7c 20 size%1024!=0 ||
3200: 6c 73 69 7a 65 3c 34 30 39 36 20 29 20 72 65 74 lsize<4096 ) ret
3210: 75 72 6e 20 30 3b 0a 20 20 64 62 5f 6f 70 65 6e urn 0;. db_open
3220: 5f 6f 72 5f 61 74 74 61 63 68 28 7a 44 62 4e 61 _or_attach(zDbNa
3230: 6d 65 2c 20 22 6c 6f 63 61 6c 64 62 22 29 3b 0a me, "localdb");.
3240: 20 20 67 2e 6c 6f 63 61 6c 4f 70 65 6e 20 3d 20 g.localOpen =
3250: 31 3b 0a 20 20 64 62 5f 6f 70 65 6e 5f 63 6f 6e 1;. db_open_con
3260: 66 69 67 28 29 3b 0a 20 20 64 62 5f 6f 70 65 6e fig();. db_open
3270: 5f 72 65 70 6f 73 69 74 6f 72 79 28 30 29 3b 0a _repository(0);.
3280: 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f return 1;.}../
3290: 2a 0a 2a 2a 20 4c 6f 63 61 74 65 20 74 68 65 20 *.** Locate the
32a0: 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 6f root directory o
32b0: 66 20 74 68 65 20 6c 6f 63 61 6c 20 72 65 70 6f f the local repo
32c0: 73 69 74 6f 72 79 20 74 72 65 65 2e 20 20 54 68 sitory tree. Th
32d0: 65 20 72 6f 6f 74 0a 2a 2a 20 64 69 72 65 63 74 e root.** direct
32e0: 6f 72 79 20 69 73 20 66 6f 75 6e 64 20 62 79 20 ory is found by
32f0: 73 65 61 72 63 68 69 6e 67 20 66 6f 72 20 61 20 searching for a
3300: 66 69 6c 65 20 6e 61 6d 65 64 20 22 46 4f 53 53 file named "FOSS
3310: 49 4c 22 20 74 68 61 74 20 63 6f 6e 74 61 69 6e IL" that contain
3320: 73 0a 2a 2a 20 61 20 76 61 6c 69 64 20 72 65 70 s.** a valid rep
3330: 6f 73 69 74 6f 72 79 20 64 61 74 61 62 61 73 65 ository database
3340: 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 6e 6f 20 76 61 ..**.** If no va
3350: 6c 69 64 20 46 4f 53 53 49 4c 20 66 69 6c 65 20 lid FOSSIL file
3360: 69 73 20 66 6f 75 6e 64 2c 20 77 65 20 6d 6f 76 is found, we mov
3370: 65 20 75 70 20 6f 6e 65 20 6c 65 76 65 6c 20 61 e up one level a
3380: 6e 64 20 74 72 79 20 61 67 61 69 6e 2e 20 20 0a nd try again. .
3390: 2a 2a 20 4f 6e 63 65 20 74 68 65 20 66 69 6c 65 ** Once the file
33a0: 20 69 73 20 66 6f 75 6e 64 2c 20 74 68 65 20 67 is found, the g
33b0: 2e 7a 4c 6f 63 61 6c 52 6f 6f 74 20 76 61 72 69 .zLocalRoot vari
33c0: 61 62 6c 65 20 69 73 20 73 65 74 20 74 6f 20 74 able is set to t
33d0: 68 65 20 72 6f 6f 74 20 6f 66 0a 2a 2a 20 74 68 he root of.** th
33e0: 65 20 72 65 70 6f 73 69 74 6f 72 79 20 74 72 65 e repository tre
33f0: 65 20 61 6e 64 20 74 68 69 73 20 72 6f 75 74 69 e and this routi
3400: 6e 65 20 72 65 74 75 72 6e 73 20 31 2e 20 20 49 ne returns 1. I
3410: 66 20 6e 6f 20 64 61 74 61 62 61 73 65 20 69 73 f no database is
3420: 0a 2a 2a 20 66 6f 75 6e 64 2c 20 74 68 65 6e 20 .** found, then
3430: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 72 65 74 this routine ret
3440: 75 72 6e 20 30 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 urn 0..**.** Thi
3450: 73 20 72 6f 75 74 69 6e 65 20 61 6c 77 61 79 73 s routine always
3460: 20 6f 70 65 6e 73 20 74 68 65 20 75 73 65 72 20 opens the user
3470: 64 61 74 61 62 61 73 65 20 72 65 67 61 72 64 6c database regardl
3480: 65 73 73 20 6f 66 20 77 68 65 74 68 65 72 20 6f ess of whether o
3490: 72 0a 2a 2a 20 6e 6f 74 20 74 68 65 20 72 65 70 r.** not the rep
34a0: 6f 73 69 74 6f 72 79 20 64 61 74 61 62 61 73 65 ository database
34b0: 20 69 73 20 66 6f 75 6e 64 2e 20 20 49 66 20 74 is found. If t
34c0: 68 65 20 46 4f 53 53 49 4c 20 66 69 6c 65 20 69 he FOSSIL file i
34d0: 73 20 66 6f 75 6e 64 2c 0a 2a 2a 20 69 74 20 69 s found,.** it i
34e0: 73 20 61 74 74 61 63 68 65 64 20 74 6f 20 74 68 s attached to th
34f0: 65 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 e open database
3500: 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 6f 2e 0a connection too..
3510: 2a 2f 0a 69 6e 74 20 64 62 5f 6f 70 65 6e 5f 6c */.int db_open_l
3520: 6f 63 61 6c 28 76 6f 69 64 29 7b 0a 20 20 69 6e ocal(void){. in
3530: 74 20 6e 3b 0a 20 20 63 68 61 72 20 7a 50 77 64 t n;. char zPwd
3540: 5b 32 30 30 30 5d 3b 0a 20 20 69 66 28 20 67 2e [2000];. if( g.
3550: 6c 6f 63 61 6c 4f 70 65 6e 29 20 72 65 74 75 72 localOpen) retur
3560: 6e 20 31 3b 0a 20 20 69 66 28 20 67 65 74 63 77 n 1;. if( getcw
3570: 64 28 7a 50 77 64 2c 20 73 69 7a 65 6f 66 28 7a d(zPwd, sizeof(z
3580: 50 77 64 29 2d 32 30 29 3d 3d 30 20 29 7b 0a 20 Pwd)-20)==0 ){.
3590: 20 20 20 64 62 5f 65 72 72 28 22 70 77 64 20 74 db_err("pwd t
35a0: 6f 6f 20 62 69 67 3a 20 6d 61 78 20 25 64 22 2c oo big: max %d",
35b0: 20 73 69 7a 65 6f 66 28 7a 50 77 64 29 2d 32 30 sizeof(zPwd)-20
35c0: 29 3b 0a 20 20 7d 0a 20 20 6e 20 3d 20 73 74 72 );. }. n = str
35d0: 6c 65 6e 28 7a 50 77 64 29 3b 0a 20 20 77 68 69 len(zPwd);. whi
35e0: 6c 65 28 20 6e 3e 30 20 29 7b 0a 20 20 20 20 69 le( n>0 ){. i
35f0: 66 28 20 61 63 63 65 73 73 28 7a 50 77 64 2c 20 f( access(zPwd,
3600: 57 5f 4f 4b 29 20 29 20 72 65 74 75 72 6e 20 30 W_OK) ) return 0
3610: 3b 0a 20 20 20 20 73 74 72 63 70 79 28 26 7a 50 ;. strcpy(&zP
3620: 77 64 5b 6e 5d 2c 20 22 2f 5f 46 4f 53 53 49 4c wd[n], "/_FOSSIL
3630: 5f 22 29 3b 0a 20 20 20 20 69 66 28 20 69 73 56 _");. if( isV
3640: 61 6c 69 64 4c 6f 63 61 6c 44 62 28 7a 50 77 64 alidLocalDb(zPwd
3650: 29 20 29 7b 0a 20 20 20 20 20 20 7a 50 77 64 5b ) ){. zPwd[
3660: 6e 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 67 2e n] = 0;. g.
3670: 7a 4c 6f 63 61 6c 52 6f 6f 74 20 3d 20 6d 70 72 zLocalRoot = mpr
3680: 69 6e 74 66 28 22 25 73 2f 22 2c 20 7a 50 77 64 intf("%s/", zPwd
3690: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a );. break;.
36a0: 20 20 20 20 7d 0a 20 20 20 20 6e 2d 2d 3b 0a 20 }. n--;.
36b0: 20 20 20 77 68 69 6c 65 28 20 6e 3e 30 20 26 26 while( n>0 &&
36c0: 20 7a 50 77 64 5b 6e 5d 21 3d 27 2f 27 20 29 7b zPwd[n]!='/' ){
36d0: 20 6e 2d 2d 3b 20 7d 0a 20 20 20 20 77 68 69 6c n--; }. whil
36e0: 65 28 20 6e 3e 30 20 26 26 20 7a 50 77 64 5b 6e e( n>0 && zPwd[n
36f0: 2d 31 5d 3d 3d 27 2f 27 20 29 7b 20 6e 2d 2d 3b -1]=='/' ){ n--;
3700: 20 7d 0a 20 20 20 20 7a 50 77 64 5b 6e 5d 20 3d }. zPwd[n] =
3710: 20 30 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 0;. }. return
3720: 20 6e 3e 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4f n>0;.}../*.** O
3730: 70 65 6e 20 74 68 65 20 72 65 70 6f 73 69 74 6f pen the reposito
3740: 72 79 20 64 61 74 61 62 61 73 65 20 67 69 76 65 ry database give
3750: 6e 20 62 79 20 7a 44 62 4e 61 6d 65 2e 20 20 49 n by zDbName. I
3760: 66 20 7a 44 62 4e 61 6d 65 3d 3d 4e 55 4c 4c 20 f zDbName==NULL
3770: 74 68 65 6e 0a 2a 2a 20 67 65 74 20 74 68 65 20 then.** get the
3780: 6e 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 61 6c name from the al
3790: 72 65 61 64 79 20 6f 70 65 6e 20 6c 6f 63 61 6c ready open local
37a0: 20 64 61 74 61 62 61 73 65 2e 0a 2a 2f 0a 76 6f database..*/.vo
37b0: 69 64 20 64 62 5f 6f 70 65 6e 5f 72 65 70 6f 73 id db_open_repos
37c0: 69 74 6f 72 79 28 63 6f 6e 73 74 20 63 68 61 72 itory(const char
37d0: 20 2a 7a 44 62 4e 61 6d 65 29 7b 0a 20 20 69 66 *zDbName){. if
37e0: 28 20 67 2e 72 65 70 6f 73 69 74 6f 72 79 4f 70 ( g.repositoryOp
37f0: 65 6e 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 en ) return;. i
3800: 66 28 20 7a 44 62 4e 61 6d 65 3d 3d 30 20 29 7b f( zDbName==0 ){
3810: 0a 20 20 20 20 69 66 28 20 67 2e 6c 6f 63 61 6c . if( g.local
3820: 4f 70 65 6e 20 29 7b 0a 20 20 20 20 20 20 7a 44 Open ){. zD
3830: 62 4e 61 6d 65 20 3d 20 64 62 5f 6c 67 65 74 28 bName = db_lget(
3840: 22 72 65 70 6f 73 69 74 6f 72 79 22 2c 20 30 29 "repository", 0)
3850: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
3860: 7a 44 62 4e 61 6d 65 3d 3d 30 20 29 7b 0a 20 20 zDbName==0 ){.
3870: 20 20 20 20 64 62 5f 65 72 72 28 22 75 6e 61 62 db_err("unab
3880: 6c 65 20 74 6f 20 66 69 6e 64 20 74 68 65 20 6e le to find the n
3890: 61 6d 65 20 6f 66 20 61 20 72 65 70 6f 73 69 74 ame of a reposit
38a0: 6f 72 79 20 64 61 74 61 62 61 73 65 22 29 3b 0a ory database");.
38b0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 }. }. if(
38c0: 61 63 63 65 73 73 28 7a 44 62 4e 61 6d 65 2c 20 access(zDbName,
38d0: 52 5f 4f 4b 29 20 7c 7c 20 66 69 6c 65 5f 73 69 R_OK) || file_si
38e0: 7a 65 28 7a 44 62 4e 61 6d 65 29 3c 31 30 32 34 ze(zDbName)<1024
38f0: 20 29 7b 0a 20 20 20 20 66 6f 73 73 69 6c 5f 70 ){. fossil_p
3900: 61 6e 69 63 28 22 6e 6f 20 73 75 63 68 20 72 65 anic("no such re
3910: 70 6f 73 69 74 6f 72 79 3a 20 25 73 22 2c 20 7a pository: %s", z
3920: 44 62 4e 61 6d 65 29 3b 0a 20 20 7d 0a 20 20 64 DbName);. }. d
3930: 62 5f 6f 70 65 6e 5f 6f 72 5f 61 74 74 61 63 68 b_open_or_attach
3940: 28 7a 44 62 4e 61 6d 65 2c 20 22 72 65 70 6f 73 (zDbName, "repos
3950: 69 74 6f 72 79 22 29 3b 0a 20 20 67 2e 72 65 70 itory");. g.rep
3960: 6f 73 69 74 6f 72 79 4f 70 65 6e 20 3d 20 31 3b ositoryOpen = 1;
3970: 0a 20 20 67 2e 7a 52 65 70 6f 73 69 74 6f 72 79 . g.zRepository
3980: 4e 61 6d 65 20 3d 20 6d 70 72 69 6e 74 66 28 22 Name = mprintf("
3990: 25 73 22 2c 20 7a 44 62 4e 61 6d 65 29 3b 0a 7d %s", zDbName);.}
39a0: 0a 0a 2f 2a 0a 2a 2a 20 54 72 79 20 74 6f 20 66 ../*.** Try to f
39b0: 69 6e 64 20 74 68 65 20 72 65 70 6f 73 69 74 6f ind the reposito
39c0: 72 79 20 61 6e 64 20 6f 70 65 6e 20 69 74 2e 20 ry and open it.
39d0: 20 49 66 20 77 65 20 61 72 65 20 69 6e 20 61 20 If we are in a
39e0: 6c 6f 63 61 6c 0a 2a 2a 20 74 72 65 65 2c 20 74 local.** tree, t
39f0: 68 65 6e 20 75 73 65 20 74 68 65 20 72 65 70 6f hen use the repo
3a00: 73 69 74 6f 72 79 20 6f 66 20 74 68 65 20 6c 6f sitory of the lo
3a10: 63 61 6c 20 74 72 65 65 2e 20 20 4f 74 68 65 72 cal tree. Other
3a20: 77 69 73 65 2c 0a 2a 2a 20 66 61 6c 6c 20 62 61 wise,.** fall ba
3a30: 63 6b 20 74 6f 20 74 68 65 20 2d 52 20 6f 72 20 ck to the -R or
3a40: 2d 2d 72 65 70 6f 73 69 74 6f 72 79 20 6f 70 74 --repository opt
3a50: 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 45 72 72 6f 72 ion..**.** Error
3a60: 20 6f 75 74 20 69 66 20 74 68 65 20 72 65 70 6f out if the repo
3a70: 73 69 74 6f 72 79 20 63 61 6e 6e 6f 74 20 62 65 sitory cannot be
3a80: 20 6f 70 65 6e 65 64 2e 0a 2a 2f 0a 76 6f 69 64 opened..*/.void
3a90: 20 64 62 5f 66 69 6e 64 5f 61 6e 64 5f 6f 70 65 db_find_and_ope
3aa0: 6e 5f 72 65 70 6f 73 69 74 6f 72 79 28 76 6f 69 n_repository(voi
3ab0: 64 29 7b 0a 20 20 63 68 61 72 20 2a 7a 52 65 70 d){. char *zRep
3ac0: 20 3d 20 66 69 6e 64 5f 6f 70 74 69 6f 6e 28 22 = find_option("
3ad0: 72 65 70 6f 73 69 74 6f 72 79 22 2c 20 22 52 22 repository", "R"
3ae0: 2c 20 31 29 3b 0a 20 20 69 66 28 20 7a 52 65 70 , 1);. if( zRep
3af0: 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 64 ==0 ){. if( d
3b00: 62 5f 6f 70 65 6e 5f 6c 6f 63 61 6c 28 29 3d 3d b_open_local()==
3b10: 30 20 29 7b 0a 20 20 20 20 20 20 67 6f 74 6f 20 0 ){. goto
3b20: 72 65 70 5f 6e 6f 74 5f 66 6f 75 6e 64 3b 0a 20 rep_not_found;.
3b30: 20 20 20 7d 0a 20 20 20 20 7a 52 65 70 20 3d 20 }. zRep =
3b40: 64 62 5f 6c 67 65 74 28 22 72 65 70 6f 73 69 74 db_lget("reposit
3b50: 6f 72 79 22 2c 20 30 29 3b 0a 20 20 20 20 69 66 ory", 0);. if
3b60: 28 20 7a 52 65 70 3d 3d 30 20 29 7b 0a 20 20 20 ( zRep==0 ){.
3b70: 20 20 20 67 6f 74 6f 20 72 65 70 5f 6e 6f 74 5f goto rep_not_
3b80: 66 6f 75 6e 64 3b 0a 20 20 20 20 7d 0a 20 20 7d found;. }. }
3b90: 0a 20 20 64 62 5f 6f 70 65 6e 5f 72 65 70 6f 73 . db_open_repos
3ba0: 69 74 6f 72 79 28 7a 52 65 70 29 3b 0a 20 20 69 itory(zRep);. i
3bb0: 66 28 20 67 2e 72 65 70 6f 73 69 74 6f 72 79 4f f( g.repositoryO
3bc0: 70 65 6e 20 29 7b 0a 20 20 20 20 72 65 74 75 72 pen ){. retur
3bd0: 6e 3b 0a 20 20 7d 0a 72 65 70 5f 6e 6f 74 5f 66 n;. }.rep_not_f
3be0: 6f 75 6e 64 3a 0a 20 20 66 6f 73 73 69 6c 5f 66 ound:. fossil_f
3bf0: 61 74 61 6c 28 22 75 73 65 20 2d 2d 72 65 70 6f atal("use --repo
3c00: 73 69 74 6f 72 79 20 6f 72 20 2d 52 20 74 6f 20 sitory or -R to
3c10: 73 70 65 63 69 66 69 63 20 74 68 65 20 72 65 70 specific the rep
3c20: 6f 73 69 74 6f 72 79 20 64 61 74 61 62 61 73 65 ository database
3c30: 22 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4f 70 65 ");.}../*.** Ope
3c40: 6e 20 74 68 65 20 6c 6f 63 61 6c 20 64 61 74 61 n the local data
3c50: 62 61 73 65 2e 20 20 49 66 20 75 6e 61 62 6c 65 base. If unable
3c60: 2c 20 65 78 69 74 20 77 69 74 68 20 61 6e 20 65 , exit with an e
3c70: 72 72 6f 72 2e 0a 2a 2f 0a 76 6f 69 64 20 64 62 rror..*/.void db
3c80: 5f 6d 75 73 74 5f 62 65 5f 77 69 74 68 69 6e 5f _must_be_within_
3c90: 74 72 65 65 28 76 6f 69 64 29 7b 0a 20 20 69 66 tree(void){. if
3ca0: 28 20 64 62 5f 6f 70 65 6e 5f 6c 6f 63 61 6c 28 ( db_open_local(
3cb0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 66 6f 73 73 )==0 ){. foss
3cc0: 69 6c 5f 66 61 74 61 6c 28 22 6e 6f 74 20 77 69 il_fatal("not wi
3cd0: 74 68 69 6e 20 61 6e 20 6f 70 65 6e 20 63 68 65 thin an open che
3ce0: 63 6b 6f 75 74 22 29 3b 0a 20 20 7d 0a 20 20 64 ckout");. }. d
3cf0: 62 5f 6f 70 65 6e 5f 72 65 70 6f 73 69 74 6f 72 b_open_repositor
3d00: 79 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 y(0);.}../*.** C
3d10: 6c 6f 73 65 20 74 68 65 20 64 61 74 61 62 61 73 lose the databas
3d20: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 2a 2f e connection..*/
3d30: 0a 76 6f 69 64 20 64 62 5f 63 6c 6f 73 65 28 76 .void db_close(v
3d40: 6f 69 64 29 7b 0a 20 20 69 66 28 20 67 2e 64 62 oid){. if( g.db
3d50: 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 ==0 ) return;.
3d60: 67 2e 72 65 70 6f 73 69 74 6f 72 79 4f 70 65 6e g.repositoryOpen
3d70: 20 3d 20 30 3b 0a 20 20 67 2e 6c 6f 63 61 6c 4f = 0;. g.localO
3d80: 70 65 6e 20 3d 20 30 3b 0a 20 20 67 2e 63 6f 6e pen = 0;. g.con
3d90: 66 69 67 4f 70 65 6e 20 3d 20 30 3b 0a 20 20 73 figOpen = 0;. s
3da0: 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 67 2e 64 qlite3_close(g.d
3db0: 62 29 3b 0a 20 20 67 2e 64 62 20 3d 20 30 3b 0a b);. g.db = 0;.
3dc0: 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61 74 65 }.../*.** Create
3dd0: 20 61 20 6e 65 77 20 65 6d 70 74 79 20 72 65 70 a new empty rep
3de0: 6f 73 69 74 6f 72 79 20 64 61 74 61 62 61 73 65 ository database
3df0: 20 77 69 74 68 20 74 68 65 20 67 69 76 65 6e 20 with the given
3e00: 6e 61 6d 65 2e 0a 2a 2a 0a 2a 2a 20 4f 6e 6c 79 name..**.** Only
3e10: 20 74 68 65 20 73 63 68 65 6d 61 20 69 73 20 69 the schema is i
3e20: 6e 69 74 69 61 6c 69 7a 65 64 2e 20 20 54 68 65 nitialized. The
3e30: 20 72 65 71 75 69 72 65 64 20 56 41 52 20 74 61 required VAR ta
3e40: 62 6c 65 73 20 65 6e 74 72 69 65 73 0a 2a 2a 20 bles entries.**
3e50: 61 72 65 20 6e 6f 74 20 73 65 74 20 62 79 20 74 are not set by t
3e60: 68 69 73 20 72 6f 75 74 69 6e 65 20 61 6e 64 20 his routine and
3e70: 6d 75 73 74 20 62 65 20 73 65 74 20 73 65 70 61 must be set sepa
3e80: 72 61 74 65 6c 79 20 69 6e 20 6f 72 64 65 72 0a rately in order.
3e90: 2a 2a 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 6e ** to make the n
3ea0: 65 77 20 66 69 6c 65 20 61 20 76 61 6c 69 64 20 ew file a valid
3eb0: 64 61 74 61 62 61 73 65 2e 0a 2a 2f 0a 76 6f 69 database..*/.voi
3ec0: 64 20 64 62 5f 63 72 65 61 74 65 5f 72 65 70 6f d db_create_repo
3ed0: 73 69 74 6f 72 79 28 63 6f 6e 73 74 20 63 68 61 sitory(const cha
3ee0: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 r *zFilename){.
3ef0: 20 64 62 5f 69 6e 69 74 5f 64 61 74 61 62 61 73 db_init_databas
3f00: 65 28 0a 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d e(. zFilenam
3f10: 65 2c 0a 20 20 20 20 20 7a 52 65 70 6f 73 69 74 e,. zReposit
3f20: 6f 72 79 53 63 68 65 6d 61 31 2c 0a 20 20 20 20 orySchema1,.
3f30: 20 7a 52 65 70 6f 73 69 74 6f 72 79 53 63 68 65 zRepositorySche
3f40: 6d 61 32 2c 0a 20 20 20 20 20 28 63 68 61 72 2a ma2,. (char*
3f50: 29 30 0a 20 20 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a )0. );.}.../*.*
3f60: 2a 20 43 4f 4d 4d 41 4e 44 3a 20 6e 65 77 0a 2a * COMMAND: new.*
3f70: 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61 20 6e 65 *.** Create a ne
3f80: 77 20 72 65 70 6f 73 69 74 6f 72 79 0a 2a 2f 0a w repository.*/.
3f90: 76 6f 69 64 20 63 72 65 61 74 65 5f 72 65 70 6f void create_repo
3fa0: 73 69 74 6f 72 79 5f 63 6d 64 28 76 6f 69 64 29 sitory_cmd(void)
3fb0: 7b 0a 20 20 63 68 61 72 20 2a 7a 44 61 74 65 3b {. char *zDate;
3fc0: 0a 20 20 63 68 61 72 20 2a 7a 55 73 65 72 3b 0a . char *zUser;.
3fd0: 20 20 42 6c 6f 62 20 68 61 73 68 3b 0a 20 20 42 Blob hash;. B
3fe0: 6c 6f 62 20 6d 61 6e 69 66 65 73 74 3b 0a 0a 20 lob manifest;..
3ff0: 20 69 66 28 20 67 2e 61 72 67 63 21 3d 33 20 29 if( g.argc!=3 )
4000: 7b 0a 20 20 20 20 75 73 61 67 65 28 22 52 45 50 {. usage("REP
4010: 4f 53 49 54 4f 52 59 2d 4e 41 4d 45 22 29 3b 0a OSITORY-NAME");.
4020: 20 20 7d 0a 20 20 64 62 5f 63 72 65 61 74 65 5f }. db_create_
4030: 72 65 70 6f 73 69 74 6f 72 79 28 67 2e 61 72 67 repository(g.arg
4040: 76 5b 32 5d 29 3b 0a 20 20 64 62 5f 6f 70 65 6e v[2]);. db_open
4050: 5f 72 65 70 6f 73 69 74 6f 72 79 28 67 2e 61 72 _repository(g.ar
4060: 67 76 5b 32 5d 29 3b 0a 20 20 64 62 5f 6f 70 65 gv[2]);. db_ope
4070: 6e 5f 63 6f 6e 66 69 67 28 29 3b 0a 20 20 64 62 n_config();. db
4080: 5f 62 65 67 69 6e 5f 74 72 61 6e 73 61 63 74 69 _begin_transacti
4090: 6f 6e 28 29 3b 0a 20 20 64 62 5f 73 65 74 28 22 on();. db_set("
40a0: 63 6f 6e 74 65 6e 74 2d 73 63 68 65 6d 61 22 2c content-schema",
40b0: 20 43 4f 4e 54 45 4e 54 5f 53 43 48 45 4d 41 29 CONTENT_SCHEMA)
40c0: 3b 0a 20 20 64 62 5f 73 65 74 28 22 61 75 78 2d ;. db_set("aux-
40d0: 73 63 68 65 6d 61 22 2c 20 41 55 58 5f 53 43 48 schema", AUX_SCH
40e0: 45 4d 41 29 3b 0a 20 20 64 62 5f 6d 75 6c 74 69 EMA);. db_multi
40f0: 5f 65 78 65 63 28 0a 20 20 20 20 22 49 4e 53 45 _exec(. "INSE
4100: 52 54 20 49 4e 54 4f 20 63 6f 6e 66 69 67 28 6e RT INTO config(n
4110: 61 6d 65 2c 76 61 6c 75 65 29 20 56 41 4c 55 45 ame,value) VALUE
4120: 53 28 27 73 65 72 76 65 72 2d 63 6f 64 65 27 2c S('server-code',
4130: 20 68 65 78 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 hex(randomblob(
4140: 32 30 29 29 29 3b 22 0a 20 20 20 20 22 49 4e 53 20)));". "INS
4150: 45 52 54 20 49 4e 54 4f 20 63 6f 6e 66 69 67 28 ERT INTO config(
4160: 6e 61 6d 65 2c 76 61 6c 75 65 29 20 56 41 4c 55 name,value) VALU
4170: 45 53 28 27 70 72 6f 6a 65 63 74 2d 63 6f 64 65 ES('project-code
4180: 27 2c 68 65 78 28 72 61 6e 64 6f 6d 62 6c 6f 62 ',hex(randomblob
4190: 28 32 30 29 29 29 3b 22 0a 20 20 29 3b 0a 20 20 (20)));". );.
41a0: 7a 55 73 65 72 20 3d 20 64 62 5f 67 6c 6f 62 61 zUser = db_globa
41b0: 6c 5f 67 65 74 28 22 64 65 66 61 75 6c 74 2d 75 l_get("default-u
41c0: 73 65 72 22 2c 20 30 29 3b 0a 20 20 69 66 28 20 ser", 0);. if(
41d0: 7a 55 73 65 72 3d 3d 30 20 29 7b 0a 20 20 20 20 zUser==0 ){.
41e0: 7a 55 73 65 72 20 3d 20 67 65 74 65 6e 76 28 22 zUser = getenv("
41f0: 55 53 45 52 22 29 3b 0a 20 20 7d 0a 20 20 69 66 USER");. }. if
4200: 28 20 7a 55 73 65 72 3d 3d 30 20 29 7b 0a 20 20 ( zUser==0 ){.
4210: 20 20 7a 55 73 65 72 20 3d 20 22 61 6e 6f 6e 79 zUser = "anony
4220: 6d 6f 75 73 22 3b 0a 20 20 7d 0a 20 20 64 62 5f mous";. }. db_
4230: 6d 75 6c 74 69 5f 65 78 65 63 28 0a 20 20 20 20 multi_exec(.
4240: 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 75 73 "INSERT INTO us
4250: 65 72 28 6c 6f 67 69 6e 2c 20 70 77 2c 20 63 61 er(login, pw, ca
4260: 70 2c 20 69 6e 66 6f 29 22 0a 20 20 20 20 20 22 p, info)". "
4270: 56 41 4c 55 45 53 28 25 51 2c 27 27 2c 27 73 27 VALUES(%Q,'','s'
4280: 2c 27 27 29 22 2c 20 7a 55 73 65 72 0a 20 20 29 ,'')", zUser. )
4290: 3b 0a 20 20 75 73 65 72 5f 73 65 6c 65 63 74 28 ;. user_select(
42a0: 29 3b 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 26 );. blob_zero(&
42b0: 6d 61 6e 69 66 65 73 74 29 3b 0a 20 20 62 6c 6f manifest);. blo
42c0: 62 5f 61 70 70 65 6e 64 66 28 26 6d 61 6e 69 66 b_appendf(&manif
42d0: 65 73 74 2c 20 22 43 20 69 6e 69 74 69 61 6c 5c est, "C initial\
42e0: 5c 73 65 6d 70 74 79 5c 5c 73 62 61 73 65 6c 69 \sempty\\sbaseli
42f0: 6e 65 5c 6e 22 29 3b 0a 20 20 7a 44 61 74 65 20 ne\n");. zDate
4300: 3d 20 64 62 5f 74 65 78 74 28 30 2c 20 22 53 45 = db_text(0, "SE
4310: 4c 45 43 54 20 64 61 74 65 74 69 6d 65 28 27 6e LECT datetime('n
4320: 6f 77 27 29 22 29 3b 0a 20 20 7a 44 61 74 65 5b ow')");. zDate[
4330: 31 30 5d 3d 27 54 27 3b 0a 20 20 62 6c 6f 62 5f 10]='T';. blob_
4340: 61 70 70 65 6e 64 66 28 26 6d 61 6e 69 66 65 73 appendf(&manifes
4350: 74 2c 20 22 44 20 25 73 5c 6e 22 2c 20 7a 44 61 t, "D %s\n", zDa
4360: 74 65 29 3b 0a 20 20 62 6c 6f 62 5f 61 70 70 65 te);. blob_appe
4370: 6e 64 66 28 26 6d 61 6e 69 66 65 73 74 2c 20 22 ndf(&manifest, "
4380: 50 5c 6e 22 29 3b 0a 20 20 6d 64 35 73 75 6d 5f P\n");. md5sum_
4390: 69 6e 69 74 28 29 3b 0a 20 20 62 6c 6f 62 5f 61 init();. blob_a
43a0: 70 70 65 6e 64 66 28 26 6d 61 6e 69 66 65 73 74 ppendf(&manifest
43b0: 2c 20 22 52 20 25 73 5c 6e 22 2c 20 6d 64 35 73 , "R %s\n", md5s
43c0: 75 6d 5f 66 69 6e 69 73 68 28 30 29 29 3b 0a 20 um_finish(0));.
43d0: 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 28 26 6d blob_appendf(&m
43e0: 61 6e 69 66 65 73 74 2c 20 22 55 20 25 46 5c 6e anifest, "U %F\n
43f0: 22 2c 20 67 2e 7a 4c 6f 67 69 6e 29 3b 0a 20 20 ", g.zLogin);.
4400: 6d 64 35 73 75 6d 5f 62 6c 6f 62 28 26 6d 61 6e md5sum_blob(&man
4410: 69 66 65 73 74 2c 20 26 68 61 73 68 29 3b 0a 20 ifest, &hash);.
4420: 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 28 26 6d blob_appendf(&m
4430: 61 6e 69 66 65 73 74 2c 20 22 5a 20 25 62 5c 6e anifest, "Z %b\n
4440: 22 2c 20 26 68 61 73 68 29 3b 0a 20 20 62 6c 6f ", &hash);. blo
4450: 62 5f 72 65 73 65 74 28 26 68 61 73 68 29 3b 0a b_reset(&hash);.
4460: 20 20 63 6f 6e 74 65 6e 74 5f 70 75 74 28 26 6d content_put(&m
4470: 61 6e 69 66 65 73 74 2c 20 30 29 3b 0a 20 20 64 anifest, 0);. d
4480: 62 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 69 6f b_end_transactio
4490: 6e 28 30 29 3b 0a 20 20 70 72 69 6e 74 66 28 22 n(0);. printf("
44a0: 70 72 6f 6a 65 63 74 2d 69 64 3a 20 25 73 5c 6e project-id: %s\n
44b0: 22 2c 20 64 62 5f 67 65 74 28 22 70 72 6f 6a 65 ", db_get("proje
44c0: 63 74 2d 63 6f 64 65 22 2c 20 30 29 29 3b 0a 20 ct-code", 0));.
44d0: 20 70 72 69 6e 74 66 28 22 73 65 72 76 65 72 2d printf("server-
44e0: 69 64 3a 20 20 25 73 5c 6e 22 2c 20 64 62 5f 67 id: %s\n", db_g
44f0: 65 74 28 22 73 65 72 76 65 72 2d 63 6f 64 65 22 et("server-code"
4500: 2c 20 30 29 29 3b 0a 20 20 70 72 69 6e 74 66 28 , 0));. printf(
4510: 22 61 64 6d 69 6e 2d 75 73 65 72 3a 20 25 73 20 "admin-user: %s
4520: 28 6e 6f 20 70 61 73 73 77 6f 72 64 20 73 65 74 (no password set
4530: 20 79 65 74 21 29 5c 6e 22 2c 20 67 2e 7a 4c 6f yet!)\n", g.zLo
4540: 67 69 6e 29 3b 0a 20 20 70 72 69 6e 74 66 28 22 gin);. printf("
4550: 62 61 73 65 6c 69 6e 65 3a 20 20 20 25 73 5c 6e baseline: %s\n
4560: 22 2c 20 64 62 5f 74 65 78 74 28 30 2c 20 22 53 ", db_text(0, "S
4570: 45 4c 45 43 54 20 75 75 69 64 20 46 52 4f 4d 20 ELECT uuid FROM
4580: 62 6c 6f 62 22 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a blob"));.}../*.*
4590: 2a 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 73 20 * SQL functions
45a0: 66 6f 72 20 64 65 62 75 67 67 69 6e 67 2e 0a 2a for debugging..*
45b0: 2a 0a 2a 2a 20 54 68 65 20 70 72 69 6e 74 28 29 *.** The print()
45c0: 20 66 75 6e 63 74 69 6f 6e 20 77 72 69 74 65 73 function writes
45d0: 20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 20 6f its arguments o
45e0: 6e 20 73 74 64 6f 75 74 2c 20 62 75 74 20 6f 6e n stdout, but on
45f0: 6c 79 0a 2a 2a 20 69 66 20 74 68 65 20 2d 73 71 ly.** if the -sq
4600: 6c 70 72 69 6e 74 20 63 6f 6d 6d 61 6e 64 2d 6c lprint command-l
4610: 69 6e 65 20 6f 70 74 69 6f 6e 20 69 73 20 74 75 ine option is tu
4620: 72 6e 65 64 20 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 rned on..*/.stat
4630: 69 63 20 76 6f 69 64 20 64 62 5f 73 71 6c 5f 70 ic void db_sql_p
4640: 72 69 6e 74 28 0a 20 20 73 71 6c 69 74 65 33 5f rint(. sqlite3_
4650: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
4660: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 ,. int argc,.
4670: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
4680: 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 3b argv.){. int i;
4690: 0a 20 20 69 66 28 20 67 2e 66 53 71 6c 50 72 69 . if( g.fSqlPri
46a0: 6e 74 20 29 7b 0a 20 20 20 20 66 6f 72 28 69 3d nt ){. for(i=
46b0: 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0; i<argc; i++){
46c0: 0a 20 20 20 20 20 20 63 68 61 72 20 63 20 3d 20 . char c =
46d0: 69 3d 3d 61 72 67 63 2d 31 20 3f 20 27 5c 6e 27 i==argc-1 ? '\n'
46e0: 20 3a 20 27 20 27 3b 0a 20 20 20 20 20 20 70 72 : ' ';. pr
46f0: 69 6e 74 66 28 22 25 73 25 63 22 2c 20 73 71 6c intf("%s%c", sql
4700: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
4710: 61 72 67 76 5b 69 5d 29 2c 20 63 29 3b 0a 20 20 argv[i]), c);.
4720: 20 20 7d 0a 20 20 7d 0a 7d 0a 73 74 61 74 69 63 }. }.}.static
4730: 20 76 6f 69 64 20 64 62 5f 73 71 6c 5f 74 72 61 void db_sql_tra
4740: 63 65 28 76 6f 69 64 20 2a 6e 6f 74 55 73 65 64 ce(void *notUsed
4750: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 , const char *zS
4760: 71 6c 29 7b 0a 20 20 70 72 69 6e 74 66 28 22 25 ql){. printf("%
4770: 73 5c 6e 22 2c 20 7a 53 71 6c 29 3b 0a 7d 0a 0a s\n", zSql);.}..
4780: 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 /*.** This funct
4790: 69 6f 6e 20 72 65 67 69 73 74 65 72 73 20 61 75 ion registers au
47a0: 78 69 6c 69 61 72 79 20 66 75 6e 63 74 69 6f 6e xiliary function
47b0: 73 20 77 68 65 6e 20 74 68 65 20 53 51 4c 69 74 s when the SQLit
47c0: 65 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 63 6f e.** database co
47d0: 6e 6e 65 63 74 69 6f 6e 20 69 73 20 66 69 72 73 nnection is firs
47e0: 74 20 65 73 74 61 62 6c 69 73 68 65 64 2e 0a 2a t established..*
47f0: 2f 0a 4c 4f 43 41 4c 20 76 6f 69 64 20 64 62 5f /.LOCAL void db_
4800: 63 6f 6e 6e 65 63 74 69 6f 6e 5f 69 6e 69 74 28 connection_init(
4810: 76 6f 69 64 29 7b 0a 20 20 73 74 61 74 69 63 20 void){. static
4820: 69 6e 74 20 6f 6e 63 65 20 3d 20 31 3b 0a 20 20 int once = 1;.
4830: 69 66 28 20 6f 6e 63 65 20 29 7b 0a 20 20 20 20 if( once ){.
4840: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 sqlite3_create_f
4850: 75 6e 63 74 69 6f 6e 28 67 2e 64 62 2c 20 22 70 unction(g.db, "p
4860: 72 69 6e 74 22 2c 20 2d 31 2c 20 53 51 4c 49 54 rint", -1, SQLIT
4870: 45 5f 55 54 46 38 2c 20 30 2c 64 62 5f 73 71 6c E_UTF8, 0,db_sql
4880: 5f 70 72 69 6e 74 2c 30 2c 30 29 3b 0a 20 20 20 _print,0,0);.
4890: 20 69 66 28 20 67 2e 66 53 71 6c 54 72 61 63 65 if( g.fSqlTrace
48a0: 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 ){. sqlite
48b0: 33 5f 74 72 61 63 65 28 67 2e 64 62 2c 20 64 62 3_trace(g.db, db
48c0: 5f 73 71 6c 5f 74 72 61 63 65 2c 20 30 29 3b 0a _sql_trace, 0);.
48d0: 20 20 20 20 7d 0a 20 20 20 20 6f 6e 63 65 20 3d }. once =
48e0: 20 30 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 0;. }.}../*.**
48f0: 20 47 65 74 20 61 6e 64 20 73 65 74 20 76 61 6c Get and set val
4900: 75 65 73 20 66 72 6f 6d 20 74 68 65 20 43 4f 4e ues from the CON
4910: 46 49 47 2c 20 47 4c 4f 42 41 4c 5f 43 4f 4e 46 FIG, GLOBAL_CONF
4920: 49 47 20 61 6e 64 20 56 56 41 52 20 74 61 62 6c IG and VVAR tabl
4930: 65 20 69 6e 20 74 68 65 0a 2a 2a 20 72 65 70 6f e in the.** repo
4940: 73 69 74 6f 72 79 20 61 6e 64 20 6c 6f 63 61 6c sitory and local
4950: 20 64 61 74 61 62 61 73 65 73 2e 0a 2a 2f 0a 63 databases..*/.c
4960: 68 61 72 20 2a 64 62 5f 67 65 74 28 63 6f 6e 73 har *db_get(cons
4970: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 t char *zName, c
4980: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 65 66 61 onst char *zDefa
4990: 75 6c 74 29 7b 0a 20 20 72 65 74 75 72 6e 20 64 ult){. return d
49a0: 62 5f 74 65 78 74 28 28 63 68 61 72 2a 29 7a 44 b_text((char*)zD
49b0: 65 66 61 75 6c 74 2c 20 0a 20 20 20 20 20 20 20 efault, .
49c0: 20 20 20 20 20 20 20 20 20 20 22 53 45 4c 45 43 "SELEC
49d0: 54 20 76 61 6c 75 65 20 46 52 4f 4d 20 63 6f 6e T value FROM con
49e0: 66 69 67 20 57 48 45 52 45 20 6e 61 6d 65 3d 25 fig WHERE name=%
49f0: 51 22 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 76 6f Q", zName);.}.vo
4a00: 69 64 20 64 62 5f 73 65 74 28 63 6f 6e 73 74 20 id db_set(const
4a10: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 6f 6e char *zName, con
4a20: 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 65 29 st char *zValue)
4a30: 7b 0a 20 20 64 62 5f 6d 75 6c 74 69 5f 65 78 65 {. db_multi_exe
4a40: 63 28 22 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 c("REPLACE INTO
4a50: 63 6f 6e 66 69 67 28 6e 61 6d 65 2c 76 61 6c 75 config(name,valu
4a60: 65 29 20 56 41 4c 55 45 53 28 25 51 2c 25 51 29 e) VALUES(%Q,%Q)
4a70: 22 2c 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 65 ", zName, zValue
4a80: 29 3b 0a 7d 0a 69 6e 74 20 64 62 5f 67 65 74 5f );.}.int db_get_
4a90: 69 6e 74 28 63 6f 6e 73 74 20 63 68 61 72 20 2a int(const char *
4aa0: 7a 4e 61 6d 65 2c 20 69 6e 74 20 64 66 6c 74 29 zName, int dflt)
4ab0: 7b 0a 20 20 72 65 74 75 72 6e 20 64 62 5f 69 6e {. return db_in
4ac0: 74 28 64 66 6c 74 2c 20 22 53 45 4c 45 43 54 20 t(dflt, "SELECT
4ad0: 76 61 6c 75 65 20 46 52 4f 4d 20 63 6f 6e 66 69 value FROM confi
4ae0: 67 20 57 48 45 52 45 20 6e 61 6d 65 3d 25 51 22 g WHERE name=%Q"
4af0: 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 76 6f 69 64 , zName);.}.void
4b00: 20 64 62 5f 73 65 74 5f 69 6e 74 28 63 6f 6e 73 db_set_int(cons
4b10: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 t char *zName, i
4b20: 6e 74 20 76 61 6c 75 65 29 7b 0a 20 20 64 62 5f nt value){. db_
4b30: 6d 75 6c 74 69 5f 65 78 65 63 28 22 52 45 50 4c multi_exec("REPL
4b40: 41 43 45 20 49 4e 54 4f 20 63 6f 6e 66 69 67 28 ACE INTO config(
4b50: 6e 61 6d 65 2c 76 61 6c 75 65 29 20 56 41 4c 55 name,value) VALU
4b60: 45 53 28 25 51 2c 25 64 29 22 2c 20 7a 4e 61 6d ES(%Q,%d)", zNam
4b70: 65 2c 20 76 61 6c 75 65 29 3b 0a 7d 0a 63 68 61 e, value);.}.cha
4b80: 72 20 2a 64 62 5f 67 6c 6f 62 61 6c 5f 67 65 74 r *db_global_get
4b90: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 (const char *zNa
4ba0: 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a me, const char *
4bb0: 7a 44 65 66 61 75 6c 74 29 7b 0a 20 20 72 65 74 zDefault){. ret
4bc0: 75 72 6e 20 64 62 5f 74 65 78 74 28 28 63 68 61 urn db_text((cha
4bd0: 72 2a 29 7a 44 65 66 61 75 6c 74 2c 20 0a 20 20 r*)zDefault, .
4be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
4bf0: 53 45 4c 45 43 54 20 76 61 6c 75 65 20 46 52 4f SELECT value FRO
4c00: 4d 20 67 6c 6f 62 61 6c 5f 63 6f 6e 66 69 67 20 M global_config
4c10: 57 48 45 52 45 20 6e 61 6d 65 3d 25 51 22 2c 20 WHERE name=%Q",
4c20: 7a 4e 61 6d 65 29 3b 0a 7d 0a 76 6f 69 64 20 64 zName);.}.void d
4c30: 62 5f 67 6c 6f 62 61 6c 5f 73 65 74 28 63 6f 6e b_global_set(con
4c40: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 st char *zName,
4c50: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c const char *zVal
4c60: 75 65 29 7b 0a 20 20 64 62 5f 6d 75 6c 74 69 5f ue){. db_multi_
4c70: 65 78 65 63 28 22 52 45 50 4c 41 43 45 20 49 4e exec("REPLACE IN
4c80: 54 4f 20 67 6c 6f 62 61 6c 5f 63 6f 6e 66 69 67 TO global_config
4c90: 28 6e 61 6d 65 2c 76 61 6c 75 65 29 22 0a 20 20 (name,value)".
4ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 56 "V
4cb0: 41 4c 55 45 53 28 25 51 2c 25 51 29 22 2c 20 7a ALUES(%Q,%Q)", z
4cc0: 4e 61 6d 65 2c 20 7a 56 61 6c 75 65 29 3b 0a 7d Name, zValue);.}
4cd0: 0a 63 68 61 72 20 2a 64 62 5f 6c 67 65 74 28 63 .char *db_lget(c
4ce0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 onst char *zName
4cf0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 , const char *zD
4d00: 65 66 61 75 6c 74 29 7b 0a 20 20 72 65 74 75 72 efault){. retur
4d10: 6e 20 64 62 5f 74 65 78 74 28 28 63 68 61 72 2a n db_text((char*
4d20: 29 7a 44 65 66 61 75 6c 74 2c 20 0a 20 20 20 20 )zDefault, .
4d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 45 "SE
4d40: 4c 45 43 54 20 76 61 6c 75 65 20 46 52 4f 4d 20 LECT value FROM
4d50: 76 76 61 72 20 57 48 45 52 45 20 6e 61 6d 65 3d vvar WHERE name=
4d60: 25 51 22 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 76 %Q", zName);.}.v
4d70: 6f 69 64 20 64 62 5f 6c 73 65 74 28 63 6f 6e 73 oid db_lset(cons
4d80: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 t char *zName, c
4d90: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 onst char *zValu
4da0: 65 29 7b 0a 20 20 64 62 5f 6d 75 6c 74 69 5f 65 e){. db_multi_e
4db0: 78 65 63 28 22 52 45 50 4c 41 43 45 20 49 4e 54 xec("REPLACE INT
4dc0: 4f 20 76 76 61 72 28 6e 61 6d 65 2c 76 61 6c 75 O vvar(name,valu
4dd0: 65 29 20 56 41 4c 55 45 53 28 25 51 2c 25 51 29 e) VALUES(%Q,%Q)
4de0: 22 2c 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 65 ", zName, zValue
4df0: 29 3b 0a 7d 0a 69 6e 74 20 64 62 5f 6c 67 65 74 );.}.int db_lget
4e00: 5f 69 6e 74 28 63 6f 6e 73 74 20 63 68 61 72 20 _int(const char
4e10: 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 64 66 6c 74 *zName, int dflt
4e20: 29 7b 0a 20 20 72 65 74 75 72 6e 20 64 62 5f 69 ){. return db_i
4e30: 6e 74 28 64 66 6c 74 2c 20 22 53 45 4c 45 43 54 nt(dflt, "SELECT
4e40: 20 76 61 6c 75 65 20 46 52 4f 4d 20 76 76 61 72 value FROM vvar
4e50: 20 57 48 45 52 45 20 6e 61 6d 65 3d 25 51 22 2c WHERE name=%Q",
4e60: 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 76 6f 69 64 20 zName);.}.void
4e70: 64 62 5f 6c 73 65 74 5f 69 6e 74 28 63 6f 6e 73 db_lset_int(cons
4e80: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 t char *zName, i
4e90: 6e 74 20 76 61 6c 75 65 29 7b 0a 20 20 64 62 5f nt value){. db_
4ea0: 6d 75 6c 74 69 5f 65 78 65 63 28 22 52 45 50 4c multi_exec("REPL
4eb0: 41 43 45 20 49 4e 54 4f 20 76 76 61 72 28 6e 61 ACE INTO vvar(na
4ec0: 6d 65 2c 76 61 6c 75 65 29 20 56 41 4c 55 45 53 me,value) VALUES
4ed0: 28 25 51 2c 25 64 29 22 2c 20 7a 4e 61 6d 65 2c (%Q,%d)", zName,
4ee0: 20 76 61 6c 75 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a value);.}../*.*
4ef0: 2a 20 43 4f 4d 4d 41 4e 44 3a 20 6f 70 65 6e 0a * COMMAND: open.
4f00: 2a 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61 20 6e **.** Create a n
4f10: 65 77 20 6c 6f 63 61 6c 20 72 65 70 6f 73 69 74 ew local reposit
4f20: 6f 72 79 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64 ory..*/.void cmd
4f30: 5f 6f 70 65 6e 28 76 6f 69 64 29 7b 0a 20 20 42 _open(void){. B
4f40: 6c 6f 62 20 70 61 74 68 3b 0a 20 20 69 66 28 20 lob path;. if(
4f50: 67 2e 61 72 67 63 21 3d 33 20 29 7b 0a 20 20 20 g.argc!=3 ){.
4f60: 20 75 73 61 67 65 28 22 52 45 50 4f 53 49 54 4f usage("REPOSITO
4f70: 52 59 2d 46 49 4c 45 4e 41 4d 45 22 29 3b 0a 20 RY-FILENAME");.
4f80: 20 7d 0a 20 20 69 66 28 20 64 62 5f 6f 70 65 6e }. if( db_open
4f90: 5f 6c 6f 63 61 6c 28 29 20 29 7b 0a 20 20 20 20 _local() ){.
4fa0: 66 6f 73 73 69 6c 5f 70 61 6e 69 63 28 22 61 6c fossil_panic("al
4fb0: 72 65 61 64 79 20 77 69 74 68 69 6e 20 61 6e 20 ready within an
4fc0: 6f 70 65 6e 20 74 72 65 65 20 72 6f 6f 74 65 64 open tree rooted
4fd0: 20 61 74 20 25 73 22 2c 20 67 2e 7a 4c 6f 63 61 at %s", g.zLoca
4fe0: 6c 52 6f 6f 74 29 3b 0a 20 20 7d 0a 20 20 66 69 lRoot);. }. fi
4ff0: 6c 65 5f 63 61 6e 6f 6e 69 63 61 6c 5f 6e 61 6d le_canonical_nam
5000: 65 28 67 2e 61 72 67 76 5b 32 5d 2c 20 26 70 61 e(g.argv[2], &pa
5010: 74 68 29 3b 0a 20 20 64 62 5f 6f 70 65 6e 5f 72 th);. db_open_r
5020: 65 70 6f 73 69 74 6f 72 79 28 62 6c 6f 62 5f 73 epository(blob_s
5030: 74 72 28 26 70 61 74 68 29 29 3b 0a 20 20 64 62 tr(&path));. db
5040: 5f 69 6e 69 74 5f 64 61 74 61 62 61 73 65 28 22 _init_database("
5050: 2e 2f 5f 46 4f 53 53 49 4c 5f 22 2c 20 7a 4c 6f ./_FOSSIL_", zLo
5060: 63 61 6c 53 63 68 65 6d 61 2c 20 28 63 68 61 72 calSchema, (char
5070: 2a 29 30 29 3b 0a 20 20 64 62 5f 6f 70 65 6e 5f *)0);. db_open_
5080: 6c 6f 63 61 6c 28 29 3b 0a 20 20 64 62 5f 6c 73 local();. db_ls
5090: 65 74 28 22 72 65 70 6f 73 69 74 6f 72 79 22 2c et("repository",
50a0: 20 62 6c 6f 62 5f 73 74 72 28 26 70 61 74 68 29 blob_str(&path)
50b0: 29 3b 0a 20 20 64 62 5f 6c 73 65 74 5f 69 6e 74 );. db_lset_int
50c0: 28 22 63 68 65 63 6b 6f 75 74 22 2c 20 31 29 3b ("checkout", 1);
50d0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e .}../*.** COMMAN
50e0: 44 3a 20 63 6f 6e 66 69 67 0a 2a 2a 0a 2a 2a 20 D: config.**.**
50f0: 4c 69 73 74 20 6f 72 20 63 68 61 6e 67 65 20 74 List or change t
5100: 68 65 20 67 6c 6f 62 61 6c 20 63 6f 6e 66 69 67 he global config
5110: 75 72 61 74 69 6f 6e 20 73 65 74 74 69 6e 67 73 uration settings
5120: 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64 5f 63 6f ..*/.void cmd_co
5130: 6e 66 69 67 28 76 6f 69 64 29 7b 0a 20 20 64 62 nfig(void){. db
5140: 5f 6f 70 65 6e 5f 63 6f 6e 66 69 67 28 29 3b 0a _open_config();.
5150: 20 20 69 66 28 20 67 2e 61 72 67 63 3e 32 20 29 if( g.argc>2 )
5160: 7b 0a 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 {. int i;.
5170: 20 64 62 5f 62 65 67 69 6e 5f 74 72 61 6e 73 61 db_begin_transa
5180: 63 74 69 6f 6e 28 29 3b 0a 20 20 20 20 66 6f 72 ction();. for
5190: 28 69 3d 32 3b 20 69 3c 67 2e 61 72 67 63 3b 20 (i=2; i<g.argc;
51a0: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 63 68 61 72 i++){. char
51b0: 20 2a 7a 4e 61 6d 65 2c 20 2a 7a 56 61 6c 75 65 *zName, *zValue
51c0: 3b 0a 20 20 20 20 20 20 69 6e 74 20 6a 3b 0a 0a ;. int j;..
51d0: 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 6d 70 zName = mp
51e0: 72 69 6e 74 66 28 22 25 73 22 2c 20 67 2e 61 72 rintf("%s", g.ar
51f0: 67 76 5b 69 5d 29 3b 0a 20 20 20 20 20 20 66 6f gv[i]);. fo
5200: 72 28 6a 3d 30 3b 20 7a 4e 61 6d 65 5b 6a 5d 20 r(j=0; zName[j]
5210: 26 26 20 7a 4e 61 6d 65 5b 6a 5d 21 3d 27 3d 27 && zName[j]!='='
5220: 3b 20 6a 2b 2b 29 7b 7d 0a 20 20 20 20 20 20 69 ; j++){}. i
5230: 66 28 20 7a 4e 61 6d 65 5b 6a 5d 20 29 7b 0a 20 f( zName[j] ){.
5240: 20 20 20 20 20 20 20 7a 4e 61 6d 65 5b 6a 5d 20 zName[j]
5250: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7a 56 61 = 0;. zVa
5260: 6c 75 65 20 3d 20 26 7a 4e 61 6d 65 5b 6a 2b 31 lue = &zName[j+1
5270: 5d 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a ];. if( z
5280: 56 61 6c 75 65 5b 30 5d 20 29 7b 0a 20 20 20 20 Value[0] ){.
5290: 20 20 20 20 20 20 64 62 5f 67 6c 6f 62 61 6c 5f db_global_
52a0: 73 65 74 28 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 set(zName, zValu
52b0: 65 29 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 e);. }els
52c0: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 64 62 5f e{. db_
52d0: 6d 75 6c 74 69 5f 65 78 65 63 28 22 44 45 4c 45 multi_exec("DELE
52e0: 54 45 20 46 52 4f 4d 20 67 6c 6f 62 61 6c 5f 63 TE FROM global_c
52f0: 6f 6e 66 69 67 20 57 48 45 52 45 20 6e 61 6d 65 onfig WHERE name
5300: 3d 25 51 22 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20 =%Q", zName);.
5310: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a }. }.
5320: 20 20 20 20 20 20 7a 56 61 6c 75 65 20 3d 20 64 zValue = d
5330: 62 5f 67 6c 6f 62 61 6c 5f 67 65 74 28 7a 4e 61 b_global_get(zNa
5340: 6d 65 2c 20 30 29 3b 0a 20 20 20 20 20 20 69 66 me, 0);. if
5350: 28 20 7a 56 61 6c 75 65 20 29 7b 0a 20 20 20 20 ( zValue ){.
5360: 20 20 20 20 70 72 69 6e 74 66 28 22 25 73 3d 25 printf("%s=%
5370: 73 5c 6e 22 2c 20 7a 4e 61 6d 65 2c 20 7a 56 61 s\n", zName, zVa
5380: 6c 75 65 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 lue);. }els
5390: 65 7b 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 e{. print
53a0: 66 28 22 25 73 20 69 73 20 75 6e 64 65 66 69 6e f("%s is undefin
53b0: 65 64 5c 6e 22 2c 20 7a 4e 61 6d 65 29 3b 0a 20 ed\n", zName);.
53c0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
53d0: 20 64 62 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 db_end_transact
53e0: 69 6f 6e 28 30 29 3b 0a 20 20 7d 65 6c 73 65 7b ion(0);. }else{
53f0: 0a 20 20 20 20 53 74 6d 74 20 71 3b 0a 20 20 20 . Stmt q;.
5400: 20 64 62 5f 70 72 65 70 61 72 65 28 26 71 2c 20 db_prepare(&q,
5410: 22 53 45 4c 45 43 54 20 6e 61 6d 65 2c 20 76 61 "SELECT name, va
5420: 6c 75 65 20 46 52 4f 4d 20 67 6c 6f 62 61 6c 5f lue FROM global_
5430: 63 6f 6e 66 69 67 20 4f 52 44 45 52 20 42 59 20 config ORDER BY
5440: 6e 61 6d 65 22 29 3b 0a 20 20 20 20 77 68 69 6c name");. whil
5450: 65 28 20 64 62 5f 73 74 65 70 28 26 71 29 3d 3d e( db_step(&q)==
5460: 53 51 4c 49 54 45 5f 52 4f 57 20 29 7b 0a 20 20 SQLITE_ROW ){.
5470: 20 20 20 20 70 72 69 6e 74 66 28 22 25 73 3d 25 printf("%s=%
5480: 73 5c 6e 22 2c 20 64 62 5f 63 6f 6c 75 6d 6e 5f s\n", db_column_
5490: 74 65 78 74 28 26 71 2c 20 30 29 2c 20 64 62 5f text(&q, 0), db_
54a0: 63 6f 6c 75 6d 6e 5f 74 65 78 74 28 26 71 2c 20 column_text(&q,
54b0: 31 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 1));. }. d
54c0: 62 5f 66 69 6e 61 6c 69 7a 65 28 26 71 29 3b 0a b_finalize(&q);.
54d0: 20 20 7d 0a 7d 0a }.}.