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 0a 2a 2a 20 41 20 42 6c 6f 62 20 69 73 .**.** A Blob is
0370: 20 61 20 76 61 72 69 61 62 6c 65 2d 6c 65 6e 67 a variable-leng
0380: 74 68 20 63 6f 6e 74 61 69 6e 65 72 73 20 66 6f th containers fo
0390: 72 20 61 72 62 69 74 72 61 72 79 20 73 74 72 69 r arbitrary stri
03a0: 6e 67 0a 2a 2a 20 6f 72 20 62 69 6e 61 72 79 20 ng.** or binary
03b0: 64 61 74 61 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 data..*/.#includ
03c0: 65 20 22 63 6f 6e 66 69 67 2e 68 22 0a 23 69 6e e "config.h".#in
03d0: 63 6c 75 64 65 20 3c 7a 6c 69 62 2e 68 3e 0a 23 clude <zlib.h>.#
03e0: 69 6e 63 6c 75 64 65 20 22 62 6c 6f 62 2e 68 22 include "blob.h"
03f0: 0a 0a 23 69 66 20 49 4e 54 45 52 46 41 43 45 0a ..#if INTERFACE.
0400: 2f 2a 0a 2a 2a 20 41 20 42 6c 6f 62 20 63 61 6e /*.** A Blob can
0410: 20 68 6f 6c 64 20 61 20 73 74 72 69 6e 67 20 6f hold a string o
0420: 72 20 61 20 62 69 6e 61 72 79 20 6f 62 6a 65 63 r a binary objec
0430: 74 20 6f 66 20 61 72 62 69 74 72 61 72 79 20 73 t of arbitrary s
0440: 69 7a 65 2e 20 20 54 68 65 0a 2a 2a 20 73 69 7a ize. The.** siz
0450: 65 20 63 68 61 6e 67 65 73 20 61 73 20 6e 65 63 e changes as nec
0460: 65 73 73 61 72 79 2e 0a 2a 2f 0a 73 74 72 75 63 essary..*/.struc
0470: 74 20 42 6c 6f 62 20 7b 0a 20 20 75 6e 73 69 67 t Blob {. unsig
0480: 6e 65 64 20 69 6e 74 20 6e 55 73 65 64 3b 20 20 ned int nUsed;
0490: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
04a0: 62 65 72 20 6f 66 20 62 79 74 65 73 20 75 73 65 ber of bytes use
04b0: 64 20 69 6e 20 61 44 61 74 61 5b 5d 20 2a 2f 0a d in aData[] */.
04c0: 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 6e unsigned int n
04d0: 41 6c 6c 6f 63 3b 20 20 20 20 20 20 20 20 20 20 Alloc;
04e0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 /* Number of by
04f0: 74 65 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f tes allocated fo
0500: 72 20 61 44 61 74 61 5b 5d 20 2a 2f 0a 20 20 75 r aData[] */. u
0510: 6e 73 69 67 6e 65 64 20 69 6e 74 20 69 43 75 72 nsigned int iCur
0520: 73 6f 72 3b 20 20 20 20 20 20 20 20 20 20 2f 2a sor; /*
0530: 20 4e 65 78 74 20 63 68 61 72 61 63 74 65 72 20 Next character
0540: 6f 66 20 69 6e 70 75 74 20 74 6f 20 70 61 72 73 of input to pars
0550: 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 61 44 61 e */. char *aDa
0560: 74 61 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ta;
0570: 20 20 20 20 20 20 2f 2a 20 57 68 65 72 65 20 74 /* Where t
0580: 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 he information i
0590: 73 20 73 74 6f 72 65 64 20 2a 2f 0a 20 20 76 6f s stored */. vo
05a0: 69 64 20 28 2a 78 52 65 61 6c 6c 6f 63 29 28 42 id (*xRealloc)(B
05b0: 6c 6f 62 2a 2c 20 75 6e 73 69 67 6e 65 64 20 69 lob*, unsigned i
05c0: 6e 74 29 3b 20 2f 2a 20 46 75 6e 63 74 69 6f 6e nt); /* Function
05d0: 20 74 6f 20 72 65 61 6c 6c 6f 63 61 74 65 20 74 to reallocate t
05e0: 68 65 20 62 75 66 66 65 72 20 2a 2f 0a 7d 3b 0a he buffer */.};.
05f0: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 63 75 72 72 65 ./*.** The curre
0600: 6e 74 20 73 69 7a 65 20 6f 66 20 61 20 42 6c 6f nt size of a Blo
0610: 62 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 62 6c 6f b.*/.#define blo
0620: 62 5f 73 69 7a 65 28 58 29 20 20 28 28 58 29 2d b_size(X) ((X)-
0630: 3e 6e 55 73 65 64 29 0a 0a 2f 2a 0a 2a 2a 20 54 >nUsed)../*.** T
0640: 68 65 20 62 75 66 66 65 72 20 68 6f 6c 64 69 6e he buffer holdin
0650: 67 20 74 68 65 20 62 6c 6f 62 20 64 61 74 61 0a g the blob data.
0660: 2a 2f 0a 23 64 65 66 69 6e 65 20 62 6c 6f 62 5f */.#define blob_
0670: 62 75 66 66 65 72 28 58 29 20 20 28 28 58 29 2d buffer(X) ((X)-
0680: 3e 61 44 61 74 61 29 0a 0a 2f 2a 0a 2a 2a 20 53 >aData)../*.** S
0690: 65 65 6b 20 77 68 65 6e 63 65 20 70 61 72 61 6d eek whence param
06a0: 65 74 65 72 20 76 61 6c 75 65 73 0a 2a 2f 0a 23 eter values.*/.#
06b0: 64 65 66 69 6e 65 20 42 4c 4f 42 5f 53 45 45 4b define BLOB_SEEK
06c0: 5f 53 45 54 20 31 0a 23 64 65 66 69 6e 65 20 42 _SET 1.#define B
06d0: 4c 4f 42 5f 53 45 45 4b 5f 43 55 52 20 32 0a 23 LOB_SEEK_CUR 2.#
06e0: 64 65 66 69 6e 65 20 42 4c 4f 42 5f 53 45 45 4b define BLOB_SEEK
06f0: 5f 45 4e 44 20 33 0a 0a 23 65 6e 64 69 66 20 2f _END 3..#endif /
0700: 2a 20 49 4e 54 45 52 46 41 43 45 20 2a 2f 0a 0a * INTERFACE */..
0710: 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 73 75 72 65 20 /*.** Make sure
0720: 61 20 62 6c 6f 62 20 69 73 20 69 6e 69 74 69 61 a blob is initia
0730: 6c 69 7a 65 64 0a 2a 2f 0a 23 64 65 66 69 6e 65 lized.*/.#define
0740: 20 62 6c 6f 62 5f 69 73 5f 69 6e 69 74 28 78 29 blob_is_init(x)
0750: 20 5c 0a 20 20 61 73 73 65 72 74 28 28 78 29 2d \. assert((x)-
0760: 3e 78 52 65 61 6c 6c 6f 63 3d 3d 62 6c 6f 62 52 >xRealloc==blobR
0770: 65 61 6c 6c 6f 63 4d 61 6c 6c 6f 63 20 7c 7c 20 eallocMalloc ||
0780: 28 78 29 2d 3e 78 52 65 61 6c 6c 6f 63 3d 3d 62 (x)->xRealloc==b
0790: 6c 6f 62 52 65 61 6c 6c 6f 63 53 74 61 74 69 63 lobReallocStatic
07a0: 29 0a 0a 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 73 75 )../*.** Make su
07b0: 72 65 20 61 20 62 6c 6f 62 20 64 6f 65 73 20 6e re a blob does n
07c0: 6f 74 20 63 6f 6e 74 61 69 6e 20 6d 61 6c 6c 6f ot contain mallo
07d0: 63 65 64 20 6d 65 6d 6f 72 79 2e 0a 2a 2f 0a 23 ced memory..*/.#
07e0: 69 66 20 30 20 20 2f 2a 20 45 6e 61 62 6c 65 20 if 0 /* Enable
07f0: 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 6f 6e for debugging on
0800: 6c 79 20 2a 2f 0a 23 64 65 66 69 6e 65 20 62 6c ly */.#define bl
0810: 6f 62 5f 69 73 5f 72 65 73 65 74 28 78 29 20 5c ob_is_reset(x) \
0820: 0a 20 20 61 73 73 65 72 74 28 28 78 29 2d 3e 78 . assert((x)->x
0830: 52 65 61 6c 6c 6f 63 21 3d 62 6c 6f 62 52 65 61 Realloc!=blobRea
0840: 6c 6c 6f 63 4d 61 6c 6c 6f 63 20 7c 7c 20 28 78 llocMalloc || (x
0850: 29 2d 3e 6e 41 6c 6c 6f 63 3d 3d 30 29 0a 23 65 )->nAlloc==0).#e
0860: 6c 73 65 0a 23 64 65 66 69 6e 65 20 62 6c 6f 62 lse.#define blob
0870: 5f 69 73 5f 72 65 73 65 74 28 78 29 0a 23 65 6e _is_reset(x).#en
0880: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 dif../*.** This
0890: 72 6f 75 74 69 6e 65 20 69 73 20 63 61 6c 6c 65 routine is calle
08a0: 64 20 69 66 20 61 20 62 6c 6f 62 20 6f 70 65 72 d if a blob oper
08b0: 61 74 69 6f 6e 20 66 61 69 6c 73 20 62 65 63 61 ation fails beca
08c0: 75 73 65 20 77 65 0a 2a 2a 20 68 61 76 65 20 72 use we.** have r
08d0: 75 6e 20 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 un out of memory
08e0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
08f0: 20 62 6c 6f 62 5f 70 61 6e 69 63 28 76 6f 69 64 blob_panic(void
0900: 29 7b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73 ){. static cons
0910: 74 20 63 68 61 72 20 7a 45 72 72 4d 73 67 5b 5d t char zErrMsg[]
0920: 20 3d 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 = "out of memor
0930: 79 5c 6e 22 3b 0a 20 20 77 72 69 74 65 28 32 2c y\n";. write(2,
0940: 20 7a 45 72 72 4d 73 67 2c 20 73 69 7a 65 6f 66 zErrMsg, sizeof
0950: 28 7a 45 72 72 4d 73 67 29 2d 31 29 3b 0a 20 20 (zErrMsg)-1);.
0960: 65 78 69 74 28 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a exit(1);.}../*.*
0970: 2a 20 41 20 72 65 61 6c 6c 6f 63 61 74 69 6f 6e * A reallocation
0980: 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 61 function that a
0990: 73 73 75 6d 65 73 20 74 68 61 74 20 61 44 61 74 ssumes that aDat
09a0: 61 20 63 61 6d 65 20 66 72 6f 6d 20 6d 61 6c 6c a came from mall
09b0: 6f 63 28 29 2e 0a 2a 2a 20 54 68 69 73 20 66 75 oc()..** This fu
09c0: 6e 63 74 69 6f 6e 20 61 74 74 65 6d 70 74 73 20 nction attempts
09d0: 74 6f 20 72 65 73 69 7a 65 20 74 68 65 20 62 75 to resize the bu
09e0: 66 66 65 72 20 6f 66 20 74 68 65 20 62 6c 6f 62 ffer of the blob
09f0: 20 74 6f 20 68 6f 6c 64 0a 2a 2a 20 6e 65 77 53 to hold.** newS
0a00: 69 7a 65 20 62 79 74 65 73 2e 20 20 0a 2a 2a 0a ize bytes. .**.
0a10: 2a 2a 20 4e 6f 20 61 74 74 65 6d 70 74 20 69 73 ** No attempt is
0a20: 20 6d 61 64 65 20 74 6f 20 72 65 63 6f 76 65 72 made to recover
0a30: 20 66 72 6f 6d 20 61 6e 20 6f 75 74 2d 6f 66 2d from an out-of-
0a40: 6d 65 6d 6f 72 79 20 65 72 72 6f 72 2e 0a 2a 2a memory error..**
0a50: 20 49 66 20 61 6e 20 4f 4f 4d 20 65 72 72 6f 72 If an OOM error
0a60: 20 6f 63 63 75 72 73 2c 20 61 6e 20 65 72 72 6f occurs, an erro
0a70: 72 20 6d 65 73 73 61 67 65 20 69 73 20 70 72 69 r message is pri
0a80: 6e 74 65 64 20 6f 6e 20 73 74 64 65 72 72 0a 2a nted on stderr.*
0a90: 2a 20 61 6e 64 20 74 68 65 20 70 72 6f 67 72 61 * and the progra
0aa0: 6d 20 65 78 69 74 73 2e 0a 2a 2f 0a 76 6f 69 64 m exits..*/.void
0ab0: 20 62 6c 6f 62 52 65 61 6c 6c 6f 63 4d 61 6c 6c blobReallocMall
0ac0: 6f 63 28 42 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 oc(Blob *pBlob,
0ad0: 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 6e 65 77 unsigned int new
0ae0: 53 69 7a 65 29 7b 0a 20 20 69 66 28 20 6e 65 77 Size){. if( new
0af0: 53 69 7a 65 3d 3d 30 20 29 7b 0a 20 20 20 20 66 Size==0 ){. f
0b00: 72 65 65 28 70 42 6c 6f 62 2d 3e 61 44 61 74 61 ree(pBlob->aData
0b10: 29 3b 0a 20 20 20 20 70 42 6c 6f 62 2d 3e 61 44 );. pBlob->aD
0b20: 61 74 61 20 3d 20 30 3b 0a 20 20 20 20 70 42 6c ata = 0;. pBl
0b30: 6f 62 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 30 3b 0a ob->nAlloc = 0;.
0b40: 20 20 20 20 70 42 6c 6f 62 2d 3e 6e 55 73 65 64 pBlob->nUsed
0b50: 20 3d 20 30 3b 0a 20 20 20 20 70 42 6c 6f 62 2d = 0;. pBlob-
0b60: 3e 69 43 75 72 73 6f 72 20 3d 20 30 3b 0a 20 20 >iCursor = 0;.
0b70: 7d 65 6c 73 65 20 69 66 28 20 6e 65 77 53 69 7a }else if( newSiz
0b80: 65 3e 70 42 6c 6f 62 2d 3e 6e 41 6c 6c 6f 63 20 e>pBlob->nAlloc
0b90: 7c 7c 20 6e 65 77 53 69 7a 65 3c 70 42 6c 6f 62 || newSize<pBlob
0ba0: 2d 3e 6e 41 6c 6c 6f 63 2d 34 30 30 30 20 29 7b ->nAlloc-4000 ){
0bb0: 0a 20 20 20 20 63 68 61 72 20 2a 70 4e 65 77 20 . char *pNew
0bc0: 3d 20 72 65 61 6c 6c 6f 63 28 70 42 6c 6f 62 2d = realloc(pBlob-
0bd0: 3e 61 44 61 74 61 2c 20 6e 65 77 53 69 7a 65 29 >aData, newSize)
0be0: 3b 0a 20 20 20 20 69 66 28 20 70 4e 65 77 3d 3d ;. if( pNew==
0bf0: 30 20 29 20 62 6c 6f 62 5f 70 61 6e 69 63 28 29 0 ) blob_panic()
0c00: 3b 0a 20 20 20 20 70 42 6c 6f 62 2d 3e 61 44 61 ;. pBlob->aDa
0c10: 74 61 20 3d 20 70 4e 65 77 3b 0a 20 20 20 20 70 ta = pNew;. p
0c20: 42 6c 6f 62 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 6e Blob->nAlloc = n
0c30: 65 77 53 69 7a 65 3b 0a 20 20 20 20 69 66 28 20 ewSize;. if(
0c40: 70 42 6c 6f 62 2d 3e 6e 55 73 65 64 3e 70 42 6c pBlob->nUsed>pBl
0c50: 6f 62 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20 20 ob->nAlloc ){.
0c60: 20 20 20 20 70 42 6c 6f 62 2d 3e 6e 55 73 65 64 pBlob->nUsed
0c70: 20 3d 20 70 42 6c 6f 62 2d 3e 6e 41 6c 6c 6f 63 = pBlob->nAlloc
0c80: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f ;. }. }.}../
0c90: 2a 0a 2a 2a 20 41 6e 20 69 6e 69 74 69 61 6c 69 *.** An initiali
0ca0: 7a 65 72 20 66 6f 72 20 42 6c 6f 62 73 0a 2a 2f zer for Blobs.*/
0cb0: 0a 23 69 66 20 49 4e 54 45 52 46 41 43 45 0a 23 .#if INTERFACE.#
0cc0: 64 65 66 69 6e 65 20 42 4c 4f 42 5f 49 4e 49 54 define BLOB_INIT
0cd0: 49 41 4c 49 5a 45 52 20 20 7b 30 2c 30 2c 30 2c IALIZER {0,0,0,
0ce0: 30 2c 62 6c 6f 62 52 65 61 6c 6c 6f 63 4d 61 6c 0,blobReallocMal
0cf0: 6c 6f 63 7d 0a 23 65 6e 64 69 66 0a 63 6f 6e 73 loc}.#endif.cons
0d00: 74 20 42 6c 6f 62 20 65 6d 70 74 79 5f 62 6c 6f t Blob empty_blo
0d10: 62 20 3d 20 42 4c 4f 42 5f 49 4e 49 54 49 41 4c b = BLOB_INITIAL
0d20: 49 5a 45 52 3b 0a 0a 2f 2a 0a 2a 2a 20 41 20 72 IZER;../*.** A r
0d30: 65 61 6c 6c 6f 63 61 74 69 6f 6e 20 66 75 6e 63 eallocation func
0d40: 74 69 6f 6e 20 66 6f 72 20 77 68 65 6e 20 74 68 tion for when th
0d50: 65 20 69 6e 69 74 69 61 6c 20 73 74 72 69 6e 67 e initial string
0d60: 20 69 73 20 69 6e 20 75 6e 6d 61 6e 61 67 65 64 is in unmanaged
0d70: 0a 2a 2a 20 73 70 61 63 65 2e 20 20 43 6f 70 79 .** space. Copy
0d80: 20 74 68 65 20 73 74 72 69 6e 67 20 74 6f 20 6d the string to m
0d90: 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65 64 20 66 emory obtained f
0da0: 72 6f 6d 20 6d 61 6c 6c 6f 63 28 29 2e 0a 2a 2f rom malloc()..*/
0db0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 62 6c 6f .static void blo
0dc0: 62 52 65 61 6c 6c 6f 63 53 74 61 74 69 63 28 42 bReallocStatic(B
0dd0: 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 75 6e 73 69 lob *pBlob, unsi
0de0: 67 6e 65 64 20 69 6e 74 20 6e 65 77 53 69 7a 65 gned int newSize
0df0: 29 7b 0a 20 20 69 66 28 20 6e 65 77 53 69 7a 65 ){. if( newSize
0e00: 3d 3d 30 20 29 7b 0a 20 20 20 20 2a 70 42 6c 6f ==0 ){. *pBlo
0e10: 62 20 3d 20 65 6d 70 74 79 5f 62 6c 6f 62 3b 0a b = empty_blob;.
0e20: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 63 68 61 }else{. cha
0e30: 72 20 2a 70 4e 65 77 20 3d 20 6d 61 6c 6c 6f 63 r *pNew = malloc
0e40: 28 20 6e 65 77 53 69 7a 65 20 29 3b 0a 20 20 20 ( newSize );.
0e50: 20 69 66 28 20 70 4e 65 77 3d 3d 30 20 29 20 62 if( pNew==0 ) b
0e60: 6c 6f 62 5f 70 61 6e 69 63 28 29 3b 0a 20 20 20 lob_panic();.
0e70: 20 69 66 28 20 70 42 6c 6f 62 2d 3e 6e 55 73 65 if( pBlob->nUse
0e80: 64 3e 6e 65 77 53 69 7a 65 20 29 20 70 42 6c 6f d>newSize ) pBlo
0e90: 62 2d 3e 6e 55 73 65 64 20 3d 20 6e 65 77 53 69 b->nUsed = newSi
0ea0: 7a 65 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 70 ze;. memcpy(p
0eb0: 4e 65 77 2c 20 70 42 6c 6f 62 2d 3e 61 44 61 74 New, pBlob->aDat
0ec0: 61 2c 20 70 42 6c 6f 62 2d 3e 6e 55 73 65 64 29 a, pBlob->nUsed)
0ed0: 3b 0a 20 20 20 20 70 42 6c 6f 62 2d 3e 61 44 61 ;. pBlob->aDa
0ee0: 74 61 20 3d 20 70 4e 65 77 3b 0a 20 20 20 20 70 ta = pNew;. p
0ef0: 42 6c 6f 62 2d 3e 78 52 65 61 6c 6c 6f 63 20 3d Blob->xRealloc =
0f00: 20 62 6c 6f 62 52 65 61 6c 6c 6f 63 4d 61 6c 6c blobReallocMall
0f10: 6f 63 3b 0a 20 20 20 20 70 42 6c 6f 62 2d 3e 6e oc;. pBlob->n
0f20: 41 6c 6c 6f 63 20 3d 20 6e 65 77 53 69 7a 65 3b Alloc = newSize;
0f30: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 . }.}../*.** Re
0f40: 73 65 74 20 61 20 62 6c 6f 62 20 74 6f 20 62 65 set a blob to be
0f50: 20 61 6e 20 65 6d 70 74 79 20 63 6f 6e 74 61 69 an empty contai
0f60: 6e 65 72 2e 0a 2a 2f 0a 76 6f 69 64 20 62 6c 6f ner..*/.void blo
0f70: 62 5f 72 65 73 65 74 28 42 6c 6f 62 20 2a 70 42 b_reset(Blob *pB
0f80: 6c 6f 62 29 7b 0a 20 20 62 6c 6f 62 5f 69 73 5f lob){. blob_is_
0f90: 69 6e 69 74 28 70 42 6c 6f 62 29 3b 0a 20 20 70 init(pBlob);. p
0fa0: 42 6c 6f 62 2d 3e 78 52 65 61 6c 6c 6f 63 28 70 Blob->xRealloc(p
0fb0: 42 6c 6f 62 2c 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a Blob, 0);.}../*.
0fc0: 2a 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 61 20 ** Initialize a
0fd0: 62 6c 6f 62 20 74 6f 20 61 20 73 74 72 69 6e 67 blob to a string
0fe0: 20 6f 72 20 62 79 74 65 2d 61 72 72 61 79 20 63 or byte-array c
0ff0: 6f 6e 73 74 61 6e 74 20 6f 66 20 61 20 73 70 65 onstant of a spe
1000: 63 69 66 69 65 64 20 6c 65 6e 67 74 68 2e 0a 2a cified length..*
1010: 2a 20 41 6e 79 20 70 72 69 6f 72 20 64 61 74 61 * Any prior data
1020: 20 69 6e 20 74 68 65 20 62 6c 6f 62 20 69 73 20 in the blob is
1030: 64 69 73 63 61 72 64 65 64 2e 0a 2a 2f 0a 76 6f discarded..*/.vo
1040: 69 64 20 62 6c 6f 62 5f 69 6e 69 74 28 42 6c 6f id blob_init(Blo
1050: 62 20 2a 70 42 6c 6f 62 2c 20 63 6f 6e 73 74 20 b *pBlob, const
1060: 63 68 61 72 20 2a 7a 44 61 74 61 2c 20 69 6e 74 char *zData, int
1070: 20 73 69 7a 65 29 7b 0a 20 20 62 6c 6f 62 5f 69 size){. blob_i
1080: 73 5f 72 65 73 65 74 28 70 42 6c 6f 62 29 3b 0a s_reset(pBlob);.
1090: 20 20 69 66 28 20 7a 44 61 74 61 3d 3d 30 20 29 if( zData==0 )
10a0: 7b 0a 20 20 20 20 2a 70 42 6c 6f 62 20 3d 20 65 {. *pBlob = e
10b0: 6d 70 74 79 5f 62 6c 6f 62 3b 0a 20 20 7d 65 6c mpty_blob;. }el
10c0: 73 65 7b 0a 20 20 20 20 69 66 28 20 73 69 7a 65 se{. if( size
10d0: 3c 3d 30 20 29 20 73 69 7a 65 20 3d 20 73 74 72 <=0 ) size = str
10e0: 6c 65 6e 28 7a 44 61 74 61 29 3b 0a 20 20 20 20 len(zData);.
10f0: 70 42 6c 6f 62 2d 3e 6e 55 73 65 64 20 3d 20 70 pBlob->nUsed = p
1100: 42 6c 6f 62 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 73 Blob->nAlloc = s
1110: 69 7a 65 3b 0a 20 20 20 20 70 42 6c 6f 62 2d 3e ize;. pBlob->
1120: 61 44 61 74 61 20 3d 20 28 63 68 61 72 2a 29 7a aData = (char*)z
1130: 44 61 74 61 3b 0a 20 20 20 20 70 42 6c 6f 62 2d Data;. pBlob-
1140: 3e 69 43 75 72 73 6f 72 20 3d 20 30 3b 0a 20 20 >iCursor = 0;.
1150: 20 20 70 42 6c 6f 62 2d 3e 78 52 65 61 6c 6c 6f pBlob->xReallo
1160: 63 20 3d 20 62 6c 6f 62 52 65 61 6c 6c 6f 63 53 c = blobReallocS
1170: 74 61 74 69 63 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a tatic;. }.}../*
1180: 0a 2a 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 61 .** Initialize a
1190: 20 62 6c 6f 62 20 74 6f 20 61 20 6e 75 6c 2d 74 blob to a nul-t
11a0: 65 72 6d 69 6e 61 74 65 64 20 73 74 72 69 6e 67 erminated string
11b0: 2e 0a 2a 2a 20 41 6e 79 20 70 72 69 6f 72 20 64 ..** Any prior d
11c0: 61 74 61 20 69 6e 20 74 68 65 20 62 6c 6f 62 20 ata in the blob
11d0: 69 73 20 64 69 73 63 61 72 64 65 64 2e 0a 2a 2f is discarded..*/
11e0: 0a 76 6f 69 64 20 62 6c 6f 62 5f 73 65 74 28 42 .void blob_set(B
11f0: 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 63 6f 6e 73 lob *pBlob, cons
1200: 74 20 63 68 61 72 20 2a 7a 53 74 72 29 7b 0a 20 t char *zStr){.
1210: 20 62 6c 6f 62 5f 69 6e 69 74 28 70 42 6c 6f 62 blob_init(pBlob
1220: 2c 20 7a 53 74 72 2c 20 2d 31 29 3b 0a 7d 0a 0a , zStr, -1);.}..
1230: 2f 2a 0a 2a 2a 20 49 6e 69 74 69 61 6c 69 7a 65 /*.** Initialize
1240: 20 61 20 62 6c 6f 62 20 74 6f 20 61 6e 20 65 6d a blob to an em
1250: 70 74 79 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a 76 pty string..*/.v
1260: 6f 69 64 20 62 6c 6f 62 5f 7a 65 72 6f 28 42 6c oid blob_zero(Bl
1270: 6f 62 20 2a 70 42 6c 6f 62 29 7b 0a 20 20 73 74 ob *pBlob){. st
1280: 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 atic const char
1290: 7a 45 6d 70 74 79 5b 5d 20 3d 20 22 22 3b 0a 20 zEmpty[] = "";.
12a0: 20 62 6c 6f 62 5f 69 73 5f 72 65 73 65 74 28 70 blob_is_reset(p
12b0: 42 6c 6f 62 29 3b 0a 20 20 70 42 6c 6f 62 2d 3e Blob);. pBlob->
12c0: 6e 55 73 65 64 20 3d 20 30 3b 0a 20 20 70 42 6c nUsed = 0;. pBl
12d0: 6f 62 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 31 3b 0a ob->nAlloc = 1;.
12e0: 20 20 70 42 6c 6f 62 2d 3e 61 44 61 74 61 20 3d pBlob->aData =
12f0: 20 28 63 68 61 72 2a 29 7a 45 6d 70 74 79 3b 0a (char*)zEmpty;.
1300: 20 20 70 42 6c 6f 62 2d 3e 69 43 75 72 73 6f 72 pBlob->iCursor
1310: 20 3d 20 30 3b 0a 20 20 70 42 6c 6f 62 2d 3e 78 = 0;. pBlob->x
1320: 52 65 61 6c 6c 6f 63 20 3d 20 62 6c 6f 62 52 65 Realloc = blobRe
1330: 61 6c 6c 6f 63 53 74 61 74 69 63 3b 0a 7d 0a 0a allocStatic;.}..
1340: 2f 2a 0a 2a 2a 20 41 70 70 65 6e 64 20 74 65 78 /*.** Append tex
1350: 74 20 6f 72 20 64 61 74 61 20 74 6f 20 74 68 65 t or data to the
1360: 20 65 6e 64 20 6f 66 20 61 20 62 6c 6f 62 2e 0a end of a blob..
1370: 2a 2f 0a 76 6f 69 64 20 62 6c 6f 62 5f 61 70 70 */.void blob_app
1380: 65 6e 64 28 42 6c 6f 62 20 2a 70 42 6c 6f 62 2c end(Blob *pBlob,
1390: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 44 61 const char *aDa
13a0: 74 61 2c 20 69 6e 74 20 6e 44 61 74 61 29 7b 0a ta, int nData){.
13b0: 20 20 62 6c 6f 62 5f 69 73 5f 69 6e 69 74 28 70 blob_is_init(p
13c0: 42 6c 6f 62 29 3b 0a 20 20 69 66 28 20 6e 44 61 Blob);. if( nDa
13d0: 74 61 3c 30 20 29 20 6e 44 61 74 61 20 3d 20 73 ta<0 ) nData = s
13e0: 74 72 6c 65 6e 28 61 44 61 74 61 29 3b 0a 20 20 trlen(aData);.
13f0: 69 66 28 20 6e 44 61 74 61 3d 3d 30 20 29 20 72 if( nData==0 ) r
1400: 65 74 75 72 6e 3b 0a 20 20 69 66 28 20 70 42 6c eturn;. if( pBl
1410: 6f 62 2d 3e 6e 55 73 65 64 20 2b 20 6e 44 61 74 ob->nUsed + nDat
1420: 61 20 3e 3d 20 70 42 6c 6f 62 2d 3e 6e 41 6c 6c a >= pBlob->nAll
1430: 6f 63 20 29 7b 0a 20 20 20 20 70 42 6c 6f 62 2d oc ){. pBlob-
1440: 3e 78 52 65 61 6c 6c 6f 63 28 70 42 6c 6f 62 2c >xRealloc(pBlob,
1450: 20 70 42 6c 6f 62 2d 3e 6e 55 73 65 64 20 2b 20 pBlob->nUsed +
1460: 6e 44 61 74 61 20 2b 20 70 42 6c 6f 62 2d 3e 6e nData + pBlob->n
1470: 41 6c 6c 6f 63 20 2b 20 31 30 30 29 3b 0a 20 20 Alloc + 100);.
1480: 20 20 69 66 28 20 70 42 6c 6f 62 2d 3e 6e 55 73 if( pBlob->nUs
1490: 65 64 20 2b 20 6e 44 61 74 61 20 3e 3d 20 70 42 ed + nData >= pB
14a0: 6c 6f 62 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20 lob->nAlloc ){.
14b0: 20 20 20 20 20 62 6c 6f 62 5f 70 61 6e 69 63 28 blob_panic(
14c0: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 6d );. }. }. m
14d0: 65 6d 63 70 79 28 26 70 42 6c 6f 62 2d 3e 61 44 emcpy(&pBlob->aD
14e0: 61 74 61 5b 70 42 6c 6f 62 2d 3e 6e 55 73 65 64 ata[pBlob->nUsed
14f0: 5d 2c 20 61 44 61 74 61 2c 20 6e 44 61 74 61 29 ], aData, nData)
1500: 3b 0a 20 20 70 42 6c 6f 62 2d 3e 6e 55 73 65 64 ;. pBlob->nUsed
1510: 20 2b 3d 20 6e 44 61 74 61 3b 0a 20 20 70 42 6c += nData;. pBl
1520: 6f 62 2d 3e 61 44 61 74 61 5b 70 42 6c 6f 62 2d ob->aData[pBlob-
1530: 3e 6e 55 73 65 64 5d 20 3d 20 30 3b 20 20 20 2f >nUsed] = 0; /
1540: 2a 20 42 6c 6f 62 73 20 61 72 65 20 61 6c 77 61 * Blobs are alwa
1550: 79 73 20 6e 75 6c 2d 74 65 72 6d 69 6e 61 74 65 ys nul-terminate
1560: 64 20 2a 2f 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f d */.}../*.** Co
1570: 70 79 20 61 20 62 6c 6f 62 0a 2a 2f 0a 76 6f 69 py a blob.*/.voi
1580: 64 20 62 6c 6f 62 5f 63 6f 70 79 28 42 6c 6f 62 d blob_copy(Blob
1590: 20 2a 70 54 6f 2c 20 42 6c 6f 62 20 2a 70 46 72 *pTo, Blob *pFr
15a0: 6f 6d 29 7b 0a 20 20 62 6c 6f 62 5f 69 73 5f 69 om){. blob_is_i
15b0: 6e 69 74 28 70 46 72 6f 6d 29 3b 0a 20 20 62 6c nit(pFrom);. bl
15c0: 6f 62 5f 7a 65 72 6f 28 70 54 6f 29 3b 0a 20 20 ob_zero(pTo);.
15d0: 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 54 6f 2c blob_append(pTo,
15e0: 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 46 72 blob_buffer(pFr
15f0: 6f 6d 29 2c 20 62 6c 6f 62 5f 73 69 7a 65 28 70 om), blob_size(p
1600: 46 72 6f 6d 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a From));.}../*.**
1610: 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 Return a pointe
1620: 72 20 74 6f 20 61 20 6e 75 6c 6c 2d 74 65 72 6d r to a null-term
1630: 69 6e 61 74 65 64 20 73 74 72 69 6e 67 20 66 6f inated string fo
1640: 72 20 61 20 62 6c 6f 62 2e 0a 2a 2f 0a 63 68 61 r a blob..*/.cha
1650: 72 20 2a 62 6c 6f 62 5f 73 74 72 28 42 6c 6f 62 r *blob_str(Blob
1660: 20 2a 70 29 7b 0a 20 20 62 6c 6f 62 5f 69 73 5f *p){. blob_is_
1670: 69 6e 69 74 28 70 29 3b 0a 20 20 69 66 28 20 70 init(p);. if( p
1680: 2d 3e 6e 55 73 65 64 3d 3d 30 20 29 7b 0a 20 20 ->nUsed==0 ){.
1690: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 2c blob_append(p,
16a0: 20 22 22 2c 20 31 29 3b 0a 20 20 20 20 70 2d 3e "", 1);. p->
16b0: 6e 55 73 65 64 20 3d 20 30 3b 0a 20 20 7d 0a 20 nUsed = 0;. }.
16c0: 20 69 66 28 20 70 2d 3e 61 44 61 74 61 5b 70 2d if( p->aData[p-
16d0: 3e 6e 55 73 65 64 5d 21 3d 30 20 29 7b 0a 20 20 >nUsed]!=0 ){.
16e0: 20 20 62 6c 6f 62 5f 6d 61 74 65 72 69 61 6c 69 blob_materiali
16f0: 7a 65 28 70 29 3b 0a 20 20 7d 0a 20 20 72 65 74 ze(p);. }. ret
1700: 75 72 6e 20 70 2d 3e 61 44 61 74 61 3b 0a 7d 0a urn p->aData;.}.
1710: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 ./*.** Return a
1720: 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 6e 75 6c pointer to a nul
1730: 6c 2d 74 65 72 6d 69 6e 61 74 65 64 20 73 74 72 l-terminated str
1740: 69 6e 67 20 66 6f 72 20 61 20 62 6c 6f 62 2e 0a ing for a blob..
1750: 2a 2a 0a 2a 2a 20 57 41 52 4e 49 4e 47 3a 20 20 **.** WARNING:
1760: 49 66 20 74 68 65 20 62 6c 6f 62 20 69 73 20 65 If the blob is e
1770: 70 68 65 6d 65 72 61 6c 2c 20 69 74 20 6d 69 67 phemeral, it mig
1780: 68 74 20 63 61 75 73 65 20 61 20 27 5c 30 30 30 ht cause a '\000
1790: 27 0a 2a 2a 20 63 68 61 72 61 63 74 65 72 20 74 '.** character t
17a0: 6f 20 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e o be inserted in
17b0: 74 6f 20 74 68 65 20 6d 69 64 64 6c 65 20 6f 66 to the middle of
17c0: 20 74 68 65 20 70 61 72 65 6e 74 20 62 6c 6f 62 the parent blob
17d0: 2e 0a 2a 2a 20 45 78 61 6d 70 6c 65 3a 20 20 53 ..** Example: S
17e0: 75 70 70 6f 73 65 20 70 20 69 73 20 61 20 74 6f uppose p is a to
17f0: 6b 65 6e 20 65 78 74 72 61 63 74 65 64 20 66 72 ken extracted fr
1800: 6f 6d 20 73 6f 6d 65 20 6c 61 72 67 65 72 0a 2a om some larger.*
1810: 2a 20 62 6c 6f 62 20 70 42 69 67 20 75 73 69 6e * blob pBig usin
1820: 67 20 62 6c 6f 62 5f 74 6f 6b 65 6e 28 29 2e 20 g blob_token().
1830: 20 49 66 20 79 6f 75 20 63 61 6c 6c 20 74 68 69 If you call thi
1840: 73 20 72 6f 75 74 69 6e 65 20 6f 6e 20 70 2c 0a s routine on p,.
1850: 2a 2a 20 74 68 65 6e 20 61 20 27 5c 30 30 30 27 ** then a '\000'
1860: 20 63 68 61 72 61 63 74 65 72 20 77 69 6c 6c 20 character will
1870: 62 65 20 69 6e 73 65 72 74 65 64 20 69 6e 20 74 be inserted in t
1880: 68 65 20 6d 69 64 64 6c 65 20 6f 66 0a 2a 2a 20 he middle of.**
1890: 70 42 69 67 20 69 6e 20 6f 72 64 65 72 20 74 6f pBig in order to
18a0: 20 63 61 75 73 65 20 70 20 74 6f 20 62 65 20 6e cause p to be n
18b0: 75 6c 2d 74 65 72 6d 69 6e 61 74 65 64 2e 20 20 ul-terminated.
18c0: 49 66 20 70 42 69 67 0a 2a 2a 20 73 68 6f 75 6c If pBig.** shoul
18d0: 64 20 6e 6f 74 20 62 65 20 6d 6f 64 69 66 69 65 d not be modifie
18e0: 64 2c 20 74 68 65 6e 20 75 73 65 20 62 6c 6f 62 d, then use blob
18f0: 5f 73 74 72 28 29 20 69 6e 73 74 65 61 64 20 6f _str() instead o
1900: 66 20 74 68 69 73 0a 2a 2a 20 72 6f 75 74 69 6e f this.** routin
1910: 65 2e 20 20 62 6c 6f 62 5f 73 74 72 28 29 20 77 e. blob_str() w
1920: 69 6c 6c 20 6d 61 6b 65 20 61 20 63 6f 70 79 20 ill make a copy
1930: 6f 66 20 74 68 65 20 70 20 69 66 20 6e 65 63 65 of the p if nece
1940: 73 73 61 72 79 0a 2a 2a 20 74 6f 20 61 76 6f 69 ssary.** to avoi
1950: 64 20 6d 6f 64 69 66 79 69 6e 67 20 70 42 69 67 d modifying pBig
1960: 2e 0a 2a 2f 0a 63 68 61 72 20 2a 62 6c 6f 62 5f ..*/.char *blob_
1970: 74 65 72 6d 69 6e 61 74 65 28 42 6c 6f 62 20 2a terminate(Blob *
1980: 70 29 7b 0a 20 20 62 6c 6f 62 5f 69 73 5f 69 6e p){. blob_is_in
1990: 69 74 28 70 29 3b 0a 20 20 69 66 28 20 70 2d 3e it(p);. if( p->
19a0: 6e 55 73 65 64 3d 3d 30 20 29 20 72 65 74 75 72 nUsed==0 ) retur
19b0: 6e 20 22 22 3b 0a 20 20 70 2d 3e 61 44 61 74 61 n "";. p->aData
19c0: 5b 70 2d 3e 6e 55 73 65 64 5d 20 3d 20 30 3b 0a [p->nUsed] = 0;.
19d0: 20 20 72 65 74 75 72 6e 20 70 2d 3e 61 44 61 74 return p->aDat
19e0: 61 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 a;.}../*.** Comp
19f0: 61 72 65 20 74 77 6f 20 62 6c 6f 62 73 2e 0a 2a are two blobs..*
1a00: 2f 0a 69 6e 74 20 62 6c 6f 62 5f 63 6f 6d 70 61 /.int blob_compa
1a10: 72 65 28 42 6c 6f 62 20 2a 70 41 2c 20 42 6c 6f re(Blob *pA, Blo
1a20: 62 20 2a 70 42 29 7b 0a 20 20 69 6e 74 20 73 7a b *pB){. int sz
1a30: 41 2c 20 73 7a 42 2c 20 73 7a 2c 20 72 63 3b 0a A, szB, sz, rc;.
1a40: 20 20 62 6c 6f 62 5f 69 73 5f 69 6e 69 74 28 70 blob_is_init(p
1a50: 41 29 3b 0a 20 20 62 6c 6f 62 5f 69 73 5f 69 6e A);. blob_is_in
1a60: 69 74 28 70 42 29 3b 0a 20 20 73 7a 41 20 3d 20 it(pB);. szA =
1a70: 62 6c 6f 62 5f 73 69 7a 65 28 70 41 29 3b 0a 20 blob_size(pA);.
1a80: 20 73 7a 42 20 3d 20 62 6c 6f 62 5f 73 69 7a 65 szB = blob_size
1a90: 28 70 42 29 3b 0a 20 20 73 7a 20 3d 20 73 7a 41 (pB);. sz = szA
1aa0: 3c 73 7a 42 20 3f 20 73 7a 41 20 3a 20 73 7a 42 <szB ? szA : szB
1ab0: 3b 0a 20 20 72 63 20 3d 20 6d 65 6d 63 6d 70 28 ;. rc = memcmp(
1ac0: 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 41 29 2c blob_buffer(pA),
1ad0: 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 42 29 blob_buffer(pB)
1ae0: 2c 20 73 7a 29 3b 0a 20 20 69 66 28 20 72 63 3d , sz);. if( rc=
1af0: 3d 30 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 =0 ){. rc = s
1b00: 7a 41 20 2d 20 73 7a 42 3b 0a 20 20 7d 0a 20 20 zA - szB;. }.
1b10: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a return rc;.}../*
1b20: 0a 2a 2a 20 43 6f 6d 70 61 72 65 20 61 20 62 6c .** Compare a bl
1b30: 6f 62 20 74 6f 20 61 20 73 74 72 69 6e 67 2e 20 ob to a string.
1b40: 20 52 65 74 75 72 6e 20 54 52 55 45 20 69 66 20 Return TRUE if
1b50: 74 68 65 79 20 61 72 65 20 65 71 75 61 6c 2e 0a they are equal..
1b60: 2a 2f 0a 69 6e 74 20 62 6c 6f 62 5f 65 71 5f 73 */.int blob_eq_s
1b70: 74 72 28 42 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 tr(Blob *pBlob,
1b80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20 69 const char *z, i
1b90: 6e 74 20 6e 29 7b 0a 20 20 42 6c 6f 62 20 74 3b nt n){. Blob t;
1ba0: 0a 20 20 62 6c 6f 62 5f 69 73 5f 69 6e 69 74 28 . blob_is_init(
1bb0: 70 42 6c 6f 62 29 3b 0a 20 20 69 66 28 20 6e 3c pBlob);. if( n<
1bc0: 3d 30 20 29 20 6e 20 3d 20 73 74 72 6c 65 6e 28 =0 ) n = strlen(
1bd0: 7a 29 3b 0a 20 20 74 2e 61 44 61 74 61 20 3d 20 z);. t.aData =
1be0: 28 63 68 61 72 2a 29 7a 3b 0a 20 20 74 2e 6e 55 (char*)z;. t.nU
1bf0: 73 65 64 20 3d 20 6e 3b 0a 20 20 74 2e 78 52 65 sed = n;. t.xRe
1c00: 61 6c 6c 6f 63 20 3d 20 62 6c 6f 62 52 65 61 6c alloc = blobReal
1c10: 6c 6f 63 53 74 61 74 69 63 3b 0a 20 20 72 65 74 locStatic;. ret
1c20: 75 72 6e 20 62 6c 6f 62 5f 63 6f 6d 70 61 72 65 urn blob_compare
1c30: 28 70 42 6c 6f 62 2c 20 26 74 29 3d 3d 30 3b 0a (pBlob, &t)==0;.
1c40: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 6d 61 }../*.** This ma
1c50: 63 72 6f 20 63 6f 6d 70 61 72 65 73 20 61 20 62 cro compares a b
1c60: 6c 6f 62 20 61 67 61 69 6e 73 74 20 61 20 73 74 lob against a st
1c70: 72 69 6e 67 20 63 6f 6e 73 74 61 6e 74 2e 20 20 ring constant.
1c80: 57 65 20 75 73 65 20 74 68 65 20 73 69 7a 65 6f We use the sizeo
1c90: 66 28 29 0a 2a 2a 20 6f 70 65 72 61 74 6f 72 20 f().** operator
1ca0: 6f 6e 20 74 68 65 20 73 74 72 69 6e 67 20 63 6f on the string co
1cb0: 6e 73 74 61 6e 74 20 74 77 69 63 65 2c 20 73 6f nstant twice, so
1cc0: 20 69 74 20 72 65 61 6c 6c 79 20 64 6f 65 73 20 it really does
1cd0: 6e 65 65 64 20 74 6f 20 62 65 20 61 0a 2a 2a 20 need to be a.**
1ce0: 73 74 72 69 6e 67 20 6c 69 74 65 72 61 6c 20 6f string literal o
1cf0: 72 20 63 68 61 72 61 63 74 65 72 20 61 72 72 61 r character arra
1d00: 79 20 2d 20 6e 6f 74 20 61 20 63 68 61 72 61 63 y - not a charac
1d10: 74 65 72 20 70 6f 69 6e 74 65 72 2e 0a 2a 2f 0a ter pointer..*/.
1d20: 23 69 66 20 49 4e 54 45 52 46 41 43 45 0a 23 20 #if INTERFACE.#
1d30: 64 65 66 69 6e 65 20 62 6c 6f 62 5f 65 71 28 42 define blob_eq(B
1d40: 2c 53 29 20 5c 0a 20 20 20 20 20 28 28 42 29 2d ,S) \. ((B)-
1d50: 3e 6e 55 73 65 64 3d 3d 73 69 7a 65 6f 66 28 53 >nUsed==sizeof(S
1d60: 29 2d 31 20 26 26 20 6d 65 6d 63 6d 70 28 28 42 )-1 && memcmp((B
1d70: 29 2d 3e 61 44 61 74 61 2c 53 2c 73 69 7a 65 6f )->aData,S,sizeo
1d80: 66 28 53 29 2d 31 29 3d 3d 30 29 0a 23 65 6e 64 f(S)-1)==0).#end
1d90: 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 6d if.../*.** Attem
1da0: 70 74 20 74 6f 20 72 65 73 69 7a 65 20 61 20 62 pt to resize a b
1db0: 6c 6f 62 20 73 6f 20 74 68 61 74 20 69 74 73 20 lob so that its
1dc0: 69 6e 74 65 72 6e 61 6c 20 62 75 66 66 65 72 20 internal buffer
1dd0: 69 73 20 0a 2a 2a 20 6e 42 79 74 65 20 69 6e 20 is .** nByte in
1de0: 73 69 7a 65 2e 20 20 54 68 65 20 62 6c 6f 62 20 size. The blob
1df0: 69 73 20 74 72 75 6e 63 61 74 65 64 20 69 66 20 is truncated if
1e00: 6e 65 63 65 73 73 61 72 79 2e 0a 2a 2f 0a 76 6f necessary..*/.vo
1e10: 69 64 20 62 6c 6f 62 5f 72 65 73 69 7a 65 28 42 id blob_resize(B
1e20: 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 75 6e 73 69 lob *pBlob, unsi
1e30: 67 6e 65 64 20 69 6e 74 20 6e 65 77 53 69 7a 65 gned int newSize
1e40: 29 7b 0a 20 20 70 42 6c 6f 62 2d 3e 78 52 65 61 ){. pBlob->xRea
1e50: 6c 6c 6f 63 28 70 42 6c 6f 62 2c 20 6e 65 77 53 lloc(pBlob, newS
1e60: 69 7a 65 2b 31 29 3b 0a 20 20 70 42 6c 6f 62 2d ize+1);. pBlob-
1e70: 3e 6e 55 73 65 64 20 3d 20 6e 65 77 53 69 7a 65 >nUsed = newSize
1e80: 3b 0a 20 20 70 42 6c 6f 62 2d 3e 61 44 61 74 61 ;. pBlob->aData
1e90: 5b 6e 65 77 53 69 7a 65 5d 20 3d 20 30 3b 0a 7d [newSize] = 0;.}
1ea0: 0a 0a 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 73 75 72 ../*.** Make sur
1eb0: 65 20 61 20 62 6c 6f 62 20 69 73 20 6e 75 6c 2d e a blob is nul-
1ec0: 74 65 72 6d 69 6e 61 74 65 64 20 61 6e 64 20 69 terminated and i
1ed0: 73 20 6e 6f 74 20 61 20 70 6f 69 6e 74 65 72 20 s not a pointer
1ee0: 74 6f 20 75 6e 6d 61 6e 61 67 65 64 0a 2a 2a 20 to unmanaged.**
1ef0: 73 70 61 63 65 2e 20 20 52 65 74 75 72 6e 20 61 space. Return a
1f00: 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 0a pointer to the.
1f10: 2a 2f 0a 63 68 61 72 20 2a 62 6c 6f 62 5f 6d 61 */.char *blob_ma
1f20: 74 65 72 69 61 6c 69 7a 65 28 42 6c 6f 62 20 2a terialize(Blob *
1f30: 70 42 6c 6f 62 29 7b 0a 20 20 62 6c 6f 62 5f 72 pBlob){. blob_r
1f40: 65 73 69 7a 65 28 70 42 6c 6f 62 2c 20 70 42 6c esize(pBlob, pBl
1f50: 6f 62 2d 3e 6e 55 73 65 64 29 3b 0a 20 20 72 65 ob->nUsed);. re
1f60: 74 75 72 6e 20 70 42 6c 6f 62 2d 3e 61 44 61 74 turn pBlob->aDat
1f70: 61 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 43 61 6c a;.}.../*.** Cal
1f80: 6c 20 64 65 68 74 74 70 69 7a 65 20 6f 6e 20 61 l dehttpize on a
1f90: 20 62 6c 6f 62 2e 20 20 54 68 69 73 20 63 61 75 blob. This cau
1fa0: 73 65 73 20 61 6e 20 65 70 68 65 6d 65 72 61 6c ses an ephemeral
1fb0: 20 62 6c 6f 62 20 74 6f 20 62 65 0a 2a 2a 20 6d blob to be.** m
1fc0: 61 74 65 72 69 61 6c 69 7a 65 64 2e 0a 2a 2f 0a aterialized..*/.
1fd0: 76 6f 69 64 20 62 6c 6f 62 5f 64 65 68 74 74 70 void blob_dehttp
1fe0: 69 7a 65 28 42 6c 6f 62 20 2a 70 42 6c 6f 62 29 ize(Blob *pBlob)
1ff0: 7b 0a 20 20 62 6c 6f 62 5f 6d 61 74 65 72 69 61 {. blob_materia
2000: 6c 69 7a 65 28 70 42 6c 6f 62 29 3b 0a 20 20 70 lize(pBlob);. p
2010: 42 6c 6f 62 2d 3e 6e 55 73 65 64 20 3d 20 64 65 Blob->nUsed = de
2020: 68 74 74 70 69 7a 65 28 70 42 6c 6f 62 2d 3e 61 httpize(pBlob->a
2030: 44 61 74 61 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 Data);.}../*.**
2040: 45 78 74 72 61 63 74 20 4e 20 62 79 74 65 73 20 Extract N bytes
2050: 66 72 6f 6d 20 62 6c 6f 62 20 70 46 72 6f 6d 20 from blob pFrom
2060: 61 6e 64 20 75 73 65 20 69 74 20 74 6f 20 69 6e and use it to in
2070: 69 74 69 61 6c 69 7a 65 20 62 6c 6f 62 20 70 54 itialize blob pT
2080: 6f 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 o..** Return the
2090: 20 61 63 74 75 61 6c 20 6e 75 6d 62 65 72 20 6f actual number o
20a0: 66 20 62 79 74 65 73 20 65 78 74 72 61 63 74 65 f bytes extracte
20b0: 64 2e 0a 2a 2a 0a 2a 2a 20 41 66 74 65 72 20 74 d..**.** After t
20c0: 68 69 73 20 63 61 6c 6c 20 63 6f 6d 70 6c 65 74 his call complet
20d0: 65 73 2c 20 70 54 6f 20 77 69 6c 6c 20 62 65 20 es, pTo will be
20e0: 61 6e 20 65 70 68 65 6d 65 72 61 6c 20 62 6c 6f an ephemeral blo
20f0: 62 2e 0a 2a 2f 0a 69 6e 74 20 62 6c 6f 62 5f 65 b..*/.int blob_e
2100: 78 74 72 61 63 74 28 42 6c 6f 62 20 2a 70 46 72 xtract(Blob *pFr
2110: 6f 6d 2c 20 69 6e 74 20 4e 2c 20 42 6c 6f 62 20 om, int N, Blob
2120: 2a 70 54 6f 29 7b 0a 20 20 62 6c 6f 62 5f 69 73 *pTo){. blob_is
2130: 5f 69 6e 69 74 28 70 46 72 6f 6d 29 3b 0a 20 20 _init(pFrom);.
2140: 62 6c 6f 62 5f 69 73 5f 72 65 73 65 74 28 70 54 blob_is_reset(pT
2150: 6f 29 3b 0a 20 20 69 66 28 20 70 46 72 6f 6d 2d o);. if( pFrom-
2160: 3e 69 43 75 72 73 6f 72 20 2b 20 4e 20 3e 20 70 >iCursor + N > p
2170: 46 72 6f 6d 2d 3e 6e 55 73 65 64 20 29 7b 0a 20 From->nUsed ){.
2180: 20 20 20 4e 20 3d 20 70 46 72 6f 6d 2d 3e 6e 55 N = pFrom->nU
2190: 73 65 64 20 2d 20 70 46 72 6f 6d 2d 3e 69 43 75 sed - pFrom->iCu
21a0: 72 73 6f 72 3b 0a 20 20 20 20 69 66 28 20 4e 3c rsor;. if( N<
21b0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 6c 6f 62 =0 ){. blob
21c0: 5f 7a 65 72 6f 28 70 54 6f 29 3b 0a 20 20 20 20 _zero(pTo);.
21d0: 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 return 0;.
21e0: 7d 0a 20 20 7d 0a 20 20 70 54 6f 2d 3e 6e 55 73 }. }. pTo->nUs
21f0: 65 64 20 3d 20 4e 3b 0a 20 20 70 54 6f 2d 3e 6e ed = N;. pTo->n
2200: 41 6c 6c 6f 63 20 3d 20 4e 3b 0a 20 20 70 54 6f Alloc = N;. pTo
2210: 2d 3e 61 44 61 74 61 20 3d 20 26 70 46 72 6f 6d ->aData = &pFrom
2220: 2d 3e 61 44 61 74 61 5b 70 46 72 6f 6d 2d 3e 69 ->aData[pFrom->i
2230: 43 75 72 73 6f 72 5d 3b 0a 20 20 70 54 6f 2d 3e Cursor];. pTo->
2240: 69 43 75 72 73 6f 72 20 3d 20 30 3b 0a 20 20 70 iCursor = 0;. p
2250: 54 6f 2d 3e 78 52 65 61 6c 6c 6f 63 20 3d 20 62 To->xRealloc = b
2260: 6c 6f 62 52 65 61 6c 6c 6f 63 53 74 61 74 69 63 lobReallocStatic
2270: 3b 0a 20 20 70 46 72 6f 6d 2d 3e 69 43 75 72 73 ;. pFrom->iCurs
2280: 6f 72 20 2b 3d 20 4e 3b 0a 20 20 72 65 74 75 72 or += N;. retur
2290: 6e 20 4e 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 n N;.}../*.** Re
22a0: 77 69 6e 64 20 74 68 65 20 63 75 72 73 6f 72 20 wind the cursor
22b0: 6f 6e 20 61 20 62 6c 6f 62 20 62 61 63 6b 20 74 on a blob back t
22c0: 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 2e o the beginning.
22d0: 0a 2a 2f 0a 76 6f 69 64 20 62 6c 6f 62 5f 72 65 .*/.void blob_re
22e0: 77 69 6e 64 28 42 6c 6f 62 20 2a 70 29 7b 0a 20 wind(Blob *p){.
22f0: 20 70 2d 3e 69 43 75 72 73 6f 72 20 3d 20 30 3b p->iCursor = 0;
2300: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 65 6b 20 74 .}../*.** Seek t
2310: 68 65 20 63 75 72 73 6f 72 20 69 6e 20 61 20 62 he cursor in a b
2320: 6c 6f 62 20 74 6f 20 74 68 65 20 69 6e 64 69 63 lob to the indic
2330: 61 74 65 64 20 6f 66 66 73 65 74 2e 0a 2a 2f 0a ated offset..*/.
2340: 69 6e 74 20 62 6c 6f 62 5f 73 65 65 6b 28 42 6c int blob_seek(Bl
2350: 6f 62 20 2a 70 2c 20 69 6e 74 20 6f 66 66 73 65 ob *p, int offse
2360: 74 2c 20 69 6e 74 20 77 68 65 6e 63 65 29 7b 0a t, int whence){.
2370: 20 20 69 66 28 20 77 68 65 6e 63 65 3d 3d 42 4c if( whence==BL
2380: 4f 42 5f 53 45 45 4b 5f 53 45 54 20 29 7b 0a 20 OB_SEEK_SET ){.
2390: 20 20 20 70 2d 3e 69 43 75 72 73 6f 72 20 3d 20 p->iCursor =
23a0: 6f 66 66 73 65 74 3b 0a 20 20 7d 65 6c 73 65 20 offset;. }else
23b0: 69 66 28 20 77 68 65 6e 63 65 3d 3d 42 4c 4f 42 if( whence==BLOB
23c0: 5f 53 45 45 4b 5f 43 55 52 20 29 7b 0a 20 20 20 _SEEK_CUR ){.
23d0: 20 70 2d 3e 69 43 75 72 73 6f 72 20 2b 3d 20 6f p->iCursor += o
23e0: 66 66 73 65 74 3b 0a 20 20 7d 65 6c 73 65 20 69 ffset;. }else i
23f0: 66 28 20 77 68 65 6e 63 65 3d 3d 42 4c 4f 42 5f f( whence==BLOB_
2400: 53 45 45 4b 5f 45 4e 44 20 29 7b 0a 20 20 20 20 SEEK_END ){.
2410: 70 2d 3e 69 43 75 72 73 6f 72 20 3d 20 70 2d 3e p->iCursor = p->
2420: 6e 55 73 65 64 20 2b 20 6f 66 66 73 65 74 20 2d nUsed + offset -
2430: 20 31 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 2d 1;. }. if( p-
2440: 3e 69 43 75 72 73 6f 72 3c 30 20 29 7b 0a 20 20 >iCursor<0 ){.
2450: 20 20 70 2d 3e 69 43 75 72 73 6f 72 20 3d 20 30 p->iCursor = 0
2460: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 2d 3e 69 ;. }. if( p->i
2470: 43 75 72 73 6f 72 3e 70 2d 3e 6e 55 73 65 64 20 Cursor>p->nUsed
2480: 29 7b 0a 20 20 20 20 70 2d 3e 69 43 75 72 73 6f ){. p->iCurso
2490: 72 20 3d 20 70 2d 3e 6e 55 73 65 64 3b 0a 20 20 r = p->nUsed;.
24a0: 7d 0a 20 20 72 65 74 75 72 6e 20 70 2d 3e 69 43 }. return p->iC
24b0: 75 72 73 6f 72 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 ursor;.}../*.**
24c0: 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 Return the curre
24d0: 6e 74 20 6f 66 66 73 65 74 20 69 6e 74 6f 20 74 nt offset into t
24e0: 68 65 20 62 6c 6f 62 0a 2a 2f 0a 69 6e 74 20 62 he blob.*/.int b
24f0: 6c 6f 62 5f 74 65 6c 6c 28 42 6c 6f 62 20 2a 70 lob_tell(Blob *p
2500: 29 7b 0a 20 20 72 65 74 75 72 6e 20 70 2d 3e 69 ){. return p->i
2510: 43 75 72 73 6f 72 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a Cursor;.}../*.**
2520: 20 45 78 74 72 61 63 74 20 61 20 73 69 6e 67 6c Extract a singl
2530: 65 20 6c 69 6e 65 20 6f 66 20 74 65 78 74 20 66 e line of text f
2540: 72 6f 6d 20 70 46 72 6f 6d 20 62 65 67 69 6e 6e rom pFrom beginn
2550: 69 6e 67 20 61 74 20 74 68 65 20 63 75 72 72 65 ing at the curre
2560: 6e 74 20 0a 2a 2a 20 63 75 72 73 6f 72 20 6c 6f nt .** cursor lo
2570: 63 61 74 69 6f 6e 20 61 6e 64 20 75 73 65 20 74 cation and use t
2580: 68 61 74 20 6c 69 6e 65 20 6f 66 20 74 65 78 74 hat line of text
2590: 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 70 to initialize p
25a0: 54 6f 2e 0a 2a 2a 20 70 54 6f 20 77 69 6c 6c 20 To..** pTo will
25b0: 69 6e 63 6c 75 64 65 20 74 68 65 20 74 65 72 6d include the term
25c0: 69 6e 61 74 69 6e 67 20 5c 6e 2e 20 20 52 65 74 inating \n. Ret
25d0: 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f urn the number o
25e0: 66 20 62 79 74 65 73 0a 2a 2a 20 69 6e 20 74 68 f bytes.** in th
25f0: 65 20 6c 69 6e 65 20 69 6e 63 6c 75 64 69 6e 67 e line including
2600: 20 74 68 65 20 5c 6e 20 61 74 20 74 68 65 20 65 the \n at the e
2610: 6e 64 2e 20 20 30 20 69 73 20 72 65 74 75 72 6e nd. 0 is return
2620: 65 64 20 61 74 0a 2a 2a 20 65 6e 64 2d 6f 66 2d ed at.** end-of-
2630: 66 69 6c 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 file..**.** The
2640: 63 75 72 73 6f 72 20 6f 66 20 70 46 72 6f 6d 20 cursor of pFrom
2650: 69 73 20 6c 65 66 74 20 70 6f 69 6e 74 69 6e 67 is left pointing
2660: 20 61 74 20 74 68 65 20 66 69 72 73 74 20 62 79 at the first by
2670: 74 65 20 70 61 73 74 20 74 68 65 0a 2a 2a 20 5c te past the.** \
2680: 6e 20 74 68 61 74 20 74 65 72 6d 69 6e 61 74 65 n that terminate
2690: 64 20 74 68 65 20 6c 69 6e 65 2e 0a 2a 2a 0a 2a d the line..**.*
26a0: 2a 20 70 54 6f 20 77 69 6c 6c 20 62 65 20 61 6e * pTo will be an
26b0: 20 65 70 68 65 72 6d 65 72 61 6c 20 62 6c 6f 62 ephermeral blob
26c0: 2e 20 20 49 66 20 70 46 72 6f 6d 20 63 68 61 6e . If pFrom chan
26d0: 67 65 73 2c 20 69 74 20 6d 69 67 68 74 20 61 6c ges, it might al
26e0: 74 65 72 0a 2a 2a 20 70 54 6f 20 61 73 20 77 65 ter.** pTo as we
26f0: 6c 6c 2e 0a 2a 2f 0a 69 6e 74 20 62 6c 6f 62 5f ll..*/.int blob_
2700: 6c 69 6e 65 28 42 6c 6f 62 20 2a 70 46 72 6f 6d line(Blob *pFrom
2710: 2c 20 42 6c 6f 62 20 2a 70 54 6f 29 7b 0a 20 20 , Blob *pTo){.
2720: 63 68 61 72 20 2a 61 44 61 74 61 20 3d 20 70 46 char *aData = pF
2730: 72 6f 6d 2d 3e 61 44 61 74 61 3b 0a 20 20 69 6e rom->aData;. in
2740: 74 20 6e 20 3d 20 70 46 72 6f 6d 2d 3e 6e 55 73 t n = pFrom->nUs
2750: 65 64 3b 0a 20 20 69 6e 74 20 69 20 3d 20 70 46 ed;. int i = pF
2760: 72 6f 6d 2d 3e 69 43 75 72 73 6f 72 3b 0a 0a 20 rom->iCursor;..
2770: 20 77 68 69 6c 65 28 20 69 3c 6e 20 26 26 20 61 while( i<n && a
2780: 44 61 74 61 5b 69 5d 21 3d 27 5c 6e 27 20 29 7b Data[i]!='\n' ){
2790: 20 69 2b 2b 3b 20 7d 0a 20 20 69 66 28 20 69 3c i++; }. if( i<
27a0: 6e 20 29 7b 0a 20 20 20 20 61 73 73 65 72 74 28 n ){. assert(
27b0: 20 61 44 61 74 61 5b 69 5d 3d 3d 27 5c 6e 27 20 aData[i]=='\n'
27c0: 29 3b 0a 20 20 20 20 69 2b 2b 3b 0a 20 20 7d 0a );. i++;. }.
27d0: 20 20 62 6c 6f 62 5f 65 78 74 72 61 63 74 28 70 blob_extract(p
27e0: 46 72 6f 6d 2c 20 69 2d 70 46 72 6f 6d 2d 3e 69 From, i-pFrom->i
27f0: 43 75 72 73 6f 72 2c 20 70 54 6f 29 3b 0a 20 20 Cursor, pTo);.
2800: 72 65 74 75 72 6e 20 70 54 6f 2d 3e 6e 55 73 65 return pTo->nUse
2810: 64 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 69 6d d;.}../*.** Trim
2820: 20 77 68 69 74 65 73 70 61 63 65 20 6f 66 66 20 whitespace off
2830: 6f 66 20 74 68 65 20 65 6e 64 20 6f 66 20 61 20 of the end of a
2840: 62 6c 6f 62 2e 20 20 52 65 74 75 72 6e 20 74 68 blob. Return th
2850: 65 20 6e 75 6d 62 65 72 0a 2a 2a 20 6f 66 20 63 e number.** of c
2860: 68 61 72 61 63 74 65 72 73 20 72 65 6d 61 69 6e haracters remain
2870: 69 6e 67 2e 0a 2a 2a 0a 2a 2a 20 41 6c 6c 20 74 ing..**.** All t
2880: 68 69 73 20 64 6f 65 73 20 69 73 20 72 65 64 75 his does is redu
2890: 63 65 20 74 68 65 20 6c 65 6e 67 74 68 20 63 6f ce the length co
28a0: 75 6e 74 65 72 2e 20 20 54 68 69 73 20 72 6f 75 unter. This rou
28b0: 74 69 6e 65 20 64 6f 65 73 0a 2a 2a 20 6e 6f 74 tine does.** not
28c0: 20 69 6e 73 65 72 74 20 61 20 6e 65 77 20 7a 65 insert a new ze
28d0: 72 6f 20 74 65 72 6d 69 6e 61 74 6f 72 2e 0a 2a ro terminator..*
28e0: 2f 0a 69 6e 74 20 62 6c 6f 62 5f 74 72 69 6d 28 /.int blob_trim(
28f0: 42 6c 6f 62 20 2a 70 29 7b 0a 20 20 63 68 61 72 Blob *p){. char
2900: 20 2a 7a 20 3d 20 70 2d 3e 61 44 61 74 61 3b 0a *z = p->aData;.
2910: 20 20 69 6e 74 20 6e 20 3d 20 70 2d 3e 6e 55 73 int n = p->nUs
2920: 65 64 3b 0a 20 20 77 68 69 6c 65 28 20 6e 3e 30 ed;. while( n>0
2930: 20 26 26 20 69 73 73 70 61 63 65 28 7a 5b 6e 2d && isspace(z[n-
2940: 31 5d 29 20 29 7b 20 6e 2d 2d 3b 20 7d 0a 20 20 1]) ){ n--; }.
2950: 70 2d 3e 6e 55 73 65 64 20 3d 20 6e 3b 0a 20 20 p->nUsed = n;.
2960: 72 65 74 75 72 6e 20 6e 3b 0a 7d 0a 0a 2f 2a 0a return n;.}../*.
2970: 2a 2a 20 45 78 74 72 61 63 74 20 61 20 73 69 6e ** Extract a sin
2980: 67 6c 65 20 74 6f 6b 65 6e 20 66 72 6f 6d 20 70 gle token from p
2990: 46 72 6f 6d 20 61 6e 64 20 75 73 65 20 69 74 20 From and use it
29a0: 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 70 54 to initialize pT
29b0: 6f 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 o..** Return the
29c0: 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 number of bytes
29d0: 20 69 6e 20 74 68 65 20 74 6f 6b 65 6e 2e 20 20 in the token.
29e0: 49 66 20 6e 6f 20 74 6f 6b 65 6e 20 69 73 20 66 If no token is f
29f0: 6f 75 6e 64 2c 0a 2a 2a 20 72 65 74 75 72 6e 20 ound,.** return
2a00: 30 2e 0a 2a 2a 0a 2a 2a 20 41 20 74 6f 6b 65 6e 0..**.** A token
2a10: 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 6f 6e 65 consists of one
2a20: 20 6f 72 20 6d 6f 72 65 20 6e 6f 6e 2d 73 70 61 or more non-spa
2a30: 63 65 20 63 68 61 72 61 63 74 65 72 73 2e 20 20 ce characters.
2a40: 4c 65 61 64 69 6e 67 0a 2a 2a 20 77 68 69 74 65 Leading.** white
2a50: 73 70 61 63 65 20 69 73 20 69 67 6e 6f 72 65 64 space is ignored
2a60: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 75 72 73 ..**.** The curs
2a70: 6f 72 20 6f 66 20 70 46 72 6f 6d 20 69 73 20 6c or of pFrom is l
2a80: 65 66 74 20 70 6f 69 6e 74 69 6e 67 20 61 74 20 eft pointing at
2a90: 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 the first charac
2aa0: 74 65 72 20 70 61 73 74 0a 2a 2a 20 74 68 65 20 ter past.** the
2ab0: 65 6e 64 20 6f 66 20 74 68 65 20 74 6f 6b 65 6e end of the token
2ac0: 2e 0a 2a 2a 0a 2a 2a 20 70 54 6f 20 77 69 6c 6c ..**.** pTo will
2ad0: 20 62 65 20 61 6e 20 65 70 68 65 72 6d 65 72 61 be an ephermera
2ae0: 6c 20 62 6c 6f 62 2e 20 20 49 66 20 70 46 72 6f l blob. If pFro
2af0: 6d 20 63 68 61 6e 67 65 73 2c 20 69 74 20 6d 69 m changes, it mi
2b00: 67 68 74 20 61 6c 74 65 72 0a 2a 2a 20 70 54 6f ght alter.** pTo
2b10: 20 61 73 20 77 65 6c 6c 2e 0a 2a 2f 0a 69 6e 74 as well..*/.int
2b20: 20 62 6c 6f 62 5f 74 6f 6b 65 6e 28 42 6c 6f 62 blob_token(Blob
2b30: 20 2a 70 46 72 6f 6d 2c 20 42 6c 6f 62 20 2a 70 *pFrom, Blob *p
2b40: 54 6f 29 7b 0a 20 20 63 68 61 72 20 2a 61 44 61 To){. char *aDa
2b50: 74 61 20 3d 20 70 46 72 6f 6d 2d 3e 61 44 61 74 ta = pFrom->aDat
2b60: 61 3b 0a 20 20 69 6e 74 20 6e 20 3d 20 70 46 72 a;. int n = pFr
2b70: 6f 6d 2d 3e 6e 55 73 65 64 3b 0a 20 20 69 6e 74 om->nUsed;. int
2b80: 20 69 20 3d 20 70 46 72 6f 6d 2d 3e 69 43 75 72 i = pFrom->iCur
2b90: 73 6f 72 3b 0a 20 20 77 68 69 6c 65 28 20 69 3c sor;. while( i<
2ba0: 6e 20 26 26 20 69 73 73 70 61 63 65 28 61 44 61 n && isspace(aDa
2bb0: 74 61 5b 69 5d 29 20 29 7b 20 69 2b 2b 3b 20 7d ta[i]) ){ i++; }
2bc0: 0a 20 20 70 46 72 6f 6d 2d 3e 69 43 75 72 73 6f . pFrom->iCurso
2bd0: 72 20 3d 20 69 3b 0a 20 20 77 68 69 6c 65 28 20 r = i;. while(
2be0: 69 3c 6e 20 26 26 20 21 69 73 73 70 61 63 65 28 i<n && !isspace(
2bf0: 61 44 61 74 61 5b 69 5d 29 20 29 7b 20 69 2b 2b aData[i]) ){ i++
2c00: 3b 20 7d 0a 20 20 62 6c 6f 62 5f 65 78 74 72 61 ; }. blob_extra
2c10: 63 74 28 70 46 72 6f 6d 2c 20 69 2d 70 46 72 6f ct(pFrom, i-pFro
2c20: 6d 2d 3e 69 43 75 72 73 6f 72 2c 20 70 54 6f 29 m->iCursor, pTo)
2c30: 3b 0a 20 20 77 68 69 6c 65 28 20 69 3c 6e 20 26 ;. while( i<n &
2c40: 26 20 69 73 73 70 61 63 65 28 61 44 61 74 61 5b & isspace(aData[
2c50: 69 5d 29 20 29 7b 20 69 2b 2b 3b 20 7d 0a 20 20 i]) ){ i++; }.
2c60: 70 46 72 6f 6d 2d 3e 69 43 75 72 73 6f 72 20 3d pFrom->iCursor =
2c70: 20 69 3b 0a 20 20 72 65 74 75 72 6e 20 70 54 6f i;. return pTo
2c80: 2d 3e 6e 55 73 65 64 3b 0a 7d 0a 0a 2f 2a 0a 2a ->nUsed;.}../*.*
2c90: 2a 20 45 78 74 72 61 63 74 20 65 76 65 72 79 74 * Extract everyt
2ca0: 68 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 63 75 hing from the cu
2cb0: 72 72 65 6e 74 20 63 75 72 73 6f 72 20 74 6f 20 rrent cursor to
2cc0: 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 62 the end of the b
2cd0: 6c 6f 62 0a 2a 2a 20 69 6e 74 6f 20 61 20 6e 65 lob.** into a ne
2ce0: 77 20 62 6c 6f 62 2e 20 20 54 68 65 20 6e 65 77 w blob. The new
2cf0: 20 62 6c 6f 62 20 69 73 20 61 6e 20 65 70 68 65 blob is an ephe
2d00: 6d 65 72 69 61 6c 20 72 65 66 65 72 65 6e 63 65 merial reference
2d10: 20 74 6f 20 74 68 65 0a 2a 2a 20 6f 72 69 67 69 to the.** origi
2d20: 6e 61 6c 20 62 6c 6f 62 2e 20 20 54 68 65 20 63 nal blob. The c
2d30: 75 72 73 6f 72 20 6f 66 20 74 68 65 20 6f 72 69 ursor of the ori
2d40: 67 69 6e 61 6c 20 62 6c 6f 62 20 69 73 20 75 6e ginal blob is un
2d50: 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a 69 6e 74 20 changed..*/.int
2d60: 62 6c 6f 62 5f 74 61 69 6c 28 42 6c 6f 62 20 2a blob_tail(Blob *
2d70: 70 46 72 6f 6d 2c 20 42 6c 6f 62 20 2a 70 54 6f pFrom, Blob *pTo
2d80: 29 7b 0a 20 20 69 6e 74 20 69 43 75 72 73 6f 72 ){. int iCursor
2d90: 20 3d 20 70 46 72 6f 6d 2d 3e 69 43 75 72 73 6f = pFrom->iCurso
2da0: 72 3b 0a 20 20 62 6c 6f 62 5f 65 78 74 72 61 63 r;. blob_extrac
2db0: 74 28 70 46 72 6f 6d 2c 20 70 46 72 6f 6d 2d 3e t(pFrom, pFrom->
2dc0: 6e 55 73 65 64 2d 70 46 72 6f 6d 2d 3e 69 43 75 nUsed-pFrom->iCu
2dd0: 72 73 6f 72 2c 20 70 54 6f 29 3b 0a 20 20 70 46 rsor, pTo);. pF
2de0: 72 6f 6d 2d 3e 69 43 75 72 73 6f 72 20 3d 20 69 rom->iCursor = i
2df0: 43 75 72 73 6f 72 3b 0a 20 20 72 65 74 75 72 6e Cursor;. return
2e00: 20 70 54 6f 2d 3e 6e 55 73 65 64 3b 0a 7d 0a 0a pTo->nUsed;.}..
2e10: 2f 2a 0a 2a 2a 20 43 6f 70 79 20 4e 20 6c 69 6e /*.** Copy N lin
2e20: 65 73 20 6f 66 20 74 65 78 74 20 66 72 6f 6d 20 es of text from
2e30: 70 46 72 6f 6d 20 69 6e 74 6f 20 70 54 6f 2e 20 pFrom into pTo.
2e40: 20 54 68 65 20 63 6f 70 79 20 62 65 67 69 6e 73 The copy begins
2e50: 20 61 74 20 74 68 65 0a 2a 2a 20 63 75 72 72 65 at the.** curre
2e60: 6e 74 20 63 75 72 73 6f 72 20 70 6f 73 69 74 69 nt cursor positi
2e70: 6f 6e 20 6f 66 20 70 49 6e 2e 20 20 54 68 65 20 on of pIn. The
2e80: 70 49 6e 20 63 75 72 73 6f 72 20 69 73 20 6c 65 pIn cursor is le
2e90: 66 74 20 70 6f 69 6e 74 69 6e 67 0a 2a 2a 20 61 ft pointing.** a
2ea0: 74 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 t the first char
2eb0: 61 63 74 65 72 20 70 61 73 74 20 74 68 65 20 6c acter past the l
2ec0: 61 73 74 20 5c 6e 20 63 6f 70 69 65 64 2e 0a 2a ast \n copied..*
2ed0: 2a 0a 2a 2a 20 49 66 20 70 54 6f 3d 3d 4e 55 4c *.** If pTo==NUL
2ee0: 4c 20 74 68 65 6e 20 74 68 69 73 20 72 6f 75 74 L then this rout
2ef0: 69 6e 65 20 73 69 6d 70 6c 79 20 73 6b 69 70 73 ine simply skips
2f00: 20 6f 76 65 72 20 4e 20 6c 69 6e 65 73 2e 0a 2a over N lines..*
2f10: 2f 0a 76 6f 69 64 20 62 6c 6f 62 5f 63 6f 70 79 /.void blob_copy
2f20: 5f 6c 69 6e 65 73 28 42 6c 6f 62 20 2a 70 54 6f _lines(Blob *pTo
2f30: 2c 20 42 6c 6f 62 20 2a 70 46 72 6f 6d 2c 20 69 , Blob *pFrom, i
2f40: 6e 74 20 4e 29 7b 0a 20 20 63 68 61 72 20 2a 7a nt N){. char *z
2f50: 20 3d 20 70 46 72 6f 6d 2d 3e 61 44 61 74 61 3b = pFrom->aData;
2f60: 0a 20 20 69 6e 74 20 69 20 3d 20 70 46 72 6f 6d . int i = pFrom
2f70: 2d 3e 69 43 75 72 73 6f 72 3b 0a 20 20 69 6e 74 ->iCursor;. int
2f80: 20 6e 20 3d 20 70 46 72 6f 6d 2d 3e 6e 55 73 65 n = pFrom->nUse
2f90: 64 3b 0a 20 20 69 6e 74 20 63 6e 74 20 3d 20 30 d;. int cnt = 0
2fa0: 3b 0a 0a 20 20 69 66 28 20 4e 3d 3d 30 20 29 20 ;.. if( N==0 )
2fb0: 72 65 74 75 72 6e 3b 0a 20 20 77 68 69 6c 65 28 return;. while(
2fc0: 20 69 3c 6e 20 29 7b 0a 20 20 20 20 69 66 28 20 i<n ){. if(
2fd0: 7a 5b 69 5d 3d 3d 27 5c 6e 27 20 29 7b 0a 20 20 z[i]=='\n' ){.
2fe0: 20 20 20 20 63 6e 74 2b 2b 3b 0a 20 20 20 20 20 cnt++;.
2ff0: 20 69 66 28 20 63 6e 74 3d 3d 4e 20 29 7b 0a 20 if( cnt==N ){.
3000: 20 20 20 20 20 20 20 69 2b 2b 3b 0a 20 20 20 20 i++;.
3010: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
3020: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 2b 2b }. }. i++
3030: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 54 6f 20 ;. }. if( pTo
3040: 29 7b 0a 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 ){. blob_appe
3050: 6e 64 28 70 54 6f 2c 20 26 70 46 72 6f 6d 2d 3e nd(pTo, &pFrom->
3060: 61 44 61 74 61 5b 70 46 72 6f 6d 2d 3e 69 43 75 aData[pFrom->iCu
3070: 72 73 6f 72 5d 2c 20 69 20 2d 20 70 46 72 6f 6d rsor], i - pFrom
3080: 2d 3e 69 43 75 72 73 6f 72 29 3b 0a 20 20 7d 0a ->iCursor);. }.
3090: 20 20 70 46 72 6f 6d 2d 3e 69 43 75 72 73 6f 72 pFrom->iCursor
30a0: 20 3d 20 69 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 = i;.}../*.** R
30b0: 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 eturn true if th
30c0: 65 20 62 6c 6f 62 20 63 6f 6e 74 61 69 6e 73 20 e blob contains
30d0: 61 20 76 61 6c 69 64 20 55 55 49 44 5f 53 49 5a a valid UUID_SIZ
30e0: 45 2d 64 69 67 69 74 20 62 61 73 65 31 36 20 69 E-digit base16 i
30f0: 64 65 6e 74 69 66 69 65 72 2e 0a 2a 2f 0a 69 6e dentifier..*/.in
3100: 74 20 62 6c 6f 62 5f 69 73 5f 75 75 69 64 28 42 t blob_is_uuid(B
3110: 6c 6f 62 20 2a 70 42 6c 6f 62 29 7b 0a 20 20 72 lob *pBlob){. r
3120: 65 74 75 72 6e 20 62 6c 6f 62 5f 73 69 7a 65 28 eturn blob_size(
3130: 70 42 6c 6f 62 29 3d 3d 55 55 49 44 5f 53 49 5a pBlob)==UUID_SIZ
3140: 45 0a 20 20 20 20 20 20 20 20 20 26 26 20 76 61 E. && va
3150: 6c 69 64 61 74 65 31 36 28 62 6c 6f 62 5f 62 75 lidate16(blob_bu
3160: 66 66 65 72 28 70 42 6c 6f 62 29 2c 20 55 55 49 ffer(pBlob), UUI
3170: 44 5f 53 49 5a 45 29 3b 0a 7d 0a 69 6e 74 20 62 D_SIZE);.}.int b
3180: 6c 6f 62 5f 69 73 5f 75 75 69 64 5f 6e 28 42 6c lob_is_uuid_n(Bl
3190: 6f 62 20 2a 70 42 6c 6f 62 2c 20 69 6e 74 20 6e ob *pBlob, int n
31a0: 29 7b 0a 20 20 72 65 74 75 72 6e 20 62 6c 6f 62 ){. return blob
31b0: 5f 73 69 7a 65 28 70 42 6c 6f 62 29 3d 3d 6e 20 _size(pBlob)==n
31c0: 26 26 20 76 61 6c 69 64 61 74 65 31 36 28 62 6c && validate16(bl
31d0: 6f 62 5f 62 75 66 66 65 72 28 70 42 6c 6f 62 29 ob_buffer(pBlob)
31e0: 2c 20 6e 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 , n);.}../*.** R
31f0: 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 eturn true if th
3200: 65 20 62 6c 6f 62 20 63 6f 6e 74 61 69 6e 73 20 e blob contains
3210: 61 20 76 61 6c 69 64 20 33 32 2d 62 69 74 20 69 a valid 32-bit i
3220: 6e 74 65 67 65 72 2e 20 20 53 74 6f 72 65 0a 2a nteger. Store.*
3230: 2a 20 74 68 65 20 69 6e 74 65 67 65 72 20 76 61 * the integer va
3240: 6c 75 65 20 69 6e 20 2a 70 56 61 6c 75 65 2e 0a lue in *pValue..
3250: 2a 2f 0a 69 6e 74 20 62 6c 6f 62 5f 69 73 5f 69 */.int blob_is_i
3260: 6e 74 28 42 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 nt(Blob *pBlob,
3270: 69 6e 74 20 2a 70 56 61 6c 75 65 29 7b 0a 20 20 int *pValue){.
3280: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d 20 const char *z =
3290: 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 42 6c 6f blob_buffer(pBlo
32a0: 62 29 3b 0a 20 20 69 6e 74 20 69 2c 20 6e 2c 20 b);. int i, n,
32b0: 63 2c 20 76 3b 0a 20 20 6e 20 3d 20 62 6c 6f 62 c, v;. n = blob
32c0: 5f 73 69 7a 65 28 70 42 6c 6f 62 29 3b 0a 20 20 _size(pBlob);.
32d0: 76 20 3d 20 30 3b 0a 20 20 66 6f 72 28 69 3d 30 v = 0;. for(i=0
32e0: 3b 20 69 3c 6e 20 26 26 20 28 63 20 3d 20 7a 5b ; i<n && (c = z[
32f0: 69 5d 29 21 3d 30 20 26 26 20 69 73 64 69 67 69 i])!=0 && isdigi
3300: 74 28 63 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 t(c); i++){.
3310: 76 20 3d 20 76 2a 31 30 20 2b 20 63 20 2d 20 27 v = v*10 + c - '
3320: 30 27 3b 0a 20 20 7d 0a 20 20 69 66 28 20 69 3d 0';. }. if( i=
3330: 3d 6e 20 29 7b 0a 20 20 20 20 2a 70 56 61 6c 75 =n ){. *pValu
3340: 65 20 3d 20 76 3b 0a 20 20 20 20 72 65 74 75 72 e = v;. retur
3350: 6e 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 n 1;. }else{.
3360: 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a return 0;. }.
3370: 7d 0a 0a 2f 2a 0a 2a 2a 20 5a 65 72 6f 20 6f 72 }../*.** Zero or
3380: 20 72 65 73 65 74 20 61 6e 20 61 72 72 61 79 20 reset an array
3390: 6f 66 20 42 6c 6f 62 73 2e 0a 2a 2f 0a 76 6f 69 of Blobs..*/.voi
33a0: 64 20 62 6c 6f 62 61 72 72 61 79 5f 7a 65 72 6f d blobarray_zero
33b0: 28 42 6c 6f 62 20 2a 61 42 6c 6f 62 2c 20 69 6e (Blob *aBlob, in
33c0: 74 20 6e 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 t n){. int i;.
33d0: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 for(i=0; i<n; i
33e0: 2b 2b 29 20 62 6c 6f 62 5f 7a 65 72 6f 28 26 61 ++) blob_zero(&a
33f0: 42 6c 6f 62 5b 69 5d 29 3b 0a 7d 0a 76 6f 69 64 Blob[i]);.}.void
3400: 20 62 6c 6f 62 61 72 72 61 79 5f 72 65 73 65 74 blobarray_reset
3410: 28 42 6c 6f 62 20 2a 61 42 6c 6f 62 2c 20 69 6e (Blob *aBlob, in
3420: 74 20 6e 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 t n){. int i;.
3430: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 for(i=0; i<n; i
3440: 2b 2b 29 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 ++) blob_reset(&
3450: 61 42 6c 6f 62 5b 69 5d 29 3b 0a 7d 0a 0a 2f 2a aBlob[i]);.}../*
3460: 0a 2a 2a 20 50 61 72 73 65 20 61 20 62 6c 6f 62 .** Parse a blob
3470: 20 69 6e 74 6f 20 73 70 61 63 65 2d 73 65 70 61 into space-sepa
3480: 72 61 74 65 64 20 74 6f 6b 65 6e 73 2e 20 20 53 rated tokens. S
3490: 74 6f 72 65 20 65 61 63 68 20 74 6f 6b 65 6e 20 tore each token
34a0: 69 6e 0a 2a 2a 20 61 6e 20 65 6c 65 6d 65 6e 74 in.** an element
34b0: 20 6f 66 20 74 68 65 20 62 6c 6f 62 61 72 72 61 of the blobarra
34c0: 79 20 61 54 6f 6b 65 6e 5b 5d 2e 20 20 61 54 6f y aToken[]. aTo
34d0: 6b 65 6e 5b 5d 20 69 73 20 6e 54 6f 6b 65 6e 20 ken[] is nToken
34e0: 65 6c 65 6d 65 6e 74 73 20 69 6e 0a 2a 2a 20 73 elements in.** s
34f0: 69 7a 65 2e 20 20 52 65 74 75 72 6e 20 74 68 65 ize. Return the
3500: 20 6e 75 6d 62 65 72 20 6f 66 20 74 6f 6b 65 6e number of token
3510: 73 20 73 65 65 6e 2e 0a 2a 2f 0a 69 6e 74 20 62 s seen..*/.int b
3520: 6c 6f 62 5f 74 6f 6b 65 6e 69 7a 65 28 42 6c 6f lob_tokenize(Blo
3530: 62 20 2a 70 49 6e 2c 20 42 6c 6f 62 20 2a 61 54 b *pIn, Blob *aT
3540: 6f 6b 65 6e 2c 20 69 6e 74 20 6e 54 6f 6b 65 6e oken, int nToken
3550: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f ){. int i;. fo
3560: 72 28 69 3d 30 3b 20 69 3c 6e 54 6f 6b 65 6e 20 r(i=0; i<nToken
3570: 26 26 20 62 6c 6f 62 5f 74 6f 6b 65 6e 28 70 49 && blob_token(pI
3580: 6e 2c 20 26 61 54 6f 6b 65 6e 5b 69 5d 29 3b 20 n, &aToken[i]);
3590: 69 2b 2b 29 7b 7d 0a 20 20 72 65 74 75 72 6e 20 i++){}. return
35a0: 69 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 6f 20 70 i;.}../*.** Do p
35b0: 72 69 6e 74 66 2d 73 74 79 6c 65 20 73 74 72 69 rintf-style stri
35c0: 6e 67 20 72 65 6e 64 65 72 69 6e 67 20 61 6e 64 ng rendering and
35d0: 20 61 70 70 65 6e 64 20 74 68 65 20 72 65 73 75 append the resu
35e0: 6c 74 73 20 74 6f 20 61 20 62 6c 6f 62 2e 0a 2a lts to a blob..*
35f0: 2f 0a 76 6f 69 64 20 62 6c 6f 62 5f 61 70 70 65 /.void blob_appe
3600: 6e 64 66 28 42 6c 6f 62 20 2a 70 42 6c 6f 62 2c ndf(Blob *pBlob,
3610: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f const char *zFo
3620: 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 rmat, ...){. va
3630: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 76 61 5f 73 _list ap;. va_s
3640: 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 tart(ap, zFormat
3650: 29 3b 0a 20 20 76 78 70 72 69 6e 74 66 28 70 42 );. vxprintf(pB
3660: 6c 6f 62 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 lob, zFormat, ap
3670: 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b );. va_end(ap);
3680: 0a 7d 0a 76 6f 69 64 20 62 6c 6f 62 5f 76 61 70 .}.void blob_vap
3690: 70 65 6e 64 66 28 42 6c 6f 62 20 2a 70 42 6c 6f pendf(Blob *pBlo
36a0: 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a b, const char *z
36b0: 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 73 74 20 Format, va_list
36c0: 61 70 29 7b 0a 20 20 76 78 70 72 69 6e 74 66 28 ap){. vxprintf(
36d0: 70 42 6c 6f 62 2c 20 7a 46 6f 72 6d 61 74 2c 20 pBlob, zFormat,
36e0: 61 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e ap);.}../*.** In
36f0: 69 74 61 6c 69 7a 65 20 61 20 62 6c 6f 62 20 74 italize a blob t
3700: 6f 20 74 68 65 20 64 61 74 61 20 6f 6e 20 61 6e o the data on an
3710: 20 69 6e 70 75 74 20 63 68 61 6e 6e 65 6c 2e 20 input channel.
3720: 20 52 65 74 75 72 6e 20 0a 2a 2a 20 74 68 65 20 Return .** the
3730: 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 number of bytes
3740: 72 65 61 64 20 69 6e 74 6f 20 74 68 65 20 62 6c read into the bl
3750: 6f 62 2e 20 20 41 6e 79 20 70 72 69 6f 72 20 63 ob. Any prior c
3760: 6f 6e 74 65 6e 74 0a 2a 2a 20 6f 66 20 74 68 65 ontent.** of the
3770: 20 62 6c 6f 62 20 69 73 20 64 69 73 63 61 72 64 blob is discard
3780: 65 64 2c 20 6e 6f 74 20 66 72 65 65 64 2e 0a 2a ed, not freed..*
3790: 2f 0a 69 6e 74 20 62 6c 6f 62 5f 72 65 61 64 5f /.int blob_read_
37a0: 66 72 6f 6d 5f 63 68 61 6e 6e 65 6c 28 42 6c 6f from_channel(Blo
37b0: 62 20 2a 70 42 6c 6f 62 2c 20 46 49 4c 45 20 2a b *pBlob, FILE *
37c0: 69 6e 2c 20 69 6e 74 20 6e 54 6f 52 65 61 64 29 in, int nToRead)
37d0: 7b 0a 20 20 73 69 7a 65 5f 74 20 6e 3b 0a 20 20 {. size_t n;.
37e0: 62 6c 6f 62 5f 7a 65 72 6f 28 70 42 6c 6f 62 29 blob_zero(pBlob)
37f0: 3b 0a 20 20 69 66 28 20 6e 54 6f 52 65 61 64 3c ;. if( nToRead<
3800: 30 20 29 7b 0a 20 20 20 20 63 68 61 72 20 7a 42 0 ){. char zB
3810: 75 66 5b 31 30 30 30 30 5d 3b 0a 20 20 20 20 77 uf[10000];. w
3820: 68 69 6c 65 28 20 21 66 65 6f 66 28 69 6e 29 20 hile( !feof(in)
3830: 29 7b 0a 20 20 20 20 20 20 6e 20 3d 20 66 72 65 ){. n = fre
3840: 61 64 28 7a 42 75 66 2c 20 31 2c 20 73 69 7a 65 ad(zBuf, 1, size
3850: 6f 66 28 7a 42 75 66 29 2c 20 69 6e 29 3b 0a 20 of(zBuf), in);.
3860: 20 20 20 20 20 69 66 28 20 6e 3e 30 20 29 7b 0a if( n>0 ){.
3870: 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 blob_app
3880: 65 6e 64 28 70 42 6c 6f 62 2c 20 7a 42 75 66 2c end(pBlob, zBuf,
3890: 20 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 n);. }.
38a0: 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 }. }else{.
38b0: 62 6c 6f 62 5f 72 65 73 69 7a 65 28 70 42 6c 6f blob_resize(pBlo
38c0: 62 2c 20 6e 54 6f 52 65 61 64 29 3b 0a 20 20 20 b, nToRead);.
38d0: 20 6e 20 3d 20 66 72 65 61 64 28 62 6c 6f 62 5f n = fread(blob_
38e0: 62 75 66 66 65 72 28 70 42 6c 6f 62 29 2c 20 31 buffer(pBlob), 1
38f0: 2c 20 6e 54 6f 52 65 61 64 2c 20 69 6e 29 3b 0a , nToRead, in);.
3900: 20 20 20 20 62 6c 6f 62 5f 72 65 73 69 7a 65 28 blob_resize(
3910: 70 42 6c 6f 62 2c 20 6e 29 3b 0a 20 20 7d 0a 20 pBlob, n);. }.
3920: 20 72 65 74 75 72 6e 20 62 6c 6f 62 5f 73 69 7a return blob_siz
3930: 65 28 70 42 6c 6f 62 29 3b 0a 7d 0a 0a 2f 2a 0a e(pBlob);.}../*.
3940: 2a 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 61 20 ** Initialize a
3950: 62 6c 6f 62 20 74 6f 20 62 65 20 74 68 65 20 63 blob to be the c
3960: 6f 6e 74 65 6e 74 20 6f 66 20 61 20 66 69 6c 65 ontent of a file
3970: 2e 20 20 49 66 20 74 68 65 20 66 69 6c 65 6e 61 . If the filena
3980: 6d 65 0a 2a 2a 20 69 73 20 62 6c 61 6e 6b 20 6f me.** is blank o
3990: 72 20 22 2d 22 20 74 68 65 6e 20 72 65 61 64 20 r "-" then read
39a0: 66 72 6f 6d 20 73 74 61 6e 64 61 72 64 20 69 6e from standard in
39b0: 70 75 74 2e 0a 2a 2a 0a 2a 2a 20 41 6e 79 20 70 put..**.** Any p
39c0: 72 69 6f 72 20 63 6f 6e 74 65 6e 74 20 6f 66 20 rior content of
39d0: 74 68 65 20 62 6c 6f 62 20 69 73 20 64 69 73 63 the blob is disc
39e0: 61 72 64 65 64 2c 20 6e 6f 74 20 66 72 65 65 64 arded, not freed
39f0: 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 ..**.** Return t
3a00: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 he number of byt
3a10: 65 73 20 72 65 61 64 2e 20 20 52 65 74 75 72 6e es read. Return
3a20: 20 2d 31 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 -1 for an error
3a30: 2e 0a 2a 2f 0a 69 6e 74 20 62 6c 6f 62 5f 72 65 ..*/.int blob_re
3a40: 61 64 5f 66 72 6f 6d 5f 66 69 6c 65 28 42 6c 6f ad_from_file(Blo
3a50: 62 20 2a 70 42 6c 6f 62 2c 20 63 6f 6e 73 74 20 b *pBlob, const
3a60: 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 char *zFilename)
3a70: 7b 0a 20 20 69 6e 74 20 73 69 7a 65 2c 20 67 6f {. int size, go
3a80: 74 3b 0a 20 20 46 49 4c 45 20 2a 69 6e 3b 0a 20 t;. FILE *in;.
3a90: 20 69 66 28 20 7a 46 69 6c 65 6e 61 6d 65 3d 3d if( zFilename==
3aa0: 30 20 7c 7c 20 7a 46 69 6c 65 6e 61 6d 65 5b 30 0 || zFilename[0
3ab0: 5d 3d 3d 30 0a 20 20 20 20 20 20 20 20 7c 7c 20 ]==0. ||
3ac0: 28 7a 46 69 6c 65 6e 61 6d 65 5b 30 5d 3d 3d 27 (zFilename[0]=='
3ad0: 2d 27 20 26 26 20 7a 46 69 6c 65 6e 61 6d 65 5b -' && zFilename[
3ae0: 31 5d 3d 3d 30 29 20 29 7b 0a 20 20 20 20 72 65 1]==0) ){. re
3af0: 74 75 72 6e 20 62 6c 6f 62 5f 72 65 61 64 5f 66 turn blob_read_f
3b00: 72 6f 6d 5f 63 68 61 6e 6e 65 6c 28 70 42 6c 6f rom_channel(pBlo
3b10: 62 2c 20 73 74 64 69 6e 2c 20 2d 31 29 3b 0a 20 b, stdin, -1);.
3b20: 20 7d 0a 20 20 73 69 7a 65 20 3d 20 66 69 6c 65 }. size = file
3b30: 5f 73 69 7a 65 28 7a 46 69 6c 65 6e 61 6d 65 29 _size(zFilename)
3b40: 3b 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 42 ;. blob_zero(pB
3b50: 6c 6f 62 29 3b 0a 20 20 69 66 28 20 73 69 7a 65 lob);. if( size
3b60: 3c 30 20 29 7b 0a 20 20 20 20 66 6f 73 73 69 6c <0 ){. fossil
3b70: 5f 70 61 6e 69 63 28 22 6e 6f 20 73 75 63 68 20 _panic("no such
3b80: 66 69 6c 65 3a 20 25 73 22 2c 20 7a 46 69 6c 65 file: %s", zFile
3b90: 6e 61 6d 65 29 3b 0a 20 20 7d 0a 20 20 69 66 28 name);. }. if(
3ba0: 20 73 69 7a 65 3d 3d 30 20 29 7b 0a 20 20 20 20 size==0 ){.
3bb0: 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 return 0;. }.
3bc0: 62 6c 6f 62 5f 72 65 73 69 7a 65 28 70 42 6c 6f blob_resize(pBlo
3bd0: 62 2c 20 73 69 7a 65 29 3b 0a 20 20 69 6e 20 3d b, size);. in =
3be0: 20 66 6f 70 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 fopen(zFilename
3bf0: 2c 20 22 72 62 22 29 3b 0a 20 20 69 66 28 20 69 , "rb");. if( i
3c00: 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 66 6f 73 73 n==0 ){. foss
3c10: 69 6c 5f 70 61 6e 69 63 28 22 63 61 6e 6e 6f 74 il_panic("cannot
3c20: 20 6f 70 65 6e 20 25 73 20 66 6f 72 20 72 65 61 open %s for rea
3c30: 64 69 6e 67 22 2c 20 7a 46 69 6c 65 6e 61 6d 65 ding", zFilename
3c40: 29 3b 0a 20 20 7d 0a 20 20 67 6f 74 20 3d 20 66 );. }. got = f
3c50: 72 65 61 64 28 62 6c 6f 62 5f 62 75 66 66 65 72 read(blob_buffer
3c60: 28 70 42 6c 6f 62 29 2c 20 31 2c 20 73 69 7a 65 (pBlob), 1, size
3c70: 2c 20 69 6e 29 3b 0a 20 20 66 63 6c 6f 73 65 28 , in);. fclose(
3c80: 69 6e 29 3b 0a 20 20 69 66 28 20 67 6f 74 3c 73 in);. if( got<s
3c90: 69 7a 65 20 29 7b 0a 20 20 20 20 62 6c 6f 62 5f ize ){. blob_
3ca0: 72 65 73 69 7a 65 28 70 42 6c 6f 62 2c 20 67 6f resize(pBlob, go
3cb0: 74 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e t);. }. return
3cc0: 20 67 6f 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 got;.}../*.** W
3cd0: 72 69 74 65 20 74 68 65 20 63 6f 6e 74 65 6e 74 rite the content
3ce0: 20 6f 66 20 61 20 62 6c 6f 62 20 69 6e 74 6f 20 of a blob into
3cf0: 61 20 66 69 6c 65 2e 0a 2a 2a 0a 2a 2a 20 49 66 a file..**.** If
3d00: 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 69 73 the filename is
3d10: 20 62 6c 61 6e 6b 20 6f 72 20 22 2d 22 20 74 68 blank or "-" th
3d20: 65 6e 20 77 72 69 74 65 20 74 6f 20 73 74 61 6e en write to stan
3d30: 64 61 72 64 20 6f 75 74 70 75 74 2e 0a 2a 2a 0a dard output..**.
3d40: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 ** Return the nu
3d50: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 77 72 mber of bytes wr
3d60: 69 74 74 65 6e 2e 0a 2a 2f 0a 69 6e 74 20 62 6c itten..*/.int bl
3d70: 6f 62 5f 77 72 69 74 65 5f 74 6f 5f 66 69 6c 65 ob_write_to_file
3d80: 28 42 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 63 6f (Blob *pBlob, co
3d90: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e nst char *zFilen
3da0: 61 6d 65 29 7b 0a 20 20 46 49 4c 45 20 2a 6f 75 ame){. FILE *ou
3db0: 74 3b 0a 20 20 69 6e 74 20 6e 65 65 64 54 6f 43 t;. int needToC
3dc0: 6c 6f 73 65 3b 0a 20 20 69 6e 74 20 77 72 6f 74 lose;. int wrot
3dd0: 65 3b 0a 0a 20 20 69 66 28 20 7a 46 69 6c 65 6e e;.. if( zFilen
3de0: 61 6d 65 5b 30 5d 3d 3d 30 20 7c 7c 20 28 7a 46 ame[0]==0 || (zF
3df0: 69 6c 65 6e 61 6d 65 5b 30 5d 3d 3d 27 2d 27 20 ilename[0]=='-'
3e00: 26 26 20 7a 46 69 6c 65 6e 61 6d 65 5b 31 5d 3d && zFilename[1]=
3e10: 3d 30 29 20 29 7b 0a 20 20 20 20 6f 75 74 20 3d =0) ){. out =
3e20: 20 73 74 64 6f 75 74 3b 0a 20 20 20 20 6e 65 65 stdout;. nee
3e30: 64 54 6f 43 6c 6f 73 65 20 3d 20 30 3b 0a 20 20 dToClose = 0;.
3e40: 7d 65 6c 73 65 7b 0a 20 20 20 20 69 6e 74 20 69 }else{. int i
3e50: 2c 20 6e 4e 61 6d 65 3b 0a 20 20 20 20 63 68 61 , nName;. cha
3e60: 72 20 2a 7a 4e 61 6d 65 2c 20 7a 42 75 66 5b 31 r *zName, zBuf[1
3e70: 30 30 30 5d 3b 0a 0a 20 20 20 20 6e 4e 61 6d 65 000];.. nName
3e80: 20 3d 20 73 74 72 6c 65 6e 28 7a 46 69 6c 65 6e = strlen(zFilen
3e90: 61 6d 65 29 3b 0a 20 20 20 20 69 66 28 20 6e 4e ame);. if( nN
3ea0: 61 6d 65 3e 3d 73 69 7a 65 6f 66 28 7a 42 75 66 ame>=sizeof(zBuf
3eb0: 29 20 29 7b 0a 20 20 20 20 20 20 7a 4e 61 6d 65 ) ){. zName
3ec0: 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 22 2c = mprintf("%s",
3ed0: 20 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 20 zFilename);.
3ee0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 7a 4e }else{. zN
3ef0: 61 6d 65 20 3d 20 7a 42 75 66 3b 0a 20 20 20 20 ame = zBuf;.
3f00: 20 20 73 74 72 63 70 79 28 7a 4e 61 6d 65 2c 20 strcpy(zName,
3f10: 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 20 20 zFilename);.
3f20: 7d 0a 20 20 20 20 6e 4e 61 6d 65 20 3d 20 66 69 }. nName = fi
3f30: 6c 65 5f 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 le_simplify_name
3f40: 28 7a 4e 61 6d 65 2c 20 6e 4e 61 6d 65 29 3b 0a (zName, nName);.
3f50: 20 20 20 20 66 6f 72 28 69 3d 31 3b 20 69 3c 6e for(i=1; i<n
3f60: 4e 61 6d 65 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 Name; i++){.
3f70: 20 20 69 66 28 20 7a 4e 61 6d 65 5b 69 5d 3d 3d if( zName[i]==
3f80: 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 20 20 7a '/' ){. z
3f90: 4e 61 6d 65 5b 69 5d 20 3d 20 30 3b 0a 23 69 66 Name[i] = 0;.#if
3fa0: 64 65 66 20 5f 5f 4d 49 4e 47 57 33 32 5f 5f 0a def __MINGW32__.
3fb0: 20 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 /*.
3fc0: 20 20 20 2a 2a 20 4f 6e 20 57 69 6e 64 6f 77 73 ** On Windows
3fd0: 2c 20 6c 6f 63 61 6c 20 70 61 74 68 20 6c 6f 6f , local path loo
3fe0: 6b 73 20 6c 69 6b 65 3a 20 43 3a 2f 64 65 76 65 ks like: C:/deve
3ff0: 6c 6f 70 2f 70 72 6f 6a 65 63 74 2f 66 69 6c 65 lop/project/file
4000: 2e 74 78 74 0a 20 20 20 20 20 20 20 20 2a 2a 20 .txt. **
4010: 54 68 65 20 69 66 20 73 74 6f 70 73 20 75 73 20 The if stops us
4020: 66 72 6f 6d 20 74 72 79 69 6e 67 20 74 6f 20 63 from trying to c
4030: 72 65 61 74 65 20 61 20 64 69 72 65 63 74 6f 72 reate a director
4040: 79 20 6f 66 20 61 20 64 72 69 76 65 20 6c 65 74 y of a drive let
4050: 74 65 72 0a 20 20 20 20 20 20 20 20 2a 2a 20 43 ter. ** C
4060: 3a 20 69 6e 20 74 68 69 73 20 65 78 61 6d 70 6c : in this exampl
4070: 65 2e 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 e.. */.
4080: 20 20 20 20 20 20 69 66 28 20 21 28 69 3d 3d 32 if( !(i==2
4090: 20 26 26 20 7a 4e 61 6d 65 5b 31 5d 3d 3d 27 3a && zName[1]==':
40a0: 27 29 20 29 7b 0a 23 65 6e 64 69 66 0a 20 20 20 ') ){.#endif.
40b0: 20 20 20 20 20 20 20 69 66 28 20 66 69 6c 65 5f if( file_
40c0: 6d 6b 64 69 72 28 7a 4e 61 6d 65 2c 20 31 29 20 mkdir(zName, 1)
40d0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 ){. f
40e0: 6f 73 73 69 6c 5f 70 61 6e 69 63 28 22 75 6e 61 ossil_panic("una
40f0: 62 6c 65 20 74 6f 20 63 72 65 61 74 65 20 64 69 ble to create di
4100: 72 65 63 74 6f 72 79 20 25 73 22 2c 20 7a 4e 61 rectory %s", zNa
4110: 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d me);. }
4120: 0a 23 69 66 64 65 66 20 5f 5f 4d 49 4e 47 57 33 .#ifdef __MINGW3
4130: 32 5f 5f 0a 20 20 20 20 20 20 20 20 7d 0a 23 65 2__. }.#e
4140: 6e 64 69 66 0a 20 20 20 20 20 20 20 20 7a 4e 61 ndif. zNa
4150: 6d 65 5b 69 5d 20 3d 20 27 2f 27 3b 0a 20 20 20 me[i] = '/';.
4160: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 6f }. }. o
4170: 75 74 20 3d 20 66 6f 70 65 6e 28 7a 4e 61 6d 65 ut = fopen(zName
4180: 2c 20 22 77 62 22 29 3b 0a 20 20 20 20 69 66 28 , "wb");. if(
4190: 20 6f 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20 20 out==0 ){.
41a0: 20 66 6f 73 73 69 6c 5f 70 61 6e 69 63 28 22 75 fossil_panic("u
41b0: 6e 61 62 6c 65 20 74 6f 20 6f 70 65 6e 20 66 69 nable to open fi
41c0: 6c 65 20 5c 22 25 73 5c 22 20 66 6f 72 20 77 72 le \"%s\" for wr
41d0: 69 74 69 6e 67 22 2c 20 7a 4e 61 6d 65 29 3b 0a iting", zName);.
41e0: 20 20 20 20 7d 0a 20 20 20 20 6e 65 65 64 54 6f }. needTo
41f0: 43 6c 6f 73 65 20 3d 20 31 3b 0a 20 20 20 20 69 Close = 1;. i
4200: 66 28 20 7a 4e 61 6d 65 21 3d 7a 42 75 66 20 29 f( zName!=zBuf )
4210: 20 66 72 65 65 28 7a 4e 61 6d 65 29 3b 0a 20 20 free(zName);.
4220: 7d 0a 20 20 62 6c 6f 62 5f 69 73 5f 69 6e 69 74 }. blob_is_init
4230: 28 70 42 6c 6f 62 29 3b 0a 20 20 77 72 6f 74 65 (pBlob);. wrote
4240: 20 3d 20 66 77 72 69 74 65 28 62 6c 6f 62 5f 62 = fwrite(blob_b
4250: 75 66 66 65 72 28 70 42 6c 6f 62 29 2c 20 31 2c uffer(pBlob), 1,
4260: 20 62 6c 6f 62 5f 73 69 7a 65 28 70 42 6c 6f 62 blob_size(pBlob
4270: 29 2c 20 6f 75 74 29 3b 0a 20 20 69 66 28 20 6e ), out);. if( n
4280: 65 65 64 54 6f 43 6c 6f 73 65 20 29 20 66 63 6c eedToClose ) fcl
4290: 6f 73 65 28 6f 75 74 29 3b 0a 20 20 69 66 28 20 ose(out);. if(
42a0: 77 72 6f 74 65 21 3d 62 6c 6f 62 5f 73 69 7a 65 wrote!=blob_size
42b0: 28 70 42 6c 6f 62 29 20 29 7b 0a 20 20 20 20 66 (pBlob) ){. f
42c0: 6f 73 73 69 6c 5f 70 61 6e 69 63 28 22 73 68 6f ossil_panic("sho
42d0: 72 74 20 77 72 69 74 65 3a 20 25 64 20 6f 66 20 rt write: %d of
42e0: 25 64 20 62 79 74 65 73 20 74 6f 20 25 73 22 2c %d bytes to %s",
42f0: 20 77 72 6f 74 65 2c 0a 20 20 20 20 20 20 20 62 wrote,. b
4300: 6c 6f 62 5f 73 69 7a 65 28 70 42 6c 6f 62 29 2c lob_size(pBlob),
4310: 20 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 7d zFilename);. }
4320: 0a 20 20 72 65 74 75 72 6e 20 77 72 6f 74 65 3b . return wrote;
4330: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 72 65 .}../*.** Compre
4340: 73 73 20 61 20 62 6c 6f 62 20 70 49 6e 2e 20 20 ss a blob pIn.
4350: 53 74 6f 72 65 20 74 68 65 20 72 65 73 75 6c 74 Store the result
4360: 20 69 6e 20 70 4f 75 74 2e 20 20 49 74 20 69 73 in pOut. It is
4370: 20 6f 6b 20 66 6f 72 20 70 49 6e 20 61 6e 64 0a ok for pIn and.
4380: 2a 2a 20 70 4f 75 74 20 74 6f 20 62 65 20 74 68 ** pOut to be th
4390: 65 20 73 61 6d 65 20 62 6c 6f 62 2e 20 0a 2a 2a e same blob. .**
43a0: 20 0a 2a 2a 20 70 4f 75 74 20 6d 75 73 74 20 65 .** pOut must e
43b0: 69 74 68 65 72 20 62 65 20 74 68 65 20 73 61 6d ither be the sam
43c0: 65 20 61 73 20 70 49 6e 20 6f 72 20 65 6c 73 65 e as pIn or else
43d0: 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 64 2e 0a uninitialized..
43e0: 2a 2f 0a 76 6f 69 64 20 62 6c 6f 62 5f 63 6f 6d */.void blob_com
43f0: 70 72 65 73 73 28 42 6c 6f 62 20 2a 70 49 6e 2c press(Blob *pIn,
4400: 20 42 6c 6f 62 20 2a 70 4f 75 74 29 7b 0a 20 20 Blob *pOut){.
4410: 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 6e 49 6e unsigned int nIn
4420: 20 3d 20 62 6c 6f 62 5f 73 69 7a 65 28 70 49 6e = blob_size(pIn
4430: 29 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 69 6e );. unsigned in
4440: 74 20 6e 4f 75 74 20 3d 20 31 33 20 2b 20 6e 49 t nOut = 13 + nI
4450: 6e 20 2b 20 28 6e 49 6e 2b 39 39 39 29 2f 31 30 n + (nIn+999)/10
4460: 30 30 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 6c 00;. unsigned l
4470: 6f 6e 67 20 69 6e 74 20 6e 4f 75 74 32 3b 0a 20 ong int nOut2;.
4480: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
4490: 6f 75 74 42 75 66 3b 0a 20 20 42 6c 6f 62 20 74 outBuf;. Blob t
44a0: 65 6d 70 3b 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f emp;. blob_zero
44b0: 28 26 74 65 6d 70 29 3b 0a 20 20 62 6c 6f 62 5f (&temp);. blob_
44c0: 72 65 73 69 7a 65 28 26 74 65 6d 70 2c 20 6e 4f resize(&temp, nO
44d0: 75 74 2b 34 29 3b 0a 20 20 6f 75 74 42 75 66 20 ut+4);. outBuf
44e0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
44f0: 2a 29 62 6c 6f 62 5f 62 75 66 66 65 72 28 26 74 *)blob_buffer(&t
4500: 65 6d 70 29 3b 0a 20 20 6f 75 74 42 75 66 5b 30 emp);. outBuf[0
4510: 5d 20 3d 20 6e 49 6e 3e 3e 32 34 20 26 20 30 78 ] = nIn>>24 & 0x
4520: 66 66 3b 0a 20 20 6f 75 74 42 75 66 5b 31 5d 20 ff;. outBuf[1]
4530: 3d 20 6e 49 6e 3e 3e 31 36 20 26 20 30 78 66 66 = nIn>>16 & 0xff
4540: 3b 0a 20 20 6f 75 74 42 75 66 5b 32 5d 20 3d 20 ;. outBuf[2] =
4550: 6e 49 6e 3e 3e 38 20 26 20 30 78 66 66 3b 0a 20 nIn>>8 & 0xff;.
4560: 20 6f 75 74 42 75 66 5b 33 5d 20 3d 20 6e 49 6e outBuf[3] = nIn
4570: 20 26 20 30 78 66 66 3b 0a 20 20 6e 4f 75 74 32 & 0xff;. nOut2
4580: 20 3d 20 28 6c 6f 6e 67 20 69 6e 74 29 6e 4f 75 = (long int)nOu
4590: 74 3b 0a 20 20 63 6f 6d 70 72 65 73 73 28 26 6f t;. compress(&o
45a0: 75 74 42 75 66 5b 34 5d 2c 20 26 6e 4f 75 74 32 utBuf[4], &nOut2
45b0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e ,. (un
45c0: 73 69 67 6e 65 64 20 63 68 61 72 2a 29 62 6c 6f signed char*)blo
45d0: 62 5f 62 75 66 66 65 72 28 70 49 6e 29 2c 20 62 b_buffer(pIn), b
45e0: 6c 6f 62 5f 73 69 7a 65 28 70 49 6e 29 29 3b 0a lob_size(pIn));.
45f0: 20 20 69 66 28 20 70 4f 75 74 3d 3d 70 49 6e 20 if( pOut==pIn
4600: 29 20 62 6c 6f 62 5f 72 65 73 65 74 28 70 4f 75 ) blob_reset(pOu
4610: 74 29 3b 0a 20 20 62 6c 6f 62 5f 69 73 5f 72 65 t);. blob_is_re
4620: 73 65 74 28 70 4f 75 74 29 3b 0a 20 20 2a 70 4f set(pOut);. *pO
4630: 75 74 20 3d 20 74 65 6d 70 3b 0a 20 20 62 6c 6f ut = temp;. blo
4640: 62 5f 72 65 73 69 7a 65 28 70 4f 75 74 2c 20 6e b_resize(pOut, n
4650: 4f 75 74 32 2b 34 29 3b 0a 7d 0a 0a 2f 2a 0a 2a Out2+4);.}../*.*
4660: 2a 20 43 4f 4d 4d 41 4e 44 3a 20 74 65 73 74 2d * COMMAND: test-
4670: 63 6f 6d 70 72 65 73 73 0a 2a 2f 0a 76 6f 69 64 compress.*/.void
4680: 20 63 6f 6d 70 72 65 73 73 5f 63 6d 64 28 76 6f compress_cmd(vo
4690: 69 64 29 7b 0a 20 20 42 6c 6f 62 20 66 3b 0a 20 id){. Blob f;.
46a0: 20 69 66 28 20 67 2e 61 72 67 63 21 3d 34 20 29 if( g.argc!=4 )
46b0: 20 75 73 61 67 65 28 22 49 4e 50 55 54 46 49 4c usage("INPUTFIL
46c0: 45 20 4f 55 54 50 55 54 46 49 4c 45 22 29 3b 0a E OUTPUTFILE");.
46d0: 20 20 62 6c 6f 62 5f 72 65 61 64 5f 66 72 6f 6d blob_read_from
46e0: 5f 66 69 6c 65 28 26 66 2c 20 67 2e 61 72 67 76 _file(&f, g.argv
46f0: 5b 32 5d 29 3b 0a 20 20 62 6c 6f 62 5f 63 6f 6d [2]);. blob_com
4700: 70 72 65 73 73 28 26 66 2c 20 26 66 29 3b 0a 20 press(&f, &f);.
4710: 20 62 6c 6f 62 5f 77 72 69 74 65 5f 74 6f 5f 66 blob_write_to_f
4720: 69 6c 65 28 26 66 2c 20 67 2e 61 72 67 76 5b 33 ile(&f, g.argv[3
4730: 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d ]);.}../*.** Com
4740: 70 72 65 73 73 20 74 68 65 20 63 6f 6e 63 61 74 press the concat
4750: 65 6e 61 74 69 6f 6e 20 6f 66 20 61 20 62 6c 6f enation of a blo
4760: 62 73 20 70 49 6e 31 20 61 6e 64 20 70 49 6e 32 bs pIn1 and pIn2
4770: 2e 20 20 53 74 6f 72 65 20 74 68 65 20 72 65 73 . Store the res
4780: 75 6c 74 20 0a 2a 2a 20 69 6e 20 70 4f 75 74 2e ult .** in pOut.
4790: 20 0a 2a 2a 20 0a 2a 2a 20 70 4f 75 74 20 6d 75 .** .** pOut mu
47a0: 73 74 20 62 65 20 65 69 74 68 65 72 20 75 6e 69 st be either uni
47b0: 6e 69 74 69 61 6c 69 7a 65 64 20 6f 72 20 6d 75 nitialized or mu
47c0: 73 74 20 62 65 20 74 68 65 20 73 61 6d 65 20 61 st be the same a
47d0: 73 20 65 69 74 68 65 72 20 70 49 6e 31 20 6f 72 s either pIn1 or
47e0: 0a 2a 2a 20 70 49 6e 32 2e 0a 2a 2f 0a 76 6f 69 .** pIn2..*/.voi
47f0: 64 20 62 6c 6f 62 5f 63 6f 6d 70 72 65 73 73 32 d blob_compress2
4800: 28 42 6c 6f 62 20 2a 70 49 6e 31 2c 20 42 6c 6f (Blob *pIn1, Blo
4810: 62 20 2a 70 49 6e 32 2c 20 42 6c 6f 62 20 2a 70 b *pIn2, Blob *p
4820: 4f 75 74 29 7b 0a 20 20 75 6e 73 69 67 6e 65 64 Out){. unsigned
4830: 20 69 6e 74 20 6e 49 6e 20 3d 20 62 6c 6f 62 5f int nIn = blob_
4840: 73 69 7a 65 28 70 49 6e 31 29 20 2b 20 62 6c 6f size(pIn1) + blo
4850: 62 5f 73 69 7a 65 28 70 49 6e 32 29 3b 0a 20 20 b_size(pIn2);.
4860: 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 6e 4f 75 unsigned int nOu
4870: 74 20 3d 20 31 33 20 2b 20 6e 49 6e 20 2b 20 28 t = 13 + nIn + (
4880: 6e 49 6e 2b 39 39 39 29 2f 31 30 30 30 3b 0a 20 nIn+999)/1000;.
4890: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
48a0: 6f 75 74 42 75 66 3b 0a 20 20 7a 5f 73 74 72 65 outBuf;. z_stre
48b0: 61 6d 20 73 74 72 65 61 6d 3b 0a 20 20 42 6c 6f am stream;. Blo
48c0: 62 20 74 65 6d 70 3b 0a 20 20 62 6c 6f 62 5f 7a b temp;. blob_z
48d0: 65 72 6f 28 26 74 65 6d 70 29 3b 0a 20 20 62 6c ero(&temp);. bl
48e0: 6f 62 5f 72 65 73 69 7a 65 28 26 74 65 6d 70 2c ob_resize(&temp,
48f0: 20 6e 4f 75 74 2b 34 29 3b 0a 20 20 6f 75 74 42 nOut+4);. outB
4900: 75 66 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 uf = (unsigned c
4910: 68 61 72 2a 29 62 6c 6f 62 5f 62 75 66 66 65 72 har*)blob_buffer
4920: 28 26 74 65 6d 70 29 3b 0a 20 20 6f 75 74 42 75 (&temp);. outBu
4930: 66 5b 30 5d 20 3d 20 6e 49 6e 3e 3e 32 34 20 26 f[0] = nIn>>24 &
4940: 20 30 78 66 66 3b 0a 20 20 6f 75 74 42 75 66 5b 0xff;. outBuf[
4950: 31 5d 20 3d 20 6e 49 6e 3e 3e 31 36 20 26 20 30 1] = nIn>>16 & 0
4960: 78 66 66 3b 0a 20 20 6f 75 74 42 75 66 5b 32 5d xff;. outBuf[2]
4970: 20 3d 20 6e 49 6e 3e 3e 38 20 26 20 30 78 66 66 = nIn>>8 & 0xff
4980: 3b 0a 20 20 6f 75 74 42 75 66 5b 33 5d 20 3d 20 ;. outBuf[3] =
4990: 6e 49 6e 20 26 20 30 78 66 66 3b 0a 20 20 73 74 nIn & 0xff;. st
49a0: 72 65 61 6d 2e 7a 61 6c 6c 6f 63 20 3d 20 28 61 ream.zalloc = (a
49b0: 6c 6c 6f 63 5f 66 75 6e 63 29 30 3b 0a 20 20 73 lloc_func)0;. s
49c0: 74 72 65 61 6d 2e 7a 66 72 65 65 20 3d 20 28 66 tream.zfree = (f
49d0: 72 65 65 5f 66 75 6e 63 29 30 3b 0a 20 20 73 74 ree_func)0;. st
49e0: 72 65 61 6d 2e 6f 70 61 71 75 65 20 3d 20 30 3b ream.opaque = 0;
49f0: 0a 20 20 73 74 72 65 61 6d 2e 61 76 61 69 6c 5f . stream.avail_
4a00: 6f 75 74 20 3d 20 6e 4f 75 74 3b 0a 20 20 73 74 out = nOut;. st
4a10: 72 65 61 6d 2e 6e 65 78 74 5f 6f 75 74 20 3d 20 ream.next_out =
4a20: 26 6f 75 74 42 75 66 5b 34 5d 3b 0a 20 20 64 65 &outBuf[4];. de
4a30: 66 6c 61 74 65 49 6e 69 74 28 26 73 74 72 65 61 flateInit(&strea
4a40: 6d 2c 20 39 29 3b 0a 20 20 73 74 72 65 61 6d 2e m, 9);. stream.
4a50: 61 76 61 69 6c 5f 69 6e 20 3d 20 62 6c 6f 62 5f avail_in = blob_
4a60: 73 69 7a 65 28 70 49 6e 31 29 3b 0a 20 20 73 74 size(pIn1);. st
4a70: 72 65 61 6d 2e 6e 65 78 74 5f 69 6e 20 3d 20 28 ream.next_in = (
4a80: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 2a 29 62 unsigned char*)b
4a90: 6c 6f 62 5f 62 75 66 66 65 72 28 70 49 6e 31 29 lob_buffer(pIn1)
4aa0: 3b 0a 20 20 64 65 66 6c 61 74 65 28 26 73 74 72 ;. deflate(&str
4ab0: 65 61 6d 2c 20 30 29 3b 0a 20 20 73 74 72 65 61 eam, 0);. strea
4ac0: 6d 2e 61 76 61 69 6c 5f 69 6e 20 3d 20 62 6c 6f m.avail_in = blo
4ad0: 62 5f 73 69 7a 65 28 70 49 6e 32 29 3b 0a 20 20 b_size(pIn2);.
4ae0: 73 74 72 65 61 6d 2e 6e 65 78 74 5f 69 6e 20 3d stream.next_in =
4af0: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 2a (unsigned char*
4b00: 29 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 49 6e )blob_buffer(pIn
4b10: 32 29 3b 0a 20 20 64 65 66 6c 61 74 65 28 26 73 2);. deflate(&s
4b20: 74 72 65 61 6d 2c 20 30 29 3b 0a 20 20 64 65 66 tream, 0);. def
4b30: 6c 61 74 65 28 26 73 74 72 65 61 6d 2c 20 5a 5f late(&stream, Z_
4b40: 46 49 4e 49 53 48 29 3b 0a 20 20 62 6c 6f 62 5f FINISH);. blob_
4b50: 72 65 73 69 7a 65 28 26 74 65 6d 70 2c 20 73 74 resize(&temp, st
4b60: 72 65 61 6d 2e 74 6f 74 61 6c 5f 6f 75 74 20 2b ream.total_out +
4b70: 20 34 29 3b 0a 20 20 64 65 66 6c 61 74 65 45 6e 4);. deflateEn
4b80: 64 28 26 73 74 72 65 61 6d 29 3b 0a 20 20 69 66 d(&stream);. if
4b90: 28 20 70 4f 75 74 3d 3d 70 49 6e 31 20 29 20 62 ( pOut==pIn1 ) b
4ba0: 6c 6f 62 5f 72 65 73 65 74 28 70 4f 75 74 29 3b lob_reset(pOut);
4bb0: 0a 20 20 69 66 28 20 70 4f 75 74 3d 3d 70 49 6e . if( pOut==pIn
4bc0: 32 20 29 20 62 6c 6f 62 5f 72 65 73 65 74 28 70 2 ) blob_reset(p
4bd0: 4f 75 74 29 3b 0a 20 20 62 6c 6f 62 5f 69 73 5f Out);. blob_is_
4be0: 72 65 73 65 74 28 70 4f 75 74 29 3b 0a 20 20 2a reset(pOut);. *
4bf0: 70 4f 75 74 20 3d 20 74 65 6d 70 3b 0a 7d 0a 0a pOut = temp;.}..
4c00: 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20 74 /*.** COMMAND: t
4c10: 65 73 74 2d 63 6f 6d 70 72 65 73 73 2d 32 0a 2a est-compress-2.*
4c20: 2f 0a 76 6f 69 64 20 63 6f 6d 70 72 65 73 73 32 /.void compress2
4c30: 5f 63 6d 64 28 76 6f 69 64 29 7b 0a 20 20 42 6c _cmd(void){. Bl
4c40: 6f 62 20 66 31 2c 20 66 32 3b 0a 20 20 69 66 28 ob f1, f2;. if(
4c50: 20 67 2e 61 72 67 63 21 3d 35 20 29 20 75 73 61 g.argc!=5 ) usa
4c60: 67 65 28 22 49 4e 50 55 54 46 49 4c 45 31 20 49 ge("INPUTFILE1 I
4c70: 4e 50 55 54 46 49 4c 45 32 20 4f 55 54 50 55 54 NPUTFILE2 OUTPUT
4c80: 46 49 4c 45 22 29 3b 0a 20 20 62 6c 6f 62 5f 72 FILE");. blob_r
4c90: 65 61 64 5f 66 72 6f 6d 5f 66 69 6c 65 28 26 66 ead_from_file(&f
4ca0: 31 2c 20 67 2e 61 72 67 76 5b 32 5d 29 3b 0a 20 1, g.argv[2]);.
4cb0: 20 62 6c 6f 62 5f 72 65 61 64 5f 66 72 6f 6d 5f blob_read_from_
4cc0: 66 69 6c 65 28 26 66 32 2c 20 67 2e 61 72 67 76 file(&f2, g.argv
4cd0: 5b 33 5d 29 3b 0a 20 20 62 6c 6f 62 5f 63 6f 6d [3]);. blob_com
4ce0: 70 72 65 73 73 32 28 26 66 31 2c 20 26 66 32 2c press2(&f1, &f2,
4cf0: 20 26 66 31 29 3b 0a 20 20 62 6c 6f 62 5f 77 72 &f1);. blob_wr
4d00: 69 74 65 5f 74 6f 5f 66 69 6c 65 28 26 66 31 2c ite_to_file(&f1,
4d10: 20 67 2e 61 72 67 76 5b 34 5d 29 3b 0a 7d 0a 0a g.argv[4]);.}..
4d20: 2f 2a 0a 2a 2a 20 55 6e 63 6f 6d 70 72 65 73 73 /*.** Uncompress
4d30: 20 62 6c 6f 62 20 70 49 6e 20 61 6e 64 20 73 74 blob pIn and st
4d40: 6f 72 65 20 74 68 65 20 72 65 73 75 6c 74 20 69 ore the result i
4d50: 6e 20 70 4f 75 74 2e 20 20 49 74 20 69 73 20 6f n pOut. It is o
4d60: 6b 20 66 6f 72 20 70 49 6e 20 61 6e 64 0a 2a 2a k for pIn and.**
4d70: 20 70 4f 75 74 20 74 6f 20 62 65 20 74 68 65 20 pOut to be the
4d80: 73 61 6d 65 20 62 6c 6f 62 2e 0a 2a 2a 0a 2a 2a same blob..**.**
4d90: 20 70 4f 75 74 20 6d 75 73 74 20 62 65 20 65 69 pOut must be ei
4da0: 74 68 65 72 20 75 6e 69 6e 69 74 69 61 6c 69 7a ther uninitializ
4db0: 65 64 20 6f 72 20 74 68 65 20 73 61 6d 65 20 61 ed or the same a
4dc0: 73 20 70 49 6e 2e 0a 2a 2f 0a 69 6e 74 20 62 6c s pIn..*/.int bl
4dd0: 6f 62 5f 75 6e 63 6f 6d 70 72 65 73 73 28 42 6c ob_uncompress(Bl
4de0: 6f 62 20 2a 70 49 6e 2c 20 42 6c 6f 62 20 2a 70 ob *pIn, Blob *p
4df0: 4f 75 74 29 7b 0a 20 20 75 6e 73 69 67 6e 65 64 Out){. unsigned
4e00: 20 69 6e 74 20 6e 4f 75 74 3b 0a 20 20 75 6e 73 int nOut;. uns
4e10: 69 67 6e 65 64 20 63 68 61 72 20 2a 69 6e 42 75 igned char *inBu
4e20: 66 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 69 6e f;. unsigned in
4e30: 74 20 6e 49 6e 20 3d 20 62 6c 6f 62 5f 73 69 7a t nIn = blob_siz
4e40: 65 28 70 49 6e 29 3b 0a 20 20 42 6c 6f 62 20 74 e(pIn);. Blob t
4e50: 65 6d 70 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 emp;. int rc;.
4e60: 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 69 unsigned long i
4e70: 6e 74 20 6e 4f 75 74 32 3b 0a 20 20 69 66 28 20 nt nOut2;. if(
4e80: 6e 49 6e 3c 3d 34 20 29 7b 0a 20 20 20 20 72 65 nIn<=4 ){. re
4e90: 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 69 6e turn 0;. }. in
4ea0: 42 75 66 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 Buf = (unsigned
4eb0: 63 68 61 72 2a 29 62 6c 6f 62 5f 62 75 66 66 65 char*)blob_buffe
4ec0: 72 28 70 49 6e 29 3b 0a 20 20 6e 4f 75 74 20 3d r(pIn);. nOut =
4ed0: 20 28 69 6e 42 75 66 5b 30 5d 3c 3c 32 34 29 20 (inBuf[0]<<24)
4ee0: 2b 20 28 69 6e 42 75 66 5b 31 5d 3c 3c 31 36 29 + (inBuf[1]<<16)
4ef0: 20 2b 20 28 69 6e 42 75 66 5b 32 5d 3c 3c 38 29 + (inBuf[2]<<8)
4f00: 20 2b 20 69 6e 42 75 66 5b 33 5d 3b 0a 20 20 62 + inBuf[3];. b
4f10: 6c 6f 62 5f 7a 65 72 6f 28 26 74 65 6d 70 29 3b lob_zero(&temp);
4f20: 0a 20 20 62 6c 6f 62 5f 72 65 73 69 7a 65 28 26 . blob_resize(&
4f30: 74 65 6d 70 2c 20 6e 4f 75 74 2b 31 29 3b 0a 20 temp, nOut+1);.
4f40: 20 6e 4f 75 74 32 20 3d 20 28 6c 6f 6e 67 20 69 nOut2 = (long i
4f50: 6e 74 29 6e 4f 75 74 3b 0a 20 20 72 63 20 3d 20 nt)nOut;. rc =
4f60: 75 6e 63 6f 6d 70 72 65 73 73 28 28 75 6e 73 69 uncompress((unsi
4f70: 67 6e 65 64 20 63 68 61 72 2a 29 62 6c 6f 62 5f gned char*)blob_
4f80: 62 75 66 66 65 72 28 26 74 65 6d 70 29 2c 20 26 buffer(&temp), &
4f90: 6e 4f 75 74 32 2c 20 0a 20 20 20 20 20 20 20 20 nOut2, .
4fa0: 20 20 20 20 20 20 20 20 20 20 26 69 6e 42 75 66 &inBuf
4fb0: 5b 34 5d 2c 20 62 6c 6f 62 5f 73 69 7a 65 28 70 [4], blob_size(p
4fc0: 49 6e 29 29 3b 0a 20 20 69 66 28 20 72 63 21 3d In));. if( rc!=
4fd0: 5a 5f 4f 4b 20 29 7b 0a 20 20 20 20 62 6c 6f 62 Z_OK ){. blob
4fe0: 5f 72 65 73 65 74 28 26 74 65 6d 70 29 3b 0a 20 _reset(&temp);.
4ff0: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d return 1;. }
5000: 0a 20 20 62 6c 6f 62 5f 72 65 73 69 7a 65 28 26 . blob_resize(&
5010: 74 65 6d 70 2c 20 6e 4f 75 74 32 29 3b 0a 20 20 temp, nOut2);.
5020: 69 66 28 20 70 4f 75 74 3d 3d 70 49 6e 20 29 20 if( pOut==pIn )
5030: 62 6c 6f 62 5f 72 65 73 65 74 28 70 4f 75 74 29 blob_reset(pOut)
5040: 3b 0a 20 20 62 6c 6f 62 5f 69 73 5f 72 65 73 65 ;. blob_is_rese
5050: 74 28 70 4f 75 74 29 3b 0a 20 20 2a 70 4f 75 74 t(pOut);. *pOut
5060: 20 3d 20 74 65 6d 70 3b 0a 20 20 72 65 74 75 72 = temp;. retur
5070: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f n 0;.}../*.** CO
5080: 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 75 6e 63 6f MMAND: test-unco
5090: 6d 70 72 65 73 73 0a 2a 2f 0a 76 6f 69 64 20 75 mpress.*/.void u
50a0: 6e 63 6f 6d 70 72 65 73 73 5f 63 6d 64 28 76 6f ncompress_cmd(vo
50b0: 69 64 29 7b 0a 20 20 42 6c 6f 62 20 66 3b 0a 20 id){. Blob f;.
50c0: 20 69 66 28 20 67 2e 61 72 67 63 21 3d 34 20 29 if( g.argc!=4 )
50d0: 20 75 73 61 67 65 28 22 49 4e 50 55 54 46 49 4c usage("INPUTFIL
50e0: 45 20 4f 55 54 50 55 54 46 49 4c 45 22 29 3b 0a E OUTPUTFILE");.
50f0: 20 20 62 6c 6f 62 5f 72 65 61 64 5f 66 72 6f 6d blob_read_from
5100: 5f 66 69 6c 65 28 26 66 2c 20 67 2e 61 72 67 76 _file(&f, g.argv
5110: 5b 32 5d 29 3b 0a 20 20 62 6c 6f 62 5f 75 6e 63 [2]);. blob_unc
5120: 6f 6d 70 72 65 73 73 28 26 66 2c 20 26 66 29 3b ompress(&f, &f);
5130: 0a 20 20 62 6c 6f 62 5f 77 72 69 74 65 5f 74 6f . blob_write_to
5140: 5f 66 69 6c 65 28 26 66 2c 20 67 2e 61 72 67 76 _file(&f, g.argv
5150: 5b 33 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 [3]);.}../*.** C
5160: 4f 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 63 79 63 OMMAND: test-cyc
5170: 6c 65 2d 63 6f 6d 70 72 65 73 73 0a 2a 2a 0a 2a le-compress.**.*
5180: 2a 20 43 6f 6d 70 72 65 73 73 20 61 6e 64 20 75 * Compress and u
5190: 6e 63 6f 6d 70 72 65 73 73 20 65 61 63 68 20 66 ncompress each f
51a0: 69 6c 65 20 6e 61 6d 65 64 20 6f 6e 20 74 68 65 ile named on the
51b0: 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 0a 2a command line..*
51c0: 2a 20 56 65 72 69 66 79 20 74 68 61 74 20 74 68 * Verify that th
51d0: 65 20 6f 72 69 67 69 6e 61 6c 20 63 6f 6e 74 65 e original conte
51e0: 6e 74 20 69 73 20 72 65 63 6f 76 65 72 65 64 2e nt is recovered.
51f0: 0a 2a 2f 0a 76 6f 69 64 20 74 65 73 74 5f 63 79 .*/.void test_cy
5200: 63 6c 65 5f 63 6f 6d 70 72 65 73 73 28 76 6f 69 cle_compress(voi
5210: 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 42 d){. int i;. B
5220: 6c 6f 62 20 62 31 2c 20 62 32 2c 20 62 33 3b 0a lob b1, b2, b3;.
5230: 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67 2e 61 for(i=2; i<g.a
5240: 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 62 rgc; i++){. b
5250: 6c 6f 62 5f 72 65 61 64 5f 66 72 6f 6d 5f 66 69 lob_read_from_fi
5260: 6c 65 28 26 62 31 2c 20 67 2e 61 72 67 76 5b 69 le(&b1, g.argv[i
5270: 5d 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 63 6f 6d ]);. blob_com
5280: 70 72 65 73 73 28 26 62 31 2c 20 26 62 32 29 3b press(&b1, &b2);
5290: 0a 20 20 20 20 62 6c 6f 62 5f 75 6e 63 6f 6d 70 . blob_uncomp
52a0: 72 65 73 73 28 26 62 32 2c 20 26 62 33 29 3b 0a ress(&b2, &b3);.
52b0: 20 20 20 20 69 66 28 20 62 6c 6f 62 5f 63 6f 6d if( blob_com
52c0: 70 61 72 65 28 26 62 31 2c 20 26 62 33 29 20 29 pare(&b1, &b3) )
52d0: 7b 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 70 {. fossil_p
52e0: 61 6e 69 63 28 22 63 6f 6d 70 72 65 73 73 2f 75 anic("compress/u
52f0: 6e 63 6f 6d 70 72 65 73 73 20 63 79 63 6c 65 20 ncompress cycle
5300: 66 61 69 6c 65 64 20 66 6f 72 20 25 73 22 2c 20 failed for %s",
5310: 67 2e 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 g.argv[i]);.
5320: 7d 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 }. blob_reset
5330: 28 26 62 31 29 3b 0a 20 20 20 20 62 6c 6f 62 5f (&b1);. blob_
5340: 72 65 73 65 74 28 26 62 32 29 3b 0a 20 20 20 20 reset(&b2);.
5350: 62 6c 6f 62 5f 72 65 73 65 74 28 26 62 33 29 3b blob_reset(&b3);
5360: 0a 20 20 7d 0a 20 20 70 72 69 6e 74 66 28 22 6f . }. printf("o
5370: 6b 5c 6e 22 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 k\n");.}../*.**
5380: 43 6f 6e 76 65 72 74 20 65 76 65 72 79 20 5c 6e Convert every \n
5390: 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 68 character in th
53a0: 65 20 67 69 76 65 6e 20 62 6c 6f 62 20 69 6e 74 e given blob int
53b0: 6f 20 5c 72 5c 6e 2e 0a 2a 2f 0a 76 6f 69 64 20 o \r\n..*/.void
53c0: 62 6c 6f 62 5f 61 64 64 5f 63 72 28 42 6c 6f 62 blob_add_cr(Blob
53d0: 20 2a 70 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6a *p){. int i, j
53e0: 2c 20 6e 3b 0a 20 20 63 68 61 72 20 2a 7a 20 3d , n;. char *z =
53f0: 20 70 2d 3e 61 44 61 74 61 3b 0a 20 20 66 6f 72 p->aData;. for
5400: 28 69 3d 6e 3d 30 3b 20 69 3c 70 2d 3e 6e 55 73 (i=n=0; i<p->nUs
5410: 65 64 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 ed; i++){. if
5420: 28 20 7a 5b 69 5d 3d 3d 27 5c 6e 27 20 29 20 6e ( z[i]=='\n' ) n
5430: 2b 2b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 2d ++;. }. if( p-
5440: 3e 6e 55 73 65 64 2b 6e 2b 31 3e 70 2d 3e 6e 41 >nUsed+n+1>p->nA
5450: 6c 6c 6f 63 20 29 7b 0a 20 20 20 20 62 6c 6f 62 lloc ){. blob
5460: 5f 72 65 73 69 7a 65 28 70 2c 20 70 2d 3e 6e 55 _resize(p, p->nU
5470: 73 65 64 2b 6e 29 3b 0a 20 20 20 20 7a 20 3d 20 sed+n);. z =
5480: 70 2d 3e 61 44 61 74 61 3b 0a 20 20 7d 0a 20 20 p->aData;. }.
5490: 69 20 3d 20 70 2d 3e 6e 55 73 65 64 20 2d 20 31 i = p->nUsed - 1
54a0: 3b 0a 20 20 6a 20 3d 20 69 20 2b 20 6e 3b 0a 20 ;. j = i + n;.
54b0: 20 77 68 69 6c 65 28 20 6a 3e 69 20 29 7b 0a 20 while( j>i ){.
54c0: 20 20 20 7a 5b 6a 2d 2d 5d 20 3d 20 7a 5b 69 5d z[j--] = z[i]
54d0: 3b 0a 20 20 20 20 69 66 28 20 7a 5b 69 5d 3d 3d ;. if( z[i]==
54e0: 27 5c 6e 27 20 29 7b 0a 20 20 20 20 20 20 7a 5b '\n' ){. z[
54f0: 6a 2d 2d 5d 20 3d 20 27 5c 72 27 3b 0a 20 20 20 j--] = '\r';.
5500: 20 7d 0a 20 20 20 20 69 2d 2d 3b 0a 20 20 7d 0a }. i--;. }.
5510: 20 20 70 2d 3e 6e 55 73 65 64 20 2b 3d 20 6e 3b p->nUsed += n;
5520: 0a 20 20 70 2d 3e 61 44 61 74 61 5b 70 2d 3e 6e . p->aData[p->n
5530: 55 73 65 64 5d 20 3d 20 30 3b 0a 7d 0a 0a 2f 2a Used] = 0;.}../*
5540: 0a 2a 2a 20 52 65 6d 6f 76 65 20 65 76 65 72 79 .** Remove every
5550: 20 5c 72 20 63 68 61 72 61 63 74 65 72 20 66 72 \r character fr
5560: 6f 6d 20 74 68 65 20 67 69 76 65 6e 20 62 6c 6f om the given blo
5570: 62 2e 0a 2a 2f 0a 76 6f 69 64 20 62 6c 6f 62 5f b..*/.void blob_
5580: 72 65 6d 6f 76 65 5f 63 72 28 42 6c 6f 62 20 2a remove_cr(Blob *
5590: 70 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a p){. int i, j;.
55a0: 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 62 6c 6f char *z;. blo
55b0: 62 5f 6d 61 74 65 72 69 61 6c 69 7a 65 28 70 29 b_materialize(p)
55c0: 3b 0a 20 20 7a 20 3d 20 70 2d 3e 61 44 61 74 61 ;. z = p->aData
55d0: 3b 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20 7a ;. for(i=j=0; z
55e0: 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 [i]; i++){. i
55f0: 66 28 20 7a 5b 69 5d 21 3d 27 5c 72 27 20 29 20 f( z[i]!='\r' )
5600: 7a 5b 6a 2b 2b 5d 20 3d 20 7a 5b 69 5d 3b 0a 20 z[j++] = z[i];.
5610: 20 7d 0a 20 20 7a 5b 6a 5d 20 3d 20 30 3b 0a 20 }. z[j] = 0;.
5620: 20 70 2d 3e 6e 55 73 65 64 20 3d 20 6a 3b 0a 7d p->nUsed = j;.}
5630: 0a .