Fossil

Hex Artifact Content
Login

Artifact b626830f2ba479dc795435b73325d6a4e5e5243285f2a6e4892e37129d52a0ed:


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;.}.