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