Fossil

Hex Artifact Content
Login

Artifact f74b41cba160225de4e676454d9a8fceabe730d5b3aa3c4a7465f602d0e6910d:


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: 65 73 20 53 51 4c 20 74 65 78 74 20 2a 2f 0a 23  es SQL text */.#
20b0: 64 65 66 69 6e 65 20 46 4d 54 5f 48 54 4d 4c 20  define FMT_HTML 
20c0: 20 30 78 30 30 30 30 32 20 20 20 20 20 2f 2a 20   0x00002     /* 
20d0: 47 65 6e 65 72 61 74 65 73 20 48 54 4d 4c 20 74  Generates HTML t
20e0: 65 78 74 20 2a 2f 0a 23 64 65 66 69 6e 65 20 46  ext */.#define F
20f0: 4d 54 5f 55 52 4c 20 20 20 30 78 30 30 30 30 34  MT_URL   0x00004
2100: 20 20 20 20 20 2f 2a 20 47 65 6e 65 72 61 74 65       /* Generate
2110: 73 20 55 52 4c 73 20 2a 2f 0a 23 64 65 66 69 6e  s URLs */.#defin
2120: 65 20 46 4d 54 5f 53 41 46 45 20 20 30 78 30 30  e FMT_SAFE  0x00
2130: 30 30 38 20 20 20 20 20 2f 2a 20 41 6c 77 61 79  008     /* Alway
2140: 73 20 73 61 66 65 20 66 6f 72 20 25 73 20 2a 2f  s safe for %s */
2150: 0a 0a 2f 2a 0a 2a 2a 20 41 20 6c 69 73 74 20 6f  ../*.** A list o
2160: 66 20 69 6e 74 65 72 6e 61 6c 20 46 6f 73 73 69  f internal Fossi
2170: 6c 20 69 6e 74 65 72 66 61 63 65 73 20 74 68 61  l interfaces tha
2180: 74 20 74 61 6b 65 20 61 20 70 72 69 6e 74 66 2d  t take a printf-
2190: 73 74 79 6c 65 20 66 6f 72 6d 61 74 0a 2a 2a 20  style format.** 
21a0: 73 74 72 69 6e 67 2e 0a 2a 2f 0a 73 74 72 75 63  string..*/.struc
21b0: 74 20 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  t {.  const char
21c0: 20 2a 7a 46 4e 61 6d 65 3b 20 20 20 20 2f 2a 20   *zFName;    /* 
21d0: 4e 61 6d 65 20 6f 66 20 74 68 65 20 66 75 6e 63  Name of the func
21e0: 74 69 6f 6e 20 2a 2f 0a 20 20 69 6e 74 20 69 46  tion */.  int iF
21f0: 6d 74 41 72 67 3b 20 20 20 20 20 20 20 20 20 20  mtArg;          
2200: 20 2f 2a 20 49 6e 64 65 78 20 6f 66 20 66 6f 72   /* Index of for
2210: 6d 61 74 20 61 72 67 75 6d 65 6e 74 2e 20 20 4c  mat argument.  L
2220: 65 66 74 6d 6f 73 74 20 69 73 20 31 2e 20 2a 2f  eftmost is 1. */
2230: 0a 20 20 75 6e 73 69 67 6e 65 64 20 66 6d 74 46  .  unsigned fmtF
2240: 6c 61 67 73 3b 20 20 20 20 20 2f 2a 20 50 72 6f  lags;     /* Pro
2250: 63 65 73 73 69 6e 67 20 66 6c 61 67 73 20 2a 2f  cessing flags */
2260: 0a 7d 20 61 46 6d 74 46 75 6e 63 5b 5d 20 3d 20  .} aFmtFunc[] = 
2270: 7b 0a 20 20 7b 20 22 61 64 6d 69 6e 5f 6c 6f 67  {.  { "admin_log
2280: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
2290: 20 31 2c 20 30 20 7d 2c 0a 20 20 7b 20 22 62 6c   1, 0 },.  { "bl
22a0: 6f 62 5f 61 70 70 65 6e 64 5f 73 71 6c 22 2c 20  ob_append_sql", 
22b0: 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53          2, FMT_S
22c0: 51 4c 20 7d 2c 0a 20 20 7b 20 22 62 6c 6f 62 5f  QL },.  { "blob_
22d0: 61 70 70 65 6e 64 66 22 2c 20 20 20 20 20 20 20  appendf",       
22e0: 20 20 20 20 20 32 2c 20 30 20 7d 2c 0a 20 20 7b       2, 0 },.  {
22f0: 20 22 63 67 69 5f 64 65 62 75 67 22 2c 20 20 20   "cgi_debug",   
2300: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 46              1, F
2310: 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22  MT_SAFE },.  { "
2320: 63 67 69 5f 70 61 6e 69 63 22 2c 20 20 20 20 20  cgi_panic",     
2330: 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54            1, FMT
2340: 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 63 67  _SAFE },.  { "cg
2350: 69 5f 70 72 69 6e 74 66 22 2c 20 20 20 20 20 20  i_printf",      
2360: 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 48          1, FMT_H
2370: 54 4d 4c 20 7d 2c 0a 20 20 7b 20 22 63 67 69 5f  TML },.  { "cgi_
2380: 72 65 64 69 72 65 63 74 66 22 2c 20 20 20 20 20  redirectf",     
2390: 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 55 52 4c        1, FMT_URL
23a0: 20 7d 2c 0a 20 20 7b 20 22 63 68 72 65 66 22 2c   },.  { "chref",
23b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23c0: 20 20 20 32 2c 20 46 4d 54 5f 55 52 4c 20 7d 2c     2, FMT_URL },
23d0: 0a 20 20 7b 20 22 64 62 5f 62 6c 6f 62 22 2c 20  .  { "db_blob", 
23e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23f0: 32 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20  2, FMT_SQL },.  
2400: 7b 20 22 64 62 5f 64 65 62 75 67 22 2c 20 20 20  { "db_debug",   
2410: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20               1, 
2420: 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20 22  FMT_SQL },.  { "
2430: 64 62 5f 64 6f 75 62 6c 65 22 2c 20 20 20 20 20  db_double",     
2440: 20 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54            2, FMT
2450: 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f  _SQL },.  { "db_
2460: 65 72 72 22 2c 20 20 20 20 20 20 20 20 20 20 20  err",           
2470: 20 20 20 20 20 20 20 31 2c 20 30 20 7d 2c 0a 20         1, 0 },. 
2480: 20 7b 20 22 64 62 5f 65 78 69 73 74 73 22 2c 20   { "db_exists", 
2490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c                1,
24a0: 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20   FMT_SQL },.  { 
24b0: 22 64 62 5f 67 65 74 5f 6d 70 72 69 6e 74 66 22  "db_get_mprintf"
24c0: 2c 20 20 20 20 20 20 20 20 20 20 32 2c 20 30 20  ,          2, 0 
24d0: 7d 2c 0a 20 20 7b 20 22 64 62 5f 69 6e 74 22 2c  },.  { "db_int",
24e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
24f0: 20 20 32 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a    2, FMT_SQL },.
2500: 20 20 7b 20 22 64 62 5f 69 6e 74 36 34 22 2c 20    { "db_int64", 
2510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32                 2
2520: 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 7b  , FMT_SQL },.  {
2530: 20 22 64 62 5f 6d 75 6c 74 69 5f 65 78 65 63 22   "db_multi_exec"
2540: 2c 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 46  ,           1, F
2550: 4d 54 5f 53 51 4c 20 7d 2c 0a 20 20 7b 20 22 64  MT_SQL },.  { "d
2560: 62 5f 6f 70 74 69 6f 6e 61 6c 5f 73 71 6c 22 2c  b_optional_sql",
2570: 20 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f           2, FMT_
2580: 53 51 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 70  SQL },.  { "db_p
2590: 72 65 70 61 72 65 22 2c 20 20 20 20 20 20 20 20  repare",        
25a0: 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 51 4c        2, FMT_SQL
25b0: 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 70 72 65 70   },.  { "db_prep
25c0: 61 72 65 5f 69 67 6e 6f 72 65 5f 65 72 72 6f 72  are_ignore_error
25d0: 22 2c 20 32 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c  ", 2, FMT_SQL },
25e0: 0a 20 20 7b 20 22 64 62 5f 73 65 74 5f 6d 70 72  .  { "db_set_mpr
25f0: 69 6e 74 66 22 2c 20 20 20 20 20 20 20 20 20 20  intf",          
2600: 33 2c 20 30 20 7d 2c 0a 20 20 7b 20 22 64 62 5f  3, 0 },.  { "db_
2610: 73 74 61 74 69 63 5f 70 72 65 70 61 72 65 22 2c  static_prepare",
2620: 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 51         2, FMT_SQ
2630: 4c 20 7d 2c 0a 20 20 7b 20 22 64 62 5f 74 65 78  L },.  { "db_tex
2640: 74 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  t",             
2650: 20 20 20 20 32 2c 20 46 4d 54 5f 53 51 4c 20 7d      2, FMT_SQL }
2660: 2c 0a 20 20 7b 20 22 64 62 5f 75 6e 73 65 74 5f  ,.  { "db_unset_
2670: 6d 70 72 69 6e 74 66 22 2c 20 20 20 20 20 20 20  mprintf",       
2680: 20 32 2c 20 30 20 7d 2c 0a 20 20 7b 20 22 66 6f   2, 0 },.  { "fo
2690: 72 6d 5f 62 65 67 69 6e 22 2c 20 20 20 20 20 20  rm_begin",      
26a0: 20 20 20 20 20 20 20 20 32 2c 20 46 4d 54 5f 55          2, FMT_U
26b0: 52 4c 20 7d 2c 0a 20 20 7b 20 22 66 6f 73 73 69  RL },.  { "fossi
26c0: 6c 5f 65 72 72 6f 72 22 2c 20 20 20 20 20 20 20  l_error",       
26d0: 20 20 20 20 20 32 2c 20 46 4d 54 5f 53 41 46 45       2, FMT_SAFE
26e0: 20 7d 2c 0a 20 20 7b 20 22 66 6f 73 73 69 6c 5f   },.  { "fossil_
26f0: 65 72 72 6f 72 6c 6f 67 22 2c 20 20 20 20 20 20  errorlog",      
2700: 20 20 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d     1, FMT_SAFE }
2710: 2c 0a 20 20 7b 20 22 66 6f 73 73 69 6c 5f 66 61  ,.  { "fossil_fa
2720: 74 61 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20  tal",           
2730: 20 31 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a   1, FMT_SAFE },.
2740: 20 20 7b 20 22 66 6f 73 73 69 6c 5f 66 61 74 61    { "fossil_fata
2750: 6c 5f 72 65 63 75 72 73 69 76 65 22 2c 20 20 31  l_recursive",  1
2760: 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20  , FMT_SAFE },.  
2770: 7b 20 22 66 6f 73 73 69 6c 5f 70 61 6e 69 63 22  { "fossil_panic"
2780: 2c 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20  ,            1, 
2790: 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20  FMT_SAFE },.  { 
27a0: 22 66 6f 73 73 69 6c 5f 70 72 69 6e 74 22 2c 20  "fossil_print", 
27b0: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d             1, FM
27c0: 54 5f 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 66  T_SAFE },.  { "f
27d0: 6f 73 73 69 6c 5f 74 72 61 63 65 22 2c 20 20 20  ossil_trace",   
27e0: 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f           1, FMT_
27f0: 53 41 46 45 20 7d 2c 0a 20 20 7b 20 22 66 6f 73  SAFE },.  { "fos
2800: 73 69 6c 5f 77 61 72 6e 69 6e 67 22 2c 20 20 20  sil_warning",   
2810: 20 20 20 20 20 20 20 31 2c 20 46 4d 54 5f 53 41         1, FMT_SA
2820: 46 45 20 7d 2c 0a 20 20 7b 20 22 68 72 65 66 22  FE },.  { "href"
2830: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
2840: 20 20 20 20 20 31 2c 20 46 4d 54 5f 55 52 4c 20       1, FMT_URL 
2850: 7d 2c 0a 20 20 7b 20 22 6a 73 6f 6e 5f 6e 65 77  },.  { "json_new
2860: 5f 73 74 72 69 6e 67 5f 66 22 2c 20 20 20 20 20  _string_f",     
2870: 20 20 31 2c 20 30 20 7d 2c 0a 20 20 7b 20 22 6a    1, 0 },.  { "j
2880: 73 6f 6e 5f 73 65 74 5f 65 72 72 22 2c 20 20 20  son_set_err",   
2890: 20 20 20 20 20 20 20 20 20 32 2c 20 30 20 7d 2c           2, 0 },
28a0: 0a 20 20 7b 20 22 6a 73 6f 6e 5f 77 61 72 6e 22  .  { "json_warn"
28b0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
28c0: 32 2c 20 30 20 7d 2c 0a 20 20 7b 20 22 6d 70 72  2, 0 },.  { "mpr
28d0: 69 6e 74 66 22 2c 20 20 20 20 20 20 20 20 20 20  intf",          
28e0: 20 20 20 20 20 20 20 31 2c 20 30 20 7d 2c 0a 20         1, 0 },. 
28f0: 20 7b 20 22 73 6f 63 6b 65 74 5f 73 65 74 5f 65   { "socket_set_e
2900: 72 72 6d 73 67 22 2c 20 20 20 20 20 20 20 31 2c  rrmsg",       1,
2910: 20 30 20 7d 2c 0a 20 20 7b 20 22 73 73 6c 5f 73   0 },.  { "ssl_s
2920: 65 74 5f 65 72 72 6d 73 67 22 2c 20 20 20 20 20  et_errmsg",     
2930: 20 20 20 20 20 31 2c 20 30 20 7d 2c 0a 20 20 7b       1, 0 },.  {
2940: 20 22 73 74 79 6c 65 5f 68 65 61 64 65 72 22 2c   "style_header",
2950: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 46              1, F
2960: 4d 54 5f 48 54 4d 4c 20 7d 2c 0a 20 20 7b 20 22  MT_HTML },.  { "
2970: 73 74 79 6c 65 5f 6a 73 5f 6f 6e 6c 6f 61 64 22  style_js_onload"
2980: 2c 20 20 20 20 20 20 20 20 20 31 2c 20 46 4d 54  ,         1, FMT
2990: 5f 48 54 4d 4c 20 7d 2c 0a 20 20 7b 20 22 73 74  _HTML },.  { "st
29a0: 79 6c 65 5f 73 65 74 5f 63 75 72 72 65 6e 74 5f  yle_set_current_
29b0: 70 61 67 65 22 2c 20 20 31 2c 20 46 4d 54 5f 55  page",  1, FMT_U
29c0: 52 4c 20 7d 2c 0a 20 20 7b 20 22 73 74 79 6c 65  RL },.  { "style
29d0: 5f 73 75 62 6d 65 6e 75 5f 65 6c 65 6d 65 6e 74  _submenu_element
29e0: 22 2c 20 20 20 32 2c 20 46 4d 54 5f 55 52 4c 20  ",   2, FMT_URL 
29f0: 7d 2c 0a 20 20 7b 20 22 73 74 79 6c 65 5f 73 75  },.  { "style_su
2a00: 62 6d 65 6e 75 5f 73 71 6c 22 2c 20 20 20 20 20  bmenu_sql",     
2a10: 20 20 33 2c 20 46 4d 54 5f 53 51 4c 20 7d 2c 0a    3, FMT_SQL },.
2a20: 20 20 7b 20 22 77 65 62 70 61 67 65 5f 65 72 72    { "webpage_err
2a30: 6f 72 22 2c 20 20 20 20 20 20 20 20 20 20 20 31  or",           1
2a40: 2c 20 46 4d 54 5f 53 41 46 45 20 7d 2c 0a 20 20  , FMT_SAFE },.  
2a50: 7b 20 22 78 68 72 65 66 22 2c 20 20 20 20 20 20  { "xhref",      
2a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20               2, 
2a70: 46 4d 54 5f 55 52 4c 20 7d 2c 0a 7d 3b 0a 0a 2f  FMT_URL },.};../
2a80: 2a 0a 2a 2a 20 44 65 74 65 72 6d 69 6e 65 20 69  *.** Determine i
2a90: 66 20 74 68 65 20 69 6e 64 65 6e 74 69 66 69 65  f the indentifie
2aa0: 72 20 7a 49 64 65 6e 74 20 6f 66 20 6c 65 6e 67  r zIdent of leng
2ab0: 74 68 20 6e 49 6e 64 65 6e 74 20 69 73 20 61 20  th nIndent is a 
2ac0: 46 6f 73 73 69 6c 0a 2a 2a 20 69 6e 74 65 72 6e  Fossil.** intern
2ad0: 61 6c 20 69 6e 74 65 72 66 61 63 65 20 74 68 61  al interface tha
2ae0: 74 20 75 73 65 73 20 61 20 70 72 69 6e 74 66 2d  t uses a printf-
2af0: 73 74 79 6c 65 20 61 72 67 75 6d 65 6e 74 2e 20  style argument. 
2b00: 20 52 65 74 75 72 6e 20 7a 65 72 6f 20 69 66 20   Return zero if 
2b10: 6e 6f 74 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74  not..** Return t
2b20: 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20  he index of the 
2b30: 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 69 66  format string if
2b40: 20 74 72 75 65 20 77 69 74 68 20 74 68 65 20 6c   true with the l
2b50: 65 66 74 2d 6d 6f 73 74 0a 2a 2a 20 61 72 67 75  eft-most.** argu
2b60: 6d 65 6e 74 20 68 61 76 69 6e 67 20 61 6e 20 69  ment having an i
2b70: 6e 64 65 78 20 6f 66 20 31 2e 0a 2a 2f 0a 73 74  ndex of 1..*/.st
2b80: 61 74 69 63 20 69 6e 74 20 69 73 46 6f 72 6d 61  atic int isForma
2b90: 74 46 75 6e 63 28 63 6f 6e 73 74 20 63 68 61 72  tFunc(const char
2ba0: 20 2a 7a 49 64 65 6e 74 2c 20 69 6e 74 20 6e 49   *zIdent, int nI
2bb0: 64 65 6e 74 2c 20 75 6e 73 69 67 6e 65 64 20 2a  dent, unsigned *
2bc0: 70 46 6c 61 67 73 29 7b 0a 20 20 69 6e 74 20 75  pFlags){.  int u
2bd0: 70 72 2c 20 6c 77 72 3b 0a 20 20 6c 77 72 20 3d  pr, lwr;.  lwr =
2be0: 20 30 3b 0a 20 20 75 70 72 20 3d 20 73 69 7a 65   0;.  upr = size
2bf0: 6f 66 28 61 46 6d 74 46 75 6e 63 29 2f 73 69 7a  of(aFmtFunc)/siz
2c00: 65 6f 66 28 61 46 6d 74 46 75 6e 63 5b 30 5d 29  eof(aFmtFunc[0])
2c10: 20 2d 20 31 3b 0a 20 20 77 68 69 6c 65 28 20 6c   - 1;.  while( l
2c20: 77 72 3c 3d 75 70 72 20 29 7b 0a 20 20 20 20 75  wr<=upr ){.    u
2c30: 6e 73 69 67 6e 65 64 20 78 20 3d 20 28 6c 77 72  nsigned x = (lwr
2c40: 20 2b 20 75 70 72 29 2f 32 3b 0a 20 20 20 20 69   + upr)/2;.    i
2c50: 6e 74 20 63 20 3d 20 73 74 72 6e 63 6d 70 28 7a  nt c = strncmp(z
2c60: 49 64 65 6e 74 2c 20 61 46 6d 74 46 75 6e 63 5b  Ident, aFmtFunc[
2c70: 78 5d 2e 7a 46 4e 61 6d 65 2c 20 6e 49 64 65 6e  x].zFName, nIden
2c80: 74 29 3b 0a 20 20 20 20 69 66 28 20 63 3d 3d 30  t);.    if( c==0
2c90: 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 61 46   ){.      if( aF
2ca0: 6d 74 46 75 6e 63 5b 78 5d 2e 7a 46 4e 61 6d 65  mtFunc[x].zFName
2cb0: 5b 6e 49 64 65 6e 74 5d 3d 3d 30 20 29 7b 0a 20  [nIdent]==0 ){. 
2cc0: 20 20 20 20 20 20 20 2a 70 46 6c 61 67 73 20 3d         *pFlags =
2cd0: 20 61 46 6d 74 46 75 6e 63 5b 78 5d 2e 66 6d 74   aFmtFunc[x].fmt
2ce0: 46 6c 61 67 73 3b 0a 20 20 20 20 20 20 20 20 72  Flags;.        r
2cf0: 65 74 75 72 6e 20 61 46 6d 74 46 75 6e 63 5b 78  eturn aFmtFunc[x
2d00: 5d 2e 69 46 6d 74 41 72 67 3b 0a 20 20 20 20 20  ].iFmtArg;.     
2d10: 20 7d 0a 20 20 20 20 20 20 63 20 3d 20 2d 31 3b   }.      c = -1;
2d20: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 63  .    }.    if( c
2d30: 3c 30 20 29 7b 0a 20 20 20 20 20 20 75 70 72 20  <0 ){.      upr 
2d40: 3d 20 78 20 2d 20 31 3b 0a 20 20 20 20 7d 65 6c  = x - 1;.    }el
2d50: 73 65 7b 0a 20 20 20 20 20 20 6c 77 72 20 3d 20  se{.      lwr = 
2d60: 78 20 2b 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d  x + 1;.    }.  }
2d70: 0a 20 20 2a 70 46 6c 61 67 73 20 3d 20 30 3b 0a  .  *pFlags = 0;.
2d80: 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f    return 0;.}../
2d90: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
2da0: 65 78 70 65 63 74 65 64 20 6e 75 6d 62 65 72 20  expected number 
2db0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72  of arguments for
2dc0: 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69   the format stri
2dd0: 6e 67 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 2d 31  ng..** Return -1
2de0: 20 69 66 20 74 68 65 20 76 61 6c 75 65 20 63 61   if the value ca
2df0: 6e 6e 6f 74 20 62 65 20 63 6f 6d 70 75 74 65 64  nnot be computed
2e00: 2e 0a 2a 2a 0a 2a 2a 20 46 6f 72 20 65 61 63 68  ..**.** For each
2e10: 20 61 72 67 75 6d 65 6e 74 20 6c 65 73 73 20 74   argument less t
2e20: 68 61 6e 20 6e 54 79 70 65 2c 20 73 74 6f 72 65  han nType, store
2e30: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20   the conversion 
2e40: 63 68 61 72 61 63 74 65 72 0a 2a 2a 20 66 6f 72  character.** for
2e50: 20 74 68 61 74 20 61 72 67 75 6d 65 6e 74 20 69   that argument i
2e60: 6e 20 63 54 79 70 65 5b 69 5d 2e 0a 2a 2f 0a 73  n cType[i]..*/.s
2e70: 74 61 74 69 63 20 69 6e 74 20 66 6f 72 6d 61 74  tatic int format
2e80: 41 72 67 43 6f 75 6e 74 28 63 6f 6e 73 74 20 63  ArgCount(const c
2e90: 68 61 72 20 2a 7a 2c 20 69 6e 74 20 6e 54 79 70  har *z, int nTyp
2ea0: 65 2c 20 63 68 61 72 20 2a 63 54 79 70 65 29 7b  e, char *cType){
2eb0: 0a 20 20 69 6e 74 20 6e 41 72 67 20 3d 20 30 3b  .  int nArg = 0;
2ec0: 0a 20 20 69 6e 74 20 69 2c 20 6b 3b 0a 20 20 69  .  int i, k;.  i
2ed0: 6e 74 20 6c 65 6e 3b 0a 20 20 69 6e 74 20 65 54  nt len;.  int eT
2ee0: 79 70 65 3b 0a 20 20 69 6e 74 20 6c 6e 20 3d 20  ype;.  int ln = 
2ef0: 30 3b 0a 20 20 77 68 69 6c 65 28 20 7a 5b 30 5d  0;.  while( z[0]
2f00: 20 29 7b 0a 20 20 20 20 6c 65 6e 20 3d 20 74 6f   ){.    len = to
2f10: 6b 65 6e 5f 6c 65 6e 67 74 68 28 7a 2c 20 26 65  ken_length(z, &e
2f20: 54 79 70 65 2c 20 26 6c 6e 29 3b 0a 20 20 20 20  Type, &ln);.    
2f30: 69 66 28 20 65 54 79 70 65 3d 3d 54 4b 5f 53 54  if( eType==TK_ST
2f40: 52 20 29 7b 0a 20 20 20 20 20 20 66 6f 72 28 69  R ){.      for(i
2f50: 3d 31 3b 20 69 3c 6c 65 6e 2d 31 3b 20 69 2b 2b  =1; i<len-1; i++
2f60: 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a  ){.        if( z
2f70: 5b 69 5d 21 3d 27 25 27 20 29 20 63 6f 6e 74 69  [i]!='%' ) conti
2f80: 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 69 66 28  nue;.        if(
2f90: 20 7a 5b 69 2b 31 5d 3d 3d 27 25 27 20 29 7b 20   z[i+1]=='%' ){ 
2fa0: 69 2b 2b 3b 20 63 6f 6e 74 69 6e 75 65 3b 20 7d  i++; continue; }
2fb0: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 6b 3d 69  .        for(k=i
2fc0: 2b 31 3b 20 6b 3c 6c 65 6e 20 26 26 20 21 69 73  +1; k<len && !is
2fd0: 61 6c 70 68 61 28 7a 5b 6b 5d 29 3b 20 6b 2b 2b  alpha(z[k]); k++
2fe0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28  ){.          if(
2ff0: 20 7a 5b 6b 5d 3d 3d 27 2a 27 20 7c 7c 20 7a 5b   z[k]=='*' || z[
3000: 6b 5d 3d 3d 27 23 27 20 29 7b 0a 20 20 20 20 20  k]=='#' ){.     
3010: 20 20 20 20 20 20 20 69 66 28 20 6e 41 72 67 3c         if( nArg<
3020: 6e 54 79 70 65 20 29 20 63 54 79 70 65 5b 6e 41  nType ) cType[nA
3030: 72 67 5d 20 3d 20 7a 5b 6b 5d 3b 0a 20 20 20 20  rg] = z[k];.    
3040: 20 20 20 20 20 20 20 20 6e 41 72 67 2b 2b 3b 0a          nArg++;.
3050: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
3060: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66      }.        if
3070: 28 20 7a 5b 6b 5d 21 3d 27 52 27 20 29 7b 0a 20  ( z[k]!='R' ){. 
3080: 20 20 20 20 20 20 20 20 20 69 66 28 20 6e 41 72           if( nAr
3090: 67 3c 6e 54 79 70 65 20 29 20 63 54 79 70 65 5b  g<nType ) cType[
30a0: 6e 41 72 67 5d 20 3d 20 7a 5b 6b 5d 3b 0a 20 20  nArg] = z[k];.  
30b0: 20 20 20 20 20 20 20 20 6e 41 72 67 2b 2b 3b 0a          nArg++;.
30c0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
30d0: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 7a 20 2b 3d  }.    }.    z +=
30e0: 20 6c 65 6e 3b 0a 20 20 7d 0a 20 20 72 65 74 75   len;.  }.  retu
30f0: 72 6e 20 6e 41 72 67 3b 0a 7d 0a 0a 2f 2a 0a 2a  rn nArg;.}../*.*
3100: 2a 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 63  * The function c
3110: 61 6c 6c 20 74 68 61 74 20 62 65 67 69 6e 73 20  all that begins 
3120: 61 74 20 7a 46 43 61 6c 6c 5b 30 5d 20 28 77 68  at zFCall[0] (wh
3130: 69 63 68 20 69 73 20 6f 6e 20 6c 69 6e 65 20 6c  ich is on line l
3140: 6e 46 43 61 6c 6c 20 6f 66 20 74 68 65 0a 2a 2a  nFCall of the.**
3150: 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 29 20   original file) 
3160: 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68  is a function th
3170: 61 74 20 75 73 65 73 20 61 20 70 72 69 6e 74 66  at uses a printf
3180: 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 20 73 74  -style format st
3190: 72 69 6e 67 0a 2a 2a 20 6f 6e 20 61 72 67 75 6d  ring.** on argum
31a0: 65 6e 74 20 6e 75 6d 62 65 72 20 66 6d 74 41 72  ent number fmtAr
31b0: 67 2e 20 20 49 74 20 68 61 73 20 70 72 6f 63 65  g.  It has proce
31c0: 73 73 69 6e 67 73 20 66 6c 61 67 73 20 66 6d 74  ssings flags fmt
31d0: 46 6c 61 67 73 2e 20 20 44 6f 0a 2a 2a 20 63 6f  Flags.  Do.** co
31e0: 6d 70 69 6c 65 2d 74 69 6d 65 20 63 68 65 63 6b  mpile-time check
31f0: 69 6e 67 20 6f 6e 20 74 68 69 73 20 66 75 6e 63  ing on this func
3200: 74 69 6f 6e 2c 20 6f 75 74 70 75 74 20 61 6e 79  tion, output any
3210: 20 65 72 72 6f 72 73 2c 20 61 6e 64 20 72 65 74   errors, and ret
3220: 75 72 6e 0a 2a 2a 20 74 68 65 20 6e 75 6d 62 65  urn.** the numbe
3230: 72 20 6f 66 20 65 72 72 6f 72 73 2e 0a 2a 2f 0a  r of errors..*/.
3240: 73 74 61 74 69 63 20 69 6e 74 20 63 68 65 63 6b  static int check
3250: 46 6f 72 6d 61 74 46 75 6e 63 28 0a 20 20 63 6f  FormatFunc(.  co
3260: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e  nst char *zFilen
3270: 61 6d 65 2c 20 2f 2a 20 4e 61 6d 65 20 6f 66 20  ame, /* Name of 
3280: 74 68 65 20 66 69 6c 65 20 62 65 69 6e 67 20 70  the file being p
3290: 72 6f 63 65 73 73 65 64 20 2a 2f 0a 20 20 63 6f  rocessed */.  co
32a0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 43 61 6c 6c  nst char *zFCall
32b0: 2c 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20  ,    /* Pointer 
32c0: 74 6f 20 73 74 61 72 74 20 6f 66 20 66 75 6e 63  to start of func
32d0: 74 69 6f 6e 20 63 61 6c 6c 20 2a 2f 0a 20 20 69  tion call */.  i
32e0: 6e 74 20 6c 6e 46 43 61 6c 6c 2c 20 20 20 20 20  nt lnFCall,     
32f0: 20 20 20 20 20 20 2f 2a 20 4c 69 6e 65 20 6e 75        /* Line nu
3300: 6d 62 65 72 20 74 68 61 74 20 68 6f 6c 64 73 20  mber that holds 
3310: 7a 5b 30 5d 20 2a 2f 0a 20 20 69 6e 74 20 66 6d  z[0] */.  int fm
3320: 74 41 72 67 2c 20 20 20 20 20 20 20 20 20 20 20  tArg,           
3330: 20 2f 2a 20 46 6f 72 6d 61 74 20 73 74 72 69 6e   /* Format strin
3340: 67 20 73 68 6f 75 6c 64 20 62 65 20 74 68 69 73  g should be this
3350: 20 61 72 67 75 6d 65 6e 74 20 2a 2f 0a 20 20 69   argument */.  i
3360: 6e 74 20 66 6d 74 46 6c 61 67 73 20 20 20 20 20  nt fmtFlags     
3370: 20 20 20 20 20 20 2f 2a 20 45 78 74 72 61 20 70        /* Extra p
3380: 72 6f 63 65 73 73 69 6e 67 20 66 6c 61 67 73 20  rocessing flags 
3390: 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 73 7a 46 4e  */.){.  int szFN
33a0: 61 6d 65 3b 0a 20 20 69 6e 74 20 65 54 6f 6b 65  ame;.  int eToke
33b0: 6e 3b 0a 20 20 69 6e 74 20 6c 6e 20 3d 20 6c 6e  n;.  int ln = ln
33c0: 46 43 61 6c 6c 3b 0a 20 20 69 6e 74 20 6c 65 6e  FCall;.  int len
33d0: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
33e0: 7a 53 74 61 72 74 3b 0a 20 20 63 68 61 72 20 2a  zStart;.  char *
33f0: 7a 3b 0a 20 20 63 68 61 72 20 2a 7a 43 6f 70 79  z;.  char *zCopy
3400: 3b 0a 20 20 69 6e 74 20 6e 41 72 67 20 3d 20 30  ;.  int nArg = 0
3410: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
3420: 2a 61 7a 41 72 67 20 3d 20 30 3b 0a 20 20 69 6e  *azArg = 0;.  in
3430: 74 20 69 2c 20 6b 3b 0a 20 20 69 6e 74 20 6e 45  t i, k;.  int nE
3440: 72 72 20 3d 20 30 3b 0a 20 20 63 68 61 72 20 2a  rr = 0;.  char *
3450: 61 63 54 79 70 65 3b 0a 0a 20 20 73 7a 46 4e 61  acType;..  szFNa
3460: 6d 65 20 3d 20 74 6f 6b 65 6e 5f 6c 65 6e 67 74  me = token_lengt
3470: 68 28 7a 46 43 61 6c 6c 2c 20 26 65 54 6f 6b 65  h(zFCall, &eToke
3480: 6e 2c 20 26 6c 6e 29 3b 0a 20 20 7a 53 74 61 72  n, &ln);.  zStar
3490: 74 20 3d 20 6e 65 78 74 5f 6e 6f 6e 5f 77 68 69  t = next_non_whi
34a0: 74 65 73 70 61 63 65 28 7a 46 43 61 6c 6c 2b 73  tespace(zFCall+s
34b0: 7a 46 4e 61 6d 65 2c 20 26 6c 65 6e 2c 20 26 65  zFName, &len, &e
34c0: 54 6f 6b 65 6e 29 3b 0a 20 20 61 73 73 65 72 74  Token);.  assert
34d0: 28 20 7a 53 74 61 72 74 5b 30 5d 3d 3d 27 28 27  ( zStart[0]=='('
34e0: 20 26 26 20 6c 65 6e 3d 3d 31 20 29 3b 0a 20 20   && len==1 );.  
34f0: 6c 65 6e 20 3d 20 64 69 73 74 61 6e 63 65 5f 74  len = distance_t
3500: 6f 28 7a 53 74 61 72 74 2b 31 2c 20 27 29 27 29  o(zStart+1, ')')
3510: 3b 0a 20 20 7a 43 6f 70 79 20 3d 20 73 61 66 65  ;.  zCopy = safe
3520: 5f 6d 61 6c 6c 6f 63 28 20 6c 65 6e 20 2b 20 31  _malloc( len + 1
3530: 20 29 3b 0a 20 20 6d 65 6d 63 70 79 28 7a 43 6f   );.  memcpy(zCo
3540: 70 79 2c 20 7a 53 74 61 72 74 2b 31 2c 20 6c 65  py, zStart+1, le
3550: 6e 29 3b 0a 20 20 7a 43 6f 70 79 5b 6c 65 6e 5d  n);.  zCopy[len]
3560: 20 3d 20 30 3b 0a 20 20 61 7a 41 72 67 20 3d 20   = 0;.  azArg = 
3570: 30 3b 0a 20 20 6e 41 72 67 20 3d 20 30 3b 0a 20  0;.  nArg = 0;. 
3580: 20 7a 20 3d 20 7a 43 6f 70 79 3b 0a 20 20 77 68   z = zCopy;.  wh
3590: 69 6c 65 28 20 7a 5b 30 5d 20 29 7b 0a 20 20 20  ile( z[0] ){.   
35a0: 20 63 68 61 72 20 63 45 6e 64 3b 0a 20 20 20 20   char cEnd;.    
35b0: 6c 65 6e 20 3d 20 64 69 73 74 61 6e 63 65 5f 74  len = distance_t
35c0: 6f 28 7a 2c 20 27 2c 27 29 3b 0a 20 20 20 20 63  o(z, ',');.    c
35d0: 45 6e 64 20 3d 20 7a 5b 6c 65 6e 5d 3b 0a 20 20  End = z[len];.  
35e0: 20 20 7a 5b 6c 65 6e 5d 20 3d 20 30 3b 0a 20 20    z[len] = 0;.  
35f0: 20 20 61 7a 41 72 67 20 3d 20 73 61 66 65 5f 72    azArg = safe_r
3600: 65 61 6c 6c 6f 63 28 28 63 68 61 72 2a 29 61 7a  ealloc((char*)az
3610: 41 72 67 2c 20 28 73 69 7a 65 6f 66 28 61 7a 41  Arg, (sizeof(azA
3620: 72 67 5b 30 5d 29 2b 31 29 2a 28 6e 41 72 67 2b  rg[0])+1)*(nArg+
3630: 31 29 29 3b 0a 20 20 20 20 61 7a 41 72 67 5b 6e  1));.    azArg[n
3640: 41 72 67 2b 2b 5d 20 3d 20 73 69 6d 70 6c 69 66  Arg++] = simplif
3650: 79 5f 65 78 70 72 28 7a 29 3b 0a 20 20 20 20 69  y_expr(z);.    i
3660: 66 28 20 63 45 6e 64 3d 3d 30 20 29 20 62 72 65  f( cEnd==0 ) bre
3670: 61 6b 3b 0a 20 20 20 20 7a 20 2b 3d 20 6c 65 6e  ak;.    z += len
3680: 20 2b 20 31 3b 0a 20 20 7d 0a 20 20 61 63 54 79   + 1;.  }.  acTy
3690: 70 65 20 3d 20 28 63 68 61 72 2a 29 26 61 7a 41  pe = (char*)&azA
36a0: 72 67 5b 6e 41 72 67 5d 3b 0a 20 20 69 66 28 20  rg[nArg];.  if( 
36b0: 66 6d 74 41 72 67 3e 6e 41 72 67 20 29 7b 0a 20  fmtArg>nArg ){. 
36c0: 20 20 20 70 72 69 6e 74 66 28 22 25 73 3a 25 64     printf("%s:%d
36d0: 3a 20 74 6f 6f 20 66 65 77 20 61 72 67 75 6d 65  : too few argume
36e0: 6e 74 73 20 74 6f 20 25 2e 2a 73 28 29 5c 6e 22  nts to %.*s()\n"
36f0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 7a 46 69  ,.           zFi
3700: 6c 65 6e 61 6d 65 2c 20 6c 6e 46 43 61 6c 6c 2c  lename, lnFCall,
3710: 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43 61 6c 6c   szFName, zFCall
3720: 29 3b 0a 20 20 20 20 6e 45 72 72 2b 2b 3b 0a 20  );.    nErr++;. 
3730: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 63 6f 6e 73   }else{.    cons
3740: 74 20 63 68 61 72 20 2a 7a 46 6d 74 20 3d 20 61  t char *zFmt = a
3750: 7a 41 72 67 5b 66 6d 74 41 72 67 2d 31 5d 3b 0a  zArg[fmtArg-1];.
3760: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a      const char *
3770: 7a 4f 76 65 72 72 69 64 65 20 3d 20 73 74 72 73  zOverride = strs
3780: 74 72 28 7a 46 6d 74 2c 20 22 2f 2a 77 6f 72 6b  tr(zFmt, "/*work
3790: 73 2d 6c 69 6b 65 3a 22 29 3b 0a 20 20 20 20 69  s-like:");.    i
37a0: 66 28 20 7a 4f 76 65 72 72 69 64 65 20 29 20 7a  f( zOverride ) z
37b0: 46 6d 74 20 3d 20 7a 4f 76 65 72 72 69 64 65 20  Fmt = zOverride 
37c0: 2b 20 73 69 7a 65 6f 66 28 22 2f 2a 77 6f 72 6b  + sizeof("/*work
37d0: 73 2d 6c 69 6b 65 3a 22 29 2d 31 3b 0a 20 20 20  s-like:")-1;.   
37e0: 20 69 66 28 20 21 69 73 5f 73 74 72 69 6e 67 5f   if( !is_string_
37f0: 6c 69 74 28 7a 46 6d 74 29 20 29 7b 0a 20 20 20  lit(zFmt) ){.   
3800: 20 20 20 70 72 69 6e 74 66 28 22 25 73 3a 25 64     printf("%s:%d
3810: 3a 20 25 2e 2a 73 28 29 20 68 61 73 20 6e 6f 6e  : %.*s() has non
3820: 2d 63 6f 6e 73 74 61 6e 74 20 66 6f 72 6d 61 74  -constant format
3830: 20 6f 6e 20 61 72 67 5b 25 64 5d 5c 6e 22 2c 0a   on arg[%d]\n",.
3840: 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 46 69               zFi
3850: 6c 65 6e 61 6d 65 2c 20 6c 6e 46 43 61 6c 6c 2c  lename, lnFCall,
3860: 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43 61 6c 6c   szFName, zFCall
3870: 2c 20 66 6d 74 41 72 67 2d 31 29 3b 0a 20 20 20  , fmtArg-1);.   
3880: 20 20 20 6e 45 72 72 2b 2b 3b 0a 20 20 20 20 7d     nErr++;.    }
3890: 65 6c 73 65 20 69 66 28 20 28 6b 20 3d 20 66 6f  else if( (k = fo
38a0: 72 6d 61 74 41 72 67 43 6f 75 6e 74 28 7a 46 6d  rmatArgCount(zFm
38b0: 74 2c 20 6e 41 72 67 2c 20 61 63 54 79 70 65 29  t, nArg, acType)
38c0: 29 3e 3d 30 0a 20 20 20 20 20 20 20 20 20 20 20  )>=0.           
38d0: 20 20 26 26 20 6e 41 72 67 21 3d 66 6d 74 41 72    && nArg!=fmtAr
38e0: 67 2b 6b 20 29 7b 0a 20 20 20 20 20 20 70 72 69  g+k ){.      pri
38f0: 6e 74 66 28 22 25 73 3a 25 64 3a 20 74 6f 6f 20  ntf("%s:%d: too 
3900: 25 73 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20  %s arguments to 
3910: 25 2e 2a 73 28 29 20 22 0a 20 20 20 20 20 20 20  %.*s() ".       
3920: 20 20 20 20 20 20 22 2d 20 67 6f 74 20 25 64 20        "- got %d 
3930: 61 6e 64 20 65 78 70 65 63 74 65 64 20 25 64 5c  and expected %d\
3940: 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20  n",.            
3950: 20 7a 46 69 6c 65 6e 61 6d 65 2c 20 6c 6e 46 43   zFilename, lnFC
3960: 61 6c 6c 2c 20 28 6e 41 72 67 3c 66 6d 74 41 72  all, (nArg<fmtAr
3970: 67 2b 6b 20 3f 20 22 66 65 77 22 20 3a 20 22 6d  g+k ? "few" : "m
3980: 61 6e 79 22 29 2c 0a 20 20 20 20 20 20 20 20 20  any"),.         
3990: 20 20 20 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43      szFName, zFC
39a0: 61 6c 6c 2c 20 6e 41 72 67 2c 20 66 6d 74 41 72  all, nArg, fmtAr
39b0: 67 2b 6b 29 3b 0a 20 20 20 20 20 20 6e 45 72 72  g+k);.      nErr
39c0: 2b 2b 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66  ++;.    }else if
39d0: 28 20 28 66 6d 74 46 6c 61 67 73 20 26 20 46 4d  ( (fmtFlags & FM
39e0: 54 5f 53 41 46 45 29 3d 3d 30 20 29 7b 0a 20 20  T_SAFE)==0 ){.  
39f0: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e      for(i=0; i<n
3a00: 41 72 67 20 26 26 20 69 3c 6b 3b 20 69 2b 2b 29  Arg && i<k; i++)
3a10: 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 28 61  {.        if( (a
3a20: 63 54 79 70 65 5b 69 5d 3d 3d 27 73 27 20 7c 7c  cType[i]=='s' ||
3a30: 20 61 63 54 79 70 65 5b 69 5d 3d 3d 27 7a 27 20   acType[i]=='z' 
3a40: 7c 7c 20 61 63 54 79 70 65 5b 69 5d 3d 3d 27 62  || acType[i]=='b
3a50: 27 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  ') ){.          
3a60: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 45 78 70  const char *zExp
3a70: 72 20 3d 20 61 7a 41 72 67 5b 66 6d 74 41 72 67  r = azArg[fmtArg
3a80: 2b 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 69  +i];.          i
3a90: 66 28 20 6e 65 76 65 72 5f 73 61 66 65 28 7a 45  f( never_safe(zE
3aa0: 78 70 72 29 20 29 7b 0a 20 20 20 20 20 20 20 20  xpr) ){.        
3ab0: 20 20 20 20 70 72 69 6e 74 66 28 22 25 73 3a 25      printf("%s:%
3ac0: 64 3a 20 41 72 67 75 6d 65 6e 74 20 25 64 20 74  d: Argument %d t
3ad0: 6f 20 25 2e 2a 73 28 29 20 69 73 20 6e 6f 74 20  o %.*s() is not 
3ae0: 73 61 66 65 20 66 6f 72 22 0a 20 20 20 20 20 20  safe for".      
3af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 61               " a
3b00: 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72   query parameter
3b10: 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20  \n",.           
3b20: 20 20 20 20 7a 46 69 6c 65 6e 61 6d 65 2c 20 6c      zFilename, l
3b30: 6e 46 43 61 6c 6c 2c 20 69 2b 66 6d 74 41 72 67  nFCall, i+fmtArg
3b40: 2c 20 73 7a 46 4e 61 6d 65 2c 20 7a 46 43 61 6c  , szFName, zFCal
3b50: 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  l);.            
3b60: 20 6e 45 72 72 2b 2b 3b 0a 20 20 20 0a 20 20 20   nErr++;.   .   
3b70: 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28         }else if(
3b80: 20 28 66 6d 74 46 6c 61 67 73 20 26 20 46 4d 54   (fmtFlags & FMT
3b90: 5f 53 51 4c 29 21 3d 30 20 26 26 20 21 69 73 5f  _SQL)!=0 && !is_
3ba0: 73 71 6c 5f 73 61 66 65 28 7a 45 78 70 72 29 20  sql_safe(zExpr) 
3bb0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70  ){.            p
3bc0: 72 69 6e 74 66 28 22 25 73 3a 25 64 3a 20 41 72  rintf("%s:%d: Ar
3bd0: 67 75 6d 65 6e 74 20 25 64 20 74 6f 20 25 2e 2a  gument %d to %.*
3be0: 73 28 29 20 6e 6f 74 20 73 61 66 65 20 66 6f 72  s() not safe for
3bf0: 20 53 51 4c 5c 6e 22 2c 0a 20 20 20 20 20 20 20   SQL\n",.       
3c00: 20 20 20 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d          zFilenam
3c10: 65 2c 20 6c 6e 46 43 61 6c 6c 2c 20 69 2b 66 6d  e, lnFCall, i+fm
3c20: 74 41 72 67 2c 20 73 7a 46 4e 61 6d 65 2c 20 7a  tArg, szFName, z
3c30: 46 43 61 6c 6c 29 3b 0a 20 20 20 20 20 20 20 20  FCall);.        
3c40: 20 20 20 20 20 6e 45 72 72 2b 2b 3b 0a 20 20 20       nErr++;.   
3c50: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
3c60: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d   }.      }.    }
3c70: 0a 20 20 7d 0a 20 20 69 66 28 20 6e 45 72 72 20  .  }.  if( nErr 
3c80: 29 7b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20  ){.    for(i=0; 
3c90: 69 3c 6e 41 72 67 3b 20 69 2b 2b 29 7b 0a 20 20  i<nArg; i++){.  
3ca0: 20 20 20 20 70 72 69 6e 74 66 28 22 20 20 20 61      printf("   a
3cb0: 72 67 5b 25 64 5d 3a 20 25 73 5c 6e 22 2c 20 69  rg[%d]: %s\n", i
3cc0: 2c 20 61 7a 41 72 67 5b 69 5d 29 3b 0a 20 20 20  , azArg[i]);.   
3cd0: 20 7d 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 65   }.  }else if( e
3ce0: 56 65 72 62 6f 73 65 3e 31 20 29 7b 0a 20 20 20  Verbose>1 ){.   
3cf0: 20 70 72 69 6e 74 66 28 22 25 73 3a 25 64 3a 20   printf("%s:%d: 
3d00: 25 2e 2a 73 28 29 20 6f 6b 20 66 6f 72 20 25 64  %.*s() ok for %d
3d10: 20 61 72 67 75 6d 65 6e 74 73 5c 6e 22 2c 0a 20   arguments\n",. 
3d20: 20 20 20 20 20 7a 46 69 6c 65 6e 61 6d 65 2c 20       zFilename, 
3d30: 6c 6e 46 43 61 6c 6c 2c 20 73 7a 46 4e 61 6d 65  lnFCall, szFName
3d40: 2c 20 7a 46 43 61 6c 6c 2c 20 6e 41 72 67 29 3b  , zFCall, nArg);
3d50: 0a 20 20 7d 0a 20 20 66 72 65 65 28 28 63 68 61  .  }.  free((cha
3d60: 72 2a 29 61 7a 41 72 67 29 3b 0a 20 20 66 72 65  r*)azArg);.  fre
3d70: 65 28 7a 43 6f 70 79 29 3b 0a 20 20 72 65 74 75  e(zCopy);.  retu
3d80: 72 6e 20 6e 45 72 72 3b 0a 7d 0a 0a 0a 2f 2a 0a  rn nErr;.}.../*.
3d90: 2a 2a 20 44 6f 20 61 20 64 65 73 69 67 6e 2d 72  ** Do a design-r
3da0: 75 6c 65 20 63 68 65 63 6b 20 6f 66 20 66 6f 72  ule check of for
3db0: 6d 61 74 20 73 74 72 69 6e 67 73 20 66 6f 72 20  mat strings for 
3dc0: 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 64 20 7a  the file named z
3dd0: 4e 61 6d 65 0a 2a 2a 20 77 69 74 68 20 63 6f 6e  Name.** with con
3de0: 74 65 6e 74 20 7a 43 6f 6e 74 65 6e 74 2e 20 20  tent zContent.  
3df0: 57 72 69 74 65 20 65 72 72 6f 72 73 20 6f 6e 20  Write errors on 
3e00: 73 74 61 6e 64 61 72 64 20 6f 75 74 70 75 74 2e  standard output.
3e10: 20 20 52 65 74 75 72 6e 0a 2a 2a 20 74 68 65 20    Return.** the 
3e20: 6e 75 6d 62 65 72 20 6f 66 20 65 72 72 6f 72 73  number of errors
3e30: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
3e40: 73 63 61 6e 5f 66 69 6c 65 28 63 6f 6e 73 74 20  scan_file(const 
3e50: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 6f 6e  char *zName, con
3e60: 73 74 20 63 68 61 72 20 2a 7a 43 6f 6e 74 65 6e  st char *zConten
3e70: 74 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  t){.  const char
3e80: 20 2a 7a 3b 0a 20 20 69 6e 74 20 6c 6e 20 3d 20   *z;.  int ln = 
3e90: 30 3b 0a 20 20 69 6e 74 20 73 7a 54 6f 6b 65 6e  0;.  int szToken
3ea0: 3b 0a 20 20 69 6e 74 20 65 54 6f 6b 65 6e 3b 0a  ;.  int eToken;.
3eb0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50    const char *zP
3ec0: 72 65 76 20 3d 20 30 3b 0a 20 20 69 6e 74 20 65  rev = 0;.  int e
3ed0: 50 72 65 76 20 3d 20 30 3b 0a 20 20 69 6e 74 20  Prev = 0;.  int 
3ee0: 73 7a 50 72 65 76 20 3d 20 30 3b 0a 20 20 69 6e  szPrev = 0;.  in
3ef0: 74 20 6c 6e 50 72 65 76 20 3d 20 30 3b 0a 20 20  t lnPrev = 0;.  
3f00: 69 6e 74 20 6e 43 75 72 6c 79 20 3d 20 30 3b 0a  int nCurly = 0;.
3f10: 20 20 69 6e 74 20 78 3b 0a 20 20 75 6e 73 69 67    int x;.  unsig
3f20: 6e 65 64 20 66 6d 74 46 6c 61 67 73 20 3d 20 30  ned fmtFlags = 0
3f30: 3b 0a 20 20 69 6e 74 20 6e 45 72 72 20 3d 20 30  ;.  int nErr = 0
3f40: 3b 0a 0a 20 20 69 66 28 20 7a 43 6f 6e 74 65 6e  ;..  if( zConten
3f50: 74 3d 3d 30 20 29 7b 0a 20 20 20 20 70 72 69 6e  t==0 ){.    prin
3f60: 74 66 28 22 63 61 6e 6e 6f 74 20 72 65 61 64 20  tf("cannot read 
3f70: 66 69 6c 65 3a 20 25 73 5c 6e 22 2c 20 7a 4e 61  file: %s\n", zNa
3f80: 6d 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  me);.    return 
3f90: 31 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 7a 3d 7a  1;.  }.  for(z=z
3fa0: 43 6f 6e 74 65 6e 74 3b 20 7a 5b 30 5d 3b 20 7a  Content; z[0]; z
3fb0: 20 2b 3d 20 73 7a 54 6f 6b 65 6e 29 7b 0a 20 20   += szToken){.  
3fc0: 20 20 73 7a 54 6f 6b 65 6e 20 3d 20 74 6f 6b 65    szToken = toke
3fd0: 6e 5f 6c 65 6e 67 74 68 28 7a 2c 20 26 65 54 6f  n_length(z, &eTo
3fe0: 6b 65 6e 2c 20 26 6c 6e 29 3b 0a 20 20 20 20 69  ken, &ln);.    i
3ff0: 66 28 20 65 54 6f 6b 65 6e 3d 3d 54 4b 5f 53 50  f( eToken==TK_SP
4000: 41 43 45 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a  ACE ) continue;.
4010: 20 20 20 20 69 66 28 20 65 54 6f 6b 65 6e 3d 3d      if( eToken==
4020: 54 4b 5f 4f 54 48 45 52 20 29 7b 0a 20 20 20 20  TK_OTHER ){.    
4030: 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 7b 27 20    if( z[0]=='{' 
4040: 29 7b 0a 20 20 20 20 20 20 20 20 6e 43 75 72 6c  ){.        nCurl
4050: 79 2b 2b 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65  y++;.      }else
4060: 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 7d 27 20 29   if( z[0]=='}' )
4070: 7b 0a 20 20 20 20 20 20 20 20 6e 43 75 72 6c 79  {.        nCurly
4080: 2d 2d 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20  --;.      }else 
4090: 69 66 28 20 6e 43 75 72 6c 79 3e 30 20 26 26 20  if( nCurly>0 && 
40a0: 7a 5b 30 5d 3d 3d 27 28 27 20 26 26 20 65 50 72  z[0]=='(' && ePr
40b0: 65 76 3d 3d 54 4b 5f 49 44 0a 20 20 20 20 20 20  ev==TK_ID.      
40c0: 20 20 20 20 20 20 26 26 20 28 78 20 3d 20 69 73        && (x = is
40d0: 46 6f 72 6d 61 74 46 75 6e 63 28 7a 50 72 65 76  FormatFunc(zPrev
40e0: 2c 73 7a 50 72 65 76 2c 26 66 6d 74 46 6c 61 67  ,szPrev,&fmtFlag
40f0: 73 29 29 3e 30 20 29 7b 0a 20 20 20 20 20 20 20  s))>0 ){.       
4100: 20 6e 45 72 72 20 2b 3d 20 63 68 65 63 6b 46 6f   nErr += checkFo
4110: 72 6d 61 74 46 75 6e 63 28 7a 4e 61 6d 65 2c 20  rmatFunc(zName, 
4120: 7a 50 72 65 76 2c 20 6c 6e 50 72 65 76 2c 20 78  zPrev, lnPrev, x
4130: 2c 20 66 6d 74 46 6c 61 67 73 29 3b 0a 20 20 20  , fmtFlags);.   
4140: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 7a     }.    }.    z
4150: 50 72 65 76 20 3d 20 7a 3b 0a 20 20 20 20 65 50  Prev = z;.    eP
4160: 72 65 76 20 3d 20 65 54 6f 6b 65 6e 3b 0a 20 20  rev = eToken;.  
4170: 20 20 73 7a 50 72 65 76 20 3d 20 73 7a 54 6f 6b    szPrev = szTok
4180: 65 6e 3b 0a 20 20 20 20 6c 6e 50 72 65 76 20 3d  en;.    lnPrev =
4190: 20 6c 6e 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72   ln;.  }.  retur
41a0: 6e 20 6e 45 72 72 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  n nErr;.}../*.**
41b0: 20 43 68 65 63 6b 20 66 6f 72 20 66 6f 72 6d 61   Check for forma
41c0: 74 2d 73 74 72 69 6e 67 20 64 65 73 69 67 6e 20  t-string design 
41d0: 72 75 6c 65 20 76 69 6f 6c 61 74 69 6f 6e 73 20  rule violations 
41e0: 6f 6e 20 61 6c 6c 20 66 69 6c 65 73 20 6c 69 73  on all files lis
41f0: 74 65 64 0a 2a 2a 20 6f 6e 20 74 68 65 20 63 6f  ted.** on the co
4200: 6d 6d 61 6e 64 2d 6c 69 6e 65 2e 0a 2a 2a 0a 2a  mmand-line..**.*
4210: 2a 20 54 68 65 20 65 56 65 72 62 6f 73 65 20 67  * The eVerbose g
4220: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 69  lobal variable i
4230: 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 20 77 69  s incremented wi
4240: 74 68 20 65 61 63 68 20 22 2d 76 22 20 61 72 67  th each "-v" arg
4250: 75 6d 65 6e 74 2e 0a 2a 2f 0a 69 6e 74 20 6d 61  ument..*/.int ma
4260: 69 6e 28 69 6e 74 20 61 72 67 63 2c 20 63 68 61  in(int argc, cha
4270: 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 6e 74  r **argv){.  int
4280: 20 69 3b 0a 20 20 69 6e 74 20 6e 45 72 72 20 3d   i;.  int nErr =
4290: 20 30 3b 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69   0;.  for(i=1; i
42a0: 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20  <argc; i++){.   
42b0: 20 63 68 61 72 20 2a 7a 46 69 6c 65 3b 0a 20 20   char *zFile;.  
42c0: 20 20 69 66 28 20 73 74 72 63 6d 70 28 61 72 67    if( strcmp(arg
42d0: 76 5b 69 5d 2c 22 2d 76 22 29 3d 3d 30 20 29 7b  v[i],"-v")==0 ){
42e0: 0a 20 20 20 20 20 20 65 56 65 72 62 6f 73 65 2b  .      eVerbose+
42f0: 2b 3b 0a 20 20 20 20 20 20 63 6f 6e 74 69 6e 75  +;.      continu
4300: 65 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28  e;.    }.    if(
4310: 20 65 56 65 72 62 6f 73 65 3e 30 20 29 20 70 72   eVerbose>0 ) pr
4320: 69 6e 74 66 28 22 50 72 6f 63 65 73 73 69 6e 67  intf("Processing
4330: 20 25 73 2e 2e 2e 5c 6e 22 2c 20 61 72 67 76 5b   %s...\n", argv[
4340: 69 5d 29 3b 0a 20 20 20 20 7a 46 69 6c 65 20 3d  i]);.    zFile =
4350: 20 72 65 61 64 5f 66 69 6c 65 28 61 72 67 76 5b   read_file(argv[
4360: 69 5d 29 3b 0a 20 20 20 20 6e 45 72 72 20 2b 3d  i]);.    nErr +=
4370: 20 73 63 61 6e 5f 66 69 6c 65 28 61 72 67 76 5b   scan_file(argv[
4380: 69 5d 2c 20 7a 46 69 6c 65 29 3b 0a 20 20 20 20  i], zFile);.    
4390: 66 72 65 65 28 7a 46 69 6c 65 29 3b 0a 20 20 7d  free(zFile);.  }
43a0: 0a 20 20 72 65 74 75 72 6e 20 6e 45 72 72 3b 0a  .  return nErr;.
43b0: 7d 0a                                            }.