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 23 64 65 66 ble text */.#def
2170: 69 6e 65 20 46 4d 54 5f 4c 49 54 20 20 20 30 78 ine FMT_LIT 0x
2180: 30 30 30 31 30 20 20 20 20 20 2f 2a 20 4a 75 73 00010 /* Jus
2190: 74 20 76 65 72 69 66 79 20 74 68 61 74 20 61 20 t verify that a
21a0: 73 74 72 69 6e 67 20 6c 69 74 65 72 61 6c 20 2a string literal *
21b0: 2f 0a 23 64 65 66 69 6e 65 20 46 4d 54 5f 50 58 /.#define FMT_PX
21c0: 20 20 20 20 30 78 30 30 30 32 30 20 20 20 20 20 0x00020
21d0: 2f 2a 20 4d 75 73 74 20 68 61 76 65 20 61 20 6c /* Must have a l
21e0: 69 74 65 72 61 6c 20 70 72 65 66 69 78 20 69 6e iteral prefix in
21f0: 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a format string *
2200: 2f 0a 0a 2f 2a 0a 2a 2a 20 41 20 6c 69 73 74 20 /../*.** A list
2210: 6f 66 20 69 6e 74 65 72 6e 61 6c 20 46 6f 73 73 of internal Foss
2220: 69 6c 20 69 6e 74 65 72 66 61 63 65 73 20 74 68 il interfaces th
2230: 61 74 20 74 61 6b 65 20 61 20 70 72 69 6e 74 66 at take a printf
2240: 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 0a 2a 2a -style format.**
2250: 20 73 74 72 69 6e 67 2e 0a 2a 2f 0a 73 74 72 75 string..*/.stru
2260: 63 74 20 46 6d 74 46 75 6e 63 20 7b 0a 20 20 63 ct FmtFunc {. c
2270: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 4e 61 6d onst char *zFNam
2280: 65 3b 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 e; /* Name of
2290: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f the function */
22a0: 0a 20 20 69 6e 74 20 69 46 6d 74 41 72 67 3b 20 . int iFmtArg;
22b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 64 /* Ind
22c0: 65 78 20 6f 66 20 66 6f 72 6d 61 74 20 61 72 67 ex of format arg
22d0: 75 6d 65 6e 74 2e 20 20 4c 65 66 74 6d 6f 73 74 ument. Leftmost
22e0: 20 69 73 20 31 2e 20 2a 2f 0a 20 20 75 6e 73 69 is 1. */. unsi
22f0: 67 6e 65 64 20 66 6d 74 46 6c 61 67 73 3b 20 20 gned fmtFlags;
2300: 20 20 20 2f 2a 20 50 72 6f 63 65 73 73 69 6e 67 /* Processing
2310: 20 66 6c 61 67 73 20 2a 2f 0a 7d 20 61 46 6d 74 flags */.} aFmt
2320: 46 75 6e 63 5b 5d 20 3d 20 7b 0a 20 20 7b 20 22 Func[] = {. { "
2330: 61 64 6d 69 6e 5f 6c 6f 67 22 2c 20 20 20 20 20 admin_log",
2340: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 1,
2350: 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 FMT_SAFE },. {
2360: 22 61 75 64 69 74 5f 61 70 70 65 6e 64 22 2c 20 "audit_append",
2370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 2c 3,
2380: 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b FMT_SAFE },. {
2390: 20 22 62 61 63 6b 6f 66 66 69 63 65 54 72 61 63 "backofficeTrac
23a0: 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 e", 1
23b0: 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 , FMT_SAFE },.
23c0: 7b 20 22 62 6c 6f 62 5f 61 70 70 65 6e 64 5f 73 { "blob_append_s
23d0: 71 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 ql",
23e0: 32 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 2, FMT_SQL },.
23f0: 7b 20 22 62 6c 6f 62 5f 61 70 70 65 6e 64 66 22 { "blob_appendf"
2400: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2410: 32 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 2, FMT_SAFE },.
2420: 20 7b 20 22 63 67 69 5f 64 65 62 75 67 22 2c 20 { "cgi_debug",
2430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2440: 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 1, FMT_SAFE },.
2450: 20 20 7b 20 22 63 67 69 5f 70 61 6e 69 63 22 2c { "cgi_panic",
2460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2470: 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 1, FMT_SAFE },
2480: 0a 20 20 7b 20 22 63 67 69 5f 70 72 69 6e 74 66 . { "cgi_printf
2490: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
24a0: 20 20 20 31 2c 20 46 4d 54 5f 48 54 4d 4c 20 7d 1, FMT_HTML }
24b0: 2c 0a 20 20 7b 20 22 63 67 69 5f 70 72 69 6e 74 ,. { "cgi_print
24c0: 66 5f 68 65 61 64 65 72 22 2c 20 20 20 20 20 20 f_header",
24d0: 20 20 20 20 31 2c 20 46 4d 54 5f 48 54 4d 4c 20 1, FMT_HTML
24e0: 7d 2c 0a 20 20 7b 20 22 63 67 69 5f 72 65 64 69 },. { "cgi_redi
24f0: 72 65 63 74 66 22 2c 20 20 20 20 20 20 20 20 20 rectf",
2500: 20 20 20 20 20 31 2c 20 46 4d 54 5f 55 52 4c 20 1, FMT_URL
2510: 7d 2c 0a 20 20 7b 20 22 63 68 72 65 66 22 2c 20 },. { "chref",
2520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2530: 20 20 20 20 20 32 2c 20 46 4d 54 5f 55 52 4c 20 2, FMT_URL
2540: 7d 2c 0a 20 20 7b 20 22 43 58 22 2c 20 20 20 20 },. { "CX",
2550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2560: 20 20 20 20 20 31 2c 20 46 4d 54 5f 48 54 4d 4c 1, FMT_HTML
2570: 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 62 6c 6f 62 },. { "db_blob
2580: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
2590: 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 51 4c 2, FMT_SQL
25a0: 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 64 65 62 75 },. { "db_debu
25b0: 67 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 g",
25c0: 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 51 4c 1, FMT_SQL
25d0: 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 64 6f 75 62 },. { "db_doub
25e0: 6c 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 le",
25f0: 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 51 4c 2, FMT_SQL
2600: 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 65 72 72 22 },. { "db_err"
2610: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2620: 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 1, FMT_SAF
2630: 45 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 65 78 69 E },. { "db_exi
2640: 73 74 73 22 2c 20 20 20 20 20 20 20 20 20 20 20 sts",
2650: 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 51 1, FMT_SQ
2660: 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 67 65 74 L },. { "db_get
2670: 5f 6d 70 72 69 6e 74 66 22 2c 20 20 20 20 20 20 _mprintf",
2680: 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 2, FMT_SA
2690: 46 45 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 69 6e FE },. { "db_in
26a0: 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 t",
26b0: 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 2, FMT_S
26c0: 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 69 6e QL },. { "db_in
26d0: 74 36 34 22 2c 20 20 20 20 20 20 20 20 20 20 20 t64",
26e0: 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 2, FMT_S
26f0: 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 6c 73 QL },. { "db_ls
2700: 65 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 et",
2710: 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 4c 1, FMT_L
2720: 49 54 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 6c 73 IT },. { "db_ls
2730: 65 74 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 et_int",
2740: 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 4c 1, FMT_L
2750: 49 54 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 6d 75 IT },. { "db_mu
2760: 6c 74 69 5f 65 78 65 63 22 2c 20 20 20 20 20 20 lti_exec",
2770: 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 1, FMT_S
2780: 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 6f 70 QL },. { "db_op
2790: 74 69 6f 6e 61 6c 5f 73 71 6c 22 2c 20 20 20 20 tional_sql",
27a0: 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 2, FMT_S
27b0: 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 70 72 QL },. { "db_pr
27c0: 65 70 61 72 65 22 2c 20 20 20 20 20 20 20 20 20 epare",
27d0: 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 2, FMT_S
27e0: 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 70 72 QL },. { "db_pr
27f0: 65 70 61 72 65 5f 69 67 6e 6f 72 65 5f 65 72 72 epare_ignore_err
2800: 6f 72 22 2c 20 20 20 20 32 2c 20 46 4d 54 5f 53 or", 2, FMT_S
2810: 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 73 65 QL },. { "db_se
2820: 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 t",
2830: 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 4c 1, FMT_L
2840: 49 54 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 73 65 IT },. { "db_se
2850: 74 5f 69 6e 74 22 2c 20 20 20 20 20 20 20 20 20 t_int",
2860: 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 4c 1, FMT_L
2870: 49 54 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 73 65 IT },. { "db_se
2880: 74 5f 6d 70 72 69 6e 74 66 22 2c 20 20 20 20 20 t_mprintf",
2890: 20 20 20 20 20 20 20 20 33 2c 20 46 4d 54 5f 50 3, FMT_P
28a0: 58 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 73 74 61 X },. { "db_sta
28b0: 74 69 63 5f 70 72 65 70 61 72 65 22 2c 20 20 20 tic_prepare",
28c0: 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 51 2, FMT_SQ
28d0: 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 74 65 78 L },. { "db_tex
28e0: 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 t",
28f0: 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 51 2, FMT_SQ
2900: 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 75 6e 73 L },. { "db_uns
2910: 65 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 et",
2920: 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 4c 49 1, FMT_LI
2930: 54 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 75 6e 73 T },. { "db_uns
2940: 65 74 5f 6d 70 72 69 6e 74 66 22 2c 20 20 20 20 et_mprintf",
2950: 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 50 58 2, FMT_PX
2960: 20 7d 2c 0a 20 20 7b 20 22 65 6d 61 69 6c 65 72 },. { "emailer
2970: 45 72 72 6f 72 22 2c 20 20 20 20 20 20 20 20 20 Error",
2980: 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 46 2, FMT_SAF
2990: 45 20 7d 2c 0a 20 20 7b 20 22 65 6e 74 72 79 5f E },. { "entry_
29a0: 61 74 74 72 69 62 75 74 65 22 2c 20 20 20 20 20 attribute",
29b0: 20 20 20 20 20 20 20 34 2c 20 46 4d 54 5f 4c 49 4, FMT_LI
29c0: 54 20 7d 2c 0a 20 20 7b 20 22 66 69 6c 65 65 64 T },. { "fileed
29d0: 69 74 5f 61 6a 61 78 5f 65 72 72 6f 72 22 2c 20 it_ajax_error",
29e0: 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 2, FMT_SA
29f0: 46 45 20 7d 2c 0a 20 20 7b 20 22 66 6f 72 6d 5f FE },. { "form_
2a00: 62 65 67 69 6e 22 2c 20 20 20 20 20 20 20 20 20 begin",
2a10: 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 55 2, FMT_U
2a20: 52 4c 20 7d 2c 0a 20 20 7b 20 22 66 6f 73 73 69 RL },. { "fossi
2a30: 6c 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20 20 l_error",
2a40: 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 2, FMT_S
2a50: 41 46 45 20 7d 2c 0a 20 20 7b 20 22 66 6f 73 73 AFE },. { "foss
2a60: 69 6c 5f 65 72 72 6f 72 6c 6f 67 22 2c 20 20 20 il_errorlog",
2a70: 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 1, FMT_
2a80: 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 66 6f 73 SAFE },. { "fos
2a90: 73 69 6c 5f 66 61 74 61 6c 22 2c 20 20 20 20 20 sil_fatal",
2aa0: 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 1, FMT
2ab0: 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 66 6f _SAFE },. { "fo
2ac0: 73 73 69 6c 5f 66 61 74 61 6c 5f 72 65 63 75 72 ssil_fatal_recur
2ad0: 73 69 76 65 22 2c 20 20 20 20 20 31 2c 20 46 4d sive", 1, FM
2ae0: 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 66 T_SAFE },. { "f
2af0: 6f 73 73 69 6c 5f 70 61 6e 69 63 22 2c 20 20 20 ossil_panic",
2b00: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 1, F
2b10: 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 MT_SAFE },. { "
2b20: 66 6f 73 73 69 6c 5f 70 72 69 6e 74 22 2c 20 20 fossil_print",
2b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 1,
2b40: 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 FMT_SAFE },. {
2b50: 22 66 6f 73 73 69 6c 5f 74 72 61 63 65 22 2c 20 "fossil_trace",
2b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 1,
2b70: 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b FMT_SAFE },. {
2b80: 20 22 66 6f 73 73 69 6c 5f 77 61 72 6e 69 6e 67 "fossil_warning
2b90: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 31 ", 1
2ba0: 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 , FMT_SAFE },.
2bb0: 7b 20 22 68 72 65 66 22 2c 20 20 20 20 20 20 20 { "href",
2bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2bd0: 31 2c 20 46 4d 54 5f 55 52 4c 20 7d 2c 0a 20 20 1, FMT_URL },.
2be0: 7b 20 22 6a 73 6f 6e 5f 6e 65 77 5f 73 74 72 69 { "json_new_stri
2bf0: 6e 67 5f 66 22 2c 20 20 20 20 20 20 20 20 20 20 ng_f",
2c00: 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 1, FMT_SAFE },.
2c10: 20 7b 20 22 6a 73 6f 6e 5f 73 65 74 5f 65 72 72 { "json_set_err
2c20: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
2c30: 20 32 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 2, FMT_SAFE },.
2c40: 20 20 7b 20 22 6a 73 6f 6e 5f 77 61 72 6e 22 2c { "json_warn",
2c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2c60: 20 20 32 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 2, FMT_SAFE },
2c70: 0a 20 20 7b 20 22 6d 70 72 69 6e 74 66 22 2c 20 . { "mprintf",
2c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2c90: 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 1, FMT_SAFE }
2ca0: 2c 0a 20 20 7b 20 22 6d 75 6c 74 69 70 6c 65 5f ,. { "multiple_
2cb0: 63 68 6f 69 63 65 5f 61 74 74 72 69 62 75 74 65 choice_attribute
2cc0: 22 2c 20 20 33 2c 20 46 4d 54 5f 4c 49 54 20 7d ", 3, FMT_LIT }
2cd0: 2c 0a 20 20 7b 20 22 6f 6e 6f 66 66 5f 61 74 74 ,. { "onoff_att
2ce0: 72 69 62 75 74 65 22 2c 20 20 20 20 20 20 20 20 ribute",
2cf0: 20 20 20 20 33 2c 20 46 4d 54 5f 4c 49 54 20 7d 3, FMT_LIT }
2d00: 2c 0a 20 20 7b 20 22 70 6f 70 33 5f 70 72 69 6e ,. { "pop3_prin
2d10: 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 t",
2d20: 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 46 45 20 2, FMT_SAFE
2d30: 7d 2c 0a 20 20 7b 20 22 73 6d 74 70 5f 73 65 6e },. { "smtp_sen
2d40: 64 5f 6c 69 6e 65 22 2c 20 20 20 20 20 20 20 20 d_line",
2d50: 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 46 45 2, FMT_SAFE
2d60: 20 7d 2c 0a 20 20 7b 20 22 73 6d 74 70 5f 73 65 },. { "smtp_se
2d70: 72 76 65 72 5f 73 65 6e 64 22 2c 20 20 20 20 20 rver_send",
2d80: 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 46 2, FMT_SAF
2d90: 45 20 7d 2c 0a 20 20 7b 20 22 73 6f 63 6b 65 74 E },. { "socket
2da0: 5f 73 65 74 5f 65 72 72 6d 73 67 22 2c 20 20 20 _set_errmsg",
2db0: 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 41 1, FMT_SA
2dc0: 46 45 20 7d 2c 0a 20 20 7b 20 22 73 73 6c 5f 73 FE },. { "ssl_s
2dd0: 65 74 5f 65 72 72 6d 73 67 22 2c 20 20 20 20 20 et_errmsg",
2de0: 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 1, FMT_S
2df0: 41 46 45 20 7d 2c 0a 20 20 7b 20 22 73 74 79 6c AFE },. { "styl
2e00: 65 5f 68 65 61 64 65 72 22 2c 20 20 20 20 20 20 e_header",
2e10: 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 1, FMT_
2e20: 48 54 4d 4c 20 7d 2c 0a 20 20 7b 20 22 73 74 79 HTML },. { "sty
2e30: 6c 65 5f 73 65 74 5f 63 75 72 72 65 6e 74 5f 70 le_set_current_p
2e40: 61 67 65 22 2c 20 20 20 20 20 31 2c 20 46 4d 54 age", 1, FMT
2e50: 5f 55 52 4c 20 7d 2c 0a 20 20 7b 20 22 73 74 79 _URL },. { "sty
2e60: 6c 65 5f 73 75 62 6d 65 6e 75 5f 65 6c 65 6d 65 le_submenu_eleme
2e70: 6e 74 22 2c 20 20 20 20 20 20 32 2c 20 46 4d 54 nt", 2, FMT
2e80: 5f 55 52 4c 20 7d 2c 0a 20 20 7b 20 22 73 74 79 _URL },. { "sty
2e90: 6c 65 5f 73 75 62 6d 65 6e 75 5f 73 71 6c 22 2c le_submenu_sql",
2ea0: 20 20 20 20 20 20 20 20 20 20 33 2c 20 46 4d 54 3, FMT
2eb0: 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20 22 74 65 78 _SQL },. { "tex
2ec0: 74 61 72 65 61 5f 61 74 74 72 69 62 75 74 65 22 tarea_attribute"
2ed0: 2c 20 20 20 20 20 20 20 20 20 35 2c 20 46 4d 54 , 5, FMT
2ee0: 5f 4c 49 54 20 7d 2c 0a 20 20 7b 20 22 74 6b 74 _LIT },. { "tkt
2ef0: 73 65 74 75 70 5f 67 65 6e 65 72 69 63 22 2c 20 setup_generic",
2f00: 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 1, FMT
2f10: 5f 4c 49 54 20 7d 2c 0a 20 20 7b 20 22 77 65 62 _LIT },. { "web
2f20: 70 61 67 65 5f 65 72 72 6f 72 22 2c 20 20 20 20 page_error",
2f30: 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 1, FMT
2f40: 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 78 66 _SAFE },. { "xf
2f50: 65 72 73 65 74 75 70 5f 67 65 6e 65 72 69 63 22 ersetup_generic"
2f60: 2c 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d , 1, FM
2f70: 54 5f 4c 49 54 20 7d 2c 0a 20 20 7b 20 22 78 68 T_LIT },. { "xh
2f80: 72 65 66 22 2c 20 20 20 20 20 20 20 20 20 20 20 ref",
2f90: 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 2, FM
2fa0: 54 5f 55 52 4c 20 7d 2c 0a 7d 3b 0a 0a 2f 2a 0a T_URL },.};../*.
2fb0: 2a 2a 20 43 6f 6d 70 61 72 69 73 6f 6e 20 66 75 ** Comparison fu
2fc0: 6e 63 74 69 6f 6e 20 66 6f 72 20 74 77 6f 20 46 nction for two F
2fd0: 6d 74 46 75 6e 63 20 65 6e 74 72 69 65 73 0a 2a mtFunc entries.*
2fe0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 6d 74 /.static int fmt
2ff0: 66 75 6e 63 5f 63 6d 70 28 63 6f 6e 73 74 20 76 func_cmp(const v
3000: 6f 69 64 20 2a 70 41 41 2c 20 63 6f 6e 73 74 20 oid *pAA, const
3010: 76 6f 69 64 20 2a 70 42 42 29 7b 0a 20 20 63 6f void *pBB){. co
3020: 6e 73 74 20 73 74 72 75 63 74 20 46 6d 74 46 75 nst struct FmtFu
3030: 6e 63 20 2a 70 41 20 3d 20 28 63 6f 6e 73 74 20 nc *pA = (const
3040: 73 74 72 75 63 74 20 46 6d 74 46 75 6e 63 2a 29 struct FmtFunc*)
3050: 70 41 41 3b 0a 20 20 63 6f 6e 73 74 20 73 74 72 pAA;. const str
3060: 75 63 74 20 46 6d 74 46 75 6e 63 20 2a 70 42 20 uct FmtFunc *pB
3070: 3d 20 28 63 6f 6e 73 74 20 73 74 72 75 63 74 20 = (const struct
3080: 46 6d 74 46 75 6e 63 2a 29 70 42 42 3b 0a 20 20 FmtFunc*)pBB;.
3090: 72 65 74 75 72 6e 20 73 74 72 63 6d 70 28 70 41 return strcmp(pA
30a0: 2d 3e 7a 46 4e 61 6d 65 2c 20 70 42 2d 3e 7a 46 ->zFName, pB->zF
30b0: 4e 61 6d 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 Name);.}../*.**
30c0: 44 65 74 65 72 6d 69 6e 65 20 69 66 20 74 68 65 Determine if the
30d0: 20 69 6e 64 65 6e 74 69 66 69 65 72 20 7a 49 64 indentifier zId
30e0: 65 6e 74 20 6f 66 20 6c 65 6e 67 74 68 20 6e 49 ent of length nI
30f0: 6e 64 65 6e 74 20 69 73 20 61 20 46 6f 73 73 69 ndent is a Fossi
3100: 6c 0a 2a 2a 20 69 6e 74 65 72 6e 61 6c 20 69 6e l.** internal in
3110: 74 65 72 66 61 63 65 20 74 68 61 74 20 75 73 65 terface that use
3120: 73 20 61 20 70 72 69 6e 74 66 2d 73 74 79 6c 65 s a printf-style
3130: 20 61 72 67 75 6d 65 6e 74 2e 20 20 52 65 74 75 argument. Retu
3140: 72 6e 20 7a 65 72 6f 20 69 66 20 6e 6f 74 2e 0a rn zero if not..
3150: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 69 6e ** Return the in
3160: 64 65 78 20 6f 66 20 74 68 65 20 66 6f 72 6d 61 dex of the forma
3170: 74 20 73 74 72 69 6e 67 20 69 66 20 74 72 75 65 t string if true
3180: 20 77 69 74 68 20 74 68 65 20 6c 65 66 74 2d 6d with the left-m
3190: 6f 73 74 0a 2a 2a 20 61 72 67 75 6d 65 6e 74 20 ost.** argument
31a0: 68 61 76 69 6e 67 20 61 6e 20 69 6e 64 65 78 20 having an index
31b0: 6f 66 20 31 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 of 1..*/.static
31c0: 69 6e 74 20 69 73 46 6f 72 6d 61 74 46 75 6e 63 int isFormatFunc
31d0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 49 64 (const char *zId
31e0: 65 6e 74 2c 20 69 6e 74 20 6e 49 64 65 6e 74 2c ent, int nIdent,
31f0: 20 75 6e 73 69 67 6e 65 64 20 2a 70 46 6c 61 67 unsigned *pFlag
3200: 73 29 7b 0a 20 20 69 6e 74 20 75 70 72 2c 20 6c s){. int upr, l
3210: 77 72 3b 0a 20 20 6c 77 72 20 3d 20 30 3b 0a 20 wr;. lwr = 0;.
3220: 20 75 70 72 20 3d 20 73 69 7a 65 6f 66 28 61 46 upr = sizeof(aF
3230: 6d 74 46 75 6e 63 29 2f 73 69 7a 65 6f 66 28 61 mtFunc)/sizeof(a
3240: 46 6d 74 46 75 6e 63 5b 30 5d 29 20 2d 20 31 3b FmtFunc[0]) - 1;
3250: 0a 20 20 77 68 69 6c 65 28 20 6c 77 72 3c 3d 75 . while( lwr<=u
3260: 70 72 20 29 7b 0a 20 20 20 20 75 6e 73 69 67 6e pr ){. unsign
3270: 65 64 20 78 20 3d 20 28 6c 77 72 20 2b 20 75 70 ed x = (lwr + up
3280: 72 29 2f 32 3b 0a 20 20 20 20 69 6e 74 20 63 20 r)/2;. int c
3290: 3d 20 73 74 72 6e 63 6d 70 28 7a 49 64 65 6e 74 = strncmp(zIdent
32a0: 2c 20 61 46 6d 74 46 75 6e 63 5b 78 5d 2e 7a 46 , aFmtFunc[x].zF
32b0: 4e 61 6d 65 2c 20 6e 49 64 65 6e 74 29 3b 0a 20 Name, nIdent);.
32c0: 20 20 20 69 66 28 20 63 3d 3d 30 20 29 7b 0a 20 if( c==0 ){.
32d0: 20 20 20 20 20 69 66 28 20 61 46 6d 74 46 75 6e if( aFmtFun
32e0: 63 5b 78 5d 2e 7a 46 4e 61 6d 65 5b 6e 49 64 65 c[x].zFName[nIde
32f0: 6e 74 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 nt]==0 ){.
3300: 20 20 2a 70 46 6c 61 67 73 20 3d 20 61 46 6d 74 *pFlags = aFmt
3310: 46 75 6e 63 5b 78 5d 2e 66 6d 74 46 6c 61 67 73 Func[x].fmtFlags
3320: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e ;. return
3330: 20 61 46 6d 74 46 75 6e 63 5b 78 5d 2e 69 46 6d aFmtFunc[x].iFm
3340: 74 41 72 67 3b 0a 20 20 20 20 20 20 7d 0a 20 20 tArg;. }.
3350: 20 20 20 20 63 20 3d 20 2d 31 3b 0a 20 20 20 20 c = -1;.
3360: 7d 0a 20 20 20 20 69 66 28 20 63 3c 30 20 29 7b }. if( c<0 ){
3370: 0a 20 20 20 20 20 20 75 70 72 20 3d 20 78 20 2d . upr = x -
3380: 20 31 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 1;. }else{.
3390: 20 20 20 20 20 6c 77 72 20 3d 20 78 20 2b 20 31 lwr = x + 1
33a0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 2a 70 ;. }. }. *p
33b0: 46 6c 61 67 73 20 3d 20 30 3b 0a 20 20 72 65 74 Flags = 0;. ret
33c0: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn 0;.}../*.**
33d0: 52 65 74 75 72 6e 20 74 68 65 20 65 78 70 65 63 Return the expec
33e0: 74 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 ted number of ar
33f0: 67 75 6d 65 6e 74 73 20 66 6f 72 20 74 68 65 20 guments for the
3400: 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 2e 0a 2a format string..*
3410: 2a 20 52 65 74 75 72 6e 20 2d 31 20 69 66 20 74 * Return -1 if t
3420: 68 65 20 76 61 6c 75 65 20 63 61 6e 6e 6f 74 20 he value cannot
3430: 62 65 20 63 6f 6d 70 75 74 65 64 2e 0a 2a 2a 0a be computed..**.
3440: 2a 2a 20 46 6f 72 20 65 61 63 68 20 61 72 67 75 ** For each argu
3450: 6d 65 6e 74 20 6c 65 73 73 20 74 68 61 6e 20 6e ment less than n
3460: 54 79 70 65 2c 20 73 74 6f 72 65 20 74 68 65 20 Type, store the
3470: 63 6f 6e 76 65 72 73 69 6f 6e 20 63 68 61 72 61 conversion chara
3480: 63 74 65 72 0a 2a 2a 20 66 6f 72 20 74 68 61 74 cter.** for that
3490: 20 61 72 67 75 6d 65 6e 74 20 69 6e 20 63 54 79 argument in cTy
34a0: 70 65 5b 69 5d 2e 0a 2a 2a 0a 2a 2a 20 53 74 6f pe[i]..**.** Sto
34b0: 72 65 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 re the number of
34c0: 20 69 6e 69 74 69 61 6c 20 6c 69 74 65 72 61 6c initial literal
34d0: 20 63 68 61 72 61 63 74 65 72 73 20 6f 66 20 74 characters of t
34e0: 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 he format string
34f0: 0a 2a 2a 20 69 6e 20 2a 70 49 6e 69 74 2e 0a 2a .** in *pInit..*
3500: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 6f 72 /.static int for
3510: 6d 61 74 41 72 67 43 6f 75 6e 74 28 63 6f 6e 73 matArgCount(cons
3520: 74 20 63 68 61 72 20 2a 7a 2c 20 69 6e 74 20 6e t char *z, int n
3530: 54 79 70 65 2c 20 63 68 61 72 20 2a 63 54 79 70 Type, char *cTyp
3540: 65 2c 20 69 6e 74 20 2a 70 49 6e 69 74 29 7b 0a e, int *pInit){.
3550: 20 20 69 6e 74 20 6e 41 72 67 20 3d 20 30 3b 0a int nArg = 0;.
3560: 20 20 69 6e 74 20 69 2c 20 6b 3b 0a 20 20 69 6e int i, k;. in
3570: 74 20 6c 65 6e 3b 0a 20 20 69 6e 74 20 65 54 79 t len;. int eTy
3580: 70 65 3b 0a 20 20 69 6e 74 20 6c 6e 20 3d 20 30 pe;. int ln = 0
3590: 3b 0a 20 20 2a 70 49 6e 69 74 20 3d 20 30 3b 0a ;. *pInit = 0;.
35a0: 20 20 77 68 69 6c 65 28 20 7a 5b 30 5d 20 29 7b while( z[0] ){
35b0: 0a 20 20 20 20 6c 65 6e 20 3d 20 74 6f 6b 65 6e . len = token
35c0: 5f 6c 65 6e 67 74 68 28 7a 2c 20 26 65 54 79 70 _length(z, &eTyp
35d0: 65 2c 20 26 6c 6e 29 3b 0a 20 20 20 20 69 66 28 e, &ln);. if(
35e0: 20 65 54 79 70 65 3d 3d 54 4b 5f 53 54 52 20 29 eType==TK_STR )
35f0: 7b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 31 3b {. for(i=1;
3600: 20 69 3c 6c 65 6e 2d 31 20 26 26 20 69 73 61 6c i<len-1 && isal
3610: 70 68 61 28 7a 5b 69 5d 29 3b 20 69 2b 2b 29 7b pha(z[i]); i++){
3620: 7d 0a 20 20 20 20 20 20 2a 70 49 6e 69 74 20 3d }. *pInit =
3630: 20 69 2d 31 3b 0a 20 20 20 20 20 20 66 6f 72 28 i-1;. for(
3640: 69 3d 31 3b 20 69 3c 6c 65 6e 2d 31 3b 20 69 2b i=1; i<len-1; i+
3650: 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 +){. if(
3660: 7a 5b 69 5d 21 3d 27 25 27 20 29 20 63 6f 6e 74 z[i]!='%' ) cont
3670: 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 69 66 inue;. if
3680: 28 20 7a 5b 69 2b 31 5d 3d 3d 27 25 27 20 29 7b ( z[i+1]=='%' ){
3690: 20 69 2b 2b 3b 20 63 6f 6e 74 69 6e 75 65 3b 20 i++; continue;
36a0: 7d 0a 20 20 20 20 20 20 20 20 66 6f 72 28 6b 3d }. for(k=
36b0: 69 2b 31 3b 20 6b 3c 6c 65 6e 20 26 26 20 21 69 i+1; k<len && !i
36c0: 73 61 6c 70 68 61 28 7a 5b 6b 5d 29 3b 20 6b 2b salpha(z[k]); k+
36d0: 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 +){. if
36e0: 28 20 7a 5b 6b 5d 3d 3d 27 2a 27 20 7c 7c 20 7a ( z[k]=='*' || z
36f0: 5b 6b 5d 3d 3d 27 23 27 20 29 7b 0a 20 20 20 20 [k]=='#' ){.
3700: 20 20 20 20 20 20 20 20 69 66 28 20 6e 41 72 67 if( nArg
3710: 3c 6e 54 79 70 65 20 29 20 63 54 79 70 65 5b 6e <nType ) cType[n
3720: 41 72 67 5d 20 3d 20 7a 5b 6b 5d 3b 0a 20 20 20 Arg] = z[k];.
3730: 20 20 20 20 20 20 20 20 20 6e 41 72 67 2b 2b 3b nArg++;
3740: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 . }.
3750: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 }. i
3760: 66 28 20 7a 5b 6b 5d 21 3d 27 52 27 20 29 7b 0a f( z[k]!='R' ){.
3770: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 6e 41 if( nA
3780: 72 67 3c 6e 54 79 70 65 20 29 20 63 54 79 70 65 rg<nType ) cType
3790: 5b 6e 41 72 67 5d 20 3d 20 7a 5b 6b 5d 3b 0a 20 [nArg] = z[k];.
37a0: 20 20 20 20 20 20 20 20 20 6e 41 72 67 2b 2b 3b nArg++;
37b0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
37c0: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 7a 20 2b }. }. z +
37d0: 3d 20 6c 65 6e 3b 0a 20 20 7d 0a 20 20 72 65 74 = len;. }. ret
37e0: 75 72 6e 20 6e 41 72 67 3b 0a 7d 0a 0a 2f 2a 0a urn nArg;.}../*.
37f0: 2a 2a 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 ** The function
3800: 63 61 6c 6c 20 74 68 61 74 20 62 65 67 69 6e 73 call that begins
3810: 20 61 74 20 7a 46 43 61 6c 6c 5b 30 5d 20 28 77 at zFCall[0] (w
3820: 68 69 63 68 20 69 73 20 6f 6e 20 6c 69 6e 65 20 hich is on line
3830: 6c 6e 46 43 61 6c 6c 20 6f 66 20 74 68 65 0a 2a lnFCall of the.*
3840: 2a 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 29 * original file)
3850: 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 is a function t
3860: 68 61 74 20 75 73 65 73 20 61 20 70 72 69 6e 74 hat uses a print
3870: 66 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 20 73 f-style format s
3880: 74 72 69 6e 67 0a 2a 2a 20 6f 6e 20 61 72 67 75 tring.** on argu
3890: 6d 65 6e 74 20 6e 75 6d 62 65 72 20 66 6d 74 41 ment number fmtA
38a0: 72 67 2e 20 20 49 74 20 68 61 73 20 70 72 6f 63 rg. It has proc
38b0: 65 73 73 69 6e 67 73 20 66 6c 61 67 73 20 66 6d essings flags fm
38c0: 74 46 6c 61 67 73 2e 20 20 44 6f 0a 2a 2a 20 63 tFlags. Do.** c
38d0: 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 63 68 65 63 ompile-time chec
38e0: 6b 69 6e 67 20 6f 6e 20 74 68 69 73 20 66 75 6e king on this fun
38f0: 63 74 69 6f 6e 2c 20 6f 75 74 70 75 74 20 61 6e ction, output an
3900: 79 20 65 72 72 6f 72 73 2c 20 61 6e 64 20 72 65 y errors, and re
3910: 74 75 72 6e 0a 2a 2a 20 74 68 65 20 6e 75 6d 62 turn.** the numb
3920: 65 72 20 6f 66 20 65 72 72 6f 72 73 2e 0a 2a 2f er of errors..*/
3930: 0a 73 74 61 74 69 63 20 69 6e 74 20 63 68 65 63 .static int chec
3940: 6b 46 6f 72 6d 61 74 46 75 6e 63 28 0a 20 20 63 kFormatFunc(. c
3950: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 onst char *zFile
3960: 6e 61 6d 65 2c 20 2f 2a 20 4e 61 6d 65 20 6f 66 name, /* Name of
3970: 20 74 68 65 20 66 69 6c 65 20 62 65 69 6e 67 20 the file being
3980: 70 72 6f 63 65 73 73 65 64 20 2a 2f 0a 20 20 63 processed */. c
3990: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 43 61 6c onst char *zFCal
39a0: 6c 2c 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 l, /* Pointer
39b0: 20 74 6f 20 73 74 61 72 74 20 6f 66 20 66 75 6e to start of fun
39c0: 63 74 69 6f 6e 20 63 61 6c 6c 20 2a 2f 0a 20 20 ction call */.
39d0: 69 6e 74 20 6c 6e 46 43 61 6c 6c 2c 20 20 20 20 int lnFCall,
39e0: 20 20 20 20 20 20 20 2f 2a 20 4c 69 6e 65 20 6e /* Line n
39f0: 75 6d 62 65 72 20 74 68 61 74 20 68 6f 6c 64 73 umber that holds
3a00: 20 7a 5b 30 5d 20 2a 2f 0a 20 20 69 6e 74 20 66 z[0] */. int f
3a10: 6d 74 41 72 67 2c 20 20 20 20 20 20 20 20 20 20 mtArg,
3a20: 20 20 2f 2a 20 46 6f 72 6d 61 74 20 73 74 72 69 /* Format stri
3a30: 6e 67 20 73 68 6f 75 6c 64 20 62 65 20 74 68 69 ng should be thi
3a40: 73 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 20 20 s argument */.
3a50: 69 6e 74 20 66 6d 74 46 6c 61 67 73 20 20 20 20 int fmtFlags
3a60: 20 20 20 20 20 20 20 2f 2a 20 45 78 74 72 61 20 /* Extra
3a70: 70 72 6f 63 65 73 73 69 6e 67 20 66 6c 61 67 73 processing flags
3a80: 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 73 7a 46 */.){. int szF
3a90: 4e 61 6d 65 3b 0a 20 20 69 6e 74 20 65 54 6f 6b Name;. int eTok
3aa0: 65 6e 3b 0a 20 20 69 6e 74 20 6c 6e 20 3d 20 6c en;. int ln = l
3ab0: 6e 46 43 61 6c 6c 3b 0a 20 20 69 6e 74 20 6c 65 nFCall;. int le
3ac0: 6e 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 n;. const char
3ad0: 2a 7a 53 74 61 72 74 3b 0a 20 20 63 68 61 72 20 *zStart;. char
3ae0: 2a 7a 3b 0a 20 20 63 68 61 72 20 2a 7a 43 6f 70 *z;. char *zCop
3af0: 79 3b 0a 20 20 69 6e 74 20 6e 41 72 67 20 3d 20 y;. int nArg =
3b00: 30 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 0;. const char
3b10: 2a 2a 61 7a 41 72 67 20 3d 20 30 3b 0a 20 20 69 **azArg = 0;. i
3b20: 6e 74 20 69 2c 20 6b 3b 0a 20 20 69 6e 74 20 6e nt i, k;. int n
3b30: 45 72 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 Err = 0;. char
3b40: 2a 61 63 54 79 70 65 3b 0a 20 20 69 6e 74 20 6e *acType;. int n
3b50: 49 6e 69 74 20 3d 20 30 3b 0a 0a 20 20 73 7a 46 Init = 0;.. szF
3b60: 4e 61 6d 65 20 3d 20 74 6f 6b 65 6e 5f 6c 65 6e Name = token_len
3b70: 67 74 68 28 7a 46 43 61 6c 6c 2c 20 26 65 54 6f gth(zFCall, &eTo
3b80: 6b 65 6e 2c 20 26 6c 6e 29 3b 0a 20 20 7a 53 74 ken, &ln);. zSt
3b90: 61 72 74 20 3d 20 6e 65 78 74 5f 6e 6f 6e 5f 77 art = next_non_w
3ba0: 68 69 74 65 73 70 61 63 65 28 7a 46 43 61 6c 6c hitespace(zFCall
3bb0: 2b 73 7a 46 4e 61 6d 65 2c 20 26 6c 65 6e 2c 20 +szFName, &len,
3bc0: 26 65 54 6f 6b 65 6e 29 3b 0a 20 20 61 73 73 65 &eToken);. asse
3bd0: 72 74 28 20 7a 53 74 61 72 74 5b 30 5d 3d 3d 27 rt( zStart[0]=='
3be0: 28 27 20 26 26 20 6c 65 6e 3d 3d 31 20 29 3b 0a (' && len==1 );.
3bf0: 20 20 6c 65 6e 20 3d 20 64 69 73 74 61 6e 63 65 len = distance
3c00: 5f 74 6f 28 7a 53 74 61 72 74 2b 31 2c 20 27 29 _to(zStart+1, ')
3c10: 27 29 3b 0a 20 20 7a 43 6f 70 79 20 3d 20 73 61 ');. zCopy = sa
3c20: 66 65 5f 6d 61 6c 6c 6f 63 28 20 6c 65 6e 20 2b fe_malloc( len +
3c30: 20 31 20 29 3b 0a 20 20 6d 65 6d 63 70 79 28 7a 1 );. memcpy(z
3c40: 43 6f 70 79 2c 20 7a 53 74 61 72 74 2b 31 2c 20 Copy, zStart+1,
3c50: 6c 65 6e 29 3b 0a 20 20 7a 43 6f 70 79 5b 6c 65 len);. zCopy[le
3c60: 6e 5d 20 3d 20 30 3b 0a 20 20 61 7a 41 72 67 20 n] = 0;. azArg
3c70: 3d 20 30 3b 0a 20 20 6e 41 72 67 20 3d 20 30 3b = 0;. nArg = 0;
3c80: 0a 20 20 7a 20 3d 20 7a 43 6f 70 79 3b 0a 20 20 . z = zCopy;.
3c90: 77 68 69 6c 65 28 20 7a 5b 30 5d 20 29 7b 0a 20 while( z[0] ){.
3ca0: 20 20 20 63 68 61 72 20 63 45 6e 64 3b 0a 20 20 char cEnd;.
3cb0: 20 20 6c 65 6e 20 3d 20 64 69 73 74 61 6e 63 65 len = distance
3cc0: 5f 74 6f 28 7a 2c 20 27 2c 27 29 3b 0a 20 20 20 _to(z, ',');.
3cd0: 20 63 45 6e 64 20 3d 20 7a 5b 6c 65 6e 5d 3b 0a cEnd = z[len];.
3ce0: 20 20 20 20 7a 5b 6c 65 6e 5d 20 3d 20 30 3b 0a z[len] = 0;.
3cf0: 20 20 20 20 61 7a 41 72 67 20 3d 20 73 61 66 65 azArg = safe
3d00: 5f 72 65 61 6c 6c 6f 63 28 28 63 68 61 72 2a 29 _realloc((char*)
3d10: 61 7a 41 72 67 2c 20 28 73 69 7a 65 6f 66 28 61 azArg, (sizeof(a
3d20: 7a 41 72 67 5b 30 5d 29 2b 31 29 2a 28 6e 41 72 zArg[0])+1)*(nAr
3d30: 67 2b 31 29 29 3b 0a 20 20 20 20 61 7a 41 72 67 g+1));. azArg
3d40: 5b 6e 41 72 67 2b 2b 5d 20 3d 20 73 69 6d 70 6c [nArg++] = simpl
3d50: 69 66 79 5f 65 78 70 72 28 7a 29 3b 0a 20 20 20 ify_expr(z);.
3d60: 20 69 66 28 20 63 45 6e 64 3d 3d 30 20 29 20 62 if( cEnd==0 ) b
3d70: 72 65 61 6b 3b 0a 20 20 20 20 7a 20 2b 3d 20 6c reak;. z += l
3d80: 65 6e 20 2b 20 31 3b 0a 20 20 7d 0a 20 20 61 63 en + 1;. }. ac
3d90: 54 79 70 65 20 3d 20 28 63 68 61 72 2a 29 26 61 Type = (char*)&a
3da0: 7a 41 72 67 5b 6e 41 72 67 5d 3b 0a 20 20 69 66 zArg[nArg];. if
3db0: 28 20 66 6d 74 41 72 67 3e 6e 41 72 67 20 29 7b ( fmtArg>nArg ){
3dc0: 0a 20 20 20 20 70 72 69 6e 74 66 28 22 25 73 3a . printf("%s:
3dd0: 25 64 3a 20 74 6f 6f 20 66 65 77 20 61 72 67 75 %d: too few argu
3de0: 6d 65 6e 74 73 20 74 6f 20 25 2e 2a 73 28 29 5c ments to %.*s()\
3df0: 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 7a n",. z
3e00: 46 69 6c 65 6e 61 6d 65 2c 20 6c 6e 46 43 61 6c Filename, lnFCal
3e10: 6c 2c 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43 61 l, szFName, zFCa
3e20: 6c 6c 29 3b 0a 20 20 20 20 6e 45 72 72 2b 2b 3b ll);. nErr++;
3e30: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 63 6f . }else{. co
3e40: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6d 74 20 3d nst char *zFmt =
3e50: 20 61 7a 41 72 67 5b 66 6d 74 41 72 67 2d 31 5d azArg[fmtArg-1]
3e60: 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 ;. const char
3e70: 20 2a 7a 4f 76 65 72 72 69 64 65 20 3d 20 73 74 *zOverride = st
3e80: 72 73 74 72 28 7a 46 6d 74 2c 20 22 2f 2a 77 6f rstr(zFmt, "/*wo
3e90: 72 6b 73 2d 6c 69 6b 65 3a 22 29 3b 0a 20 20 20 rks-like:");.
3ea0: 20 69 66 28 20 7a 4f 76 65 72 72 69 64 65 20 29 if( zOverride )
3eb0: 20 7a 46 6d 74 20 3d 20 7a 4f 76 65 72 72 69 64 zFmt = zOverrid
3ec0: 65 20 2b 20 73 69 7a 65 6f 66 28 22 2f 2a 77 6f e + sizeof("/*wo
3ed0: 72 6b 73 2d 6c 69 6b 65 3a 22 29 2d 31 3b 0a 20 rks-like:")-1;.
3ee0: 20 20 20 69 66 28 20 66 6d 74 46 6c 61 67 73 20 if( fmtFlags
3ef0: 26 20 46 4d 54 5f 4c 49 54 20 29 7b 0a 20 20 20 & FMT_LIT ){.
3f00: 20 20 20 69 66 28 20 21 69 73 5f 73 74 72 69 6e if( !is_strin
3f10: 67 5f 6c 69 74 28 7a 46 6d 74 29 20 29 7b 0a 20 g_lit(zFmt) ){.
3f20: 20 20 20 20 20 20 20 70 72 69 6e 74 66 28 22 25 printf("%
3f30: 73 3a 25 64 3a 20 61 72 67 75 6d 65 6e 74 20 25 s:%d: argument %
3f40: 64 20 74 6f 20 25 2e 2a 73 28 29 20 73 68 6f 75 d to %.*s() shou
3f50: 6c 64 20 62 65 20 61 20 73 74 72 69 6e 67 20 6c ld be a string l
3f60: 69 74 65 72 61 6c 5c 6e 22 2c 0a 20 20 20 20 20 iteral\n",.
3f70: 20 20 20 20 20 20 20 20 20 20 7a 46 69 6c 65 6e zFilen
3f80: 61 6d 65 2c 20 6c 6e 46 43 61 6c 6c 2c 20 66 6d ame, lnFCall, fm
3f90: 74 41 72 67 2c 20 73 7a 46 4e 61 6d 65 2c 20 7a tArg, szFName, z
3fa0: 46 43 61 6c 6c 29 3b 0a 20 20 20 20 20 20 20 20 FCall);.
3fb0: 6e 45 72 72 2b 2b 3b 0a 20 20 20 20 20 20 7d 0a nErr++;. }.
3fc0: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 21 69 }else if( !i
3fd0: 73 5f 73 74 72 69 6e 67 5f 6c 69 74 28 7a 46 6d s_string_lit(zFm
3fe0: 74 29 20 29 7b 0a 20 20 20 20 20 20 70 72 69 6e t) ){. prin
3ff0: 74 66 28 22 25 73 3a 25 64 3a 20 25 2e 2a 73 28 tf("%s:%d: %.*s(
4000: 29 20 68 61 73 20 6e 6f 6e 2d 63 6f 6e 73 74 61 ) has non-consta
4010: 6e 74 20 66 6f 72 6d 61 74 20 6f 6e 20 61 72 67 nt format on arg
4020: 5b 25 64 5d 5c 6e 22 2c 0a 20 20 20 20 20 20 20 [%d]\n",.
4030: 20 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d 65 2c zFilename,
4040: 20 6c 6e 46 43 61 6c 6c 2c 20 73 7a 46 4e 61 6d lnFCall, szFNam
4050: 65 2c 20 7a 46 43 61 6c 6c 2c 20 66 6d 74 41 72 e, zFCall, fmtAr
4060: 67 2d 31 29 3b 0a 20 20 20 20 20 20 6e 45 72 72 g-1);. nErr
4070: 2b 2b 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 ++;. }else if
4080: 28 20 28 6b 20 3d 20 66 6f 72 6d 61 74 41 72 67 ( (k = formatArg
4090: 43 6f 75 6e 74 28 7a 46 6d 74 2c 20 6e 41 72 67 Count(zFmt, nArg
40a0: 2c 20 61 63 54 79 70 65 2c 20 26 6e 49 6e 69 74 , acType, &nInit
40b0: 29 29 3e 3d 30 0a 20 20 20 20 20 20 20 20 20 20 ))>=0.
40c0: 20 20 20 26 26 20 6e 41 72 67 21 3d 66 6d 74 41 && nArg!=fmtA
40d0: 72 67 2b 6b 20 29 7b 0a 20 20 20 20 20 20 70 72 rg+k ){. pr
40e0: 69 6e 74 66 28 22 25 73 3a 25 64 3a 20 74 6f 6f intf("%s:%d: too
40f0: 20 25 73 20 61 72 67 75 6d 65 6e 74 73 20 74 6f %s arguments to
4100: 20 25 2e 2a 73 28 29 20 22 0a 20 20 20 20 20 20 %.*s() ".
4110: 20 20 20 20 20 20 20 22 2d 20 67 6f 74 20 25 64 "- got %d
4120: 20 61 6e 64 20 65 78 70 65 63 74 65 64 20 25 64 and expected %d
4130: 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 \n",.
4140: 20 20 7a 46 69 6c 65 6e 61 6d 65 2c 20 6c 6e 46 zFilename, lnF
4150: 43 61 6c 6c 2c 20 28 6e 41 72 67 3c 66 6d 74 41 Call, (nArg<fmtA
4160: 72 67 2b 6b 20 3f 20 22 66 65 77 22 20 3a 20 22 rg+k ? "few" : "
4170: 6d 61 6e 79 22 29 2c 0a 20 20 20 20 20 20 20 20 many"),.
4180: 20 20 20 20 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 szFName, zF
4190: 43 61 6c 6c 2c 20 6e 41 72 67 2c 20 66 6d 74 41 Call, nArg, fmtA
41a0: 72 67 2b 6b 29 3b 0a 20 20 20 20 20 20 6e 45 72 rg+k);. nEr
41b0: 72 2b 2b 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 r++;. }else i
41c0: 66 28 20 28 66 6d 74 46 6c 61 67 73 20 26 20 46 f( (fmtFlags & F
41d0: 4d 54 5f 50 58 29 21 3d 30 20 29 7b 0a 20 20 20 MT_PX)!=0 ){.
41e0: 20 20 20 69 66 28 20 6e 49 6e 69 74 3d 3d 30 20 if( nInit==0
41f0: 29 7b 0a 20 20 20 20 20 20 20 20 70 72 69 6e 74 ){. print
4200: 66 28 22 25 73 3a 25 64 3a 20 66 6f 72 6d 61 74 f("%s:%d: format
4210: 20 73 74 72 69 6e 67 20 6f 6e 20 25 2e 2a 73 28 string on %.*s(
4220: 29 20 73 68 6f 75 6c 64 20 68 61 76 65 22 0a 20 ) should have".
4230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 "
4240: 61 6e 20 41 53 43 49 49 20 63 68 61 72 61 63 74 an ASCII charact
4250: 65 72 20 70 72 65 66 69 78 5c 6e 22 2c 0a 20 20 er prefix\n",.
4260: 20 20 20 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d zFilenam
4270: 65 2c 20 6c 6e 46 43 61 6c 6c 2c 20 73 7a 46 4e e, lnFCall, szFN
4280: 61 6d 65 2c 20 7a 46 43 61 6c 6c 29 3b 0a 20 20 ame, zFCall);.
4290: 20 20 20 20 20 20 6e 45 72 72 2b 2b 3b 0a 20 20 nErr++;.
42a0: 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 20 }. }else
42b0: 69 66 28 20 28 66 6d 74 46 6c 61 67 73 20 26 20 if( (fmtFlags &
42c0: 46 4d 54 5f 53 41 46 45 29 3d 3d 30 20 29 7b 0a FMT_SAFE)==0 ){.
42d0: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 for(i=0; i
42e0: 3c 6e 41 72 67 20 26 26 20 69 3c 6b 3b 20 69 2b <nArg && i<k; i+
42f0: 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 +){. if(
4300: 28 61 63 54 79 70 65 5b 69 5d 3d 3d 27 73 27 20 (acType[i]=='s'
4310: 7c 7c 20 61 63 54 79 70 65 5b 69 5d 3d 3d 27 7a || acType[i]=='z
4320: 27 20 7c 7c 20 61 63 54 79 70 65 5b 69 5d 3d 3d ' || acType[i]==
4330: 27 62 27 29 20 29 7b 0a 20 20 20 20 20 20 20 20 'b') ){.
4340: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 45 const char *zE
4350: 78 70 72 20 3d 20 61 7a 41 72 67 5b 66 6d 74 41 xpr = azArg[fmtA
4360: 72 67 2b 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 rg+i];.
4370: 20 69 66 28 20 6e 65 76 65 72 5f 73 61 66 65 28 if( never_safe(
4380: 7a 45 78 70 72 29 20 29 7b 0a 20 20 20 20 20 20 zExpr) ){.
4390: 20 20 20 20 20 20 70 72 69 6e 74 66 28 22 25 73 printf("%s
43a0: 3a 25 64 3a 20 41 72 67 75 6d 65 6e 74 20 25 64 :%d: Argument %d
43b0: 20 74 6f 20 25 2e 2a 73 28 29 20 69 73 20 6e 6f to %.*s() is no
43c0: 74 20 73 61 66 65 20 66 6f 72 22 0a 20 20 20 20 t safe for".
43d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
43e0: 20 61 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 a query paramet
43f0: 65 72 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 er\n",.
4400: 20 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d 65 2c zFilename,
4410: 20 6c 6e 46 43 61 6c 6c 2c 20 69 2b 66 6d 74 41 lnFCall, i+fmtA
4420: 72 67 2c 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43 rg, szFName, zFC
4430: 61 6c 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 all);.
4440: 20 20 20 6e 45 72 72 2b 2b 3b 0a 20 20 20 0a 20 nErr++;. .
4450: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 }else i
4460: 66 28 20 28 66 6d 74 46 6c 61 67 73 20 26 20 46 f( (fmtFlags & F
4470: 4d 54 5f 53 51 4c 29 21 3d 30 20 26 26 20 21 69 MT_SQL)!=0 && !i
4480: 73 5f 73 71 6c 5f 73 61 66 65 28 7a 45 78 70 72 s_sql_safe(zExpr
4490: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 ) ){.
44a0: 20 70 72 69 6e 74 66 28 22 25 73 3a 25 64 3a 20 printf("%s:%d:
44b0: 41 72 67 75 6d 65 6e 74 20 25 64 20 74 6f 20 25 Argument %d to %
44c0: 2e 2a 73 28 29 20 6e 6f 74 20 73 61 66 65 20 66 .*s() not safe f
44d0: 6f 72 20 53 51 4c 5c 6e 22 2c 0a 20 20 20 20 20 or SQL\n",.
44e0: 20 20 20 20 20 20 20 20 20 20 7a 46 69 6c 65 6e zFilen
44f0: 61 6d 65 2c 20 6c 6e 46 43 61 6c 6c 2c 20 69 2b ame, lnFCall, i+
4500: 66 6d 74 41 72 67 2c 20 73 7a 46 4e 61 6d 65 2c fmtArg, szFName,
4510: 20 7a 46 43 61 6c 6c 29 3b 0a 20 20 20 20 20 20 zFCall);.
4520: 20 20 20 20 20 20 20 6e 45 72 72 2b 2b 3b 0a 20 nErr++;.
4530: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
4540: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 }. }.
4550: 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 6e 45 72 }. }. if( nEr
4560: 72 20 29 7b 0a 20 20 20 20 66 6f 72 28 69 3d 30 r ){. for(i=0
4570: 3b 20 69 3c 6e 41 72 67 3b 20 69 2b 2b 29 7b 0a ; i<nArg; i++){.
4580: 20 20 20 20 20 20 70 72 69 6e 74 66 28 22 20 20 printf("
4590: 20 61 72 67 5b 25 64 5d 3a 20 25 73 5c 6e 22 2c arg[%d]: %s\n",
45a0: 20 69 2c 20 61 7a 41 72 67 5b 69 5d 29 3b 0a 20 i, azArg[i]);.
45b0: 20 20 20 7d 0a 20 20 7d 65 6c 73 65 20 69 66 28 }. }else if(
45c0: 20 65 56 65 72 62 6f 73 65 3e 31 20 29 7b 0a 20 eVerbose>1 ){.
45d0: 20 20 20 70 72 69 6e 74 66 28 22 25 73 3a 25 64 printf("%s:%d
45e0: 3a 20 25 2e 2a 73 28 29 20 6f 6b 20 66 6f 72 20 : %.*s() ok for
45f0: 25 64 20 61 72 67 75 6d 65 6e 74 73 5c 6e 22 2c %d arguments\n",
4600: 0a 20 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d 65 . zFilename
4610: 2c 20 6c 6e 46 43 61 6c 6c 2c 20 73 7a 46 4e 61 , lnFCall, szFNa
4620: 6d 65 2c 20 7a 46 43 61 6c 6c 2c 20 6e 41 72 67 me, zFCall, nArg
4630: 29 3b 0a 20 20 7d 0a 20 20 66 72 65 65 28 28 63 );. }. free((c
4640: 68 61 72 2a 29 61 7a 41 72 67 29 3b 0a 20 20 66 har*)azArg);. f
4650: 72 65 65 28 7a 43 6f 70 79 29 3b 0a 20 20 72 65 ree(zCopy);. re
4660: 74 75 72 6e 20 6e 45 72 72 3b 0a 7d 0a 0a 0a 2f turn nErr;.}.../
4670: 2a 0a 2a 2a 20 44 6f 20 61 20 64 65 73 69 67 6e *.** Do a design
4680: 2d 72 75 6c 65 20 63 68 65 63 6b 20 6f 66 20 66 -rule check of f
4690: 6f 72 6d 61 74 20 73 74 72 69 6e 67 73 20 66 6f ormat strings fo
46a0: 72 20 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 64 r the file named
46b0: 20 7a 4e 61 6d 65 0a 2a 2a 20 77 69 74 68 20 63 zName.** with c
46c0: 6f 6e 74 65 6e 74 20 7a 43 6f 6e 74 65 6e 74 2e ontent zContent.
46d0: 20 20 57 72 69 74 65 20 65 72 72 6f 72 73 20 6f Write errors o
46e0: 6e 20 73 74 61 6e 64 61 72 64 20 6f 75 74 70 75 n standard outpu
46f0: 74 2e 20 20 52 65 74 75 72 6e 0a 2a 2a 20 74 68 t. Return.** th
4700: 65 20 6e 75 6d 62 65 72 20 6f 66 20 65 72 72 6f e number of erro
4710: 72 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e rs..*/.static in
4720: 74 20 73 63 61 6e 5f 66 69 6c 65 28 63 6f 6e 73 t scan_file(cons
4730: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 t char *zName, c
4740: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6e 74 onst char *zCont
4750: 65 6e 74 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 ent){. const ch
4760: 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 6c 6e 20 ar *z;. int ln
4770: 3d 20 30 3b 0a 20 20 69 6e 74 20 73 7a 54 6f 6b = 0;. int szTok
4780: 65 6e 3b 0a 20 20 69 6e 74 20 65 54 6f 6b 65 6e en;. int eToken
4790: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ;. const char *
47a0: 7a 50 72 65 76 20 3d 20 30 3b 0a 20 20 69 6e 74 zPrev = 0;. int
47b0: 20 65 50 72 65 76 20 3d 20 30 3b 0a 20 20 69 6e ePrev = 0;. in
47c0: 74 20 73 7a 50 72 65 76 20 3d 20 30 3b 0a 20 20 t szPrev = 0;.
47d0: 69 6e 74 20 6c 6e 50 72 65 76 20 3d 20 30 3b 0a int lnPrev = 0;.
47e0: 20 20 69 6e 74 20 6e 43 75 72 6c 79 20 3d 20 30 int nCurly = 0
47f0: 3b 0a 20 20 69 6e 74 20 78 3b 0a 20 20 75 6e 73 ;. int x;. uns
4800: 69 67 6e 65 64 20 66 6d 74 46 6c 61 67 73 20 3d igned fmtFlags =
4810: 20 30 3b 0a 20 20 69 6e 74 20 6e 45 72 72 20 3d 0;. int nErr =
4820: 20 30 3b 0a 0a 20 20 69 66 28 20 7a 43 6f 6e 74 0;.. if( zCont
4830: 65 6e 74 3d 3d 30 20 29 7b 0a 20 20 20 20 70 72 ent==0 ){. pr
4840: 69 6e 74 66 28 22 63 61 6e 6e 6f 74 20 72 65 61 intf("cannot rea
4850: 64 20 66 69 6c 65 3a 20 25 73 5c 6e 22 2c 20 7a d file: %s\n", z
4860: 4e 61 6d 65 29 3b 0a 20 20 20 20 72 65 74 75 72 Name);. retur
4870: 6e 20 31 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 7a n 1;. }. for(z
4880: 3d 7a 43 6f 6e 74 65 6e 74 3b 20 7a 5b 30 5d 3b =zContent; z[0];
4890: 20 7a 20 2b 3d 20 73 7a 54 6f 6b 65 6e 29 7b 0a z += szToken){.
48a0: 20 20 20 20 73 7a 54 6f 6b 65 6e 20 3d 20 74 6f szToken = to
48b0: 6b 65 6e 5f 6c 65 6e 67 74 68 28 7a 2c 20 26 65 ken_length(z, &e
48c0: 54 6f 6b 65 6e 2c 20 26 6c 6e 29 3b 0a 20 20 20 Token, &ln);.
48d0: 20 69 66 28 20 65 54 6f 6b 65 6e 3d 3d 54 4b 5f if( eToken==TK_
48e0: 53 50 41 43 45 20 29 20 63 6f 6e 74 69 6e 75 65 SPACE ) continue
48f0: 3b 0a 20 20 20 20 69 66 28 20 65 54 6f 6b 65 6e ;. if( eToken
4900: 3d 3d 54 4b 5f 4f 54 48 45 52 20 29 7b 0a 20 20 ==TK_OTHER ){.
4910: 20 20 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 7b if( z[0]=='{
4920: 27 20 29 7b 0a 20 20 20 20 20 20 20 20 6e 43 75 ' ){. nCu
4930: 72 6c 79 2b 2b 3b 0a 20 20 20 20 20 20 7d 65 6c rly++;. }el
4940: 73 65 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 7d 27 se if( z[0]=='}'
4950: 20 29 7b 0a 20 20 20 20 20 20 20 20 6e 43 75 72 ){. nCur
4960: 6c 79 2d 2d 3b 0a 20 20 20 20 20 20 7d 65 6c 73 ly--;. }els
4970: 65 20 69 66 28 20 6e 43 75 72 6c 79 3e 30 20 26 e if( nCurly>0 &
4980: 26 20 7a 5b 30 5d 3d 3d 27 28 27 20 26 26 20 65 & z[0]=='(' && e
4990: 50 72 65 76 3d 3d 54 4b 5f 49 44 0a 20 20 20 20 Prev==TK_ID.
49a0: 20 20 20 20 20 20 20 20 26 26 20 28 78 20 3d 20 && (x =
49b0: 69 73 46 6f 72 6d 61 74 46 75 6e 63 28 7a 50 72 isFormatFunc(zPr
49c0: 65 76 2c 73 7a 50 72 65 76 2c 26 66 6d 74 46 6c ev,szPrev,&fmtFl
49d0: 61 67 73 29 29 3e 30 20 29 7b 0a 20 20 20 20 20 ags))>0 ){.
49e0: 20 20 20 6e 45 72 72 20 2b 3d 20 63 68 65 63 6b nErr += check
49f0: 46 6f 72 6d 61 74 46 75 6e 63 28 7a 4e 61 6d 65 FormatFunc(zName
4a00: 2c 20 7a 50 72 65 76 2c 20 6c 6e 50 72 65 76 2c , zPrev, lnPrev,
4a10: 20 78 2c 20 66 6d 74 46 6c 61 67 73 29 3b 0a 20 x, fmtFlags);.
4a20: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
4a30: 20 7a 50 72 65 76 20 3d 20 7a 3b 0a 20 20 20 20 zPrev = z;.
4a40: 65 50 72 65 76 20 3d 20 65 54 6f 6b 65 6e 3b 0a ePrev = eToken;.
4a50: 20 20 20 20 73 7a 50 72 65 76 20 3d 20 73 7a 54 szPrev = szT
4a60: 6f 6b 65 6e 3b 0a 20 20 20 20 6c 6e 50 72 65 76 oken;. lnPrev
4a70: 20 3d 20 6c 6e 3b 0a 20 20 7d 0a 20 20 72 65 74 = ln;. }. ret
4a80: 75 72 6e 20 6e 45 72 72 3b 0a 7d 0a 0a 2f 2a 0a urn nErr;.}../*.
4a90: 2a 2a 20 43 68 65 63 6b 20 66 6f 72 20 66 6f 72 ** Check for for
4aa0: 6d 61 74 2d 73 74 72 69 6e 67 20 64 65 73 69 67 mat-string desig
4ab0: 6e 20 72 75 6c 65 20 76 69 6f 6c 61 74 69 6f 6e n rule violation
4ac0: 73 20 6f 6e 20 61 6c 6c 20 66 69 6c 65 73 20 6c s on all files l
4ad0: 69 73 74 65 64 0a 2a 2a 20 6f 6e 20 74 68 65 20 isted.** on the
4ae0: 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2e 0a 2a 2a command-line..**
4af0: 0a 2a 2a 20 54 68 65 20 65 56 65 72 62 6f 73 65 .** The eVerbose
4b00: 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 global variable
4b10: 20 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 20 is incremented
4b20: 77 69 74 68 20 65 61 63 68 20 22 2d 76 22 20 61 with each "-v" a
4b30: 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 69 6e 74 20 rgument..*/.int
4b40: 6d 61 69 6e 28 69 6e 74 20 61 72 67 63 2c 20 63 main(int argc, c
4b50: 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 har **argv){. i
4b60: 6e 74 20 69 3b 0a 20 20 69 6e 74 20 6e 45 72 72 nt i;. int nErr
4b70: 20 3d 20 30 3b 0a 20 20 71 73 6f 72 74 28 61 46 = 0;. qsort(aF
4b80: 6d 74 46 75 6e 63 2c 20 73 69 7a 65 6f 66 28 61 mtFunc, sizeof(a
4b90: 46 6d 74 46 75 6e 63 29 2f 73 69 7a 65 6f 66 28 FmtFunc)/sizeof(
4ba0: 61 46 6d 74 46 75 6e 63 5b 30 5d 29 2c 0a 20 20 aFmtFunc[0]),.
4bb0: 20 20 20 20 20 20 73 69 7a 65 6f 66 28 61 46 6d sizeof(aFm
4bc0: 74 46 75 6e 63 5b 30 5d 29 2c 20 66 6d 74 66 75 tFunc[0]), fmtfu
4bd0: 6e 63 5f 63 6d 70 29 3b 0a 20 20 66 6f 72 28 69 nc_cmp);. for(i
4be0: 3d 31 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 =1; i<argc; i++)
4bf0: 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 46 69 6c {. char *zFil
4c00: 65 3b 0a 20 20 20 20 69 66 28 20 73 74 72 63 6d e;. if( strcm
4c10: 70 28 61 72 67 76 5b 69 5d 2c 22 2d 76 22 29 3d p(argv[i],"-v")=
4c20: 3d 30 20 29 7b 0a 20 20 20 20 20 20 65 56 65 72 =0 ){. eVer
4c30: 62 6f 73 65 2b 2b 3b 0a 20 20 20 20 20 20 63 6f bose++;. co
4c40: 6e 74 69 6e 75 65 3b 0a 20 20 20 20 7d 0a 20 20 ntinue;. }.
4c50: 20 20 69 66 28 20 65 56 65 72 62 6f 73 65 3e 30 if( eVerbose>0
4c60: 20 29 20 70 72 69 6e 74 66 28 22 50 72 6f 63 65 ) printf("Proce
4c70: 73 73 69 6e 67 20 25 73 2e 2e 2e 5c 6e 22 2c 20 ssing %s...\n",
4c80: 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 7a 46 argv[i]);. zF
4c90: 69 6c 65 20 3d 20 72 65 61 64 5f 66 69 6c 65 28 ile = read_file(
4ca0: 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 6e 45 argv[i]);. nE
4cb0: 72 72 20 2b 3d 20 73 63 61 6e 5f 66 69 6c 65 28 rr += scan_file(
4cc0: 61 72 67 76 5b 69 5d 2c 20 7a 46 69 6c 65 29 3b argv[i], zFile);
4cd0: 0a 20 20 20 20 66 72 65 65 28 7a 46 69 6c 65 29 . free(zFile)
4ce0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 6e ;. }. return n
4cf0: 45 72 72 3b 0a 7d 0a Err;.}.