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 31 34 20 44 2e 20 52 69 63 68 (c) 2014 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 53 69 6d 70 6c 69 66 69 65 64 20 42 53 44 20 Simplified BSD
00a0: 4c 69 63 65 6e 73 65 20 28 61 6c 73 6f 0a 2a 2a License (also.**
00b0: 20 6b 6e 6f 77 6e 20 61 73 20 74 68 65 20 22 32 known as the "2
00c0: 2d 43 6c 61 75 73 65 20 4c 69 63 65 6e 73 65 22 -Clause License"
00d0: 20 6f 72 20 22 46 72 65 65 42 53 44 20 4c 69 63 or "FreeBSD Lic
00e0: 65 6e 73 65 22 2e 29 0a 2a 2a 0a 2a 2a 20 54 68 ense".).**.** Th
00f0: 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 is program is di
0100: 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 stributed in the
0110: 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 hope that it wi
0120: 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a ll be useful,.**
0130: 20 62 75 74 20 77 69 74 68 6f 75 74 20 61 6e 79 but without any
0140: 20 77 61 72 72 61 6e 74 79 3b 20 77 69 74 68 6f warranty; witho
0150: 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c ut even the impl
0160: 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a ied warranty of.
0170: 2a 2a 20 6d 65 72 63 68 61 6e 74 61 62 69 6c 69 ** merchantabili
0180: 74 79 20 6f 72 20 66 69 74 6e 65 73 73 20 66 6f ty or fitness fo
0190: 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 70 r a particular p
01a0: 75 72 70 6f 73 65 2e 0a 2a 2a 0a 2a 2a 20 41 75 urpose..**.** Au
01b0: 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69 6e 66 thor contact inf
01c0: 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 20 64 ormation:.** d
01d0: 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a 2a 2a 20 rh@hwaci.com.**
01e0: 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 77 61 http://www.hwa
01f0: 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a 0a 2a ci.com/drh/.**.*
0200: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0210: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0220: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0240: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a **************.*
0250: 2a 0a 2a 2a 20 54 68 69 73 20 70 72 6f 67 72 61 *.** This progra
0260: 6d 20 72 65 61 64 73 20 46 6f 73 73 69 6c 20 73 m reads Fossil s
0270: 6f 75 72 63 65 20 63 6f 64 65 20 66 69 6c 65 73 ource code files
0280: 20 61 6e 64 20 74 72 69 65 73 20 74 6f 20 76 65 and tries to ve
0290: 72 69 66 79 20 74 68 61 74 0a 2a 2a 20 70 72 69 rify that.** pri
02a0: 6e 74 66 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 ntf-style format
02b0: 20 73 74 72 69 6e 67 73 20 61 72 65 20 63 6f 72 strings are cor
02c0: 72 65 63 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 rect..**.** This
02d0: 20 70 72 6f 67 72 61 6d 20 69 6d 70 6c 65 6d 65 program impleme
02e0: 6e 74 73 20 61 20 63 6f 6d 70 69 6c 65 2d 74 69 nts a compile-ti
02f0: 6d 65 20 76 61 6c 69 64 61 74 69 6f 6e 20 73 74 me validation st
0300: 65 70 20 6f 6e 20 74 68 65 20 46 6f 73 73 69 6c ep on the Fossil
0310: 0a 2a 2a 20 73 6f 75 72 63 65 20 63 6f 64 65 2e .** source code.
0320: 20 20 52 75 6e 6e 69 6e 67 20 74 68 69 73 20 70 Running this p
0330: 72 6f 67 72 61 6d 20 69 73 20 65 6e 74 69 72 65 rogram is entire
0340: 6c 79 20 6f 70 74 69 6f 6e 61 6c 2e 20 20 49 74 ly optional. It
0350: 73 20 72 6f 6c 65 20 69 73 0a 2a 2a 20 73 69 6d s role is.** sim
0360: 69 6c 61 72 20 74 6f 20 74 68 65 20 2d 57 61 6c ilar to the -Wal
0370: 6c 20 63 6f 6d 70 69 6c 65 72 20 73 77 69 74 63 l compiler switc
0380: 68 20 6f 6e 20 67 63 63 2c 20 6f 72 20 74 68 65 h on gcc, or the
0390: 20 73 63 61 6e 2d 62 75 69 6c 64 20 75 74 69 6c scan-build util
03a0: 69 74 79 0a 2a 2a 20 6f 66 20 63 6c 61 6e 67 2c ity.** of clang,
03b0: 20 6f 72 20 6f 74 68 65 72 20 73 74 61 74 69 63 or other static
03c0: 20 61 6e 61 6c 79 7a 65 72 73 2e 20 20 54 68 65 analyzers. The
03d0: 20 70 75 72 70 6f 73 65 20 69 73 20 74 6f 20 74 purpose is to t
03e0: 72 79 20 74 6f 20 69 64 65 6e 74 69 66 79 0a 2a ry to identify.*
03f0: 2a 20 70 72 6f 62 6c 65 6d 73 20 69 6e 20 74 68 * problems in th
0400: 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 61 74 e source code at
0410: 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 2e 20 20 compile-time.
0420: 54 68 65 20 64 69 66 66 65 72 65 6e 63 65 20 69 The difference i
0430: 73 20 74 68 61 74 20 74 68 69 73 0a 2a 2a 20 73 s that this.** s
0440: 74 61 74 69 63 20 63 68 65 63 6b 65 72 20 69 73 tatic checker is
0450: 20 73 70 65 63 69 66 69 63 61 6c 6c 79 20 64 65 specifically de
0460: 73 69 67 6e 65 64 20 66 6f 72 20 74 68 65 20 70 signed for the p
0470: 61 72 74 69 63 75 6c 61 72 20 70 72 69 6e 74 66 articular printf
0480: 20 66 6f 72 6d 61 74 74 65 72 0a 2a 2a 20 69 6d formatter.** im
0490: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 75 73 65 plementation use
04a0: 64 20 62 79 20 46 6f 73 73 69 6c 2e 0a 2a 2a 0a d by Fossil..**.
04b0: 2a 2a 20 43 68 65 63 6b 73 20 69 6e 63 6c 75 64 ** Checks includ
04c0: 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 2a 20 20 56 e:.**.** * V
04d0: 65 72 69 66 79 20 74 68 61 74 20 76 61 72 61 72 erify that varar
04e0: 67 20 66 6f 72 6d 61 74 74 69 6e 67 20 72 6f 75 g formatting rou
04f0: 74 69 6e 65 73 20 6c 69 6b 65 20 62 6c 6f 62 5f tines like blob_
0500: 70 72 69 6e 74 66 28 29 20 6f 72 0a 2a 2a 20 20 printf() or.**
0510: 20 20 20 20 20 64 62 5f 6d 75 6c 74 69 5f 65 78 db_multi_ex
0520: 65 63 28 29 20 68 61 76 65 20 74 68 65 20 63 6f ec() have the co
0530: 72 72 65 63 74 20 6e 75 6d 62 65 72 20 6f 66 20 rrect number of
0540: 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 74 68 arguments for th
0550: 65 69 72 0a 2a 2a 20 20 20 20 20 20 20 66 6f 72 eir.** for
0560: 6d 61 74 20 73 74 72 69 6e 67 2e 0a 2a 2a 0a 2a mat string..**.*
0570: 2a 20 20 20 20 2a 20 20 46 6f 72 20 72 6f 75 74 * * For rout
0580: 69 6e 65 73 20 64 65 73 69 67 6e 65 64 20 74 6f ines designed to
0590: 20 67 65 6e 65 72 61 74 65 20 53 51 4c 2c 20 77 generate SQL, w
05a0: 61 72 6e 20 61 62 6f 75 74 20 74 68 65 20 75 73 arn about the us
05b0: 65 20 6f 66 20 25 73 0a 2a 2a 20 20 20 20 20 20 e of %s.**
05c0: 20 77 68 69 63 68 20 6d 69 67 68 74 20 61 6c 6c which might all
05d0: 6f 77 20 53 51 4c 20 69 6e 6a 65 63 74 69 6f 6e ow SQL injection
05e0: 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 3c 73 ..*/.#include <s
05f0: 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 tdio.h>.#include
0600: 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 <stdlib.h>.#inc
0610: 6c 75 64 65 20 3c 63 74 79 70 65 2e 68 3e 0a 23 lude <ctype.h>.#
0620: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e include <string.
0630: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61 73 73 h>.#include <ass
0640: 65 72 74 2e 68 3e 0a 0a 2f 2a 0a 2a 2a 20 44 65 ert.h>../*.** De
0650: 62 75 67 67 69 6e 67 20 73 77 69 74 63 68 0a 2a bugging switch.*
0660: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 65 56 65 /.static int eVe
0670: 72 62 6f 73 65 20 3d 20 30 3b 0a 0a 2f 2a 0a 2a rbose = 0;../*.*
0680: 2a 20 4d 61 6c 6c 6f 63 2c 20 61 62 6f 72 74 69 * Malloc, aborti
0690: 6e 67 20 69 66 20 69 74 20 66 61 69 6c 73 2e 0a ng if it fails..
06a0: 2a 2f 0a 76 6f 69 64 20 2a 73 61 66 65 5f 6d 61 */.void *safe_ma
06b0: 6c 6c 6f 63 28 69 6e 74 20 6e 42 79 74 65 29 7b lloc(int nByte){
06c0: 0a 20 20 76 6f 69 64 20 2a 78 20 3d 20 6d 61 6c . void *x = mal
06d0: 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20 69 66 loc(nByte);. if
06e0: 28 20 78 3d 3d 30 20 29 7b 0a 20 20 20 20 66 70 ( x==0 ){. fp
06f0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 66 rintf(stderr, "f
0700: 61 69 6c 65 64 20 74 6f 20 61 6c 6c 6f 63 61 74 ailed to allocat
0710: 65 20 25 64 20 62 79 74 65 73 5c 6e 22 2c 20 6e e %d bytes\n", n
0720: 42 79 74 65 29 3b 0a 20 20 20 20 65 78 69 74 28 Byte);. exit(
0730: 31 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 1);. }. return
0740: 20 78 3b 0a 7d 0a 76 6f 69 64 20 2a 73 61 66 65 x;.}.void *safe
0750: 5f 72 65 61 6c 6c 6f 63 28 76 6f 69 64 20 2a 70 _realloc(void *p
0760: 4f 6c 64 2c 20 69 6e 74 20 6e 42 79 74 65 29 7b Old, int nByte){
0770: 0a 20 20 76 6f 69 64 20 2a 78 20 3d 20 72 65 61 . void *x = rea
0780: 6c 6c 6f 63 28 70 4f 6c 64 2c 20 6e 42 79 74 65 lloc(pOld, nByte
0790: 29 3b 0a 20 20 69 66 28 20 78 3d 3d 30 20 29 7b );. if( x==0 ){
07a0: 0a 20 20 20 20 66 70 72 69 6e 74 66 28 73 74 64 . fprintf(std
07b0: 65 72 72 2c 20 22 66 61 69 6c 65 64 20 74 6f 20 err, "failed to
07c0: 61 6c 6c 6f 63 61 74 65 20 25 64 20 62 79 74 65 allocate %d byte
07d0: 73 5c 6e 22 2c 20 6e 42 79 74 65 29 3b 0a 20 20 s\n", nByte);.
07e0: 20 20 65 78 69 74 28 31 29 3b 0a 20 20 7d 0a 20 exit(1);. }.
07f0: 20 72 65 74 75 72 6e 20 78 3b 0a 7d 0a 0a 2f 2a return x;.}../*
0800: 0a 2a 2a 20 52 65 61 64 20 74 68 65 20 65 6e 74 .** Read the ent
0810: 69 72 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 74 ire content of t
0820: 68 65 20 66 69 6c 65 20 6e 61 6d 65 64 20 7a 46 he file named zF
0830: 69 6c 65 6e 61 6d 65 20 69 6e 74 6f 20 6d 65 6d ilename into mem
0840: 6f 72 79 20 6f 62 74 61 69 6e 65 64 0a 2a 2a 20 ory obtained.**
0850: 66 72 6f 6d 20 6d 61 6c 6c 6f 63 28 29 2e 20 20 from malloc().
0860: 20 41 64 64 20 61 20 7a 65 72 6f 2d 74 65 72 6d Add a zero-term
0870: 69 6e 61 74 6f 72 20 74 6f 20 74 68 65 20 65 6e inator to the en
0880: 64 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 70 d..** Return a p
0890: 6f 69 6e 74 65 72 20 74 6f 20 74 68 61 74 20 6d ointer to that m
08a0: 65 6d 6f 72 79 2e 0a 2a 2f 0a 73 74 61 74 69 63 emory..*/.static
08b0: 20 63 68 61 72 20 2a 72 65 61 64 5f 66 69 6c 65 char *read_file
08c0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 (const char *zFi
08d0: 6c 65 6e 61 6d 65 29 7b 0a 20 20 46 49 4c 45 20 lename){. FILE
08e0: 2a 69 6e 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a *in;. char *z;.
08f0: 20 20 69 6e 74 20 6e 42 79 74 65 3b 0a 20 20 69 int nByte;. i
0900: 6e 74 20 67 6f 74 3b 0a 20 20 69 6e 20 3d 20 66 nt got;. in = f
0910: 6f 70 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 open(zFilename,
0920: 22 72 62 22 29 3b 0a 20 20 69 66 28 20 69 6e 3d "rb");. if( in=
0930: 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e =0 ){. return
0940: 20 30 3b 0a 20 20 7d 0a 20 20 66 73 65 65 6b 28 0;. }. fseek(
0950: 69 6e 2c 20 30 2c 20 53 45 45 4b 5f 45 4e 44 29 in, 0, SEEK_END)
0960: 3b 0a 20 20 6e 42 79 74 65 20 3d 20 66 74 65 6c ;. nByte = ftel
0970: 6c 28 69 6e 29 3b 0a 20 20 66 73 65 65 6b 28 69 l(in);. fseek(i
0980: 6e 2c 20 30 2c 20 53 45 45 4b 5f 53 45 54 29 3b n, 0, SEEK_SET);
0990: 0a 20 20 7a 20 3d 20 73 61 66 65 5f 6d 61 6c 6c . z = safe_mall
09a0: 6f 63 28 20 6e 42 79 74 65 2b 31 20 29 3b 0a 20 oc( nByte+1 );.
09b0: 20 67 6f 74 20 3d 20 66 72 65 61 64 28 7a 2c 20 got = fread(z,
09c0: 31 2c 20 6e 42 79 74 65 2c 20 69 6e 29 3b 0a 20 1, nByte, in);.
09d0: 20 7a 5b 67 6f 74 5d 20 3d 20 30 3b 0a 20 20 66 z[got] = 0;. f
09e0: 63 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 72 65 74 close(in);. ret
09f0: 75 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn z;.}../*.**
0a00: 57 68 65 6e 20 70 61 72 73 69 6e 67 20 74 68 65 When parsing the
0a10: 20 69 6e 70 75 74 20 66 69 6c 65 2c 20 74 68 65 input file, the
0a20: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 6f 6b 65 6e following token
0a30: 20 74 79 70 65 73 20 61 72 65 20 72 65 63 6f 67 types are recog
0a40: 6e 69 7a 65 64 2e 0a 2a 2f 0a 23 64 65 66 69 6e nized..*/.#defin
0a50: 65 20 54 4b 5f 53 50 41 43 45 20 20 20 20 20 20 e TK_SPACE
0a60: 31 20 20 20 20 20 20 2f 2a 20 57 68 69 74 65 73 1 /* Whites
0a70: 70 61 63 65 20 6f 72 20 63 6f 6d 6d 65 6e 74 73 pace or comments
0a80: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54 4b 5f 49 */.#define TK_I
0a90: 44 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 D 2
0aa0: 20 2f 2a 20 41 6e 20 69 64 65 6e 74 69 66 69 65 /* An identifie
0ab0: 72 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54 4b 5f r */.#define TK_
0ac0: 53 54 52 20 20 20 20 20 20 20 20 33 20 20 20 20 STR 3
0ad0: 20 20 2f 2a 20 41 20 73 74 72 69 6e 67 20 6c 69 /* A string li
0ae0: 74 65 72 61 6c 20 69 6e 20 64 6f 75 62 6c 65 2d teral in double-
0af0: 71 75 6f 74 65 73 20 2a 2f 0a 23 64 65 66 69 6e quotes */.#defin
0b00: 65 20 54 4b 5f 4f 54 48 45 52 20 20 20 20 20 20 e TK_OTHER
0b10: 34 20 20 20 20 20 20 2f 2a 20 41 6e 79 20 6f 74 4 /* Any ot
0b20: 68 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a 23 64 65 her token */.#de
0b30: 66 69 6e 65 20 54 4b 5f 45 4f 46 20 20 20 20 20 fine TK_EOF
0b40: 20 20 39 39 20 20 20 20 20 20 2f 2a 20 45 6e 64 99 /* End
0b50: 20 6f 66 20 66 69 6c 65 20 2a 2f 0a 0a 2f 2a 0a of file */../*.
0b60: 2a 2a 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 ** Determine the
0b70: 20 6c 65 6e 67 74 68 20 61 6e 64 20 74 79 70 65 length and type
0b80: 20 6f 66 20 74 68 65 20 74 6f 6b 65 6e 20 62 65 of the token be
0b90: 67 69 6e 6e 69 6e 67 20 61 74 20 7a 5b 30 5d 0a ginning at z[0].
0ba0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 6f */.static int to
0bb0: 6b 65 6e 5f 6c 65 6e 67 74 68 28 63 6f 6e 73 74 ken_length(const
0bc0: 20 63 68 61 72 20 2a 7a 2c 20 69 6e 74 20 2a 70 char *z, int *p
0bd0: 54 79 70 65 2c 20 69 6e 74 20 2a 70 4c 4e 29 7b Type, int *pLN){
0be0: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 66 28 20 . int i;. if(
0bf0: 7a 5b 30 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 2a z[0]==0 ){. *
0c00: 70 54 79 70 65 20 3d 20 54 4b 5f 45 4f 46 3b 0a pType = TK_EOF;.
0c10: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 return 0;.
0c20: 7d 0a 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 22 }. if( z[0]=='"
0c30: 27 20 7c 7c 20 7a 5b 30 5d 3d 3d 27 5c 27 27 20 ' || z[0]=='\''
0c40: 29 7b 0a 20 20 20 20 66 6f 72 28 69 3d 31 3b 20 ){. for(i=1;
0c50: 7a 5b 69 5d 20 26 26 20 7a 5b 69 5d 21 3d 7a 5b z[i] && z[i]!=z[
0c60: 30 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 0]; i++){.
0c70: 69 66 28 20 7a 5b 69 5d 3d 3d 27 5c 5c 27 20 26 if( z[i]=='\\' &
0c80: 26 20 7a 5b 69 2b 31 5d 21 3d 30 20 29 7b 0a 20 & z[i+1]!=0 ){.
0c90: 20 20 20 20 20 20 20 69 66 28 20 7a 5b 69 2b 31 if( z[i+1
0ca0: 5d 3d 3d 27 5c 6e 27 20 29 20 28 2a 70 4c 4e 29 ]=='\n' ) (*pLN)
0cb0: 2b 2b 3b 0a 20 20 20 20 20 20 20 20 69 2b 2b 3b ++;. i++;
0cc0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
0cd0: 20 20 20 69 66 28 20 7a 5b 69 5d 21 3d 30 20 29 if( z[i]!=0 )
0ce0: 20 69 2b 2b 3b 0a 20 20 20 20 2a 70 54 79 70 65 i++;. *pType
0cf0: 20 3d 20 7a 5b 30 5d 3d 3d 27 22 27 20 3f 20 54 = z[0]=='"' ? T
0d00: 4b 5f 53 54 52 20 3a 20 54 4b 5f 4f 54 48 45 52 K_STR : TK_OTHER
0d10: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 69 3b 0a ;. return i;.
0d20: 20 20 7d 0a 20 20 69 66 28 20 69 73 61 6c 6e 75 }. if( isalnu
0d30: 6d 28 7a 5b 30 5d 29 20 7c 7c 20 7a 5b 30 5d 3d m(z[0]) || z[0]=
0d40: 3d 27 5f 27 20 29 7b 0a 20 20 20 20 66 6f 72 28 ='_' ){. for(
0d50: 69 3d 31 3b 20 69 73 61 6c 6e 75 6d 28 7a 5b 69 i=1; isalnum(z[i
0d60: 5d 29 20 7c 7c 20 7a 5b 69 5d 3d 3d 27 5f 27 3b ]) || z[i]=='_';
0d70: 20 69 2b 2b 29 7b 7d 0a 20 20 20 20 2a 70 54 79 i++){}. *pTy
0d80: 70 65 20 3d 20 69 73 61 6c 70 68 61 28 7a 5b 30 pe = isalpha(z[0
0d90: 5d 29 20 7c 7c 20 7a 5b 30 5d 3d 3d 27 5f 27 20 ]) || z[0]=='_'
0da0: 3f 20 54 4b 5f 49 44 20 3a 20 54 4b 5f 4f 54 48 ? TK_ID : TK_OTH
0db0: 45 52 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 69 ER;. return i
0dc0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 69 73 73 70 ;. }. if( issp
0dd0: 61 63 65 28 7a 5b 30 5d 29 20 29 7b 0a 20 20 20 ace(z[0]) ){.
0de0: 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 5c 6e 27 20 if( z[0]=='\n'
0df0: 29 20 28 2a 70 4c 4e 29 2b 2b 3b 0a 20 20 20 20 ) (*pLN)++;.
0e00: 66 6f 72 28 69 3d 31 3b 20 69 73 73 70 61 63 65 for(i=1; isspace
0e10: 28 7a 5b 69 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 (z[i]); i++){.
0e20: 20 20 20 20 69 66 28 20 7a 5b 69 5d 3d 3d 27 5c if( z[i]=='\
0e30: 6e 27 20 29 20 28 2a 70 4c 4e 29 2b 2b 3b 0a 20 n' ) (*pLN)++;.
0e40: 20 20 20 7d 0a 20 20 20 20 2a 70 54 79 70 65 20 }. *pType
0e50: 3d 20 54 4b 5f 53 50 41 43 45 3b 0a 20 20 20 20 = TK_SPACE;.
0e60: 72 65 74 75 72 6e 20 69 3b 0a 20 20 7d 0a 20 20 return i;. }.
0e70: 69 66 28 20 7a 5b 30 5d 3d 3d 27 2f 27 20 26 26 if( z[0]=='/' &&
0e80: 20 7a 5b 31 5d 3d 3d 27 2a 27 20 29 7b 0a 20 20 z[1]=='*' ){.
0e90: 20 20 66 6f 72 28 69 3d 32 3b 20 7a 5b 69 5d 20 for(i=2; z[i]
0ea0: 26 26 20 28 7a 5b 69 5d 21 3d 27 2a 27 20 7c 7c && (z[i]!='*' ||
0eb0: 20 7a 5b 69 2b 31 5d 21 3d 27 2f 27 29 3b 20 69 z[i+1]!='/'); i
0ec0: 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20 7a ++){. if( z
0ed0: 5b 69 5d 3d 3d 27 5c 6e 27 20 29 20 28 2a 70 4c [i]=='\n' ) (*pL
0ee0: 4e 29 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 N)++;. }.
0ef0: 69 66 28 20 7a 5b 69 5d 20 29 20 69 20 2b 3d 20 if( z[i] ) i +=
0f00: 32 3b 0a 20 20 20 20 2a 70 54 79 70 65 20 3d 20 2;. *pType =
0f10: 54 4b 5f 53 50 41 43 45 3b 0a 20 20 20 20 72 65 TK_SPACE;. re
0f20: 74 75 72 6e 20 69 3b 0a 20 20 7d 0a 20 20 69 66 turn i;. }. if
0f30: 28 20 7a 5b 30 5d 3d 3d 27 2f 27 20 26 26 20 7a ( z[0]=='/' && z
0f40: 5b 31 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 [1]=='/' ){.
0f50: 66 6f 72 28 69 3d 32 3b 20 7a 5b 69 5d 20 26 26 for(i=2; z[i] &&
0f60: 20 7a 5b 69 5d 21 3d 27 5c 6e 27 3b 20 69 2b 2b z[i]!='\n'; i++
0f70: 29 7b 7d 0a 20 20 20 20 69 66 28 20 7a 5b 69 5d ){}. if( z[i]
0f80: 20 29 7b 0a 20 20 20 20 20 20 28 2a 70 4c 4e 29 ){. (*pLN)
0f90: 2b 2b 3b 0a 20 20 20 20 20 20 69 2b 2b 3b 0a 20 ++;. i++;.
0fa0: 20 20 20 7d 0a 20 20 20 20 2a 70 54 79 70 65 20 }. *pType
0fb0: 3d 20 54 4b 5f 53 50 41 43 45 3b 0a 20 20 20 20 = TK_SPACE;.
0fc0: 72 65 74 75 72 6e 20 69 3b 0a 20 20 7d 0a 20 20 return i;. }.
0fd0: 69 66 28 20 7a 5b 30 5d 3d 3d 27 5c 5c 27 20 26 if( z[0]=='\\' &
0fe0: 26 20 28 7a 5b 31 5d 3d 3d 27 5c 6e 27 20 7c 7c & (z[1]=='\n' ||
0ff0: 20 28 7a 5b 31 5d 3d 3d 27 5c 72 27 20 26 26 20 (z[1]=='\r' &&
1000: 7a 5b 32 5d 3d 3d 27 5c 6e 27 29 29 20 29 7b 0a z[2]=='\n')) ){.
1010: 20 20 20 20 2a 70 54 79 70 65 20 3d 20 54 4b 5f *pType = TK_
1020: 53 50 41 43 45 3b 0a 20 20 20 20 72 65 74 75 72 SPACE;. retur
1030: 6e 20 31 3b 0a 20 20 7d 0a 20 20 2a 70 54 79 70 n 1;. }. *pTyp
1040: 65 20 3d 20 54 4b 5f 4f 54 48 45 52 3b 0a 20 20 e = TK_OTHER;.
1050: 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a return 1;.}../*.
1060: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 65 ** Return the ne
1070: 78 74 20 6e 6f 6e 2d 77 68 69 74 65 73 70 61 63 xt non-whitespac
1080: 65 20 74 6f 6b 65 6e 0a 2a 2f 0a 63 6f 6e 73 74 e token.*/.const
1090: 20 63 68 61 72 20 2a 6e 65 78 74 5f 6e 6f 6e 5f char *next_non_
10a0: 77 68 69 74 65 73 70 61 63 65 28 63 6f 6e 73 74 whitespace(const
10b0: 20 63 68 61 72 20 2a 7a 2c 20 69 6e 74 20 2a 70 char *z, int *p
10c0: 4c 65 6e 2c 20 69 6e 74 20 2a 70 54 79 70 65 29 Len, int *pType)
10d0: 7b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 69 {. int len;. i
10e0: 6e 74 20 65 54 79 70 65 3b 0a 20 20 69 6e 74 20 nt eType;. int
10f0: 6c 6e 20 3d 20 30 3b 0a 20 20 77 68 69 6c 65 28 ln = 0;. while(
1100: 20 28 6c 65 6e 20 3d 20 74 6f 6b 65 6e 5f 6c 65 (len = token_le
1110: 6e 67 74 68 28 7a 2c 20 26 65 54 79 70 65 2c 20 ngth(z, &eType,
1120: 26 6c 6e 29 29 3e 30 20 26 26 20 65 54 79 70 65 &ln))>0 && eType
1130: 3d 3d 54 4b 5f 53 50 41 43 45 20 29 7b 0a 20 20 ==TK_SPACE ){.
1140: 20 20 7a 20 2b 3d 20 6c 65 6e 3b 0a 20 20 7d 0a z += len;. }.
1150: 20 20 2a 70 4c 65 6e 20 3d 20 6c 65 6e 3b 0a 20 *pLen = len;.
1160: 20 2a 70 54 79 70 65 20 3d 20 65 54 79 70 65 3b *pType = eType;
1170: 0a 20 20 72 65 74 75 72 6e 20 7a 3b 0a 7d 0a 0a . return z;.}..
1180: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 69 6e 64 /*.** Return ind
1190: 65 78 20 69 6e 74 6f 20 7a 5b 5d 20 66 6f 72 20 ex into z[] for
11a0: 74 68 65 20 66 69 72 73 74 20 62 61 6c 61 6e 63 the first balanc
11b0: 65 64 20 54 4b 5f 4f 54 48 45 52 20 74 6f 6b 65 ed TK_OTHER toke
11c0: 6e 20 77 69 74 68 0a 2a 2a 20 76 61 6c 75 65 20 n with.** value
11d0: 63 56 61 6c 75 65 2e 0a 2a 2f 0a 73 74 61 74 69 cValue..*/.stati
11e0: 63 20 69 6e 74 20 64 69 73 74 61 6e 63 65 5f 74 c int distance_t
11f0: 6f 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c o(const char *z,
1200: 20 63 68 61 72 20 63 56 61 6c 29 7b 0a 20 20 69 char cVal){. i
1210: 6e 74 20 6c 65 6e 3b 0a 20 20 69 6e 74 20 64 69 nt len;. int di
1220: 73 74 20 3d 20 30 3b 0a 20 20 69 6e 74 20 65 54 st = 0;. int eT
1230: 79 70 65 3b 0a 20 20 69 6e 74 20 6e 4e 65 73 74 ype;. int nNest
1240: 20 3d 20 30 3b 0a 20 20 69 6e 74 20 6c 6e 20 3d = 0;. int ln =
1250: 20 30 3b 0a 20 20 77 68 69 6c 65 28 20 7a 5b 30 0;. while( z[0
1260: 5d 20 26 26 20 28 6c 65 6e 20 3d 20 74 6f 6b 65 ] && (len = toke
1270: 6e 5f 6c 65 6e 67 74 68 28 7a 2c 20 26 65 54 79 n_length(z, &eTy
1280: 70 65 2c 20 26 6c 6e 29 29 3e 30 20 29 7b 0a 20 pe, &ln))>0 ){.
1290: 20 20 20 69 66 28 20 65 54 79 70 65 3d 3d 54 4b if( eType==TK
12a0: 5f 4f 54 48 45 52 20 29 7b 0a 20 20 20 20 20 20 _OTHER ){.
12b0: 69 66 28 20 7a 5b 30 5d 3d 3d 63 56 61 6c 20 26 if( z[0]==cVal &
12c0: 26 20 6e 4e 65 73 74 3d 3d 30 20 29 7b 0a 20 20 & nNest==0 ){.
12d0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
12e0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 7a 5b 30 }else if( z[0
12f0: 5d 3d 3d 27 28 27 20 29 7b 0a 20 20 20 20 20 20 ]=='(' ){.
1300: 20 20 6e 4e 65 73 74 2b 2b 3b 0a 20 20 20 20 20 nNest++;.
1310: 20 7d 65 6c 73 65 20 69 66 28 20 7a 5b 30 5d 3d }else if( z[0]=
1320: 3d 27 29 27 20 29 7b 0a 20 20 20 20 20 20 20 20 =')' ){.
1330: 6e 4e 65 73 74 2d 2d 3b 0a 20 20 20 20 20 20 7d nNest--;. }
1340: 0a 20 20 20 20 7d 0a 20 20 20 20 64 69 73 74 20 . }. dist
1350: 2b 3d 20 6c 65 6e 3b 0a 20 20 20 20 7a 20 2b 3d += len;. z +=
1360: 20 6c 65 6e 3b 0a 20 20 7d 0a 20 20 72 65 74 75 len;. }. retu
1370: 72 6e 20 64 69 73 74 3b 0a 7d 0a 0a 2f 2a 0a 2a rn dist;.}../*.*
1380: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 66 69 72 * Return the fir
1390: 73 74 20 6e 6f 6e 2d 77 68 69 74 65 73 70 61 63 st non-whitespac
13a0: 65 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 e characters in
13b0: 7a 5b 5d 0a 2a 2f 0a 73 74 61 74 69 63 20 63 6f z[].*/.static co
13c0: 6e 73 74 20 63 68 61 72 20 2a 73 6b 69 70 5f 73 nst char *skip_s
13d0: 70 61 63 65 28 63 6f 6e 73 74 20 63 68 61 72 20 pace(const char
13e0: 2a 7a 29 7b 0a 20 20 77 68 69 6c 65 28 20 69 73 *z){. while( is
13f0: 73 70 61 63 65 28 7a 5b 30 5d 29 20 29 7b 20 7a space(z[0]) ){ z
1400: 2b 2b 3b 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a ++; }. return z
1410: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 6d 6f 76 ;.}../*.** Remov
1420: 65 20 65 78 63 65 73 73 20 77 68 69 74 65 73 70 e excess whitesp
1430: 61 63 65 20 61 6e 64 20 6e 65 73 74 65 64 20 22 ace and nested "
1440: 28 29 22 20 66 72 6f 6d 20 73 74 72 69 6e 67 20 ()" from string
1450: 7a 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 z..*/.static cha
1460: 72 20 2a 73 69 6d 70 6c 69 66 79 5f 65 78 70 72 r *simplify_expr
1470: 28 63 68 61 72 20 2a 7a 29 7b 0a 20 20 69 6e 74 (char *z){. int
1480: 20 6e 20 3d 20 28 69 6e 74 29 73 74 72 6c 65 6e n = (int)strlen
1490: 28 7a 29 3b 0a 20 20 77 68 69 6c 65 28 20 6e 3e (z);. while( n>
14a0: 30 20 29 7b 0a 20 20 20 20 69 66 28 20 69 73 73 0 ){. if( iss
14b0: 70 61 63 65 28 7a 5b 30 5d 29 20 29 7b 0a 20 20 pace(z[0]) ){.
14c0: 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 20 20 6e z++;. n
14d0: 2d 2d 3b 0a 20 20 20 20 20 20 63 6f 6e 74 69 6e --;. contin
14e0: 75 65 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 ue;. }. if
14f0: 28 20 7a 5b 30 5d 3d 3d 27 28 27 20 26 26 20 7a ( z[0]=='(' && z
1500: 5b 6e 2d 31 5d 3d 3d 27 29 27 20 29 7b 0a 20 20 [n-1]==')' ){.
1510: 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 20 20 6e z++;. n
1520: 20 2d 3d 20 32 3b 0a 20 20 20 20 20 20 63 6f 6e -= 2;. con
1530: 74 69 6e 75 65 3b 0a 20 20 20 20 7d 0a 20 20 20 tinue;. }.
1540: 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 7a 5b break;. }. z[
1550: 6e 5d 20 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e n] = 0;. return
1560: 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 z;.}../*.** Ret
1570: 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 urn true if the
1580: 69 6e 70 75 74 20 69 73 20 61 20 73 74 72 69 6e input is a strin
1590: 67 20 6c 69 74 65 72 61 6c 2e 0a 2a 2f 0a 73 74 g literal..*/.st
15a0: 61 74 69 63 20 69 6e 74 20 69 73 5f 73 74 72 69 atic int is_stri
15b0: 6e 67 5f 6c 69 74 28 63 6f 6e 73 74 20 63 68 61 ng_lit(const cha
15c0: 72 20 2a 7a 29 7b 0a 20 20 69 6e 74 20 6e 75 31 r *z){. int nu1
15d0: 2c 20 6e 75 32 3b 0a 20 20 7a 20 3d 20 6e 65 78 , nu2;. z = nex
15e0: 74 5f 6e 6f 6e 5f 77 68 69 74 65 73 70 61 63 65 t_non_whitespace
15f0: 28 7a 2c 20 26 6e 75 31 2c 20 26 6e 75 32 29 3b (z, &nu1, &nu2);
1600: 0a 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a 2c . if( strcmp(z,
1610: 20 22 4e 55 4c 4c 22 29 3d 3d 30 20 29 20 72 65 "NULL")==0 ) re
1620: 74 75 72 6e 20 31 3b 0a 20 20 72 65 74 75 72 6e turn 1;. return
1630: 20 7a 5b 30 5d 3d 3d 27 22 27 3b 0a 7d 0a 0a 2f z[0]=='"';.}../
1640: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 65 *.** Return true
1650: 20 69 66 20 74 68 65 20 69 6e 70 75 74 20 69 73 if the input is
1660: 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 6f an expression o
1670: 66 20 73 74 72 69 6e 67 20 6c 69 74 65 72 61 6c f string literal
1680: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 45 58 s:.**.** EX
1690: 50 52 20 3f 20 22 2e 2e 2e 22 20 3a 20 22 2e 2e PR ? "..." : "..
16a0: 2e 22 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 .".*/.static int
16b0: 20 69 73 5f 73 74 72 69 6e 67 5f 65 78 70 72 28 is_string_expr(
16c0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 29 7b 0a const char *z){.
16d0: 20 20 69 6e 74 20 6c 65 6e 20 3d 20 30 2c 20 65 int len = 0, e
16e0: 54 79 70 65 3b 0a 20 20 63 6f 6e 73 74 20 63 68 Type;. const ch
16f0: 61 72 20 2a 7a 4f 72 69 67 20 3d 20 7a 3b 0a 20 ar *zOrig = z;.
1700: 20 6c 65 6e 20 3d 20 64 69 73 74 61 6e 63 65 5f len = distance_
1710: 74 6f 28 7a 2c 20 27 3f 27 29 3b 0a 20 20 69 66 to(z, '?');. if
1720: 28 20 7a 5b 6c 65 6e 5d 3d 3d 30 20 26 26 20 73 ( z[len]==0 && s
1730: 6b 69 70 5f 73 70 61 63 65 28 7a 29 5b 30 5d 3d kip_space(z)[0]=
1740: 3d 27 28 27 20 29 7b 0a 20 20 20 20 7a 20 3d 20 ='(' ){. z =
1750: 73 6b 69 70 5f 73 70 61 63 65 28 7a 29 20 2b 20 skip_space(z) +
1760: 31 3b 0a 20 20 20 20 6c 65 6e 20 3d 20 64 69 73 1;. len = dis
1770: 74 61 6e 63 65 5f 74 6f 28 7a 2c 20 27 3f 27 29 tance_to(z, '?')
1780: 3b 0a 20 20 7d 0a 20 20 7a 20 2b 3d 20 6c 65 6e ;. }. z += len
1790: 3b 0a 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 3f ;. if( z[0]=='?
17a0: 27 20 29 7b 0a 20 20 20 20 7a 2b 2b 3b 0a 20 20 ' ){. z++;.
17b0: 20 20 7a 20 3d 20 6e 65 78 74 5f 6e 6f 6e 5f 77 z = next_non_w
17c0: 68 69 74 65 73 70 61 63 65 28 7a 2c 20 26 6c 65 hitespace(z, &le
17d0: 6e 2c 20 26 65 54 79 70 65 29 3b 0a 20 20 20 20 n, &eType);.
17e0: 69 66 28 20 65 54 79 70 65 3d 3d 54 4b 5f 53 54 if( eType==TK_ST
17f0: 52 20 29 7b 0a 20 20 20 20 20 20 7a 20 2b 3d 20 R ){. z +=
1800: 6c 65 6e 3b 0a 20 20 20 20 20 20 7a 20 3d 20 6e len;. z = n
1810: 65 78 74 5f 6e 6f 6e 5f 77 68 69 74 65 73 70 61 ext_non_whitespa
1820: 63 65 28 7a 2c 20 26 6c 65 6e 2c 20 26 65 54 79 ce(z, &len, &eTy
1830: 70 65 29 3b 0a 20 20 20 20 20 20 69 66 28 20 65 pe);. if( e
1840: 54 79 70 65 3d 3d 54 4b 5f 4f 54 48 45 52 20 26 Type==TK_OTHER &
1850: 26 20 7a 5b 30 5d 3d 3d 27 3a 27 20 29 7b 0a 20 & z[0]==':' ){.
1860: 20 20 20 20 20 20 20 7a 20 2b 3d 20 6c 65 6e 3b z += len;
1870: 0a 20 20 20 20 20 20 20 20 7a 20 3d 20 6e 65 78 . z = nex
1880: 74 5f 6e 6f 6e 5f 77 68 69 74 65 73 70 61 63 65 t_non_whitespace
1890: 28 7a 2c 20 26 6c 65 6e 2c 20 26 65 54 79 70 65 (z, &len, &eType
18a0: 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 65 );. if( e
18b0: 54 79 70 65 3d 3d 54 4b 5f 53 54 52 20 29 7b 0a Type==TK_STR ){.
18c0: 20 20 20 20 20 20 20 20 20 20 7a 20 2b 3d 20 6c z += l
18d0: 65 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 20 en;. z
18e0: 3d 20 6e 65 78 74 5f 6e 6f 6e 5f 77 68 69 74 65 = next_non_white
18f0: 73 70 61 63 65 28 7a 2c 20 26 6c 65 6e 2c 20 26 space(z, &len, &
1900: 65 54 79 70 65 29 3b 0a 20 20 20 20 20 20 20 20 eType);.
1910: 20 20 69 66 28 20 65 54 79 70 65 3d 3d 54 4b 5f if( eType==TK_
1920: 45 4f 46 20 29 20 72 65 74 75 72 6e 20 31 3b 0a EOF ) return 1;.
1930: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 54 if( eT
1940: 79 70 65 3d 3d 54 4b 5f 4f 54 48 45 52 20 26 26 ype==TK_OTHER &&
1950: 20 7a 5b 30 5d 3d 3d 27 29 27 20 26 26 20 73 6b z[0]==')' && sk
1960: 69 70 5f 73 70 61 63 65 28 7a 4f 72 69 67 29 5b ip_space(zOrig)[
1970: 30 5d 3d 3d 27 28 27 20 29 7b 0a 20 20 20 20 20 0]=='(' ){.
1980: 20 20 20 20 20 20 20 7a 20 2b 3d 20 6c 65 6e 3b z += len;
1990: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 20 3d . z =
19a0: 20 6e 65 78 74 5f 6e 6f 6e 5f 77 68 69 74 65 73 next_non_whites
19b0: 70 61 63 65 28 7a 2c 20 26 6c 65 6e 2c 20 26 65 pace(z, &len, &e
19c0: 54 79 70 65 29 3b 0a 20 20 20 20 20 20 20 20 20 Type);.
19d0: 20 20 20 69 66 28 20 65 54 79 70 65 3d 3d 54 4b if( eType==TK
19e0: 5f 45 4f 46 20 29 20 72 65 74 75 72 6e 20 31 3b _EOF ) return 1;
19f0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 . }.
1a00: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 }. }.
1a10: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 }. }. retur
1a20: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 n 0;.}../*.** A
1a30: 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e list of function
1a40: 73 20 74 68 61 74 20 72 65 74 75 72 6e 20 73 74 s that return st
1a50: 72 69 6e 67 73 20 74 68 61 74 20 61 72 65 20 73 rings that are s
1a60: 61 66 65 20 74 6f 20 69 6e 73 65 72 74 20 69 6e afe to insert in
1a70: 74 6f 0a 2a 2a 20 53 51 4c 20 75 73 69 6e 67 20 to.** SQL using
1a80: 25 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 6f %s..*/.static co
1a90: 6e 73 74 20 63 68 61 72 20 2a 61 7a 53 61 66 65 nst char *azSafe
1aa0: 46 75 6e 63 5b 5d 20 3d 20 7b 0a 20 20 22 66 69 Func[] = {. "fi
1ab0: 6c 65 6e 61 6d 65 5f 63 6f 6c 6c 61 74 69 6f 6e lename_collation
1ac0: 22 2c 0a 20 20 22 6c 65 61 66 5f 69 73 5f 63 6c ",. "leaf_is_cl
1ad0: 6f 73 65 64 5f 73 71 6c 22 2c 0a 20 20 22 74 69 osed_sql",. "ti
1ae0: 6d 65 6c 69 6e 65 5f 71 75 65 72 79 5f 66 6f 72 meline_query_for
1af0: 5f 77 77 77 22 2c 0a 20 20 22 74 69 6d 65 6c 69 _www",. "timeli
1b00: 6e 65 5f 71 75 65 72 79 5f 66 6f 72 5f 74 74 79 ne_query_for_tty
1b10: 22 2c 0a 20 20 22 62 6c 6f 62 5f 73 71 6c 5f 74 ",. "blob_sql_t
1b20: 65 78 74 22 2c 0a 20 20 22 67 6c 6f 62 5f 65 78 ext",. "glob_ex
1b30: 70 72 22 2c 0a 20 20 22 66 6f 73 73 69 6c 5f 61 pr",. "fossil_a
1b40: 6c 6c 5f 72 65 73 65 72 76 65 64 5f 6e 61 6d 65 ll_reserved_name
1b50: 73 22 2c 0a 20 20 22 63 6f 6e 66 69 67 75 72 65 s",. "configure
1b60: 5f 69 6e 6f 70 5f 72 68 73 22 2c 0a 20 20 22 64 _inop_rhs",. "d
1b70: 62 5f 73 65 74 74 69 6e 67 5f 69 6e 6f 70 5f 72 b_setting_inop_r
1b80: 68 73 22 2c 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 52 hs",.};../*.** R
1b90: 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 eturn true if th
1ba0: 65 20 69 6e 70 75 74 20 69 73 20 61 6e 20 61 72 e input is an ar
1bb0: 67 75 6d 65 6e 74 20 74 68 61 74 20 69 73 20 73 gument that is s
1bc0: 61 66 65 20 74 6f 20 75 73 65 20 77 69 74 68 20 afe to use with
1bd0: 25 73 0a 2a 2a 20 77 68 69 6c 65 20 62 75 69 6c %s.** while buil
1be0: 64 69 6e 67 20 61 6e 20 53 51 4c 20 73 74 61 74 ding an SQL stat
1bf0: 65 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 ement..*/.static
1c00: 20 69 6e 74 20 69 73 5f 73 71 6c 5f 73 61 66 65 int is_sql_safe
1c10: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 29 7b (const char *z){
1c20: 0a 20 20 69 6e 74 20 6c 65 6e 2c 20 65 54 79 70 . int len, eTyp
1c30: 65 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 2f e;. int i;.. /
1c40: 2a 20 41 20 73 74 72 69 6e 67 20 6c 69 74 65 72 * A string liter
1c50: 61 6c 20 69 73 20 73 61 66 65 20 66 6f 72 20 75 al is safe for u
1c60: 73 65 20 77 69 74 68 20 25 73 20 2a 2f 0a 20 20 se with %s */.
1c70: 69 66 28 20 69 73 5f 73 74 72 69 6e 67 5f 6c 69 if( is_string_li
1c80: 74 28 7a 29 20 29 20 72 65 74 75 72 6e 20 31 3b t(z) ) return 1;
1c90: 0a 0a 20 20 2f 2a 20 43 65 72 74 61 69 6e 20 66 .. /* Certain f
1ca0: 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 67 75 61 unctions are gua
1cb0: 72 61 6e 74 65 65 64 20 74 6f 20 72 65 74 75 72 ranteed to retur
1cc0: 6e 20 61 20 73 74 72 69 6e 67 20 74 68 61 74 20 n a string that
1cd0: 69 73 20 73 61 66 65 0a 20 20 2a 2a 20 66 6f 72 is safe. ** for
1ce0: 20 75 73 65 20 77 69 74 68 20 25 73 20 2a 2f 0a use with %s */.
1cf0: 20 20 7a 20 3d 20 6e 65 78 74 5f 6e 6f 6e 5f 77 z = next_non_w
1d00: 68 69 74 65 73 70 61 63 65 28 7a 2c 20 26 6c 65 hitespace(z, &le
1d10: 6e 2c 20 26 65 54 79 70 65 29 3b 0a 20 20 66 6f n, &eType);. fo
1d20: 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 r(i=0; i<sizeof(
1d30: 61 7a 53 61 66 65 46 75 6e 63 29 2f 73 69 7a 65 azSafeFunc)/size
1d40: 6f 66 28 61 7a 53 61 66 65 46 75 6e 63 5b 30 5d of(azSafeFunc[0]
1d50: 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 ); i++){. if(
1d60: 20 65 54 79 70 65 3d 3d 54 4b 5f 49 44 0a 20 20 eType==TK_ID.
1d70: 20 20 20 26 26 20 73 74 72 6e 63 6d 70 28 7a 2c && strncmp(z,
1d80: 20 61 7a 53 61 66 65 46 75 6e 63 5b 69 5d 2c 20 azSafeFunc[i],
1d90: 6c 65 6e 29 3d 3d 30 0a 20 20 20 20 20 26 26 20 len)==0. &&
1da0: 73 74 72 6c 65 6e 28 61 7a 53 61 66 65 46 75 6e strlen(azSafeFun
1db0: 63 5b 69 5d 29 3d 3d 6c 65 6e 0a 20 20 20 20 29 c[i])==len. )
1dc0: 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31 {. return 1
1dd0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 2f ;. }. }.. /
1de0: 2a 20 45 78 70 72 65 73 73 69 6f 6e 73 20 6f 66 * Expressions of
1df0: 20 74 68 65 20 66 6f 72 6d 3a 20 20 45 58 50 52 the form: EXPR
1e00: 20 3f 20 22 2e 2e 2e 22 20 3a 20 22 2e 2e 2e 2e ? "..." : "....
1e10: 22 20 63 61 6e 20 63 6f 75 6e 74 20 61 73 0a 20 " can count as.
1e20: 20 2a 2a 20 61 20 73 74 72 69 6e 67 20 6c 69 74 ** a string lit
1e30: 65 72 61 6c 2e 20 2a 2f 0a 20 20 69 66 28 20 69 eral. */. if( i
1e40: 73 5f 73 74 72 69 6e 67 5f 65 78 70 72 28 7a 29 s_string_expr(z)
1e50: 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 0a 20 20 ) return 1;..
1e60: 2f 2a 20 49 66 20 74 68 65 20 22 73 61 66 65 2d /* If the "safe-
1e70: 66 6f 72 2d 25 73 22 20 63 6f 6d 6d 65 6e 74 20 for-%s" comment
1e80: 61 70 70 65 61 72 73 20 69 6e 20 74 68 65 20 61 appears in the a
1e90: 72 67 75 6d 65 6e 74 2c 20 74 68 65 6e 0a 20 20 rgument, then.
1ea0: 2a 2a 20 6c 65 74 20 69 74 20 74 68 72 6f 75 67 ** let it throug
1eb0: 68 20 2a 2f 0a 20 20 69 66 28 20 73 74 72 73 74 h */. if( strst
1ec0: 72 28 7a 2c 20 22 2f 2a 73 61 66 65 2d 66 6f 72 r(z, "/*safe-for
1ed0: 2d 25 73 2a 2f 22 29 21 3d 30 20 29 20 72 65 74 -%s*/")!=0 ) ret
1ee0: 75 72 6e 20 31 3b 0a 0a 20 20 72 65 74 75 72 6e urn 1;.. return
1ef0: 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 0;.}../*.** Ret
1f00: 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 urn true if the
1f10: 69 6e 70 75 74 20 69 73 20 61 6e 20 61 72 67 75 input is an argu
1f20: 6d 65 6e 74 20 74 68 61 74 20 69 73 20 6e 65 76 ment that is nev
1f30: 65 72 20 73 61 66 65 20 66 6f 72 20 75 73 65 0a er safe for use.
1f40: 2a 2a 20 77 69 74 68 20 25 73 2e 0a 2a 2f 0a 73 ** with %s..*/.s
1f50: 74 61 74 69 63 20 69 6e 74 20 6e 65 76 65 72 5f tatic int never_
1f60: 73 61 66 65 28 63 6f 6e 73 74 20 63 68 61 72 20 safe(const char
1f70: 2a 7a 29 7b 0a 20 20 69 66 28 20 73 74 72 73 74 *z){. if( strst
1f80: 72 28 7a 2c 22 2f 2a 73 61 66 65 2d 66 6f 72 2d r(z,"/*safe-for-
1f90: 25 73 2a 2f 22 29 21 3d 30 20 29 20 72 65 74 75 %s*/")!=0 ) retu
1fa0: 72 6e 20 30 3b 0a 20 20 69 66 28 20 7a 5b 30 5d rn 0;. if( z[0]
1fb0: 3d 3d 27 50 27 20 29 7b 0a 20 20 20 20 69 66 28 =='P' ){. if(
1fc0: 20 73 74 72 6e 63 6d 70 28 7a 2c 22 50 49 46 28 strncmp(z,"PIF(
1fd0: 22 2c 34 29 3d 3d 30 20 29 20 72 65 74 75 72 6e ",4)==0 ) return
1fe0: 20 30 3b 0a 20 20 20 20 69 66 28 20 73 74 72 6e 0;. if( strn
1ff0: 63 6d 70 28 7a 2c 22 50 43 4b 28 22 2c 34 29 3d cmp(z,"PCK(",4)=
2000: 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 =0 ) return 0;.
2010: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d return 1;. }
2020: 0a 20 20 69 66 28 20 73 74 72 6e 63 6d 70 28 7a . if( strncmp(z
2030: 2c 22 63 67 69 5f 70 61 72 61 6d 22 2c 39 29 3d ,"cgi_param",9)=
2040: 3d 30 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 =0 ) return 1;.
2050: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
2060: 0a 2a 2a 20 50 72 6f 63 65 73 73 69 6e 67 20 66 .** Processing f
2070: 6c 61 67 73 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 lags.*/.#define
2080: 46 4d 54 5f 53 51 4c 20 20 20 30 78 30 30 30 30 FMT_SQL 0x0000
2090: 31 20 20 20 20 20 2f 2a 20 47 65 6e 65 72 61 74 1 /* Generat
20a0: 6f 72 20 66 6f 72 20 53 51 4c 20 74 65 78 74 20 or for SQL text
20b0: 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4d 54 5f 48 */.#define FMT_H
20c0: 54 4d 4c 20 20 30 78 30 30 30 30 32 20 20 20 20 TML 0x00002
20d0: 20 2f 2a 20 47 65 6e 65 72 61 74 6f 72 20 66 6f /* Generator fo
20e0: 72 20 48 54 4d 4c 20 74 65 78 74 20 2a 2f 0a 23 r HTML text */.#
20f0: 64 65 66 69 6e 65 20 46 4d 54 5f 55 52 4c 20 20 define FMT_URL
2100: 20 30 78 30 30 30 30 34 20 20 20 20 20 2f 2a 20 0x00004 /*
2110: 47 65 6e 65 72 61 74 6f 72 20 66 6f 72 20 55 52 Generator for UR
2120: 4c 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4d Ls */.#define FM
2130: 54 5f 53 41 46 45 20 20 30 78 30 30 30 30 38 20 T_SAFE 0x00008
2140: 20 20 20 20 2f 2a 20 47 65 6e 65 72 61 74 6f 72 /* Generator
2150: 20 66 6f 72 20 68 75 6d 61 6e 2d 72 65 61 64 61 for human-reada
2160: 62 6c 65 20 74 65 78 74 20 2a 2f 0a 0a 2f 2a 0a ble text */../*.
2170: 2a 2a 20 41 20 6c 69 73 74 20 6f 66 20 69 6e 74 ** A list of int
2180: 65 72 6e 61 6c 20 46 6f 73 73 69 6c 20 69 6e 74 ernal Fossil int
2190: 65 72 66 61 63 65 73 20 74 68 61 74 20 74 61 6b erfaces that tak
21a0: 65 20 61 20 70 72 69 6e 74 66 2d 73 74 79 6c 65 e a printf-style
21b0: 20 66 6f 72 6d 61 74 0a 2a 2a 20 73 74 72 69 6e format.** strin
21c0: 67 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 46 6d 74 g..*/.struct Fmt
21d0: 46 75 6e 63 20 7b 0a 20 20 63 6f 6e 73 74 20 63 Func {. const c
21e0: 68 61 72 20 2a 7a 46 4e 61 6d 65 3b 20 20 20 20 har *zFName;
21f0: 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 66 /* Name of the f
2200: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 69 6e 74 unction */. int
2210: 20 69 46 6d 74 41 72 67 3b 20 20 20 20 20 20 20 iFmtArg;
2220: 20 20 20 20 2f 2a 20 49 6e 64 65 78 20 6f 66 20 /* Index of
2230: 66 6f 72 6d 61 74 20 61 72 67 75 6d 65 6e 74 2e format argument.
2240: 20 20 4c 65 66 74 6d 6f 73 74 20 69 73 20 31 2e Leftmost is 1.
2250: 20 2a 2f 0a 20 20 75 6e 73 69 67 6e 65 64 20 66 */. unsigned f
2260: 6d 74 46 6c 61 67 73 3b 20 20 20 20 20 2f 2a 20 mtFlags; /*
2270: 50 72 6f 63 65 73 73 69 6e 67 20 66 6c 61 67 73 Processing flags
2280: 20 2a 2f 0a 7d 20 61 46 6d 74 46 75 6e 63 5b 5d */.} aFmtFunc[]
2290: 20 3d 20 7b 0a 20 20 7b 20 22 61 64 6d 69 6e 5f = {. { "admin_
22a0: 6c 6f 67 22 2c 20 20 20 20 20 20 20 20 20 20 20 log",
22b0: 20 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 1, FMT_SAFE
22c0: 7d 2c 0a 20 20 7b 20 22 61 75 64 69 74 5f 61 70 },. { "audit_ap
22d0: 70 65 6e 64 22 2c 20 20 20 20 20 20 20 20 20 20 pend",
22e0: 20 20 33 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 3, FMT_SAFE },
22f0: 0a 20 20 7b 20 22 62 61 63 6b 6f 66 66 69 63 65 . { "backoffice
2300: 54 72 61 63 65 22 2c 20 20 20 20 20 20 20 20 20 Trace",
2310: 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 1, FMT_SAFE },.
2320: 20 7b 20 22 62 6c 6f 62 5f 61 70 70 65 6e 64 5f { "blob_append_
2330: 73 71 6c 22 2c 20 20 20 20 20 20 20 20 20 32 2c sql", 2,
2340: 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20 FMT_SQL },. {
2350: 22 62 6c 6f 62 5f 61 70 70 65 6e 64 66 22 2c 20 "blob_appendf",
2360: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 2, FM
2370: 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 63 T_SAFE },. { "c
2380: 67 69 5f 64 65 62 75 67 22 2c 20 20 20 20 20 20 gi_debug",
2390: 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 1, FMT_
23a0: 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 63 67 69 SAFE },. { "cgi
23b0: 5f 70 61 6e 69 63 22 2c 20 20 20 20 20 20 20 20 _panic",
23c0: 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 41 1, FMT_SA
23d0: 46 45 20 7d 2c 0a 20 20 7b 20 22 63 67 69 5f 70 FE },. { "cgi_p
23e0: 72 69 6e 74 66 22 2c 20 20 20 20 20 20 20 20 20 rintf",
23f0: 20 20 20 20 20 31 2c 20 46 4d 54 5f 48 54 4d 4c 1, FMT_HTML
2400: 20 7d 2c 0a 20 20 7b 20 22 63 67 69 5f 70 72 69 },. { "cgi_pri
2410: 6e 74 66 5f 68 65 61 64 65 72 22 2c 20 20 20 20 ntf_header",
2420: 20 20 20 31 2c 20 46 4d 54 5f 48 54 4d 4c 20 7d 1, FMT_HTML }
2430: 2c 0a 20 20 7b 20 22 63 67 69 5f 72 65 64 69 72 ,. { "cgi_redir
2440: 65 63 74 66 22 2c 20 20 20 20 20 20 20 20 20 20 ectf",
2450: 20 31 2c 20 46 4d 54 5f 55 52 4c 20 7d 2c 0a 20 1, FMT_URL },.
2460: 20 7b 20 22 63 68 72 65 66 22 2c 20 20 20 20 20 { "chref",
2470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 2,
2480: 20 46 4d 54 5f 55 52 4c 20 7d 2c 0a 20 20 7b 20 FMT_URL },. {
2490: 22 43 58 22 2c 20 20 20 20 20 20 20 20 20 20 20 "CX",
24a0: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 1, FM
24b0: 54 5f 48 54 4d 4c 20 7d 2c 0a 20 20 7b 20 22 64 T_HTML },. { "d
24c0: 62 5f 62 6c 6f 62 22 2c 20 20 20 20 20 20 20 20 b_blob",
24d0: 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 2, FMT_
24e0: 53 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 64 SQL },. { "db_d
24f0: 65 62 75 67 22 2c 20 20 20 20 20 20 20 20 20 20 ebug",
2500: 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 51 4c 1, FMT_SQL
2510: 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 64 6f 75 62 },. { "db_doub
2520: 6c 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 le",
2530: 20 20 20 32 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 2, FMT_SQL },
2540: 0a 20 20 7b 20 22 64 62 5f 65 72 72 22 2c 20 20 . { "db_err",
2550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2560: 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 1, FMT_SAFE },.
2570: 20 7b 20 22 64 62 5f 65 78 69 73 74 73 22 2c 20 { "db_exists",
2580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 1,
2590: 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20 FMT_SQL },. {
25a0: 22 64 62 5f 67 65 74 5f 6d 70 72 69 6e 74 66 22 "db_get_mprintf"
25b0: 2c 20 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d , 2, FM
25c0: 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 64 T_SAFE },. { "d
25d0: 62 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 b_int",
25e0: 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 2, FMT_
25f0: 53 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 69 SQL },. { "db_i
2600: 6e 74 36 34 22 2c 20 20 20 20 20 20 20 20 20 20 nt64",
2610: 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 51 4c 2, FMT_SQL
2620: 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 6d 75 6c 74 },. { "db_mult
2630: 69 5f 65 78 65 63 22 2c 20 20 20 20 20 20 20 20 i_exec",
2640: 20 20 20 31 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 1, FMT_SQL },
2650: 0a 20 20 7b 20 22 64 62 5f 6f 70 74 69 6f 6e 61 . { "db_optiona
2660: 6c 5f 73 71 6c 22 2c 20 20 20 20 20 20 20 20 20 l_sql",
2670: 32 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 2, FMT_SQL },.
2680: 7b 20 22 64 62 5f 70 72 65 70 61 72 65 22 2c 20 { "db_prepare",
2690: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 2,
26a0: 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20 22 FMT_SQL },. { "
26b0: 64 62 5f 70 72 65 70 61 72 65 5f 69 67 6e 6f 72 db_prepare_ignor
26c0: 65 5f 65 72 72 6f 72 22 2c 20 32 2c 20 46 4d 54 e_error", 2, FMT
26d0: 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f _SQL },. { "db_
26e0: 73 65 74 5f 6d 70 72 69 6e 74 66 22 2c 20 20 20 set_mprintf",
26f0: 20 20 20 20 20 20 20 33 2c 20 46 4d 54 5f 53 41 3, FMT_SA
2700: 46 45 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 73 74 FE },. { "db_st
2710: 61 74 69 63 5f 70 72 65 70 61 72 65 22 2c 20 20 atic_prepare",
2720: 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 51 4c 20 2, FMT_SQL
2730: 7d 2c 0a 20 20 7b 20 22 64 62 5f 74 65 78 74 22 },. { "db_text"
2740: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2750: 20 20 32 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a 2, FMT_SQL },.
2760: 20 20 7b 20 22 64 62 5f 75 6e 73 65 74 5f 6d 70 { "db_unset_mp
2770: 72 69 6e 74 66 22 2c 20 20 20 20 20 20 20 20 32 rintf", 2
2780: 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 , FMT_SAFE },.
2790: 7b 20 22 65 6d 61 69 6c 65 72 45 72 72 6f 72 22 { "emailerError"
27a0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 , 2,
27b0: 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 FMT_SAFE },. {
27c0: 22 66 69 6c 65 65 64 69 74 5f 61 6a 61 78 5f 65 "fileedit_ajax_e
27d0: 72 72 6f 72 22 2c 20 20 20 20 20 32 2c 20 46 4d rror", 2, FM
27e0: 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 66 T_SAFE },. { "f
27f0: 6f 72 6d 5f 62 65 67 69 6e 22 2c 20 20 20 20 20 orm_begin",
2800: 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 2, FMT_
2810: 55 52 4c 20 7d 2c 0a 20 20 7b 20 22 66 6f 73 73 URL },. { "foss
2820: 69 6c 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20 il_error",
2830: 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 46 2, FMT_SAF
2840: 45 20 7d 2c 0a 20 20 7b 20 22 66 6f 73 73 69 6c E },. { "fossil
2850: 5f 65 72 72 6f 72 6c 6f 67 22 2c 20 20 20 20 20 _errorlog",
2860: 20 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 1, FMT_SAFE
2870: 7d 2c 0a 20 20 7b 20 22 66 6f 73 73 69 6c 5f 66 },. { "fossil_f
2880: 61 74 61 6c 22 2c 20 20 20 20 20 20 20 20 20 20 atal",
2890: 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 1, FMT_SAFE },
28a0: 0a 20 20 7b 20 22 66 6f 73 73 69 6c 5f 66 61 74 . { "fossil_fat
28b0: 61 6c 5f 72 65 63 75 72 73 69 76 65 22 2c 20 20 al_recursive",
28c0: 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 1, FMT_SAFE },.
28d0: 20 7b 20 22 66 6f 73 73 69 6c 5f 70 61 6e 69 63 { "fossil_panic
28e0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c ", 1,
28f0: 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b FMT_SAFE },. {
2900: 20 22 66 6f 73 73 69 6c 5f 70 72 69 6e 74 22 2c "fossil_print",
2910: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 1, F
2920: 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 MT_SAFE },. { "
2930: 66 6f 73 73 69 6c 5f 74 72 61 63 65 22 2c 20 20 fossil_trace",
2940: 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 1, FMT
2950: 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 66 6f _SAFE },. { "fo
2960: 73 73 69 6c 5f 77 61 72 6e 69 6e 67 22 2c 20 20 ssil_warning",
2970: 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 1, FMT_S
2980: 41 46 45 20 7d 2c 0a 20 20 7b 20 22 68 72 65 66 AFE },. { "href
2990: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
29a0: 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 55 52 4c 1, FMT_URL
29b0: 20 7d 2c 0a 20 20 7b 20 22 6a 73 6f 6e 5f 6e 65 },. { "json_ne
29c0: 77 5f 73 74 72 69 6e 67 5f 66 22 2c 20 20 20 20 w_string_f",
29d0: 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 1, FMT_SAFE }
29e0: 2c 0a 20 20 7b 20 22 6a 73 6f 6e 5f 73 65 74 5f ,. { "json_set_
29f0: 65 72 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 err",
2a00: 20 32 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 2, FMT_SAFE },.
2a10: 20 20 7b 20 22 6a 73 6f 6e 5f 77 61 72 6e 22 2c { "json_warn",
2a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2
2a30: 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 , FMT_SAFE },.
2a40: 7b 20 22 6d 70 72 69 6e 74 66 22 2c 20 20 20 20 { "mprintf",
2a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 1,
2a60: 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 FMT_SAFE },. {
2a70: 22 70 6f 70 33 5f 70 72 69 6e 74 22 2c 20 20 20 "pop3_print",
2a80: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 2, FM
2a90: 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 73 T_SAFE },. { "s
2aa0: 6d 74 70 5f 73 65 6e 64 5f 6c 69 6e 65 22 2c 20 mtp_send_line",
2ab0: 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 2, FMT_
2ac0: 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 73 6d 74 SAFE },. { "smt
2ad0: 70 5f 73 65 72 76 65 72 5f 73 65 6e 64 22 2c 20 p_server_send",
2ae0: 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 2, FMT_SA
2af0: 46 45 20 7d 2c 0a 20 20 7b 20 22 73 6f 63 6b 65 FE },. { "socke
2b00: 74 5f 73 65 74 5f 65 72 72 6d 73 67 22 2c 20 20 t_set_errmsg",
2b10: 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 1, FMT_SAFE
2b20: 20 7d 2c 0a 20 20 7b 20 22 73 73 6c 5f 73 65 74 },. { "ssl_set
2b30: 5f 65 72 72 6d 73 67 22 2c 20 20 20 20 20 20 20 _errmsg",
2b40: 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 1, FMT_SAFE }
2b50: 2c 0a 20 20 7b 20 22 73 74 79 6c 65 5f 68 65 61 ,. { "style_hea
2b60: 64 65 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 der",
2b70: 20 31 2c 20 46 4d 54 5f 48 54 4d 4c 20 7d 2c 0a 1, FMT_HTML },.
2b80: 20 20 7b 20 22 73 74 79 6c 65 5f 6a 73 5f 6f 6e { "style_js_on
2b90: 6c 6f 61 64 22 2c 20 20 20 20 20 20 20 20 20 31 load", 1
2ba0: 2c 20 46 4d 54 5f 48 54 4d 4c 20 7d 2c 0a 20 20 , FMT_HTML },.
2bb0: 7b 20 22 73 74 79 6c 65 5f 73 65 74 5f 63 75 72 { "style_set_cur
2bc0: 72 65 6e 74 5f 70 61 67 65 22 2c 20 20 31 2c 20 rent_page", 1,
2bd0: 46 4d 54 5f 55 52 4c 20 7d 2c 0a 20 20 7b 20 22 FMT_URL },. { "
2be0: 73 74 79 6c 65 5f 73 75 62 6d 65 6e 75 5f 65 6c style_submenu_el
2bf0: 65 6d 65 6e 74 22 2c 20 20 20 32 2c 20 46 4d 54 ement", 2, FMT
2c00: 5f 55 52 4c 20 7d 2c 0a 20 20 7b 20 22 73 74 79 _URL },. { "sty
2c10: 6c 65 5f 73 75 62 6d 65 6e 75 5f 73 71 6c 22 2c le_submenu_sql",
2c20: 20 20 20 20 20 20 20 33 2c 20 46 4d 54 5f 53 51 3, FMT_SQ
2c30: 4c 20 7d 2c 0a 20 20 7b 20 22 77 65 62 70 61 67 L },. { "webpag
2c40: 65 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20 20 e_error",
2c50: 20 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 1, FMT_SAFE
2c60: 7d 2c 0a 20 20 7b 20 22 78 68 72 65 66 22 2c 20 },. { "xhref",
2c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2c80: 20 20 32 2c 20 46 4d 54 5f 55 52 4c 20 7d 2c 0a 2, FMT_URL },.
2c90: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 61 72 };../*.** Compar
2ca0: 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 66 6f ison function fo
2cb0: 72 20 74 77 6f 20 46 6d 74 46 75 6e 63 20 65 6e r two FmtFunc en
2cc0: 74 72 69 65 73 0a 2a 2f 0a 73 74 61 74 69 63 20 tries.*/.static
2cd0: 69 6e 74 20 66 6d 74 66 75 6e 63 5f 63 6d 70 28 int fmtfunc_cmp(
2ce0: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 41 41 2c const void *pAA,
2cf0: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 42 42 const void *pBB
2d00: 29 7b 0a 20 20 63 6f 6e 73 74 20 73 74 72 75 63 ){. const struc
2d10: 74 20 46 6d 74 46 75 6e 63 20 2a 70 41 20 3d 20 t FmtFunc *pA =
2d20: 28 63 6f 6e 73 74 20 73 74 72 75 63 74 20 46 6d (const struct Fm
2d30: 74 46 75 6e 63 2a 29 70 41 41 3b 0a 20 20 63 6f tFunc*)pAA;. co
2d40: 6e 73 74 20 73 74 72 75 63 74 20 46 6d 74 46 75 nst struct FmtFu
2d50: 6e 63 20 2a 70 42 20 3d 20 28 63 6f 6e 73 74 20 nc *pB = (const
2d60: 73 74 72 75 63 74 20 46 6d 74 46 75 6e 63 2a 29 struct FmtFunc*)
2d70: 70 42 42 3b 0a 20 20 72 65 74 75 72 6e 20 73 74 pBB;. return st
2d80: 72 63 6d 70 28 70 41 2d 3e 7a 46 4e 61 6d 65 2c rcmp(pA->zFName,
2d90: 20 70 42 2d 3e 7a 46 4e 61 6d 65 29 3b 0a 7d 0a pB->zFName);.}.
2da0: 0a 2f 2a 0a 2a 2a 20 44 65 74 65 72 6d 69 6e 65 ./*.** Determine
2db0: 20 69 66 20 74 68 65 20 69 6e 64 65 6e 74 69 66 if the indentif
2dc0: 69 65 72 20 7a 49 64 65 6e 74 20 6f 66 20 6c 65 ier zIdent of le
2dd0: 6e 67 74 68 20 6e 49 6e 64 65 6e 74 20 69 73 20 ngth nIndent is
2de0: 61 20 46 6f 73 73 69 6c 0a 2a 2a 20 69 6e 74 65 a Fossil.** inte
2df0: 72 6e 61 6c 20 69 6e 74 65 72 66 61 63 65 20 74 rnal interface t
2e00: 68 61 74 20 75 73 65 73 20 61 20 70 72 69 6e 74 hat uses a print
2e10: 66 2d 73 74 79 6c 65 20 61 72 67 75 6d 65 6e 74 f-style argument
2e20: 2e 20 20 52 65 74 75 72 6e 20 7a 65 72 6f 20 69 . Return zero i
2e30: 66 20 6e 6f 74 2e 0a 2a 2a 20 52 65 74 75 72 6e f not..** Return
2e40: 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 the index of th
2e50: 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 e format string
2e60: 69 66 20 74 72 75 65 20 77 69 74 68 20 74 68 65 if true with the
2e70: 20 6c 65 66 74 2d 6d 6f 73 74 0a 2a 2a 20 61 72 left-most.** ar
2e80: 67 75 6d 65 6e 74 20 68 61 76 69 6e 67 20 61 6e gument having an
2e90: 20 69 6e 64 65 78 20 6f 66 20 31 2e 0a 2a 2f 0a index of 1..*/.
2ea0: 73 74 61 74 69 63 20 69 6e 74 20 69 73 46 6f 72 static int isFor
2eb0: 6d 61 74 46 75 6e 63 28 63 6f 6e 73 74 20 63 68 matFunc(const ch
2ec0: 61 72 20 2a 7a 49 64 65 6e 74 2c 20 69 6e 74 20 ar *zIdent, int
2ed0: 6e 49 64 65 6e 74 2c 20 75 6e 73 69 67 6e 65 64 nIdent, unsigned
2ee0: 20 2a 70 46 6c 61 67 73 29 7b 0a 20 20 69 6e 74 *pFlags){. int
2ef0: 20 75 70 72 2c 20 6c 77 72 3b 0a 20 20 6c 77 72 upr, lwr;. lwr
2f00: 20 3d 20 30 3b 0a 20 20 75 70 72 20 3d 20 73 69 = 0;. upr = si
2f10: 7a 65 6f 66 28 61 46 6d 74 46 75 6e 63 29 2f 73 zeof(aFmtFunc)/s
2f20: 69 7a 65 6f 66 28 61 46 6d 74 46 75 6e 63 5b 30 izeof(aFmtFunc[0
2f30: 5d 29 20 2d 20 31 3b 0a 20 20 77 68 69 6c 65 28 ]) - 1;. while(
2f40: 20 6c 77 72 3c 3d 75 70 72 20 29 7b 0a 20 20 20 lwr<=upr ){.
2f50: 20 75 6e 73 69 67 6e 65 64 20 78 20 3d 20 28 6c unsigned x = (l
2f60: 77 72 20 2b 20 75 70 72 29 2f 32 3b 0a 20 20 20 wr + upr)/2;.
2f70: 20 69 6e 74 20 63 20 3d 20 73 74 72 6e 63 6d 70 int c = strncmp
2f80: 28 7a 49 64 65 6e 74 2c 20 61 46 6d 74 46 75 6e (zIdent, aFmtFun
2f90: 63 5b 78 5d 2e 7a 46 4e 61 6d 65 2c 20 6e 49 64 c[x].zFName, nId
2fa0: 65 6e 74 29 3b 0a 20 20 20 20 69 66 28 20 63 3d ent);. if( c=
2fb0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 =0 ){. if(
2fc0: 61 46 6d 74 46 75 6e 63 5b 78 5d 2e 7a 46 4e 61 aFmtFunc[x].zFNa
2fd0: 6d 65 5b 6e 49 64 65 6e 74 5d 3d 3d 30 20 29 7b me[nIdent]==0 ){
2fe0: 0a 20 20 20 20 20 20 20 20 2a 70 46 6c 61 67 73 . *pFlags
2ff0: 20 3d 20 61 46 6d 74 46 75 6e 63 5b 78 5d 2e 66 = aFmtFunc[x].f
3000: 6d 74 46 6c 61 67 73 3b 0a 20 20 20 20 20 20 20 mtFlags;.
3010: 20 72 65 74 75 72 6e 20 61 46 6d 74 46 75 6e 63 return aFmtFunc
3020: 5b 78 5d 2e 69 46 6d 74 41 72 67 3b 0a 20 20 20 [x].iFmtArg;.
3030: 20 20 20 7d 0a 20 20 20 20 20 20 63 20 3d 20 2d }. c = -
3040: 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 1;. }. if(
3050: 20 63 3c 30 20 29 7b 0a 20 20 20 20 20 20 75 70 c<0 ){. up
3060: 72 20 3d 20 78 20 2d 20 31 3b 0a 20 20 20 20 7d r = x - 1;. }
3070: 65 6c 73 65 7b 0a 20 20 20 20 20 20 6c 77 72 20 else{. lwr
3080: 3d 20 78 20 2b 20 31 3b 0a 20 20 20 20 7d 0a 20 = x + 1;. }.
3090: 20 7d 0a 20 20 2a 70 46 6c 61 67 73 20 3d 20 30 }. *pFlags = 0
30a0: 3b 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a ;. return 0;.}.
30b0: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 ./*.** Return th
30c0: 65 20 65 78 70 65 63 74 65 64 20 6e 75 6d 62 65 e expected numbe
30d0: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 66 r of arguments f
30e0: 6f 72 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 or the format st
30f0: 72 69 6e 67 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 ring..** Return
3100: 2d 31 20 69 66 20 74 68 65 20 76 61 6c 75 65 20 -1 if the value
3110: 63 61 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 75 74 cannot be comput
3120: 65 64 2e 0a 2a 2a 0a 2a 2a 20 46 6f 72 20 65 61 ed..**.** For ea
3130: 63 68 20 61 72 67 75 6d 65 6e 74 20 6c 65 73 73 ch argument less
3140: 20 74 68 61 6e 20 6e 54 79 70 65 2c 20 73 74 6f than nType, sto
3150: 72 65 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f re the conversio
3160: 6e 20 63 68 61 72 61 63 74 65 72 0a 2a 2a 20 66 n character.** f
3170: 6f 72 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 or that argument
3180: 20 69 6e 20 63 54 79 70 65 5b 69 5d 2e 0a 2a 2f in cType[i]..*/
3190: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 6f 72 6d .static int form
31a0: 61 74 41 72 67 43 6f 75 6e 74 28 63 6f 6e 73 74 atArgCount(const
31b0: 20 63 68 61 72 20 2a 7a 2c 20 69 6e 74 20 6e 54 char *z, int nT
31c0: 79 70 65 2c 20 63 68 61 72 20 2a 63 54 79 70 65 ype, char *cType
31d0: 29 7b 0a 20 20 69 6e 74 20 6e 41 72 67 20 3d 20 ){. int nArg =
31e0: 30 3b 0a 20 20 69 6e 74 20 69 2c 20 6b 3b 0a 20 0;. int i, k;.
31f0: 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 69 6e 74 20 int len;. int
3200: 65 54 79 70 65 3b 0a 20 20 69 6e 74 20 6c 6e 20 eType;. int ln
3210: 3d 20 30 3b 0a 20 20 77 68 69 6c 65 28 20 7a 5b = 0;. while( z[
3220: 30 5d 20 29 7b 0a 20 20 20 20 6c 65 6e 20 3d 20 0] ){. len =
3230: 74 6f 6b 65 6e 5f 6c 65 6e 67 74 68 28 7a 2c 20 token_length(z,
3240: 26 65 54 79 70 65 2c 20 26 6c 6e 29 3b 0a 20 20 &eType, &ln);.
3250: 20 20 69 66 28 20 65 54 79 70 65 3d 3d 54 4b 5f if( eType==TK_
3260: 53 54 52 20 29 7b 0a 20 20 20 20 20 20 66 6f 72 STR ){. for
3270: 28 69 3d 31 3b 20 69 3c 6c 65 6e 2d 31 3b 20 69 (i=1; i<len-1; i
3280: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 ++){. if(
3290: 20 7a 5b 69 5d 21 3d 27 25 27 20 29 20 63 6f 6e z[i]!='%' ) con
32a0: 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 69 tinue;. i
32b0: 66 28 20 7a 5b 69 2b 31 5d 3d 3d 27 25 27 20 29 f( z[i+1]=='%' )
32c0: 7b 20 69 2b 2b 3b 20 63 6f 6e 74 69 6e 75 65 3b { i++; continue;
32d0: 20 7d 0a 20 20 20 20 20 20 20 20 66 6f 72 28 6b }. for(k
32e0: 3d 69 2b 31 3b 20 6b 3c 6c 65 6e 20 26 26 20 21 =i+1; k<len && !
32f0: 69 73 61 6c 70 68 61 28 7a 5b 6b 5d 29 3b 20 6b isalpha(z[k]); k
3300: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 ++){. i
3310: 66 28 20 7a 5b 6b 5d 3d 3d 27 2a 27 20 7c 7c 20 f( z[k]=='*' ||
3320: 7a 5b 6b 5d 3d 3d 27 23 27 20 29 7b 0a 20 20 20 z[k]=='#' ){.
3330: 20 20 20 20 20 20 20 20 20 69 66 28 20 6e 41 72 if( nAr
3340: 67 3c 6e 54 79 70 65 20 29 20 63 54 79 70 65 5b g<nType ) cType[
3350: 6e 41 72 67 5d 20 3d 20 7a 5b 6b 5d 3b 0a 20 20 nArg] = z[k];.
3360: 20 20 20 20 20 20 20 20 20 20 6e 41 72 67 2b 2b nArg++
3370: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 ;. }.
3380: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
3390: 69 66 28 20 7a 5b 6b 5d 21 3d 27 52 27 20 29 7b if( z[k]!='R' ){
33a0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 6e . if( n
33b0: 41 72 67 3c 6e 54 79 70 65 20 29 20 63 54 79 70 Arg<nType ) cTyp
33c0: 65 5b 6e 41 72 67 5d 20 3d 20 7a 5b 6b 5d 3b 0a e[nArg] = z[k];.
33d0: 20 20 20 20 20 20 20 20 20 20 6e 41 72 67 2b 2b nArg++
33e0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
33f0: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 7a 20 }. }. z
3400: 2b 3d 20 6c 65 6e 3b 0a 20 20 7d 0a 20 20 72 65 += len;. }. re
3410: 74 75 72 6e 20 6e 41 72 67 3b 0a 7d 0a 0a 2f 2a turn nArg;.}../*
3420: 0a 2a 2a 20 54 68 65 20 66 75 6e 63 74 69 6f 6e .** The function
3430: 20 63 61 6c 6c 20 74 68 61 74 20 62 65 67 69 6e call that begin
3440: 73 20 61 74 20 7a 46 43 61 6c 6c 5b 30 5d 20 28 s at zFCall[0] (
3450: 77 68 69 63 68 20 69 73 20 6f 6e 20 6c 69 6e 65 which is on line
3460: 20 6c 6e 46 43 61 6c 6c 20 6f 66 20 74 68 65 0a lnFCall of the.
3470: 2a 2a 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 ** original file
3480: 29 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 ) is a function
3490: 74 68 61 74 20 75 73 65 73 20 61 20 70 72 69 6e that uses a prin
34a0: 74 66 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 20 tf-style format
34b0: 73 74 72 69 6e 67 0a 2a 2a 20 6f 6e 20 61 72 67 string.** on arg
34c0: 75 6d 65 6e 74 20 6e 75 6d 62 65 72 20 66 6d 74 ument number fmt
34d0: 41 72 67 2e 20 20 49 74 20 68 61 73 20 70 72 6f Arg. It has pro
34e0: 63 65 73 73 69 6e 67 73 20 66 6c 61 67 73 20 66 cessings flags f
34f0: 6d 74 46 6c 61 67 73 2e 20 20 44 6f 0a 2a 2a 20 mtFlags. Do.**
3500: 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 63 68 65 compile-time che
3510: 63 6b 69 6e 67 20 6f 6e 20 74 68 69 73 20 66 75 cking on this fu
3520: 6e 63 74 69 6f 6e 2c 20 6f 75 74 70 75 74 20 61 nction, output a
3530: 6e 79 20 65 72 72 6f 72 73 2c 20 61 6e 64 20 72 ny errors, and r
3540: 65 74 75 72 6e 0a 2a 2a 20 74 68 65 20 6e 75 6d eturn.** the num
3550: 62 65 72 20 6f 66 20 65 72 72 6f 72 73 2e 0a 2a ber of errors..*
3560: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 63 68 65 /.static int che
3570: 63 6b 46 6f 72 6d 61 74 46 75 6e 63 28 0a 20 20 ckFormatFunc(.
3580: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c const char *zFil
3590: 65 6e 61 6d 65 2c 20 2f 2a 20 4e 61 6d 65 20 6f ename, /* Name o
35a0: 66 20 74 68 65 20 66 69 6c 65 20 62 65 69 6e 67 f the file being
35b0: 20 70 72 6f 63 65 73 73 65 64 20 2a 2f 0a 20 20 processed */.
35c0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 43 61 const char *zFCa
35d0: 6c 6c 2c 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 ll, /* Pointe
35e0: 72 20 74 6f 20 73 74 61 72 74 20 6f 66 20 66 75 r to start of fu
35f0: 6e 63 74 69 6f 6e 20 63 61 6c 6c 20 2a 2f 0a 20 nction call */.
3600: 20 69 6e 74 20 6c 6e 46 43 61 6c 6c 2c 20 20 20 int lnFCall,
3610: 20 20 20 20 20 20 20 20 2f 2a 20 4c 69 6e 65 20 /* Line
3620: 6e 75 6d 62 65 72 20 74 68 61 74 20 68 6f 6c 64 number that hold
3630: 73 20 7a 5b 30 5d 20 2a 2f 0a 20 20 69 6e 74 20 s z[0] */. int
3640: 66 6d 74 41 72 67 2c 20 20 20 20 20 20 20 20 20 fmtArg,
3650: 20 20 20 2f 2a 20 46 6f 72 6d 61 74 20 73 74 72 /* Format str
3660: 69 6e 67 20 73 68 6f 75 6c 64 20 62 65 20 74 68 ing should be th
3670: 69 73 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 20 is argument */.
3680: 20 69 6e 74 20 66 6d 74 46 6c 61 67 73 20 20 20 int fmtFlags
3690: 20 20 20 20 20 20 20 20 2f 2a 20 45 78 74 72 61 /* Extra
36a0: 20 70 72 6f 63 65 73 73 69 6e 67 20 66 6c 61 67 processing flag
36b0: 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 73 7a s */.){. int sz
36c0: 46 4e 61 6d 65 3b 0a 20 20 69 6e 74 20 65 54 6f FName;. int eTo
36d0: 6b 65 6e 3b 0a 20 20 69 6e 74 20 6c 6e 20 3d 20 ken;. int ln =
36e0: 6c 6e 46 43 61 6c 6c 3b 0a 20 20 69 6e 74 20 6c lnFCall;. int l
36f0: 65 6e 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 en;. const char
3700: 20 2a 7a 53 74 61 72 74 3b 0a 20 20 63 68 61 72 *zStart;. char
3710: 20 2a 7a 3b 0a 20 20 63 68 61 72 20 2a 7a 43 6f *z;. char *zCo
3720: 70 79 3b 0a 20 20 69 6e 74 20 6e 41 72 67 20 3d py;. int nArg =
3730: 20 30 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 0;. const char
3740: 20 2a 2a 61 7a 41 72 67 20 3d 20 30 3b 0a 20 20 **azArg = 0;.
3750: 69 6e 74 20 69 2c 20 6b 3b 0a 20 20 69 6e 74 20 int i, k;. int
3760: 6e 45 72 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 nErr = 0;. char
3770: 20 2a 61 63 54 79 70 65 3b 0a 0a 20 20 73 7a 46 *acType;.. szF
3780: 4e 61 6d 65 20 3d 20 74 6f 6b 65 6e 5f 6c 65 6e Name = token_len
3790: 67 74 68 28 7a 46 43 61 6c 6c 2c 20 26 65 54 6f gth(zFCall, &eTo
37a0: 6b 65 6e 2c 20 26 6c 6e 29 3b 0a 20 20 7a 53 74 ken, &ln);. zSt
37b0: 61 72 74 20 3d 20 6e 65 78 74 5f 6e 6f 6e 5f 77 art = next_non_w
37c0: 68 69 74 65 73 70 61 63 65 28 7a 46 43 61 6c 6c hitespace(zFCall
37d0: 2b 73 7a 46 4e 61 6d 65 2c 20 26 6c 65 6e 2c 20 +szFName, &len,
37e0: 26 65 54 6f 6b 65 6e 29 3b 0a 20 20 61 73 73 65 &eToken);. asse
37f0: 72 74 28 20 7a 53 74 61 72 74 5b 30 5d 3d 3d 27 rt( zStart[0]=='
3800: 28 27 20 26 26 20 6c 65 6e 3d 3d 31 20 29 3b 0a (' && len==1 );.
3810: 20 20 6c 65 6e 20 3d 20 64 69 73 74 61 6e 63 65 len = distance
3820: 5f 74 6f 28 7a 53 74 61 72 74 2b 31 2c 20 27 29 _to(zStart+1, ')
3830: 27 29 3b 0a 20 20 7a 43 6f 70 79 20 3d 20 73 61 ');. zCopy = sa
3840: 66 65 5f 6d 61 6c 6c 6f 63 28 20 6c 65 6e 20 2b fe_malloc( len +
3850: 20 31 20 29 3b 0a 20 20 6d 65 6d 63 70 79 28 7a 1 );. memcpy(z
3860: 43 6f 70 79 2c 20 7a 53 74 61 72 74 2b 31 2c 20 Copy, zStart+1,
3870: 6c 65 6e 29 3b 0a 20 20 7a 43 6f 70 79 5b 6c 65 len);. zCopy[le
3880: 6e 5d 20 3d 20 30 3b 0a 20 20 61 7a 41 72 67 20 n] = 0;. azArg
3890: 3d 20 30 3b 0a 20 20 6e 41 72 67 20 3d 20 30 3b = 0;. nArg = 0;
38a0: 0a 20 20 7a 20 3d 20 7a 43 6f 70 79 3b 0a 20 20 . z = zCopy;.
38b0: 77 68 69 6c 65 28 20 7a 5b 30 5d 20 29 7b 0a 20 while( z[0] ){.
38c0: 20 20 20 63 68 61 72 20 63 45 6e 64 3b 0a 20 20 char cEnd;.
38d0: 20 20 6c 65 6e 20 3d 20 64 69 73 74 61 6e 63 65 len = distance
38e0: 5f 74 6f 28 7a 2c 20 27 2c 27 29 3b 0a 20 20 20 _to(z, ',');.
38f0: 20 63 45 6e 64 20 3d 20 7a 5b 6c 65 6e 5d 3b 0a cEnd = z[len];.
3900: 20 20 20 20 7a 5b 6c 65 6e 5d 20 3d 20 30 3b 0a z[len] = 0;.
3910: 20 20 20 20 61 7a 41 72 67 20 3d 20 73 61 66 65 azArg = safe
3920: 5f 72 65 61 6c 6c 6f 63 28 28 63 68 61 72 2a 29 _realloc((char*)
3930: 61 7a 41 72 67 2c 20 28 73 69 7a 65 6f 66 28 61 azArg, (sizeof(a
3940: 7a 41 72 67 5b 30 5d 29 2b 31 29 2a 28 6e 41 72 zArg[0])+1)*(nAr
3950: 67 2b 31 29 29 3b 0a 20 20 20 20 61 7a 41 72 67 g+1));. azArg
3960: 5b 6e 41 72 67 2b 2b 5d 20 3d 20 73 69 6d 70 6c [nArg++] = simpl
3970: 69 66 79 5f 65 78 70 72 28 7a 29 3b 0a 20 20 20 ify_expr(z);.
3980: 20 69 66 28 20 63 45 6e 64 3d 3d 30 20 29 20 62 if( cEnd==0 ) b
3990: 72 65 61 6b 3b 0a 20 20 20 20 7a 20 2b 3d 20 6c reak;. z += l
39a0: 65 6e 20 2b 20 31 3b 0a 20 20 7d 0a 20 20 61 63 en + 1;. }. ac
39b0: 54 79 70 65 20 3d 20 28 63 68 61 72 2a 29 26 61 Type = (char*)&a
39c0: 7a 41 72 67 5b 6e 41 72 67 5d 3b 0a 20 20 69 66 zArg[nArg];. if
39d0: 28 20 66 6d 74 41 72 67 3e 6e 41 72 67 20 29 7b ( fmtArg>nArg ){
39e0: 0a 20 20 20 20 70 72 69 6e 74 66 28 22 25 73 3a . printf("%s:
39f0: 25 64 3a 20 74 6f 6f 20 66 65 77 20 61 72 67 75 %d: too few argu
3a00: 6d 65 6e 74 73 20 74 6f 20 25 2e 2a 73 28 29 5c ments to %.*s()\
3a10: 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 7a n",. z
3a20: 46 69 6c 65 6e 61 6d 65 2c 20 6c 6e 46 43 61 6c Filename, lnFCal
3a30: 6c 2c 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43 61 l, szFName, zFCa
3a40: 6c 6c 29 3b 0a 20 20 20 20 6e 45 72 72 2b 2b 3b ll);. nErr++;
3a50: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 63 6f . }else{. co
3a60: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6d 74 20 3d nst char *zFmt =
3a70: 20 61 7a 41 72 67 5b 66 6d 74 41 72 67 2d 31 5d azArg[fmtArg-1]
3a80: 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 ;. const char
3a90: 20 2a 7a 4f 76 65 72 72 69 64 65 20 3d 20 73 74 *zOverride = st
3aa0: 72 73 74 72 28 7a 46 6d 74 2c 20 22 2f 2a 77 6f rstr(zFmt, "/*wo
3ab0: 72 6b 73 2d 6c 69 6b 65 3a 22 29 3b 0a 20 20 20 rks-like:");.
3ac0: 20 69 66 28 20 7a 4f 76 65 72 72 69 64 65 20 29 if( zOverride )
3ad0: 20 7a 46 6d 74 20 3d 20 7a 4f 76 65 72 72 69 64 zFmt = zOverrid
3ae0: 65 20 2b 20 73 69 7a 65 6f 66 28 22 2f 2a 77 6f e + sizeof("/*wo
3af0: 72 6b 73 2d 6c 69 6b 65 3a 22 29 2d 31 3b 0a 20 rks-like:")-1;.
3b00: 20 20 20 69 66 28 20 21 69 73 5f 73 74 72 69 6e if( !is_strin
3b10: 67 5f 6c 69 74 28 7a 46 6d 74 29 20 29 7b 0a 20 g_lit(zFmt) ){.
3b20: 20 20 20 20 20 70 72 69 6e 74 66 28 22 25 73 3a printf("%s:
3b30: 25 64 3a 20 25 2e 2a 73 28 29 20 68 61 73 20 6e %d: %.*s() has n
3b40: 6f 6e 2d 63 6f 6e 73 74 61 6e 74 20 66 6f 72 6d on-constant form
3b50: 61 74 20 6f 6e 20 61 72 67 5b 25 64 5d 5c 6e 22 at on arg[%d]\n"
3b60: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7a ,. z
3b70: 46 69 6c 65 6e 61 6d 65 2c 20 6c 6e 46 43 61 6c Filename, lnFCal
3b80: 6c 2c 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43 61 l, szFName, zFCa
3b90: 6c 6c 2c 20 66 6d 74 41 72 67 2d 31 29 3b 0a 20 ll, fmtArg-1);.
3ba0: 20 20 20 20 20 6e 45 72 72 2b 2b 3b 0a 20 20 20 nErr++;.
3bb0: 20 7d 65 6c 73 65 20 69 66 28 20 28 6b 20 3d 20 }else if( (k =
3bc0: 66 6f 72 6d 61 74 41 72 67 43 6f 75 6e 74 28 7a formatArgCount(z
3bd0: 46 6d 74 2c 20 6e 41 72 67 2c 20 61 63 54 79 70 Fmt, nArg, acTyp
3be0: 65 29 29 3e 3d 30 0a 20 20 20 20 20 20 20 20 20 e))>=0.
3bf0: 20 20 20 20 26 26 20 6e 41 72 67 21 3d 66 6d 74 && nArg!=fmt
3c00: 41 72 67 2b 6b 20 29 7b 0a 20 20 20 20 20 20 70 Arg+k ){. p
3c10: 72 69 6e 74 66 28 22 25 73 3a 25 64 3a 20 74 6f rintf("%s:%d: to
3c20: 6f 20 25 73 20 61 72 67 75 6d 65 6e 74 73 20 74 o %s arguments t
3c30: 6f 20 25 2e 2a 73 28 29 20 22 0a 20 20 20 20 20 o %.*s() ".
3c40: 20 20 20 20 20 20 20 20 22 2d 20 67 6f 74 20 25 "- got %
3c50: 64 20 61 6e 64 20 65 78 70 65 63 74 65 64 20 25 d and expected %
3c60: 64 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 d\n",.
3c70: 20 20 20 7a 46 69 6c 65 6e 61 6d 65 2c 20 6c 6e zFilename, ln
3c80: 46 43 61 6c 6c 2c 20 28 6e 41 72 67 3c 66 6d 74 FCall, (nArg<fmt
3c90: 41 72 67 2b 6b 20 3f 20 22 66 65 77 22 20 3a 20 Arg+k ? "few" :
3ca0: 22 6d 61 6e 79 22 29 2c 0a 20 20 20 20 20 20 20 "many"),.
3cb0: 20 20 20 20 20 20 73 7a 46 4e 61 6d 65 2c 20 7a szFName, z
3cc0: 46 43 61 6c 6c 2c 20 6e 41 72 67 2c 20 66 6d 74 FCall, nArg, fmt
3cd0: 41 72 67 2b 6b 29 3b 0a 20 20 20 20 20 20 6e 45 Arg+k);. nE
3ce0: 72 72 2b 2b 3b 0a 20 20 20 20 7d 65 6c 73 65 20 rr++;. }else
3cf0: 69 66 28 20 28 66 6d 74 46 6c 61 67 73 20 26 20 if( (fmtFlags &
3d00: 46 4d 54 5f 53 41 46 45 29 3d 3d 30 20 29 7b 0a FMT_SAFE)==0 ){.
3d10: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 for(i=0; i
3d20: 3c 6e 41 72 67 20 26 26 20 69 3c 6b 3b 20 69 2b <nArg && i<k; i+
3d30: 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 +){. if(
3d40: 28 61 63 54 79 70 65 5b 69 5d 3d 3d 27 73 27 20 (acType[i]=='s'
3d50: 7c 7c 20 61 63 54 79 70 65 5b 69 5d 3d 3d 27 7a || acType[i]=='z
3d60: 27 20 7c 7c 20 61 63 54 79 70 65 5b 69 5d 3d 3d ' || acType[i]==
3d70: 27 62 27 29 20 29 7b 0a 20 20 20 20 20 20 20 20 'b') ){.
3d80: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 45 const char *zE
3d90: 78 70 72 20 3d 20 61 7a 41 72 67 5b 66 6d 74 41 xpr = azArg[fmtA
3da0: 72 67 2b 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 rg+i];.
3db0: 20 69 66 28 20 6e 65 76 65 72 5f 73 61 66 65 28 if( never_safe(
3dc0: 7a 45 78 70 72 29 20 29 7b 0a 20 20 20 20 20 20 zExpr) ){.
3dd0: 20 20 20 20 20 20 70 72 69 6e 74 66 28 22 25 73 printf("%s
3de0: 3a 25 64 3a 20 41 72 67 75 6d 65 6e 74 20 25 64 :%d: Argument %d
3df0: 20 74 6f 20 25 2e 2a 73 28 29 20 69 73 20 6e 6f to %.*s() is no
3e00: 74 20 73 61 66 65 20 66 6f 72 22 0a 20 20 20 20 t safe for".
3e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
3e20: 20 61 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 a query paramet
3e30: 65 72 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 er\n",.
3e40: 20 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d 65 2c zFilename,
3e50: 20 6c 6e 46 43 61 6c 6c 2c 20 69 2b 66 6d 74 41 lnFCall, i+fmtA
3e60: 72 67 2c 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43 rg, szFName, zFC
3e70: 61 6c 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 all);.
3e80: 20 20 20 6e 45 72 72 2b 2b 3b 0a 20 20 20 0a 20 nErr++;. .
3e90: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 }else i
3ea0: 66 28 20 28 66 6d 74 46 6c 61 67 73 20 26 20 46 f( (fmtFlags & F
3eb0: 4d 54 5f 53 51 4c 29 21 3d 30 20 26 26 20 21 69 MT_SQL)!=0 && !i
3ec0: 73 5f 73 71 6c 5f 73 61 66 65 28 7a 45 78 70 72 s_sql_safe(zExpr
3ed0: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 ) ){.
3ee0: 20 70 72 69 6e 74 66 28 22 25 73 3a 25 64 3a 20 printf("%s:%d:
3ef0: 41 72 67 75 6d 65 6e 74 20 25 64 20 74 6f 20 25 Argument %d to %
3f00: 2e 2a 73 28 29 20 6e 6f 74 20 73 61 66 65 20 66 .*s() not safe f
3f10: 6f 72 20 53 51 4c 5c 6e 22 2c 0a 20 20 20 20 20 or SQL\n",.
3f20: 20 20 20 20 20 20 20 20 20 20 7a 46 69 6c 65 6e zFilen
3f30: 61 6d 65 2c 20 6c 6e 46 43 61 6c 6c 2c 20 69 2b ame, lnFCall, i+
3f40: 66 6d 74 41 72 67 2c 20 73 7a 46 4e 61 6d 65 2c fmtArg, szFName,
3f50: 20 7a 46 43 61 6c 6c 29 3b 0a 20 20 20 20 20 20 zFCall);.
3f60: 20 20 20 20 20 20 20 6e 45 72 72 2b 2b 3b 0a 20 nErr++;.
3f70: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
3f80: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 }. }.
3f90: 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 6e 45 72 }. }. if( nEr
3fa0: 72 20 29 7b 0a 20 20 20 20 66 6f 72 28 69 3d 30 r ){. for(i=0
3fb0: 3b 20 69 3c 6e 41 72 67 3b 20 69 2b 2b 29 7b 0a ; i<nArg; i++){.
3fc0: 20 20 20 20 20 20 70 72 69 6e 74 66 28 22 20 20 printf("
3fd0: 20 61 72 67 5b 25 64 5d 3a 20 25 73 5c 6e 22 2c arg[%d]: %s\n",
3fe0: 20 69 2c 20 61 7a 41 72 67 5b 69 5d 29 3b 0a 20 i, azArg[i]);.
3ff0: 20 20 20 7d 0a 20 20 7d 65 6c 73 65 20 69 66 28 }. }else if(
4000: 20 65 56 65 72 62 6f 73 65 3e 31 20 29 7b 0a 20 eVerbose>1 ){.
4010: 20 20 20 70 72 69 6e 74 66 28 22 25 73 3a 25 64 printf("%s:%d
4020: 3a 20 25 2e 2a 73 28 29 20 6f 6b 20 66 6f 72 20 : %.*s() ok for
4030: 25 64 20 61 72 67 75 6d 65 6e 74 73 5c 6e 22 2c %d arguments\n",
4040: 0a 20 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d 65 . zFilename
4050: 2c 20 6c 6e 46 43 61 6c 6c 2c 20 73 7a 46 4e 61 , lnFCall, szFNa
4060: 6d 65 2c 20 7a 46 43 61 6c 6c 2c 20 6e 41 72 67 me, zFCall, nArg
4070: 29 3b 0a 20 20 7d 0a 20 20 66 72 65 65 28 28 63 );. }. free((c
4080: 68 61 72 2a 29 61 7a 41 72 67 29 3b 0a 20 20 66 har*)azArg);. f
4090: 72 65 65 28 7a 43 6f 70 79 29 3b 0a 20 20 72 65 ree(zCopy);. re
40a0: 74 75 72 6e 20 6e 45 72 72 3b 0a 7d 0a 0a 0a 2f turn nErr;.}.../
40b0: 2a 0a 2a 2a 20 44 6f 20 61 20 64 65 73 69 67 6e *.** Do a design
40c0: 2d 72 75 6c 65 20 63 68 65 63 6b 20 6f 66 20 66 -rule check of f
40d0: 6f 72 6d 61 74 20 73 74 72 69 6e 67 73 20 66 6f ormat strings fo
40e0: 72 20 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 64 r the file named
40f0: 20 7a 4e 61 6d 65 0a 2a 2a 20 77 69 74 68 20 63 zName.** with c
4100: 6f 6e 74 65 6e 74 20 7a 43 6f 6e 74 65 6e 74 2e ontent zContent.
4110: 20 20 57 72 69 74 65 20 65 72 72 6f 72 73 20 6f Write errors o
4120: 6e 20 73 74 61 6e 64 61 72 64 20 6f 75 74 70 75 n standard outpu
4130: 74 2e 20 20 52 65 74 75 72 6e 0a 2a 2a 20 74 68 t. Return.** th
4140: 65 20 6e 75 6d 62 65 72 20 6f 66 20 65 72 72 6f e number of erro
4150: 72 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e rs..*/.static in
4160: 74 20 73 63 61 6e 5f 66 69 6c 65 28 63 6f 6e 73 t scan_file(cons
4170: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 t char *zName, c
4180: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6e 74 onst char *zCont
4190: 65 6e 74 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 ent){. const ch
41a0: 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 6c 6e 20 ar *z;. int ln
41b0: 3d 20 30 3b 0a 20 20 69 6e 74 20 73 7a 54 6f 6b = 0;. int szTok
41c0: 65 6e 3b 0a 20 20 69 6e 74 20 65 54 6f 6b 65 6e en;. int eToken
41d0: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
41e0: 7a 50 72 65 76 20 3d 20 30 3b 0a 20 20 69 6e 74 zPrev = 0;. int
41f0: 20 65 50 72 65 76 20 3d 20 30 3b 0a 20 20 69 6e ePrev = 0;. in
4200: 74 20 73 7a 50 72 65 76 20 3d 20 30 3b 0a 20 20 t szPrev = 0;.
4210: 69 6e 74 20 6c 6e 50 72 65 76 20 3d 20 30 3b 0a int lnPrev = 0;.
4220: 20 20 69 6e 74 20 6e 43 75 72 6c 79 20 3d 20 30 int nCurly = 0
4230: 3b 0a 20 20 69 6e 74 20 78 3b 0a 20 20 75 6e 73 ;. int x;. uns
4240: 69 67 6e 65 64 20 66 6d 74 46 6c 61 67 73 20 3d igned fmtFlags =
4250: 20 30 3b 0a 20 20 69 6e 74 20 6e 45 72 72 20 3d 0;. int nErr =
4260: 20 30 3b 0a 0a 20 20 69 66 28 20 7a 43 6f 6e 74 0;.. if( zCont
4270: 65 6e 74 3d 3d 30 20 29 7b 0a 20 20 20 20 70 72 ent==0 ){. pr
4280: 69 6e 74 66 28 22 63 61 6e 6e 6f 74 20 72 65 61 intf("cannot rea
4290: 64 20 66 69 6c 65 3a 20 25 73 5c 6e 22 2c 20 7a d file: %s\n", z
42a0: 4e 61 6d 65 29 3b 0a 20 20 20 20 72 65 74 75 72 Name);. retur
42b0: 6e 20 31 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 7a n 1;. }. for(z
42c0: 3d 7a 43 6f 6e 74 65 6e 74 3b 20 7a 5b 30 5d 3b =zContent; z[0];
42d0: 20 7a 20 2b 3d 20 73 7a 54 6f 6b 65 6e 29 7b 0a z += szToken){.
42e0: 20 20 20 20 73 7a 54 6f 6b 65 6e 20 3d 20 74 6f szToken = to
42f0: 6b 65 6e 5f 6c 65 6e 67 74 68 28 7a 2c 20 26 65 ken_length(z, &e
4300: 54 6f 6b 65 6e 2c 20 26 6c 6e 29 3b 0a 20 20 20 Token, &ln);.
4310: 20 69 66 28 20 65 54 6f 6b 65 6e 3d 3d 54 4b 5f if( eToken==TK_
4320: 53 50 41 43 45 20 29 20 63 6f 6e 74 69 6e 75 65 SPACE ) continue
4330: 3b 0a 20 20 20 20 69 66 28 20 65 54 6f 6b 65 6e ;. if( eToken
4340: 3d 3d 54 4b 5f 4f 54 48 45 52 20 29 7b 0a 20 20 ==TK_OTHER ){.
4350: 20 20 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 7b if( z[0]=='{
4360: 27 20 29 7b 0a 20 20 20 20 20 20 20 20 6e 43 75 ' ){. nCu
4370: 72 6c 79 2b 2b 3b 0a 20 20 20 20 20 20 7d 65 6c rly++;. }el
4380: 73 65 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 7d 27 se if( z[0]=='}'
4390: 20 29 7b 0a 20 20 20 20 20 20 20 20 6e 43 75 72 ){. nCur
43a0: 6c 79 2d 2d 3b 0a 20 20 20 20 20 20 7d 65 6c 73 ly--;. }els
43b0: 65 20 69 66 28 20 6e 43 75 72 6c 79 3e 30 20 26 e if( nCurly>0 &
43c0: 26 20 7a 5b 30 5d 3d 3d 27 28 27 20 26 26 20 65 & z[0]=='(' && e
43d0: 50 72 65 76 3d 3d 54 4b 5f 49 44 0a 20 20 20 20 Prev==TK_ID.
43e0: 20 20 20 20 20 20 20 20 26 26 20 28 78 20 3d 20 && (x =
43f0: 69 73 46 6f 72 6d 61 74 46 75 6e 63 28 7a 50 72 isFormatFunc(zPr
4400: 65 76 2c 73 7a 50 72 65 76 2c 26 66 6d 74 46 6c ev,szPrev,&fmtFl
4410: 61 67 73 29 29 3e 30 20 29 7b 0a 20 20 20 20 20 ags))>0 ){.
4420: 20 20 20 6e 45 72 72 20 2b 3d 20 63 68 65 63 6b nErr += check
4430: 46 6f 72 6d 61 74 46 75 6e 63 28 7a 4e 61 6d 65 FormatFunc(zName
4440: 2c 20 7a 50 72 65 76 2c 20 6c 6e 50 72 65 76 2c , zPrev, lnPrev,
4450: 20 78 2c 20 66 6d 74 46 6c 61 67 73 29 3b 0a 20 x, fmtFlags);.
4460: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
4470: 20 7a 50 72 65 76 20 3d 20 7a 3b 0a 20 20 20 20 zPrev = z;.
4480: 65 50 72 65 76 20 3d 20 65 54 6f 6b 65 6e 3b 0a ePrev = eToken;.
4490: 20 20 20 20 73 7a 50 72 65 76 20 3d 20 73 7a 54 szPrev = szT
44a0: 6f 6b 65 6e 3b 0a 20 20 20 20 6c 6e 50 72 65 76 oken;. lnPrev
44b0: 20 3d 20 6c 6e 3b 0a 20 20 7d 0a 20 20 72 65 74 = ln;. }. ret
44c0: 75 72 6e 20 6e 45 72 72 3b 0a 7d 0a 0a 2f 2a 0a urn nErr;.}../*.
44d0: 2a 2a 20 43 68 65 63 6b 20 66 6f 72 20 66 6f 72 ** Check for for
44e0: 6d 61 74 2d 73 74 72 69 6e 67 20 64 65 73 69 67 mat-string desig
44f0: 6e 20 72 75 6c 65 20 76 69 6f 6c 61 74 69 6f 6e n rule violation
4500: 73 20 6f 6e 20 61 6c 6c 20 66 69 6c 65 73 20 6c s on all files l
4510: 69 73 74 65 64 0a 2a 2a 20 6f 6e 20 74 68 65 20 isted.** on the
4520: 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2e 0a 2a 2a command-line..**
4530: 0a 2a 2a 20 54 68 65 20 65 56 65 72 62 6f 73 65 .** The eVerbose
4540: 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 global variable
4550: 20 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 20 is incremented
4560: 77 69 74 68 20 65 61 63 68 20 22 2d 76 22 20 61 with each "-v" a
4570: 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 69 6e 74 20 rgument..*/.int
4580: 6d 61 69 6e 28 69 6e 74 20 61 72 67 63 2c 20 63 main(int argc, c
4590: 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 har **argv){. i
45a0: 6e 74 20 69 3b 0a 20 20 69 6e 74 20 6e 45 72 72 nt i;. int nErr
45b0: 20 3d 20 30 3b 0a 20 20 71 73 6f 72 74 28 61 46 = 0;. qsort(aF
45c0: 6d 74 46 75 6e 63 2c 20 73 69 7a 65 6f 66 28 61 mtFunc, sizeof(a
45d0: 46 6d 74 46 75 6e 63 29 2f 73 69 7a 65 6f 66 28 FmtFunc)/sizeof(
45e0: 61 46 6d 74 46 75 6e 63 5b 30 5d 29 2c 0a 20 20 aFmtFunc[0]),.
45f0: 20 20 20 20 20 20 73 69 7a 65 6f 66 28 61 46 6d sizeof(aFm
4600: 74 46 75 6e 63 5b 30 5d 29 2c 20 66 6d 74 66 75 tFunc[0]), fmtfu
4610: 6e 63 5f 63 6d 70 29 3b 0a 20 20 66 6f 72 28 69 nc_cmp);. for(i
4620: 3d 31 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 =1; i<argc; i++)
4630: 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 46 69 6c {. char *zFil
4640: 65 3b 0a 20 20 20 20 69 66 28 20 73 74 72 63 6d e;. if( strcm
4650: 70 28 61 72 67 76 5b 69 5d 2c 22 2d 76 22 29 3d p(argv[i],"-v")=
4660: 3d 30 20 29 7b 0a 20 20 20 20 20 20 65 56 65 72 =0 ){. eVer
4670: 62 6f 73 65 2b 2b 3b 0a 20 20 20 20 20 20 63 6f bose++;. co
4680: 6e 74 69 6e 75 65 3b 0a 20 20 20 20 7d 0a 20 20 ntinue;. }.
4690: 20 20 69 66 28 20 65 56 65 72 62 6f 73 65 3e 30 if( eVerbose>0
46a0: 20 29 20 70 72 69 6e 74 66 28 22 50 72 6f 63 65 ) printf("Proce
46b0: 73 73 69 6e 67 20 25 73 2e 2e 2e 5c 6e 22 2c 20 ssing %s...\n",
46c0: 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 7a 46 argv[i]);. zF
46d0: 69 6c 65 20 3d 20 72 65 61 64 5f 66 69 6c 65 28 ile = read_file(
46e0: 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 6e 45 argv[i]);. nE
46f0: 72 72 20 2b 3d 20 73 63 61 6e 5f 66 69 6c 65 28 rr += scan_file(
4700: 61 72 67 76 5b 69 5d 2c 20 7a 46 69 6c 65 29 3b argv[i], zFile);
4710: 0a 20 20 20 20 66 72 65 65 28 7a 46 69 6c 65 29 . free(zFile)
4720: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 6e ;. }. return n
4730: 45 72 72 3b 0a 7d 0a Err;.}.