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 62 72 65 61 6b 3b 0a 20 W_OK) ) break;.
3610: 20 20 20 73 74 72 63 70 79 28 26 7a 50 77 64 5b strcpy(&zPwd[
3620: 6e 5d 2c 20 22 2f 5f 46 4f 53 53 49 4c 5f 22 29 n], "/_FOSSIL_")
3630: 3b 0a 20 20 20 20 69 66 28 20 69 73 56 61 6c 69 ;. if( isVali
3640: 64 4c 6f 63 61 6c 44 62 28 7a 50 77 64 29 20 29 dLocalDb(zPwd) )
3650: 7b 0a 20 20 20 20 20 20 2f 2a 20 46 6f 75 6e 64 {. /* Found
3660: 20 61 20 76 61 6c 69 64 20 5f 46 4f 53 53 49 4c a valid _FOSSIL
3670: 5f 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 20 20 _ file */.
3680: 7a 50 77 64 5b 6e 5d 20 3d 20 30 3b 0a 20 20 20 zPwd[n] = 0;.
3690: 20 20 20 67 2e 7a 4c 6f 63 61 6c 52 6f 6f 74 20 g.zLocalRoot
36a0: 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 2f 22 2c = mprintf("%s/",
36b0: 20 7a 50 77 64 29 3b 0a 20 20 20 20 20 20 72 65 zPwd);. re
36c0: 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 turn 1;. }.
36d0: 20 20 6e 2d 2d 3b 0a 20 20 20 20 77 68 69 6c 65 n--;. while
36e0: 28 20 6e 3e 30 20 26 26 20 7a 50 77 64 5b 6e 5d ( n>0 && zPwd[n]
36f0: 21 3d 27 2f 27 20 29 7b 20 6e 2d 2d 3b 20 7d 0a !='/' ){ n--; }.
3700: 20 20 20 20 77 68 69 6c 65 28 20 6e 3e 30 20 26 while( n>0 &
3710: 26 20 7a 50 77 64 5b 6e 2d 31 5d 3d 3d 27 2f 27 & zPwd[n-1]=='/'
3720: 20 29 7b 20 6e 2d 2d 3b 20 7d 0a 20 20 20 20 7a ){ n--; }. z
3730: 50 77 64 5b 6e 5d 20 3d 20 30 3b 0a 20 20 7d 0a Pwd[n] = 0;. }.
3740: 0a 20 20 2f 2a 20 41 20 5f 46 4f 53 53 49 4c 5f . /* A _FOSSIL_
3750: 20 66 69 6c 65 20 63 6f 75 6c 64 20 6e 6f 74 20 file could not
3760: 62 65 20 66 6f 75 6e 64 20 2a 2f 0a 20 20 72 65 be found */. re
3770: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
3780: 20 4f 70 65 6e 20 74 68 65 20 72 65 70 6f 73 69 Open the reposi
3790: 74 6f 72 79 20 64 61 74 61 62 61 73 65 20 67 69 tory database gi
37a0: 76 65 6e 20 62 79 20 7a 44 62 4e 61 6d 65 2e 20 ven by zDbName.
37b0: 20 49 66 20 7a 44 62 4e 61 6d 65 3d 3d 4e 55 4c If zDbName==NUL
37c0: 4c 20 74 68 65 6e 0a 2a 2a 20 67 65 74 20 74 68 L then.** get th
37d0: 65 20 6e 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 e name from the
37e0: 61 6c 72 65 61 64 79 20 6f 70 65 6e 20 6c 6f 63 already open loc
37f0: 61 6c 20 64 61 74 61 62 61 73 65 2e 0a 2a 2f 0a al database..*/.
3800: 76 6f 69 64 20 64 62 5f 6f 70 65 6e 5f 72 65 70 void db_open_rep
3810: 6f 73 69 74 6f 72 79 28 63 6f 6e 73 74 20 63 68 ository(const ch
3820: 61 72 20 2a 7a 44 62 4e 61 6d 65 29 7b 0a 20 20 ar *zDbName){.
3830: 69 66 28 20 67 2e 72 65 70 6f 73 69 74 6f 72 79 if( g.repository
3840: 4f 70 65 6e 20 29 20 72 65 74 75 72 6e 3b 0a 20 Open ) return;.
3850: 20 69 66 28 20 7a 44 62 4e 61 6d 65 3d 3d 30 20 if( zDbName==0
3860: 29 7b 0a 20 20 20 20 69 66 28 20 67 2e 6c 6f 63 ){. if( g.loc
3870: 61 6c 4f 70 65 6e 20 29 7b 0a 20 20 20 20 20 20 alOpen ){.
3880: 7a 44 62 4e 61 6d 65 20 3d 20 64 62 5f 6c 67 65 zDbName = db_lge
3890: 74 28 22 72 65 70 6f 73 69 74 6f 72 79 22 2c 20 t("repository",
38a0: 30 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 0);. }. if
38b0: 28 20 7a 44 62 4e 61 6d 65 3d 3d 30 20 29 7b 0a ( zDbName==0 ){.
38c0: 20 20 20 20 20 20 64 62 5f 65 72 72 28 22 75 6e db_err("un
38d0: 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 74 68 65 able to find the
38e0: 20 6e 61 6d 65 20 6f 66 20 61 20 72 65 70 6f 73 name of a repos
38f0: 69 74 6f 72 79 20 64 61 74 61 62 61 73 65 22 29 itory database")
3900: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 ;. }. }. if
3910: 28 20 61 63 63 65 73 73 28 7a 44 62 4e 61 6d 65 ( access(zDbName
3920: 2c 20 52 5f 4f 4b 29 20 7c 7c 20 66 69 6c 65 5f , R_OK) || file_
3930: 73 69 7a 65 28 7a 44 62 4e 61 6d 65 29 3c 31 30 size(zDbName)<10
3940: 32 34 20 29 7b 0a 20 20 20 20 66 6f 73 73 69 6c 24 ){. fossil
3950: 5f 70 61 6e 69 63 28 22 6e 6f 20 73 75 63 68 20 _panic("no such
3960: 72 65 70 6f 73 69 74 6f 72 79 3a 20 25 73 22 2c repository: %s",
3970: 20 7a 44 62 4e 61 6d 65 29 3b 0a 20 20 7d 0a 20 zDbName);. }.
3980: 20 64 62 5f 6f 70 65 6e 5f 6f 72 5f 61 74 74 61 db_open_or_atta
3990: 63 68 28 7a 44 62 4e 61 6d 65 2c 20 22 72 65 70 ch(zDbName, "rep
39a0: 6f 73 69 74 6f 72 79 22 29 3b 0a 20 20 67 2e 72 ository");. g.r
39b0: 65 70 6f 73 69 74 6f 72 79 4f 70 65 6e 20 3d 20 epositoryOpen =
39c0: 31 3b 0a 20 20 67 2e 7a 52 65 70 6f 73 69 74 6f 1;. g.zReposito
39d0: 72 79 4e 61 6d 65 20 3d 20 6d 70 72 69 6e 74 66 ryName = mprintf
39e0: 28 22 25 73 22 2c 20 7a 44 62 4e 61 6d 65 29 3b ("%s", zDbName);
39f0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 79 20 74 6f .}../*.** Try to
3a00: 20 66 69 6e 64 20 74 68 65 20 72 65 70 6f 73 69 find the reposi
3a10: 74 6f 72 79 20 61 6e 64 20 6f 70 65 6e 20 69 74 tory and open it
3a20: 2e 20 20 49 66 20 77 65 20 61 72 65 20 69 6e 20 . If we are in
3a30: 61 20 6c 6f 63 61 6c 0a 2a 2a 20 74 72 65 65 2c a local.** tree,
3a40: 20 74 68 65 6e 20 75 73 65 20 74 68 65 20 72 65 then use the re
3a50: 70 6f 73 69 74 6f 72 79 20 6f 66 20 74 68 65 20 pository of the
3a60: 6c 6f 63 61 6c 20 74 72 65 65 2e 20 20 4f 74 68 local tree. Oth
3a70: 65 72 77 69 73 65 2c 0a 2a 2a 20 66 61 6c 6c 20 erwise,.** fall
3a80: 62 61 63 6b 20 74 6f 20 74 68 65 20 2d 52 20 6f back to the -R o
3a90: 72 20 2d 2d 72 65 70 6f 73 69 74 6f 72 79 20 6f r --repository o
3aa0: 70 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 45 72 72 ption..**.** Err
3ab0: 6f 72 20 6f 75 74 20 69 66 20 74 68 65 20 72 65 or out if the re
3ac0: 70 6f 73 69 74 6f 72 79 20 63 61 6e 6e 6f 74 20 pository cannot
3ad0: 62 65 20 6f 70 65 6e 65 64 2e 0a 2a 2f 0a 76 6f be opened..*/.vo
3ae0: 69 64 20 64 62 5f 66 69 6e 64 5f 61 6e 64 5f 6f id db_find_and_o
3af0: 70 65 6e 5f 72 65 70 6f 73 69 74 6f 72 79 28 76 pen_repository(v
3b00: 6f 69 64 29 7b 0a 20 20 63 68 61 72 20 2a 7a 52 oid){. char *zR
3b10: 65 70 20 3d 20 66 69 6e 64 5f 6f 70 74 69 6f 6e ep = find_option
3b20: 28 22 72 65 70 6f 73 69 74 6f 72 79 22 2c 20 22 ("repository", "
3b30: 52 22 2c 20 31 29 3b 0a 20 20 69 66 28 20 7a 52 R", 1);. if( zR
3b40: 65 70 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 ep==0 ){. if(
3b50: 20 64 62 5f 6f 70 65 6e 5f 6c 6f 63 61 6c 28 29 db_open_local()
3b60: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 67 6f 74 ==0 ){. got
3b70: 6f 20 72 65 70 5f 6e 6f 74 5f 66 6f 75 6e 64 3b o rep_not_found;
3b80: 0a 20 20 20 20 7d 0a 20 20 20 20 7a 52 65 70 20 . }. zRep
3b90: 3d 20 64 62 5f 6c 67 65 74 28 22 72 65 70 6f 73 = db_lget("repos
3ba0: 69 74 6f 72 79 22 2c 20 30 29 3b 0a 20 20 20 20 itory", 0);.
3bb0: 69 66 28 20 7a 52 65 70 3d 3d 30 20 29 7b 0a 20 if( zRep==0 ){.
3bc0: 20 20 20 20 20 67 6f 74 6f 20 72 65 70 5f 6e 6f goto rep_no
3bd0: 74 5f 66 6f 75 6e 64 3b 0a 20 20 20 20 7d 0a 20 t_found;. }.
3be0: 20 7d 0a 20 20 64 62 5f 6f 70 65 6e 5f 72 65 70 }. db_open_rep
3bf0: 6f 73 69 74 6f 72 79 28 7a 52 65 70 29 3b 0a 20 ository(zRep);.
3c00: 20 69 66 28 20 67 2e 72 65 70 6f 73 69 74 6f 72 if( g.repositor
3c10: 79 4f 70 65 6e 20 29 7b 0a 20 20 20 20 72 65 74 yOpen ){. ret
3c20: 75 72 6e 3b 0a 20 20 7d 0a 72 65 70 5f 6e 6f 74 urn;. }.rep_not
3c30: 5f 66 6f 75 6e 64 3a 0a 20 20 66 6f 73 73 69 6c _found:. fossil
3c40: 5f 66 61 74 61 6c 28 22 75 73 65 20 2d 2d 72 65 _fatal("use --re
3c50: 70 6f 73 69 74 6f 72 79 20 6f 72 20 2d 52 20 74 pository or -R t
3c60: 6f 20 73 70 65 63 69 66 69 63 20 74 68 65 20 72 o specific the r
3c70: 65 70 6f 73 69 74 6f 72 79 20 64 61 74 61 62 61 epository databa
3c80: 73 65 22 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4f se");.}../*.** O
3c90: 70 65 6e 20 74 68 65 20 6c 6f 63 61 6c 20 64 61 pen the local da
3ca0: 74 61 62 61 73 65 2e 20 20 49 66 20 75 6e 61 62 tabase. If unab
3cb0: 6c 65 2c 20 65 78 69 74 20 77 69 74 68 20 61 6e le, exit with an
3cc0: 20 65 72 72 6f 72 2e 0a 2a 2f 0a 76 6f 69 64 20 error..*/.void
3cd0: 64 62 5f 6d 75 73 74 5f 62 65 5f 77 69 74 68 69 db_must_be_withi
3ce0: 6e 5f 74 72 65 65 28 76 6f 69 64 29 7b 0a 20 20 n_tree(void){.
3cf0: 69 66 28 20 64 62 5f 6f 70 65 6e 5f 6c 6f 63 61 if( db_open_loca
3d00: 6c 28 29 3d 3d 30 20 29 7b 0a 20 20 20 20 66 6f l()==0 ){. fo
3d10: 73 73 69 6c 5f 66 61 74 61 6c 28 22 6e 6f 74 20 ssil_fatal("not
3d20: 77 69 74 68 69 6e 20 61 6e 20 6f 70 65 6e 20 63 within an open c
3d30: 68 65 63 6b 6f 75 74 22 29 3b 0a 20 20 7d 0a 20 heckout");. }.
3d40: 20 64 62 5f 6f 70 65 6e 5f 72 65 70 6f 73 69 74 db_open_reposit
3d50: 6f 72 79 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a ory(0);.}../*.**
3d60: 20 43 6c 6f 73 65 20 74 68 65 20 64 61 74 61 62 Close the datab
3d70: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a ase connection..
3d80: 2a 2f 0a 76 6f 69 64 20 64 62 5f 63 6c 6f 73 65 */.void db_close
3d90: 28 76 6f 69 64 29 7b 0a 20 20 69 66 28 20 67 2e (void){. if( g.
3da0: 64 62 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a db==0 ) return;.
3db0: 20 20 67 2e 72 65 70 6f 73 69 74 6f 72 79 4f 70 g.repositoryOp
3dc0: 65 6e 20 3d 20 30 3b 0a 20 20 67 2e 6c 6f 63 61 en = 0;. g.loca
3dd0: 6c 4f 70 65 6e 20 3d 20 30 3b 0a 20 20 67 2e 63 lOpen = 0;. g.c
3de0: 6f 6e 66 69 67 4f 70 65 6e 20 3d 20 30 3b 0a 20 onfigOpen = 0;.
3df0: 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 67 sqlite3_close(g
3e00: 2e 64 62 29 3b 0a 20 20 67 2e 64 62 20 3d 20 30 .db);. g.db = 0
3e10: 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61 ;.}.../*.** Crea
3e20: 74 65 20 61 20 6e 65 77 20 65 6d 70 74 79 20 72 te a new empty r
3e30: 65 70 6f 73 69 74 6f 72 79 20 64 61 74 61 62 61 epository databa
3e40: 73 65 20 77 69 74 68 20 74 68 65 20 67 69 76 65 se with the give
3e50: 6e 20 6e 61 6d 65 2e 0a 2a 2a 0a 2a 2a 20 4f 6e n name..**.** On
3e60: 6c 79 20 74 68 65 20 73 63 68 65 6d 61 20 69 73 ly the schema is
3e70: 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 20 20 54 initialized. T
3e80: 68 65 20 72 65 71 75 69 72 65 64 20 56 41 52 20 he required VAR
3e90: 74 61 62 6c 65 73 20 65 6e 74 72 69 65 73 0a 2a tables entries.*
3ea0: 2a 20 61 72 65 20 6e 6f 74 20 73 65 74 20 62 79 * are not set by
3eb0: 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 61 6e this routine an
3ec0: 64 20 6d 75 73 74 20 62 65 20 73 65 74 20 73 65 d must be set se
3ed0: 70 61 72 61 74 65 6c 79 20 69 6e 20 6f 72 64 65 parately in orde
3ee0: 72 0a 2a 2a 20 74 6f 20 6d 61 6b 65 20 74 68 65 r.** to make the
3ef0: 20 6e 65 77 20 66 69 6c 65 20 61 20 76 61 6c 69 new file a vali
3f00: 64 20 64 61 74 61 62 61 73 65 2e 0a 2a 2f 0a 76 d database..*/.v
3f10: 6f 69 64 20 64 62 5f 63 72 65 61 74 65 5f 72 65 oid db_create_re
3f20: 70 6f 73 69 74 6f 72 79 28 63 6f 6e 73 74 20 63 pository(const c
3f30: 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b har *zFilename){
3f40: 0a 20 20 64 62 5f 69 6e 69 74 5f 64 61 74 61 62 . db_init_datab
3f50: 61 73 65 28 0a 20 20 20 20 20 7a 46 69 6c 65 6e ase(. zFilen
3f60: 61 6d 65 2c 0a 20 20 20 20 20 7a 52 65 70 6f 73 ame,. zRepos
3f70: 69 74 6f 72 79 53 63 68 65 6d 61 31 2c 0a 20 20 itorySchema1,.
3f80: 20 20 20 7a 52 65 70 6f 73 69 74 6f 72 79 53 63 zRepositorySc
3f90: 68 65 6d 61 32 2c 0a 20 20 20 20 20 28 63 68 61 hema2,. (cha
3fa0: 72 2a 29 30 0a 20 20 29 3b 0a 7d 0a 0a 0a 2f 2a r*)0. );.}.../*
3fb0: 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20 6e 65 77 .** COMMAND: new
3fc0: 0a 2a 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61 20 .**.** Create a
3fd0: 6e 65 77 20 72 65 70 6f 73 69 74 6f 72 79 0a 2a new repository.*
3fe0: 2f 0a 76 6f 69 64 20 63 72 65 61 74 65 5f 72 65 /.void create_re
3ff0: 70 6f 73 69 74 6f 72 79 5f 63 6d 64 28 76 6f 69 pository_cmd(voi
4000: 64 29 7b 0a 20 20 63 68 61 72 20 2a 7a 44 61 74 d){. char *zDat
4010: 65 3b 0a 20 20 63 68 61 72 20 2a 7a 55 73 65 72 e;. char *zUser
4020: 3b 0a 20 20 42 6c 6f 62 20 68 61 73 68 3b 0a 20 ;. Blob hash;.
4030: 20 42 6c 6f 62 20 6d 61 6e 69 66 65 73 74 3b 0a Blob manifest;.
4040: 0a 20 20 69 66 28 20 67 2e 61 72 67 63 21 3d 33 . if( g.argc!=3
4050: 20 29 7b 0a 20 20 20 20 75 73 61 67 65 28 22 52 ){. usage("R
4060: 45 50 4f 53 49 54 4f 52 59 2d 4e 41 4d 45 22 29 EPOSITORY-NAME")
4070: 3b 0a 20 20 7d 0a 20 20 64 62 5f 63 72 65 61 74 ;. }. db_creat
4080: 65 5f 72 65 70 6f 73 69 74 6f 72 79 28 67 2e 61 e_repository(g.a
4090: 72 67 76 5b 32 5d 29 3b 0a 20 20 64 62 5f 6f 70 rgv[2]);. db_op
40a0: 65 6e 5f 72 65 70 6f 73 69 74 6f 72 79 28 67 2e en_repository(g.
40b0: 61 72 67 76 5b 32 5d 29 3b 0a 20 20 64 62 5f 6f argv[2]);. db_o
40c0: 70 65 6e 5f 63 6f 6e 66 69 67 28 29 3b 0a 20 20 pen_config();.
40d0: 64 62 5f 62 65 67 69 6e 5f 74 72 61 6e 73 61 63 db_begin_transac
40e0: 74 69 6f 6e 28 29 3b 0a 20 20 64 62 5f 73 65 74 tion();. db_set
40f0: 28 22 63 6f 6e 74 65 6e 74 2d 73 63 68 65 6d 61 ("content-schema
4100: 22 2c 20 43 4f 4e 54 45 4e 54 5f 53 43 48 45 4d ", CONTENT_SCHEM
4110: 41 29 3b 0a 20 20 64 62 5f 73 65 74 28 22 61 75 A);. db_set("au
4120: 78 2d 73 63 68 65 6d 61 22 2c 20 41 55 58 5f 53 x-schema", AUX_S
4130: 43 48 45 4d 41 29 3b 0a 20 20 64 62 5f 6d 75 6c CHEMA);. db_mul
4140: 74 69 5f 65 78 65 63 28 0a 20 20 20 20 22 49 4e ti_exec(. "IN
4150: 53 45 52 54 20 49 4e 54 4f 20 63 6f 6e 66 69 67 SERT INTO config
4160: 28 6e 61 6d 65 2c 76 61 6c 75 65 29 20 56 41 4c (name,value) VAL
4170: 55 45 53 28 27 73 65 72 76 65 72 2d 63 6f 64 65 UES('server-code
4180: 27 2c 20 68 65 78 28 72 61 6e 64 6f 6d 62 6c 6f ', hex(randomblo
4190: 62 28 32 30 29 29 29 3b 22 0a 20 20 20 20 22 49 b(20)));". "I
41a0: 4e 53 45 52 54 20 49 4e 54 4f 20 63 6f 6e 66 69 NSERT INTO confi
41b0: 67 28 6e 61 6d 65 2c 76 61 6c 75 65 29 20 56 41 g(name,value) VA
41c0: 4c 55 45 53 28 27 70 72 6f 6a 65 63 74 2d 63 6f LUES('project-co
41d0: 64 65 27 2c 68 65 78 28 72 61 6e 64 6f 6d 62 6c de',hex(randombl
41e0: 6f 62 28 32 30 29 29 29 3b 22 0a 20 20 29 3b 0a ob(20)));". );.
41f0: 20 20 7a 55 73 65 72 20 3d 20 64 62 5f 67 6c 6f zUser = db_glo
4200: 62 61 6c 5f 67 65 74 28 22 64 65 66 61 75 6c 74 bal_get("default
4210: 2d 75 73 65 72 22 2c 20 30 29 3b 0a 20 20 69 66 -user", 0);. if
4220: 28 20 7a 55 73 65 72 3d 3d 30 20 29 7b 0a 20 20 ( zUser==0 ){.
4230: 20 20 7a 55 73 65 72 20 3d 20 67 65 74 65 6e 76 zUser = getenv
4240: 28 22 55 53 45 52 22 29 3b 0a 20 20 7d 0a 20 20 ("USER");. }.
4250: 69 66 28 20 7a 55 73 65 72 3d 3d 30 20 29 7b 0a if( zUser==0 ){.
4260: 20 20 20 20 7a 55 73 65 72 20 3d 20 22 61 6e 6f zUser = "ano
4270: 6e 79 6d 6f 75 73 22 3b 0a 20 20 7d 0a 20 20 64 nymous";. }. d
4280: 62 5f 6d 75 6c 74 69 5f 65 78 65 63 28 0a 20 20 b_multi_exec(.
4290: 20 20 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 "INSERT INTO
42a0: 75 73 65 72 28 6c 6f 67 69 6e 2c 20 70 77 2c 20 user(login, pw,
42b0: 63 61 70 2c 20 69 6e 66 6f 29 22 0a 20 20 20 20 cap, info)".
42c0: 20 22 56 41 4c 55 45 53 28 25 51 2c 27 27 2c 27 "VALUES(%Q,'','
42d0: 73 27 2c 27 27 29 22 2c 20 7a 55 73 65 72 0a 20 s','')", zUser.
42e0: 20 29 3b 0a 20 20 75 73 65 72 5f 73 65 6c 65 63 );. user_selec
42f0: 74 28 29 3b 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f t();. blob_zero
4300: 28 26 6d 61 6e 69 66 65 73 74 29 3b 0a 20 20 62 (&manifest);. b
4310: 6c 6f 62 5f 61 70 70 65 6e 64 66 28 26 6d 61 6e lob_appendf(&man
4320: 69 66 65 73 74 2c 20 22 43 20 69 6e 69 74 69 61 ifest, "C initia
4330: 6c 5c 5c 73 65 6d 70 74 79 5c 5c 73 62 61 73 65 l\\sempty\\sbase
4340: 6c 69 6e 65 5c 6e 22 29 3b 0a 20 20 7a 44 61 74 line\n");. zDat
4350: 65 20 3d 20 64 62 5f 74 65 78 74 28 30 2c 20 22 e = db_text(0, "
4360: 53 45 4c 45 43 54 20 64 61 74 65 74 69 6d 65 28 SELECT datetime(
4370: 27 6e 6f 77 27 29 22 29 3b 0a 20 20 7a 44 61 74 'now')");. zDat
4380: 65 5b 31 30 5d 3d 27 54 27 3b 0a 20 20 62 6c 6f e[10]='T';. blo
4390: 62 5f 61 70 70 65 6e 64 66 28 26 6d 61 6e 69 66 b_appendf(&manif
43a0: 65 73 74 2c 20 22 44 20 25 73 5c 6e 22 2c 20 7a est, "D %s\n", z
43b0: 44 61 74 65 29 3b 0a 20 20 62 6c 6f 62 5f 61 70 Date);. blob_ap
43c0: 70 65 6e 64 66 28 26 6d 61 6e 69 66 65 73 74 2c pendf(&manifest,
43d0: 20 22 50 5c 6e 22 29 3b 0a 20 20 6d 64 35 73 75 "P\n");. md5su
43e0: 6d 5f 69 6e 69 74 28 29 3b 0a 20 20 62 6c 6f 62 m_init();. blob
43f0: 5f 61 70 70 65 6e 64 66 28 26 6d 61 6e 69 66 65 _appendf(&manife
4400: 73 74 2c 20 22 52 20 25 73 5c 6e 22 2c 20 6d 64 st, "R %s\n", md
4410: 35 73 75 6d 5f 66 69 6e 69 73 68 28 30 29 29 3b 5sum_finish(0));
4420: 0a 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 28 . blob_appendf(
4430: 26 6d 61 6e 69 66 65 73 74 2c 20 22 55 20 25 46 &manifest, "U %F
4440: 5c 6e 22 2c 20 67 2e 7a 4c 6f 67 69 6e 29 3b 0a \n", g.zLogin);.
4450: 20 20 6d 64 35 73 75 6d 5f 62 6c 6f 62 28 26 6d md5sum_blob(&m
4460: 61 6e 69 66 65 73 74 2c 20 26 68 61 73 68 29 3b anifest, &hash);
4470: 0a 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 28 . blob_appendf(
4480: 26 6d 61 6e 69 66 65 73 74 2c 20 22 5a 20 25 62 &manifest, "Z %b
4490: 5c 6e 22 2c 20 26 68 61 73 68 29 3b 0a 20 20 62 \n", &hash);. b
44a0: 6c 6f 62 5f 72 65 73 65 74 28 26 68 61 73 68 29 lob_reset(&hash)
44b0: 3b 0a 20 20 63 6f 6e 74 65 6e 74 5f 70 75 74 28 ;. content_put(
44c0: 26 6d 61 6e 69 66 65 73 74 2c 20 30 29 3b 0a 20 &manifest, 0);.
44d0: 20 64 62 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 db_end_transact
44e0: 69 6f 6e 28 30 29 3b 0a 20 20 70 72 69 6e 74 66 ion(0);. printf
44f0: 28 22 70 72 6f 6a 65 63 74 2d 69 64 3a 20 25 73 ("project-id: %s
4500: 5c 6e 22 2c 20 64 62 5f 67 65 74 28 22 70 72 6f \n", db_get("pro
4510: 6a 65 63 74 2d 63 6f 64 65 22 2c 20 30 29 29 3b ject-code", 0));
4520: 0a 20 20 70 72 69 6e 74 66 28 22 73 65 72 76 65 . printf("serve
4530: 72 2d 69 64 3a 20 20 25 73 5c 6e 22 2c 20 64 62 r-id: %s\n", db
4540: 5f 67 65 74 28 22 73 65 72 76 65 72 2d 63 6f 64 _get("server-cod
4550: 65 22 2c 20 30 29 29 3b 0a 20 20 70 72 69 6e 74 e", 0));. print
4560: 66 28 22 61 64 6d 69 6e 2d 75 73 65 72 3a 20 25 f("admin-user: %
4570: 73 20 28 6e 6f 20 70 61 73 73 77 6f 72 64 20 73 s (no password s
4580: 65 74 20 79 65 74 21 29 5c 6e 22 2c 20 67 2e 7a et yet!)\n", g.z
4590: 4c 6f 67 69 6e 29 3b 0a 20 20 70 72 69 6e 74 66 Login);. printf
45a0: 28 22 62 61 73 65 6c 69 6e 65 3a 20 20 20 25 73 ("baseline: %s
45b0: 5c 6e 22 2c 20 64 62 5f 74 65 78 74 28 30 2c 20 \n", db_text(0,
45c0: 22 53 45 4c 45 43 54 20 75 75 69 64 20 46 52 4f "SELECT uuid FRO
45d0: 4d 20 62 6c 6f 62 22 29 29 3b 0a 7d 0a 0a 2f 2a M blob"));.}../*
45e0: 0a 2a 2a 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e .** SQL function
45f0: 73 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 2e s for debugging.
4600: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 70 72 69 6e 74 .**.** The print
4610: 28 29 20 66 75 6e 63 74 69 6f 6e 20 77 72 69 74 () function writ
4620: 65 73 20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 es its arguments
4630: 20 6f 6e 20 73 74 64 6f 75 74 2c 20 62 75 74 20 on stdout, but
4640: 6f 6e 6c 79 0a 2a 2a 20 69 66 20 74 68 65 20 2d only.** if the -
4650: 73 71 6c 70 72 69 6e 74 20 63 6f 6d 6d 61 6e 64 sqlprint command
4660: 2d 6c 69 6e 65 20 6f 70 74 69 6f 6e 20 69 73 20 -line option is
4670: 74 75 72 6e 65 64 20 6f 6e 2e 0a 2a 2f 0a 73 74 turned on..*/.st
4680: 61 74 69 63 20 76 6f 69 64 20 64 62 5f 73 71 6c atic void db_sql
4690: 5f 70 72 69 6e 74 28 0a 20 20 73 71 6c 69 74 65 _print(. sqlite
46a0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
46b0: 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a xt,. int argc,.
46c0: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
46d0: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 **argv.){. int
46e0: 69 3b 0a 20 20 69 66 28 20 67 2e 66 53 71 6c 50 i;. if( g.fSqlP
46f0: 72 69 6e 74 20 29 7b 0a 20 20 20 20 66 6f 72 28 rint ){. for(
4700: 69 3d 30 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b i=0; i<argc; i++
4710: 29 7b 0a 20 20 20 20 20 20 63 68 61 72 20 63 20 ){. char c
4720: 3d 20 69 3d 3d 61 72 67 63 2d 31 20 3f 20 27 5c = i==argc-1 ? '\
4730: 6e 27 20 3a 20 27 20 27 3b 0a 20 20 20 20 20 20 n' : ' ';.
4740: 70 72 69 6e 74 66 28 22 25 73 25 63 22 2c 20 73 printf("%s%c", s
4750: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
4760: 74 28 61 72 67 76 5b 69 5d 29 2c 20 63 29 3b 0a t(argv[i]), c);.
4770: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 73 74 61 74 }. }.}.stat
4780: 69 63 20 76 6f 69 64 20 64 62 5f 73 71 6c 5f 74 ic void db_sql_t
4790: 72 61 63 65 28 76 6f 69 64 20 2a 6e 6f 74 55 73 race(void *notUs
47a0: 65 64 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ed, const char *
47b0: 7a 53 71 6c 29 7b 0a 20 20 70 72 69 6e 74 66 28 zSql){. printf(
47c0: 22 25 73 5c 6e 22 2c 20 7a 53 71 6c 29 3b 0a 7d "%s\n", zSql);.}
47d0: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e ../*.** This fun
47e0: 63 74 69 6f 6e 20 72 65 67 69 73 74 65 72 73 20 ction registers
47f0: 61 75 78 69 6c 69 61 72 79 20 66 75 6e 63 74 69 auxiliary functi
4800: 6f 6e 73 20 77 68 65 6e 20 74 68 65 20 53 51 4c ons when the SQL
4810: 69 74 65 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 ite.** database
4820: 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 66 69 connection is fi
4830: 72 73 74 20 65 73 74 61 62 6c 69 73 68 65 64 2e rst established.
4840: 0a 2a 2f 0a 4c 4f 43 41 4c 20 76 6f 69 64 20 64 .*/.LOCAL void d
4850: 62 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 69 6e 69 b_connection_ini
4860: 74 28 76 6f 69 64 29 7b 0a 20 20 73 74 61 74 69 t(void){. stati
4870: 63 20 69 6e 74 20 6f 6e 63 65 20 3d 20 31 3b 0a c int once = 1;.
4880: 20 20 69 66 28 20 6f 6e 63 65 20 29 7b 0a 20 20 if( once ){.
4890: 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 sqlite3_create
48a0: 5f 66 75 6e 63 74 69 6f 6e 28 67 2e 64 62 2c 20 _function(g.db,
48b0: 22 70 72 69 6e 74 22 2c 20 2d 31 2c 20 53 51 4c "print", -1, SQL
48c0: 49 54 45 5f 55 54 46 38 2c 20 30 2c 64 62 5f 73 ITE_UTF8, 0,db_s
48d0: 71 6c 5f 70 72 69 6e 74 2c 30 2c 30 29 3b 0a 20 ql_print,0,0);.
48e0: 20 20 20 69 66 28 20 67 2e 66 53 71 6c 54 72 61 if( g.fSqlTra
48f0: 63 65 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 ce ){. sqli
4900: 74 65 33 5f 74 72 61 63 65 28 67 2e 64 62 2c 20 te3_trace(g.db,
4910: 64 62 5f 73 71 6c 5f 74 72 61 63 65 2c 20 30 29 db_sql_trace, 0)
4920: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6f 6e 63 65 ;. }. once
4930: 20 3d 20 30 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a = 0;. }.}../*.
4940: 2a 2a 20 47 65 74 20 61 6e 64 20 73 65 74 20 76 ** Get and set v
4950: 61 6c 75 65 73 20 66 72 6f 6d 20 74 68 65 20 43 alues from the C
4960: 4f 4e 46 49 47 2c 20 47 4c 4f 42 41 4c 5f 43 4f ONFIG, GLOBAL_CO
4970: 4e 46 49 47 20 61 6e 64 20 56 56 41 52 20 74 61 NFIG and VVAR ta
4980: 62 6c 65 20 69 6e 20 74 68 65 0a 2a 2a 20 72 65 ble in the.** re
4990: 70 6f 73 69 74 6f 72 79 20 61 6e 64 20 6c 6f 63 pository and loc
49a0: 61 6c 20 64 61 74 61 62 61 73 65 73 2e 0a 2a 2f al databases..*/
49b0: 0a 63 68 61 72 20 2a 64 62 5f 67 65 74 28 63 6f .char *db_get(co
49c0: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c nst char *zName,
49d0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 65 const char *zDe
49e0: 66 61 75 6c 74 29 7b 0a 20 20 72 65 74 75 72 6e fault){. return
49f0: 20 64 62 5f 74 65 78 74 28 28 63 68 61 72 2a 29 db_text((char*)
4a00: 7a 44 65 66 61 75 6c 74 2c 20 0a 20 20 20 20 20 zDefault, .
4a10: 20 20 20 20 20 20 20 20 20 20 20 20 22 53 45 4c "SEL
4a20: 45 43 54 20 76 61 6c 75 65 20 46 52 4f 4d 20 63 ECT value FROM c
4a30: 6f 6e 66 69 67 20 57 48 45 52 45 20 6e 61 6d 65 onfig WHERE name
4a40: 3d 25 51 22 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a =%Q", zName);.}.
4a50: 76 6f 69 64 20 64 62 5f 73 65 74 28 63 6f 6e 73 void db_set(cons
4a60: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 t char *zName, c
4a70: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 onst char *zValu
4a80: 65 29 7b 0a 20 20 64 62 5f 6d 75 6c 74 69 5f 65 e){. db_multi_e
4a90: 78 65 63 28 22 52 45 50 4c 41 43 45 20 49 4e 54 xec("REPLACE INT
4aa0: 4f 20 63 6f 6e 66 69 67 28 6e 61 6d 65 2c 76 61 O config(name,va
4ab0: 6c 75 65 29 20 56 41 4c 55 45 53 28 25 51 2c 25 lue) VALUES(%Q,%
4ac0: 51 29 22 2c 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c Q)", zName, zVal
4ad0: 75 65 29 3b 0a 7d 0a 69 6e 74 20 64 62 5f 67 65 ue);.}.int db_ge
4ae0: 74 5f 69 6e 74 28 63 6f 6e 73 74 20 63 68 61 72 t_int(const char
4af0: 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 64 66 6c *zName, int dfl
4b00: 74 29 7b 0a 20 20 72 65 74 75 72 6e 20 64 62 5f t){. return db_
4b10: 69 6e 74 28 64 66 6c 74 2c 20 22 53 45 4c 45 43 int(dflt, "SELEC
4b20: 54 20 76 61 6c 75 65 20 46 52 4f 4d 20 63 6f 6e T value FROM con
4b30: 66 69 67 20 57 48 45 52 45 20 6e 61 6d 65 3d 25 fig WHERE name=%
4b40: 51 22 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 76 6f Q", zName);.}.vo
4b50: 69 64 20 64 62 5f 73 65 74 5f 69 6e 74 28 63 6f id db_set_int(co
4b60: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c nst char *zName,
4b70: 20 69 6e 74 20 76 61 6c 75 65 29 7b 0a 20 20 64 int value){. d
4b80: 62 5f 6d 75 6c 74 69 5f 65 78 65 63 28 22 52 45 b_multi_exec("RE
4b90: 50 4c 41 43 45 20 49 4e 54 4f 20 63 6f 6e 66 69 PLACE INTO confi
4ba0: 67 28 6e 61 6d 65 2c 76 61 6c 75 65 29 20 56 41 g(name,value) VA
4bb0: 4c 55 45 53 28 25 51 2c 25 64 29 22 2c 20 7a 4e LUES(%Q,%d)", zN
4bc0: 61 6d 65 2c 20 76 61 6c 75 65 29 3b 0a 7d 0a 63 ame, value);.}.c
4bd0: 68 61 72 20 2a 64 62 5f 67 6c 6f 62 61 6c 5f 67 har *db_global_g
4be0: 65 74 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a et(const char *z
4bf0: 4e 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 Name, const char
4c00: 20 2a 7a 44 65 66 61 75 6c 74 29 7b 0a 20 20 72 *zDefault){. r
4c10: 65 74 75 72 6e 20 64 62 5f 74 65 78 74 28 28 63 eturn db_text((c
4c20: 68 61 72 2a 29 7a 44 65 66 61 75 6c 74 2c 20 0a har*)zDefault, .
4c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4c40: 20 22 53 45 4c 45 43 54 20 76 61 6c 75 65 20 46 "SELECT value F
4c50: 52 4f 4d 20 67 6c 6f 62 61 6c 5f 63 6f 6e 66 69 ROM global_confi
4c60: 67 20 57 48 45 52 45 20 6e 61 6d 65 3d 25 51 22 g WHERE name=%Q"
4c70: 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 76 6f 69 64 , zName);.}.void
4c80: 20 64 62 5f 67 6c 6f 62 61 6c 5f 73 65 74 28 63 db_global_set(c
4c90: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 onst char *zName
4ca0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 , const char *zV
4cb0: 61 6c 75 65 29 7b 0a 20 20 64 62 5f 6d 75 6c 74 alue){. db_mult
4cc0: 69 5f 65 78 65 63 28 22 52 45 50 4c 41 43 45 20 i_exec("REPLACE
4cd0: 49 4e 54 4f 20 67 6c 6f 62 61 6c 5f 63 6f 6e 66 INTO global_conf
4ce0: 69 67 28 6e 61 6d 65 2c 76 61 6c 75 65 29 22 0a ig(name,value)".
4cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4d00: 22 56 41 4c 55 45 53 28 25 51 2c 25 51 29 22 2c "VALUES(%Q,%Q)",
4d10: 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 65 29 3b zName, zValue);
4d20: 0a 7d 0a 63 68 61 72 20 2a 64 62 5f 6c 67 65 74 .}.char *db_lget
4d30: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 (const char *zNa
4d40: 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a me, const char *
4d50: 7a 44 65 66 61 75 6c 74 29 7b 0a 20 20 72 65 74 zDefault){. ret
4d60: 75 72 6e 20 64 62 5f 74 65 78 74 28 28 63 68 61 urn db_text((cha
4d70: 72 2a 29 7a 44 65 66 61 75 6c 74 2c 20 0a 20 20 r*)zDefault, .
4d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
4d90: 53 45 4c 45 43 54 20 76 61 6c 75 65 20 46 52 4f SELECT value FRO
4da0: 4d 20 76 76 61 72 20 57 48 45 52 45 20 6e 61 6d M vvar WHERE nam
4db0: 65 3d 25 51 22 2c 20 7a 4e 61 6d 65 29 3b 0a 7d e=%Q", zName);.}
4dc0: 0a 76 6f 69 64 20 64 62 5f 6c 73 65 74 28 63 6f .void db_lset(co
4dd0: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c nst char *zName,
4de0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 const char *zVa
4df0: 6c 75 65 29 7b 0a 20 20 64 62 5f 6d 75 6c 74 69 lue){. db_multi
4e00: 5f 65 78 65 63 28 22 52 45 50 4c 41 43 45 20 49 _exec("REPLACE I
4e10: 4e 54 4f 20 76 76 61 72 28 6e 61 6d 65 2c 76 61 NTO vvar(name,va
4e20: 6c 75 65 29 20 56 41 4c 55 45 53 28 25 51 2c 25 lue) VALUES(%Q,%
4e30: 51 29 22 2c 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c Q)", zName, zVal
4e40: 75 65 29 3b 0a 7d 0a 69 6e 74 20 64 62 5f 6c 67 ue);.}.int db_lg
4e50: 65 74 5f 69 6e 74 28 63 6f 6e 73 74 20 63 68 61 et_int(const cha
4e60: 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 64 66 r *zName, int df
4e70: 6c 74 29 7b 0a 20 20 72 65 74 75 72 6e 20 64 62 lt){. return db
4e80: 5f 69 6e 74 28 64 66 6c 74 2c 20 22 53 45 4c 45 _int(dflt, "SELE
4e90: 43 54 20 76 61 6c 75 65 20 46 52 4f 4d 20 76 76 CT value FROM vv
4ea0: 61 72 20 57 48 45 52 45 20 6e 61 6d 65 3d 25 51 ar WHERE name=%Q
4eb0: 22 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 76 6f 69 ", zName);.}.voi
4ec0: 64 20 64 62 5f 6c 73 65 74 5f 69 6e 74 28 63 6f d db_lset_int(co
4ed0: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c nst char *zName,
4ee0: 20 69 6e 74 20 76 61 6c 75 65 29 7b 0a 20 20 64 int value){. d
4ef0: 62 5f 6d 75 6c 74 69 5f 65 78 65 63 28 22 52 45 b_multi_exec("RE
4f00: 50 4c 41 43 45 20 49 4e 54 4f 20 76 76 61 72 28 PLACE INTO vvar(
4f10: 6e 61 6d 65 2c 76 61 6c 75 65 29 20 56 41 4c 55 name,value) VALU
4f20: 45 53 28 25 51 2c 25 64 29 22 2c 20 7a 4e 61 6d ES(%Q,%d)", zNam
4f30: 65 2c 20 76 61 6c 75 65 29 3b 0a 7d 0a 0a 69 6e e, value);.}..in
4f40: 74 20 64 62 5f 72 6f 77 5f 74 6f 5f 74 61 62 6c t db_row_to_tabl
4f50: 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 e(const char *zF
4f60: 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 53 ormat, ...){. S
4f70: 74 6d 74 20 71 3b 0a 20 20 76 61 5f 6c 69 73 74 tmt q;. va_list
4f80: 20 61 70 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a ap;. int rc;..
4f90: 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a va_start(ap, z
4fa0: 46 6f 72 6d 61 74 29 3b 0a 20 20 72 63 20 3d 20 Format);. rc =
4fb0: 64 62 5f 76 70 72 65 70 61 72 65 28 26 71 2c 20 db_vprepare(&q,
4fc0: 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 zFormat, ap);.
4fd0: 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 69 66 va_end(ap);. if
4fe0: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc!=SQLITE_OK
4ff0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 63 ){. return rc
5000: 3b 0a 20 20 7d 0a 0a 20 20 40 20 3c 74 61 62 6c ;. }.. @ <tabl
5010: 65 20 62 6f 72 64 65 72 3d 22 30 22 20 63 65 6c e border="0" cel
5020: 6c 70 61 64 64 69 6e 67 3d 22 30 22 20 63 65 6c lpadding="0" cel
5030: 6c 73 70 61 63 69 6e 67 3d 22 30 22 3e 0a 20 20 lspacing="0">.
5040: 69 66 28 20 64 62 5f 73 74 65 70 28 26 71 29 3d if( db_step(&q)=
5050: 3d 53 51 4c 49 54 45 5f 52 4f 57 20 29 7b 0a 20 =SQLITE_ROW ){.
5060: 20 20 20 69 6e 74 20 69 69 3b 0a 20 20 20 20 66 int ii;. f
5070: 6f 72 28 69 69 3d 30 3b 20 69 69 3c 73 71 6c 69 or(ii=0; ii<sqli
5080: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 63 6f 75 6e 74 te3_column_count
5090: 28 71 2e 70 53 74 6d 74 29 3b 20 69 69 2b 2b 29 (q.pStmt); ii++)
50a0: 7b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 43 {. char *zC
50b0: 6f 6c 20 3d 20 68 74 6d 6c 69 7a 65 28 73 71 6c ol = htmlize(sql
50c0: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 ite3_column_name
50d0: 28 71 2e 70 53 74 6d 74 2c 20 69 69 29 2c 20 2d (q.pStmt, ii), -
50e0: 31 29 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 1);. char *
50f0: 7a 56 61 6c 20 3d 20 68 74 6d 6c 69 7a 65 28 73 zVal = htmlize(s
5100: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 qlite3_column_te
5110: 78 74 28 71 2e 70 53 74 6d 74 2c 20 69 69 29 2c xt(q.pStmt, ii),
5120: 20 2d 31 29 3b 0a 0a 20 20 20 20 20 20 40 20 3c -1);.. @ <
5130: 74 72 3e 3c 74 64 20 61 6c 69 67 6e 3d 72 69 67 tr><td align=rig
5140: 68 74 3e 25 73 28 7a 43 6f 6c 29 3a 3c 74 64 20 ht>%s(zCol):<td
5150: 77 69 64 74 68 3d 31 30 3e 3c 74 64 3e 25 73 28 width=10><td>%s(
5160: 7a 56 61 6c 29 0a 0a 20 20 20 20 20 20 66 72 65 zVal).. fre
5170: 65 28 7a 56 61 6c 29 3b 0a 20 20 20 20 20 20 66 e(zVal);. f
5180: 72 65 65 28 7a 43 6f 6c 29 3b 0a 20 20 20 20 7d ree(zCol);. }
5190: 0a 20 20 7d 0a 20 20 40 20 3c 2f 74 61 62 6c 65 . }. @ </table
51a0: 3e 0a 0a 20 20 72 65 74 75 72 6e 20 64 62 5f 66 >.. return db_f
51b0: 69 6e 61 6c 69 7a 65 28 26 71 29 3b 0a 7d 0a 0a inalize(&q);.}..
51c0: 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20 ./*.** COMMAND:
51d0: 6f 70 65 6e 0a 2a 2a 0a 2a 2a 20 43 72 65 61 74 open.**.** Creat
51e0: 65 20 61 20 6e 65 77 20 6c 6f 63 61 6c 20 72 65 e a new local re
51f0: 70 6f 73 69 74 6f 72 79 2e 0a 2a 2f 0a 76 6f 69 pository..*/.voi
5200: 64 20 63 6d 64 5f 6f 70 65 6e 28 76 6f 69 64 29 d cmd_open(void)
5210: 7b 0a 20 20 42 6c 6f 62 20 70 61 74 68 3b 0a 20 {. Blob path;.
5220: 20 69 66 28 20 67 2e 61 72 67 63 21 3d 33 20 29 if( g.argc!=3 )
5230: 7b 0a 20 20 20 20 75 73 61 67 65 28 22 52 45 50 {. usage("REP
5240: 4f 53 49 54 4f 52 59 2d 46 49 4c 45 4e 41 4d 45 OSITORY-FILENAME
5250: 22 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 64 62 ");. }. if( db
5260: 5f 6f 70 65 6e 5f 6c 6f 63 61 6c 28 29 20 29 7b _open_local() ){
5270: 0a 20 20 20 20 66 6f 73 73 69 6c 5f 70 61 6e 69 . fossil_pani
5280: 63 28 22 61 6c 72 65 61 64 79 20 77 69 74 68 69 c("already withi
5290: 6e 20 61 6e 20 6f 70 65 6e 20 74 72 65 65 20 72 n an open tree r
52a0: 6f 6f 74 65 64 20 61 74 20 25 73 22 2c 20 67 2e ooted at %s", g.
52b0: 7a 4c 6f 63 61 6c 52 6f 6f 74 29 3b 0a 20 20 7d zLocalRoot);. }
52c0: 0a 20 20 66 69 6c 65 5f 63 61 6e 6f 6e 69 63 61 . file_canonica
52d0: 6c 5f 6e 61 6d 65 28 67 2e 61 72 67 76 5b 32 5d l_name(g.argv[2]
52e0: 2c 20 26 70 61 74 68 29 3b 0a 20 20 64 62 5f 6f , &path);. db_o
52f0: 70 65 6e 5f 72 65 70 6f 73 69 74 6f 72 79 28 62 pen_repository(b
5300: 6c 6f 62 5f 73 74 72 28 26 70 61 74 68 29 29 3b lob_str(&path));
5310: 0a 20 20 64 62 5f 69 6e 69 74 5f 64 61 74 61 62 . db_init_datab
5320: 61 73 65 28 22 2e 2f 5f 46 4f 53 53 49 4c 5f 22 ase("./_FOSSIL_"
5330: 2c 20 7a 4c 6f 63 61 6c 53 63 68 65 6d 61 2c 20 , zLocalSchema,
5340: 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 64 62 5f (char*)0);. db_
5350: 6f 70 65 6e 5f 6c 6f 63 61 6c 28 29 3b 0a 20 20 open_local();.
5360: 64 62 5f 6c 73 65 74 28 22 72 65 70 6f 73 69 74 db_lset("reposit
5370: 6f 72 79 22 2c 20 62 6c 6f 62 5f 73 74 72 28 26 ory", blob_str(&
5380: 70 61 74 68 29 29 3b 0a 20 20 64 62 5f 6c 73 65 path));. db_lse
5390: 74 5f 69 6e 74 28 22 63 68 65 63 6b 6f 75 74 22 t_int("checkout"
53a0: 2c 20 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 , 1);.}../*.** C
53b0: 4f 4d 4d 41 4e 44 3a 20 63 6f 6e 66 69 67 0a 2a OMMAND: config.*
53c0: 2a 0a 2a 2a 20 4c 69 73 74 20 6f 72 20 63 68 61 *.** List or cha
53d0: 6e 67 65 20 74 68 65 20 67 6c 6f 62 61 6c 20 63 nge the global c
53e0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 73 65 74 onfiguration set
53f0: 74 69 6e 67 73 2e 0a 2a 2f 0a 76 6f 69 64 20 63 tings..*/.void c
5400: 6d 64 5f 63 6f 6e 66 69 67 28 76 6f 69 64 29 7b md_config(void){
5410: 0a 20 20 64 62 5f 6f 70 65 6e 5f 63 6f 6e 66 69 . db_open_confi
5420: 67 28 29 3b 0a 20 20 69 66 28 20 67 2e 61 72 67 g();. if( g.arg
5430: 63 3e 32 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 c>2 ){. int i
5440: 3b 0a 20 20 20 20 64 62 5f 62 65 67 69 6e 5f 74 ;. db_begin_t
5450: 72 61 6e 73 61 63 74 69 6f 6e 28 29 3b 0a 20 20 ransaction();.
5460: 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67 2e 61 for(i=2; i<g.a
5470: 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 rgc; i++){.
5480: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 2a 7a char *zName, *z
5490: 56 61 6c 75 65 3b 0a 20 20 20 20 20 20 69 6e 74 Value;. int
54a0: 20 6a 3b 0a 0a 20 20 20 20 20 20 7a 4e 61 6d 65 j;.. zName
54b0: 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 22 2c = mprintf("%s",
54c0: 20 67 2e 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 g.argv[i]);.
54d0: 20 20 20 66 6f 72 28 6a 3d 30 3b 20 7a 4e 61 6d for(j=0; zNam
54e0: 65 5b 6a 5d 20 26 26 20 7a 4e 61 6d 65 5b 6a 5d e[j] && zName[j]
54f0: 21 3d 27 3d 27 3b 20 6a 2b 2b 29 7b 7d 0a 20 20 !='='; j++){}.
5500: 20 20 20 20 69 66 28 20 7a 4e 61 6d 65 5b 6a 5d if( zName[j]
5510: 20 29 7b 0a 20 20 20 20 20 20 20 20 7a 4e 61 6d ){. zNam
5520: 65 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 e[j] = 0;.
5530: 20 20 7a 56 61 6c 75 65 20 3d 20 26 7a 4e 61 6d zValue = &zNam
5540: 65 5b 6a 2b 31 5d 3b 0a 20 20 20 20 20 20 20 20 e[j+1];.
5550: 69 66 28 20 7a 56 61 6c 75 65 5b 30 5d 20 29 7b if( zValue[0] ){
5560: 0a 20 20 20 20 20 20 20 20 20 20 64 62 5f 67 6c . db_gl
5570: 6f 62 61 6c 5f 73 65 74 28 7a 4e 61 6d 65 2c 20 obal_set(zName,
5580: 7a 56 61 6c 75 65 29 3b 0a 20 20 20 20 20 20 20 zValue);.
5590: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 }else{.
55a0: 20 20 64 62 5f 6d 75 6c 74 69 5f 65 78 65 63 28 db_multi_exec(
55b0: 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 67 6c 6f "DELETE FROM glo
55c0: 62 61 6c 5f 63 6f 6e 66 69 67 20 57 48 45 52 45 bal_config WHERE
55d0: 20 6e 61 6d 65 3d 25 51 22 2c 20 7a 4e 61 6d 65 name=%Q", zName
55e0: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 );. }.
55f0: 20 20 20 7d 0a 20 20 20 20 20 20 7a 56 61 6c 75 }. zValu
5600: 65 20 3d 20 64 62 5f 67 6c 6f 62 61 6c 5f 67 65 e = db_global_ge
5610: 74 28 7a 4e 61 6d 65 2c 20 30 29 3b 0a 20 20 20 t(zName, 0);.
5620: 20 20 20 69 66 28 20 7a 56 61 6c 75 65 20 29 7b if( zValue ){
5630: 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 66 28 . printf(
5640: 22 25 73 3d 25 73 5c 6e 22 2c 20 7a 4e 61 6d 65 "%s=%s\n", zName
5650: 2c 20 7a 56 61 6c 75 65 29 3b 0a 20 20 20 20 20 , zValue);.
5660: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 }else{.
5670: 70 72 69 6e 74 66 28 22 25 73 20 69 73 20 75 6e printf("%s is un
5680: 64 65 66 69 6e 65 64 5c 6e 22 2c 20 7a 4e 61 6d defined\n", zNam
5690: 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 e);. }.
56a0: 7d 0a 20 20 20 20 64 62 5f 65 6e 64 5f 74 72 61 }. db_end_tra
56b0: 6e 73 61 63 74 69 6f 6e 28 30 29 3b 0a 20 20 7d nsaction(0);. }
56c0: 65 6c 73 65 7b 0a 20 20 20 20 53 74 6d 74 20 71 else{. Stmt q
56d0: 3b 0a 20 20 20 20 64 62 5f 70 72 65 70 61 72 65 ;. db_prepare
56e0: 28 26 71 2c 20 22 53 45 4c 45 43 54 20 6e 61 6d (&q, "SELECT nam
56f0: 65 2c 20 76 61 6c 75 65 20 46 52 4f 4d 20 67 6c e, value FROM gl
5700: 6f 62 61 6c 5f 63 6f 6e 66 69 67 20 4f 52 44 45 obal_config ORDE
5710: 52 20 42 59 20 6e 61 6d 65 22 29 3b 0a 20 20 20 R BY name");.
5720: 20 77 68 69 6c 65 28 20 64 62 5f 73 74 65 70 28 while( db_step(
5730: 26 71 29 3d 3d 53 51 4c 49 54 45 5f 52 4f 57 20 &q)==SQLITE_ROW
5740: 29 7b 0a 20 20 20 20 20 20 70 72 69 6e 74 66 28 ){. printf(
5750: 22 25 73 3d 25 73 5c 6e 22 2c 20 64 62 5f 63 6f "%s=%s\n", db_co
5760: 6c 75 6d 6e 5f 74 65 78 74 28 26 71 2c 20 30 29 lumn_text(&q, 0)
5770: 2c 20 64 62 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 , db_column_text
5780: 28 26 71 2c 20 31 29 29 3b 0a 20 20 20 20 7d 0a (&q, 1));. }.
5790: 20 20 20 20 64 62 5f 66 69 6e 61 6c 69 7a 65 28 db_finalize(
57a0: 26 71 29 3b 0a 20 20 7d 0a 7d 0a &q);. }.}.