0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20 /*.** Copyright
0010: 28 63 29 20 32 30 30 36 20 44 2e 20 52 69 63 68 (c) 2006 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54 ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20 te it and/or.**
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 modify it under
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 the terms of the
0090: 20 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 0a 2a 2a 20 54 68 69 73 ense".)..** This
00f0: 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 program is dist
0100: 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 ributed in the h
0110: 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c ope that it will
0120: 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 62 be useful,.** b
0130: 75 74 20 77 69 74 68 6f 75 74 20 61 6e 79 20 77 ut without any w
0140: 61 72 72 61 6e 74 79 3b 20 77 69 74 68 6f 75 74 arranty; without
0150: 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 even the implie
0160: 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 2a 2a d warranty of.**
0170: 20 6d 65 72 63 68 61 6e 74 61 62 69 6c 69 74 79 merchantability
0180: 20 6f 72 20 66 69 74 6e 65 73 73 20 66 6f 72 20 or fitness for
0190: 61 20 70 61 72 74 69 63 75 6c 61 72 20 70 75 72 a particular pur
01a0: 70 6f 73 65 2e 0a 2a 2a 0a 2a 2a 20 41 75 74 68 pose..**.** Auth
01b0: 6f 72 20 63 6f 6e 74 61 63 74 20 69 6e 66 6f 72 or contact infor
01c0: 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 20 64 72 68 mation:.** drh
01d0: 40 68 77 61 63 69 2e 63 6f 6d 0a 2a 2a 20 20 20 @hwaci.com.**
01e0: 68 74 74 70 3a 2f 2f 77 77 77 2e 68 77 61 63 69 http://www.hwaci
01f0: 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a 0a 2a 2a 2a .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 0a 2a 2a 0a ************.**.
0250: 2a 2a 20 54 68 69 73 20 66 69 6c 65 20 63 6f 6e ** This file con
0260: 74 61 69 6e 73 20 69 6d 70 6c 65 6d 65 6e 74 69 tains implementi
0270: 6f 6e 73 20 6f 66 20 72 6f 75 74 69 6e 65 73 20 ons of routines
0280: 66 6f 72 20 66 6f 72 6d 61 74 74 69 6e 67 20 6f for formatting o
0290: 75 74 70 75 74 0a 2a 2a 20 28 65 78 3a 20 6d 70 utput.** (ex: mp
02a0: 72 69 6e 74 66 28 29 29 20 61 6e 64 20 66 6f 72 rintf()) and for
02b0: 20 6f 75 74 70 75 74 20 74 6f 20 74 68 65 20 63 output to the c
02c0: 6f 6e 73 6f 6c 65 2e 0a 2a 2f 0a 23 69 6e 63 6c onsole..*/.#incl
02d0: 75 64 65 20 22 63 6f 6e 66 69 67 2e 68 22 0a 23 ude "config.h".#
02e0: 69 6e 63 6c 75 64 65 20 22 70 72 69 6e 74 66 2e include "printf.
02f0: 68 22 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f h".#if defined(_
0300: 57 49 4e 33 32 29 0a 23 20 20 20 69 6e 63 6c 75 WIN32).# inclu
0310: 64 65 20 3c 69 6f 2e 68 3e 0a 23 20 20 20 69 6e de <io.h>.# in
0320: 63 6c 75 64 65 20 3c 66 63 6e 74 6c 2e 68 3e 0a clude <fcntl.h>.
0330: 23 65 6e 64 69 66 0a 23 69 6e 63 6c 75 64 65 20 #endif.#include
0340: 3c 74 69 6d 65 2e 68 3e 0a 0a 2f 2a 20 54 77 6f <time.h>../* Two
0350: 20 63 75 73 74 6f 6d 20 63 6f 6e 76 65 72 73 69 custom conversi
0360: 6f 6e 73 20 61 72 65 20 75 73 65 64 20 74 6f 20 ons are used to
0370: 73 68 6f 77 20 61 20 70 72 65 66 69 78 20 6f 66 show a prefix of
0380: 20 61 72 74 69 66 61 63 74 20 68 61 73 68 65 73 artifact hashes
0390: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 25 21 53 :.**.** %!S
03a0: 20 20 20 20 20 20 20 50 72 65 66 69 78 20 6f 66 Prefix of
03b0: 20 61 20 6c 65 6e 67 74 68 20 61 70 70 72 6f 70 a length approp
03c0: 72 69 61 74 65 20 66 6f 72 20 55 52 4c 73 0a 2a riate for URLs.*
03d0: 2a 20 20 20 20 20 20 25 53 20 20 20 20 20 20 20 * %S
03e0: 20 50 72 65 66 69 78 20 6f 66 20 61 20 6c 65 6e Prefix of a len
03f0: 67 74 68 20 61 70 70 72 6f 70 72 69 61 74 65 20 gth appropriate
0400: 66 6f 72 20 68 75 6d 61 6e 20 64 69 73 70 6c 61 for human displa
0410: 79 0a 2a 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c y.**.** The foll
0420: 6f 77 69 6e 67 20 6d 61 63 72 6f 73 20 68 65 6c owing macros hel
0430: 70 20 64 65 74 65 72 6d 69 6e 65 20 74 68 6f 73 p determine thos
0440: 65 20 6c 65 6e 67 74 68 73 2e 20 20 46 4f 53 53 e lengths. FOSS
0450: 49 4c 5f 48 41 53 48 5f 44 49 47 49 54 53 0a 2a IL_HASH_DIGITS.*
0460: 2a 20 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 * is the default
0470: 20 6e 75 6d 62 65 72 20 6f 66 20 64 69 67 69 74 number of digit
0480: 73 20 74 6f 20 64 69 73 70 6c 61 79 20 74 6f 20 s to display to
0490: 68 75 6d 61 6e 73 2e 20 20 54 68 69 73 20 76 61 humans. This va
04a0: 6c 75 65 20 63 61 6e 0a 2a 2a 20 62 65 20 6f 76 lue can.** be ov
04b0: 65 72 72 69 64 64 65 6e 20 75 73 69 6e 67 20 74 erridden using t
04c0: 68 65 20 68 61 73 68 2d 64 69 67 69 74 73 20 73 he hash-digits s
04d0: 65 74 74 69 6e 67 2e 20 20 46 4f 53 53 49 4c 5f etting. FOSSIL_
04e0: 48 41 53 48 5f 44 49 47 49 54 53 5f 55 52 4c 0a HASH_DIGITS_URL.
04f0: 2a 2a 20 69 73 20 74 68 65 20 6d 69 6e 69 6d 75 ** is the minimu
0500: 6d 20 6e 75 6d 62 65 72 20 6f 66 20 64 69 67 69 m number of digi
0510: 74 73 20 74 6f 20 62 65 20 75 73 65 64 20 69 6e ts to be used in
0520: 20 55 52 4c 73 2e 20 20 54 68 65 20 6e 75 6d 62 URLs. The numb
0530: 65 72 20 75 73 65 64 0a 2a 2a 20 77 69 6c 6c 20 er used.** will
0540: 61 6c 77 61 79 73 20 62 65 20 61 74 20 6c 65 61 always be at lea
0550: 73 74 20 36 20 6d 6f 72 65 20 74 68 61 6e 20 74 st 6 more than t
0560: 68 65 20 6e 75 6d 62 65 72 20 75 73 65 64 20 66 he number used f
0570: 6f 72 20 68 75 6d 61 6e 20 6f 75 74 70 75 74 2c or human output,
0580: 0a 2a 2a 20 6f 72 20 48 4e 41 4d 45 5f 4d 41 58 .** or HNAME_MAX
0590: 2c 20 77 68 69 63 68 65 76 65 72 20 69 73 20 6c , whichever is l
05a0: 65 61 73 74 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 east..*/.#ifndef
05b0: 20 46 4f 53 53 49 4c 5f 48 41 53 48 5f 44 49 47 FOSSIL_HASH_DIG
05c0: 49 54 53 0a 23 20 64 65 66 69 6e 65 20 46 4f 53 ITS.# define FOS
05d0: 53 49 4c 5f 48 41 53 48 5f 44 49 47 49 54 53 20 SIL_HASH_DIGITS
05e0: 31 30 20 20 20 20 20 20 20 2f 2a 20 46 6f 72 20 10 /* For
05f0: 25 53 20 28 68 75 6d 61 6e 20 64 69 73 70 6c 61 %S (human displa
0600: 79 29 20 2a 2f 0a 23 65 6e 64 69 66 0a 23 69 66 y) */.#endif.#if
0610: 6e 64 65 66 20 46 4f 53 53 49 4c 5f 48 41 53 48 ndef FOSSIL_HASH
0620: 5f 44 49 47 49 54 53 5f 55 52 4c 0a 23 20 64 65 _DIGITS_URL.# de
0630: 66 69 6e 65 20 46 4f 53 53 49 4c 5f 48 41 53 48 fine FOSSIL_HASH
0640: 5f 44 49 47 49 54 53 5f 55 52 4c 20 31 36 20 20 _DIGITS_URL 16
0650: 20 2f 2a 20 46 6f 72 20 25 21 53 20 28 65 6d 62 /* For %!S (emb
0660: 65 64 64 65 64 20 69 6e 20 55 52 4c 73 29 20 2a edded in URLs) *
0670: 2f 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 /.#endif../*.**
0680: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
0690: 72 20 6f 66 20 61 72 74 69 66 61 63 74 20 68 61 r of artifact ha
06a0: 73 68 20 64 69 67 69 74 73 20 74 6f 20 64 69 73 sh digits to dis
06b0: 70 6c 61 79 2e 20 20 54 68 65 20 6e 75 6d 62 65 play. The numbe
06c0: 72 20 69 73 20 66 6f 72 0a 2a 2a 20 68 75 6d 61 r is for.** huma
06d0: 6e 20 6f 75 74 70 75 74 20 69 66 20 74 68 65 20 n output if the
06e0: 62 46 6f 72 55 72 6c 20 69 73 20 66 61 6c 73 65 bForUrl is false
06f0: 20 61 6e 64 20 69 73 20 64 65 73 74 69 6e 65 64 and is destined
0700: 20 66 6f 72 20 61 20 55 52 4c 20 69 66 0a 2a 2a for a URL if.**
0710: 20 62 46 6f 72 55 72 6c 20 69 73 20 66 61 6c 73 bForUrl is fals
0720: 65 2e 0a 2a 2f 0a 69 6e 74 20 68 61 73 68 5f 64 e..*/.int hash_d
0730: 69 67 69 74 73 28 69 6e 74 20 62 46 6f 72 55 72 igits(int bForUr
0740: 6c 29 7b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 l){. static int
0750: 20 6e 44 69 67 69 74 48 75 6d 61 6e 20 3d 20 30 nDigitHuman = 0
0760: 3b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 20 6e ;. static int n
0770: 44 69 67 69 74 55 72 6c 20 3d 20 30 3b 0a 20 20 DigitUrl = 0;.
0780: 69 66 28 20 6e 44 69 67 69 74 48 75 6d 61 6e 3d if( nDigitHuman=
0790: 3d 30 20 29 7b 0a 20 20 20 20 6e 44 69 67 69 74 =0 ){. nDigit
07a0: 48 75 6d 61 6e 20 3d 20 64 62 5f 67 65 74 5f 69 Human = db_get_i
07b0: 6e 74 28 22 68 61 73 68 2d 64 69 67 69 74 73 22 nt("hash-digits"
07c0: 2c 20 46 4f 53 53 49 4c 5f 48 41 53 48 5f 44 49 , FOSSIL_HASH_DI
07d0: 47 49 54 53 29 3b 0a 20 20 20 20 69 66 28 20 6e GITS);. if( n
07e0: 44 69 67 69 74 48 75 6d 61 6e 20 3c 20 36 20 29 DigitHuman < 6 )
07f0: 20 6e 44 69 67 69 74 48 75 6d 61 6e 20 3d 20 36 nDigitHuman = 6
0800: 3b 0a 20 20 20 20 69 66 28 20 6e 44 69 67 69 74 ;. if( nDigit
0810: 48 75 6d 61 6e 20 3e 20 48 4e 41 4d 45 5f 4d 41 Human > HNAME_MA
0820: 58 20 29 20 6e 44 69 67 69 74 48 75 6d 61 6e 20 X ) nDigitHuman
0830: 3d 20 48 4e 41 4d 45 5f 4d 41 58 3b 0a 20 20 20 = HNAME_MAX;.
0840: 20 6e 44 69 67 69 74 55 72 6c 20 3d 20 6e 44 69 nDigitUrl = nDi
0850: 67 69 74 48 75 6d 61 6e 20 2b 20 36 3b 0a 20 20 gitHuman + 6;.
0860: 20 20 69 66 28 20 6e 44 69 67 69 74 55 72 6c 20 if( nDigitUrl
0870: 3c 20 46 4f 53 53 49 4c 5f 48 41 53 48 5f 44 49 < FOSSIL_HASH_DI
0880: 47 49 54 53 5f 55 52 4c 20 29 20 6e 44 69 67 69 GITS_URL ) nDigi
0890: 74 55 72 6c 20 3d 20 46 4f 53 53 49 4c 5f 48 41 tUrl = FOSSIL_HA
08a0: 53 48 5f 44 49 47 49 54 53 5f 55 52 4c 3b 0a 20 SH_DIGITS_URL;.
08b0: 20 20 20 69 66 28 20 6e 44 69 67 69 74 55 72 6c if( nDigitUrl
08c0: 20 3e 20 48 4e 41 4d 45 5f 4d 41 58 20 29 20 6e > HNAME_MAX ) n
08d0: 44 69 67 69 74 55 72 6c 20 3d 20 48 4e 41 4d 45 DigitUrl = HNAME
08e0: 5f 4d 41 58 3b 0a 20 20 7d 0a 20 20 72 65 74 75 _MAX;. }. retu
08f0: 72 6e 20 62 46 6f 72 55 72 6c 20 3f 20 6e 44 69 rn bForUrl ? nDi
0900: 67 69 74 55 72 6c 20 3a 20 6e 44 69 67 69 74 48 gitUrl : nDigitH
0910: 75 6d 61 6e 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 uman;.}../*.** R
0920: 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 eturn the number
0930: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 69 of characters i
0940: 6e 20 61 20 25 53 20 6f 75 74 70 75 74 2e 0a 2a n a %S output..*
0950: 2f 0a 69 6e 74 20 6c 65 6e 67 74 68 5f 6f 66 5f /.int length_of_
0960: 53 5f 64 69 73 70 6c 61 79 28 76 6f 69 64 29 7b S_display(void){
0970: 0a 20 20 72 65 74 75 72 6e 20 68 61 73 68 5f 64 . return hash_d
0980: 69 67 69 74 73 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a igits(0);.}../*.
0990: 2a 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 74 79 ** Conversion ty
09a0: 70 65 73 20 66 61 6c 6c 20 69 6e 74 6f 20 76 61 pes fall into va
09b0: 72 69 6f 75 73 20 63 61 74 65 67 6f 72 69 65 73 rious categories
09c0: 20 61 73 20 64 65 66 69 6e 65 64 20 62 79 20 74 as defined by t
09d0: 68 65 0a 2a 2a 20 66 6f 6c 6c 6f 77 69 6e 67 20 he.** following
09e0: 65 6e 75 6d 65 72 61 74 69 6f 6e 2e 0a 2a 2f 0a enumeration..*/.
09f0: 23 64 65 66 69 6e 65 20 65 74 52 41 44 49 58 20 #define etRADIX
0a00: 20 20 20 20 20 20 31 20 2f 2a 20 49 6e 74 65 67 1 /* Integ
0a10: 65 72 20 74 79 70 65 73 2e 20 20 25 64 2c 20 25 er types. %d, %
0a20: 78 2c 20 25 6f 2c 20 61 6e 64 20 73 6f 20 66 6f x, %o, and so fo
0a30: 72 74 68 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 rth */.#define e
0a40: 74 46 4c 4f 41 54 20 20 20 20 20 20 20 32 20 2f tFLOAT 2 /
0a50: 2a 20 46 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 * Floating point
0a60: 2e 20 20 25 66 20 2a 2f 0a 23 64 65 66 69 6e 65 . %f */.#define
0a70: 20 65 74 45 58 50 20 20 20 20 20 20 20 20 20 33 etEXP 3
0a80: 20 2f 2a 20 45 78 70 6f 6e 65 6e 74 69 61 6c 20 /* Exponential
0a90: 6e 6f 74 61 74 69 6f 6e 2e 20 25 65 20 61 6e 64 notation. %e and
0aa0: 20 25 45 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 %E */.#define e
0ab0: 74 47 45 4e 45 52 49 43 20 20 20 20 20 34 20 2f tGENERIC 4 /
0ac0: 2a 20 46 6c 6f 61 74 69 6e 67 20 6f 72 20 65 78 * Floating or ex
0ad0: 70 6f 6e 65 6e 74 69 61 6c 2c 20 64 65 70 65 6e ponential, depen
0ae0: 64 69 6e 67 20 6f 6e 20 65 78 70 6f 6e 65 6e 74 ding on exponent
0af0: 2e 20 25 67 20 2a 2f 0a 23 64 65 66 69 6e 65 20 . %g */.#define
0b00: 65 74 53 49 5a 45 20 20 20 20 20 20 20 20 35 20 etSIZE 5
0b10: 2f 2a 20 52 65 74 75 72 6e 20 6e 75 6d 62 65 72 /* Return number
0b20: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 70 of characters p
0b30: 72 6f 63 65 73 73 65 64 20 73 6f 20 66 61 72 2e rocessed so far.
0b40: 20 25 6e 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 %n */.#define e
0b50: 74 53 54 52 49 4e 47 20 20 20 20 20 20 36 20 2f tSTRING 6 /
0b60: 2a 20 53 74 72 69 6e 67 73 2e 20 25 73 20 2a 2f * Strings. %s */
0b70: 0a 23 64 65 66 69 6e 65 20 65 74 44 59 4e 53 54 .#define etDYNST
0b80: 52 49 4e 47 20 20 20 37 20 2f 2a 20 44 79 6e 61 RING 7 /* Dyna
0b90: 6d 69 63 61 6c 6c 79 20 61 6c 6c 6f 63 61 74 65 mically allocate
0ba0: 64 20 73 74 72 69 6e 67 73 2e 20 25 7a 20 2a 2f d strings. %z */
0bb0: 0a 23 64 65 66 69 6e 65 20 65 74 50 45 52 43 45 .#define etPERCE
0bc0: 4e 54 20 20 20 20 20 38 20 2f 2a 20 50 65 72 63 NT 8 /* Perc
0bd0: 65 6e 74 20 73 79 6d 62 6f 6c 2e 20 25 25 20 2a ent symbol. %% *
0be0: 2f 0a 23 64 65 66 69 6e 65 20 65 74 43 48 41 52 /.#define etCHAR
0bf0: 58 20 20 20 20 20 20 20 39 20 2f 2a 20 43 68 61 X 9 /* Cha
0c00: 72 61 63 74 65 72 73 2e 20 25 63 20 2a 2f 0a 23 racters. %c */.#
0c10: 64 65 66 69 6e 65 20 65 74 45 52 52 4f 52 20 20 define etERROR
0c20: 20 20 20 20 31 30 20 2f 2a 20 55 73 65 64 20 74 10 /* Used t
0c30: 6f 20 69 6e 64 69 63 61 74 65 20 6e 6f 20 73 75 o indicate no su
0c40: 63 68 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 ch conversion ty
0c50: 70 65 20 2a 2f 0a 2f 2a 20 54 68 65 20 72 65 73 pe */./* The res
0c60: 74 20 61 72 65 20 65 78 74 65 6e 73 69 6f 6e 73 t are extensions
0c70: 2c 20 6e 6f 74 20 6e 6f 72 6d 61 6c 6c 79 20 66 , not normally f
0c80: 6f 75 6e 64 20 69 6e 20 70 72 69 6e 74 66 28 29 ound in printf()
0c90: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 42 4c */.#define etBL
0ca0: 4f 42 20 20 20 20 20 20 20 31 31 20 2f 2a 20 42 OB 11 /* B
0cb0: 6c 6f 62 20 6f 62 6a 65 63 74 73 2e 20 20 25 62 lob objects. %b
0cc0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 42 4c */.#define etBL
0cd0: 4f 42 53 51 4c 20 20 20 20 31 32 20 2f 2a 20 42 OBSQL 12 /* B
0ce0: 6c 6f 62 20 6f 62 6a 65 63 74 73 20 71 75 6f 74 lob objects quot
0cf0: 65 64 20 66 6f 72 20 53 51 4c 2e 20 20 25 42 20 ed for SQL. %B
0d00: 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53 51 4c */.#define etSQL
0d10: 45 53 43 41 50 45 20 20 31 33 20 2f 2a 20 53 74 ESCAPE 13 /* St
0d20: 72 69 6e 67 73 20 77 69 74 68 20 27 5c 27 27 20 rings with '\''
0d30: 64 6f 75 62 6c 65 64 2e 20 20 25 71 20 2a 2f 0a doubled. %q */.
0d40: 23 64 65 66 69 6e 65 20 65 74 53 51 4c 45 53 43 #define etSQLESC
0d50: 41 50 45 32 20 31 34 20 2f 2a 20 53 74 72 69 6e APE2 14 /* Strin
0d60: 67 73 20 77 69 74 68 20 27 5c 27 27 20 64 6f 75 gs with '\'' dou
0d70: 62 6c 65 64 20 61 6e 64 20 65 6e 63 6c 6f 73 65 bled and enclose
0d80: 64 20 69 6e 20 27 27 2c 0a 20 20 20 20 20 20 20 d in '',.
0d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0da0: 20 20 20 4e 55 4c 4c 20 70 6f 69 6e 74 65 72 73 NULL pointers
0db0: 20 72 65 70 6c 61 63 65 64 20 62 79 20 53 51 4c replaced by SQL
0dc0: 20 4e 55 4c 4c 2e 20 20 25 51 20 2a 2f 0a 23 64 NULL. %Q */.#d
0dd0: 65 66 69 6e 65 20 65 74 53 51 4c 45 53 43 41 50 efine etSQLESCAP
0de0: 45 33 20 31 35 20 2f 2a 20 44 6f 75 62 6c 65 20 E3 15 /* Double
0df0: 27 22 27 20 63 68 61 72 61 63 74 65 72 73 20 77 '"' characters w
0e00: 69 74 68 69 6e 20 61 6e 20 69 6e 64 65 6e 74 69 ithin an indenti
0e10: 66 69 65 72 2e 20 20 25 77 20 2a 2f 0a 23 64 65 fier. %w */.#de
0e20: 66 69 6e 65 20 65 74 50 4f 49 4e 54 45 52 20 20 fine etPOINTER
0e30: 20 20 31 36 20 2f 2a 20 54 68 65 20 25 70 20 63 16 /* The %p c
0e40: 6f 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 23 64 65 onversion */.#de
0e50: 66 69 6e 65 20 65 74 48 54 4d 4c 49 5a 45 20 20 fine etHTMLIZE
0e60: 20 20 31 37 20 2f 2a 20 4d 61 6b 65 20 74 65 78 17 /* Make tex
0e70: 74 20 73 61 66 65 20 66 6f 72 20 48 54 4d 4c 20 t safe for HTML
0e80: 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 48 54 54 */.#define etHTT
0e90: 50 49 5a 45 20 20 20 20 31 38 20 2f 2a 20 4d 61 PIZE 18 /* Ma
0ea0: 6b 65 20 74 65 78 74 20 73 61 66 65 20 66 6f 72 ke text safe for
0eb0: 20 48 54 54 50 2e 20 20 22 2f 22 20 65 6e 63 6f HTTP. "/" enco
0ec0: 64 65 64 20 61 73 20 25 32 66 20 2a 2f 0a 23 64 ded as %2f */.#d
0ed0: 65 66 69 6e 65 20 65 74 55 52 4c 49 5a 45 20 20 efine etURLIZE
0ee0: 20 20 20 31 39 20 2f 2a 20 4d 61 6b 65 20 74 65 19 /* Make te
0ef0: 78 74 20 73 61 66 65 20 66 6f 72 20 48 54 54 50 xt safe for HTTP
0f00: 2e 20 20 22 2f 22 20 6e 6f 74 20 65 6e 63 6f 64 . "/" not encod
0f10: 65 64 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 ed */.#define et
0f20: 46 4f 53 53 49 4c 49 5a 45 20 20 32 30 20 2f 2a FOSSILIZE 20 /*
0f30: 20 54 68 65 20 66 6f 73 73 69 6c 20 68 65 61 64 The fossil head
0f40: 65 72 20 65 6e 63 6f 64 69 6e 67 20 66 6f 72 6d er encoding form
0f50: 61 74 2e 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 at. */.#define e
0f60: 74 50 41 54 48 20 20 20 20 20 20 20 32 31 20 2f tPATH 21 /
0f70: 2a 20 50 61 74 68 20 74 79 70 65 20 2a 2f 0a 23 * Path type */.#
0f80: 64 65 66 69 6e 65 20 65 74 57 49 4b 49 53 54 52 define etWIKISTR
0f90: 20 20 20 20 32 32 20 2f 2a 20 54 69 6d 65 6c 69 22 /* Timeli
0fa0: 6e 65 20 63 6f 6d 6d 65 6e 74 20 74 65 78 74 20 ne comment text
0fb0: 72 65 6e 64 65 72 65 64 20 66 72 6f 6d 20 61 20 rendered from a
0fc0: 63 68 61 72 2a 3a 20 25 57 20 2a 2f 0a 23 64 65 char*: %W */.#de
0fd0: 66 69 6e 65 20 65 74 53 54 52 49 4e 47 49 44 20 fine etSTRINGID
0fe0: 20 20 32 33 20 2f 2a 20 53 74 72 69 6e 67 20 77 23 /* String w
0ff0: 69 74 68 20 6c 65 6e 67 74 68 20 6c 69 6d 69 74 ith length limit
1000: 20 66 6f 72 20 61 20 68 61 73 68 20 70 72 65 66 for a hash pref
1010: 69 78 3a 20 25 53 20 2a 2f 0a 23 64 65 66 69 6e ix: %S */.#defin
1020: 65 20 65 74 52 4f 4f 54 20 20 20 20 20 20 20 32 e etROOT 2
1030: 34 20 2f 2a 20 53 74 72 69 6e 67 20 76 61 6c 75 4 /* String valu
1040: 65 20 6f 66 20 67 2e 7a 54 6f 70 3a 20 25 52 20 e of g.zTop: %R
1050: 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 4a 53 4f */.#define etJSO
1060: 4e 53 54 52 20 20 20 20 32 35 20 2f 2a 20 53 74 NSTR 25 /* St
1070: 72 69 6e 67 20 65 6e 63 6f 64 65 64 20 61 73 20 ring encoded as
1080: 61 20 4a 53 4f 4e 20 73 74 72 69 6e 67 20 6c 69 a JSON string li
1090: 74 65 72 61 6c 3a 20 25 6a 0a 20 20 20 20 20 20 teral: %j.
10a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10b0: 20 20 20 20 20 55 73 65 20 25 21 6a 20 74 6f 20 Use %!j to
10c0: 69 6e 63 6c 75 64 65 20 64 6f 75 62 6c 65 2d 71 include double-q
10d0: 75 6f 74 65 73 20 61 72 6f 75 6e 64 20 69 74 2e uotes around it.
10e0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53 48 */.#define etSH
10f0: 45 4c 4c 45 53 43 20 20 20 32 36 20 2f 2a 20 45 ELLESC 26 /* E
1100: 73 63 61 70 65 20 61 20 66 69 6c 65 6e 61 6d 65 scape a filename
1110: 20 66 6f 72 20 75 73 65 20 69 6e 20 61 20 73 68 for use in a sh
1120: 65 6c 6c 20 63 6f 6d 6d 61 6e 64 3a 20 25 24 0a ell command: %$.
1130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1140: 20 20 20 20 20 20 20 20 20 20 20 53 65 65 20 62 See b
1150: 6c 6f 62 5f 61 70 70 65 6e 64 5f 65 73 63 61 70 lob_append_escap
1160: 65 64 5f 61 72 67 28 29 20 66 6f 72 20 64 65 74 ed_arg() for det
1170: 61 69 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 ails.
1180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1190: 22 25 24 22 20 20 2d 3e 20 61 64 64 73 20 22 2e "%$" -> adds ".
11a0: 2f 22 20 70 72 65 66 69 78 20 69 66 20 6e 65 63 /" prefix if nec
11b0: 65 73 73 61 72 79 2e 0a 20 20 20 20 20 20 20 20 essary..
11c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11d0: 20 20 20 22 25 21 24 22 20 2d 3e 20 6f 6d 69 74 "%!$" -> omit
11e0: 73 20 74 68 65 20 22 2e 2f 22 20 70 72 65 66 69 s the "./" prefi
11f0: 78 2e 20 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 41 6e x. */.../*.** An
1200: 20 22 65 74 42 79 74 65 22 20 69 73 20 61 6e 20 "etByte" is an
1210: 38 2d 62 69 74 20 75 6e 73 69 67 6e 65 64 20 76 8-bit unsigned v
1220: 61 6c 75 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 alue..*/.typedef
1230: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 65 unsigned char e
1240: 74 42 79 74 65 3b 0a 0a 2f 2a 0a 2a 2a 20 45 61 tByte;../*.** Ea
1250: 63 68 20 62 75 69 6c 74 69 6e 20 63 6f 6e 76 65 ch builtin conve
1260: 72 73 69 6f 6e 20 63 68 61 72 61 63 74 65 72 20 rsion character
1270: 28 65 78 3a 20 74 68 65 20 27 64 27 20 69 6e 20 (ex: the 'd' in
1280: 22 25 64 22 29 20 69 73 20 64 65 73 63 72 69 62 "%d") is describ
1290: 65 64 0a 2a 2a 20 62 79 20 61 6e 20 69 6e 73 74 ed.** by an inst
12a0: 61 6e 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c ance of the foll
12b0: 6f 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 0a owing structure.
12c0: 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 */.typedef struc
12d0: 74 20 65 74 5f 69 6e 66 6f 20 7b 20 20 20 2f 2a t et_info { /*
12e0: 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f Information abo
12f0: 75 74 20 65 61 63 68 20 66 6f 72 6d 61 74 20 66 ut each format f
1300: 69 65 6c 64 20 2a 2f 0a 20 20 63 68 61 72 20 66 ield */. char f
1310: 6d 74 74 79 70 65 3b 20 20 20 20 20 20 20 20 20 mttype;
1320: 20 20 20 2f 2a 20 54 68 65 20 66 6f 72 6d 61 74 /* The format
1330: 20 66 69 65 6c 64 20 63 6f 64 65 20 6c 65 74 74 field code lett
1340: 65 72 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 62 er */. etByte b
1350: 61 73 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 ase;
1360: 20 2f 2a 20 54 68 65 20 62 61 73 65 20 66 6f 72 /* The base for
1370: 20 72 61 64 69 78 20 63 6f 6e 76 65 72 73 69 6f radix conversio
1380: 6e 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c n */. etByte fl
1390: 61 67 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 ags;
13a0: 2f 2a 20 4f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f /* One or more o
13b0: 66 20 46 4c 41 47 5f 20 63 6f 6e 73 74 61 6e 74 f FLAG_ constant
13c0: 73 20 62 65 6c 6f 77 20 2a 2f 0a 20 20 65 74 42 s below */. etB
13d0: 79 74 65 20 74 79 70 65 3b 20 20 20 20 20 20 20 yte type;
13e0: 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73 /* Convers
13f0: 69 6f 6e 20 70 61 72 61 64 69 67 6d 20 2a 2f 0a ion paradigm */.
1400: 20 20 65 74 42 79 74 65 20 63 68 61 72 73 65 74 etByte charset
1410: 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 66 ; /* Of
1420: 66 73 65 74 20 69 6e 74 6f 20 61 44 69 67 69 74 fset into aDigit
1430: 73 5b 5d 20 6f 66 20 74 68 65 20 64 69 67 69 74 s[] of the digit
1440: 73 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 65 74 s string */. et
1450: 42 79 74 65 20 70 72 65 66 69 78 3b 20 20 20 20 Byte prefix;
1460: 20 20 20 20 20 20 20 2f 2a 20 4f 66 66 73 65 74 /* Offset
1470: 20 69 6e 74 6f 20 61 50 72 65 66 69 78 5b 5d 20 into aPrefix[]
1480: 6f 66 20 74 68 65 20 70 72 65 66 69 78 20 73 74 of the prefix st
1490: 72 69 6e 67 20 2a 2f 0a 7d 20 65 74 5f 69 6e 66 ring */.} et_inf
14a0: 6f 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c 6f 77 65 o;../*.** Allowe
14b0: 64 20 76 61 6c 75 65 73 20 66 6f 72 20 65 74 5f d values for et_
14c0: 69 6e 66 6f 2e 66 6c 61 67 73 0a 2a 2f 0a 23 64 info.flags.*/.#d
14d0: 65 66 69 6e 65 20 46 4c 41 47 5f 53 49 47 4e 45 efine FLAG_SIGNE
14e0: 44 20 20 31 20 20 20 20 20 2f 2a 20 54 72 75 65 D 1 /* True
14f0: 20 69 66 20 74 68 65 20 76 61 6c 75 65 20 74 6f if the value to
1500: 20 63 6f 6e 76 65 72 74 20 69 73 20 73 69 67 6e convert is sign
1510: 65 64 20 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4c ed */.#define FL
1520: 41 47 5f 49 4e 54 45 52 4e 20 20 32 20 20 20 20 AG_INTERN 2
1530: 20 2f 2a 20 54 72 75 65 20 69 66 20 66 6f 72 20 /* True if for
1540: 69 6e 74 65 72 6e 61 6c 20 75 73 65 20 6f 6e 6c internal use onl
1550: 79 20 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4c 41 y */.#define FLA
1560: 47 5f 53 54 52 49 4e 47 20 20 34 20 20 20 20 20 G_STRING 4
1570: 2f 2a 20 41 6c 6c 6f 77 20 69 6e 66 69 6e 69 74 /* Allow infinit
1580: 79 20 70 72 65 63 69 73 69 6f 6e 20 2a 2f 0a 0a y precision */..
1590: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f ./*.** The follo
15a0: 77 69 6e 67 20 74 61 62 6c 65 20 69 73 20 73 65 wing table is se
15b0: 61 72 63 68 65 64 20 6c 69 6e 65 61 72 6c 79 2c arched linearly,
15c0: 20 73 6f 20 69 74 20 69 73 20 67 6f 6f 64 20 74 so it is good t
15d0: 6f 20 70 75 74 20 74 68 65 0a 2a 2a 20 6d 6f 73 o put the.** mos
15e0: 74 20 66 72 65 71 75 65 6e 74 6c 79 20 75 73 65 t frequently use
15f0: 64 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70 d conversion typ
1600: 65 73 20 66 69 72 73 74 2e 0a 2a 2a 0a 2a 2a 20 es first..**.**
1610: 4e 42 3a 20 57 68 65 6e 20 6d 6f 64 69 66 79 69 NB: When modifyi
1620: 6e 67 20 74 68 69 73 20 74 61 62 6c 65 20 69 73 ng this table is
1630: 20 69 74 20 76 69 74 61 6c 20 74 68 61 74 20 79 it vital that y
1640: 6f 75 20 61 6c 73 6f 20 75 70 64 61 74 65 20 74 ou also update t
1650: 68 65 20 66 6d 74 63 68 72 5b 5d 0a 2a 2a 20 76 he fmtchr[].** v
1660: 61 72 69 61 62 6c 65 20 74 6f 20 6d 61 74 63 68 ariable to match
1670: 21 21 21 0a 2a 2f 0a 73 74 61 74 69 63 20 63 6f !!!.*/.static co
1680: 6e 73 74 20 63 68 61 72 20 61 44 69 67 69 74 73 nst char aDigits
1690: 5b 5d 20 3d 20 22 30 31 32 33 34 35 36 37 38 39 [] = "0123456789
16a0: 41 42 43 44 45 46 30 31 32 33 34 35 36 37 38 39 ABCDEF0123456789
16b0: 61 62 63 64 65 66 22 3b 0a 73 74 61 74 69 63 20 abcdef";.static
16c0: 63 6f 6e 73 74 20 63 68 61 72 20 61 50 72 65 66 const char aPref
16d0: 69 78 5b 5d 20 3d 20 22 2d 78 30 5c 30 30 30 58 ix[] = "-x0\000X
16e0: 30 22 3b 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 0";.static const
16f0: 20 63 68 61 72 20 66 6d 74 63 68 72 5b 5d 20 3d char fmtchr[] =
1700: 20 22 64 73 67 7a 71 51 62 42 57 68 52 74 54 77 "dsgzqQbBWhRtTw
1710: 46 53 6a 63 6f 75 78 58 66 65 45 47 69 6e 25 70 FSjcouxXfeEGin%p
1720: 2f 24 22 3b 0a 73 74 61 74 69 63 20 63 6f 6e 73 /$";.static cons
1730: 74 20 65 74 5f 69 6e 66 6f 20 66 6d 74 69 6e 66 t et_info fmtinf
1740: 6f 5b 5d 20 3d 20 7b 0a 20 20 7b 20 20 27 64 27 o[] = {. { 'd'
1750: 2c 20 31 30 2c 20 31 2c 20 65 74 52 41 44 49 58 , 10, 1, etRADIX
1760: 2c 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a , 0, 0 },.
1770: 20 20 7b 20 20 27 73 27 2c 20 20 30 2c 20 34 2c { 's', 0, 4,
1780: 20 65 74 53 54 52 49 4e 47 2c 20 20 20 20 20 30 etSTRING, 0
1790: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 67 27 , 0 },. { 'g'
17a0: 2c 20 20 30 2c 20 31 2c 20 65 74 47 45 4e 45 52 , 0, 1, etGENER
17b0: 49 43 2c 20 20 20 20 33 30 2c 20 30 20 7d 2c 0a IC, 30, 0 },.
17c0: 20 20 7b 20 20 27 7a 27 2c 20 20 30 2c 20 36 2c { 'z', 0, 6,
17d0: 20 65 74 44 59 4e 53 54 52 49 4e 47 2c 20 20 30 etDYNSTRING, 0
17e0: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 71 27 , 0 },. { 'q'
17f0: 2c 20 20 30 2c 20 34 2c 20 65 74 53 51 4c 45 53 , 0, 4, etSQLES
1800: 43 41 50 45 2c 20 20 30 2c 20 20 30 20 7d 2c 0a CAPE, 0, 0 },.
1810: 20 20 7b 20 20 27 51 27 2c 20 20 30 2c 20 34 2c { 'Q', 0, 4,
1820: 20 65 74 53 51 4c 45 53 43 41 50 45 32 2c 20 30 etSQLESCAPE2, 0
1830: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 62 27 , 0 },. { 'b'
1840: 2c 20 20 30 2c 20 32 2c 20 65 74 42 4c 4f 42 2c , 0, 2, etBLOB,
1850: 20 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 0, 0 },.
1860: 20 20 7b 20 20 27 42 27 2c 20 20 30 2c 20 32 2c { 'B', 0, 2,
1870: 20 65 74 42 4c 4f 42 53 51 4c 2c 20 20 20 20 30 etBLOBSQL, 0
1880: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 57 27 , 0 },. { 'W'
1890: 2c 20 20 30 2c 20 32 2c 20 65 74 57 49 4b 49 53 , 0, 2, etWIKIS
18a0: 54 52 2c 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a TR, 0, 0 },.
18b0: 20 20 7b 20 20 27 68 27 2c 20 20 30 2c 20 34 2c { 'h', 0, 4,
18c0: 20 65 74 48 54 4d 4c 49 5a 45 2c 20 20 20 20 30 etHTMLIZE, 0
18d0: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 52 27 , 0 },. { 'R'
18e0: 2c 20 20 30 2c 20 30 2c 20 65 74 52 4f 4f 54 2c , 0, 0, etROOT,
18f0: 20 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 0, 0 },.
1900: 20 20 7b 20 20 27 74 27 2c 20 20 30 2c 20 34 2c { 't', 0, 4,
1910: 20 65 74 48 54 54 50 49 5a 45 2c 20 20 20 20 30 etHTTPIZE, 0
1920: 2c 20 20 30 20 7d 2c 20 20 2f 2a 20 22 2f 22 20 , 0 }, /* "/"
1930: 2d 3e 20 22 25 32 46 22 20 2a 2f 0a 20 20 7b 20 -> "%2F" */. {
1940: 20 27 54 27 2c 20 20 30 2c 20 34 2c 20 65 74 55 'T', 0, 4, etU
1950: 52 4c 49 5a 45 2c 20 20 20 20 20 30 2c 20 20 30 RLIZE, 0, 0
1960: 20 7d 2c 20 20 2f 2a 20 22 2f 22 20 75 6e 63 68 }, /* "/" unch
1970: 61 6e 67 65 64 20 2a 2f 0a 20 20 7b 20 20 27 77 anged */. { 'w
1980: 27 2c 20 20 30 2c 20 34 2c 20 65 74 53 51 4c 45 ', 0, 4, etSQLE
1990: 53 43 41 50 45 33 2c 20 30 2c 20 20 30 20 7d 2c SCAPE3, 0, 0 },
19a0: 0a 20 20 7b 20 20 27 46 27 2c 20 20 30 2c 20 34 . { 'F', 0, 4
19b0: 2c 20 65 74 46 4f 53 53 49 4c 49 5a 45 2c 20 20 , etFOSSILIZE,
19c0: 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 53 0, 0 },. { 'S
19d0: 27 2c 20 20 30 2c 20 34 2c 20 65 74 53 54 52 49 ', 0, 4, etSTRI
19e0: 4e 47 49 44 2c 20 20 20 30 2c 20 20 30 20 7d 2c NGID, 0, 0 },
19f0: 0a 20 20 7b 20 20 27 6a 27 2c 20 20 30 2c 20 30 . { 'j', 0, 0
1a00: 2c 20 65 74 4a 53 4f 4e 53 54 52 2c 20 20 20 20 , etJSONSTR,
1a10: 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 63 0, 0 },. { 'c
1a20: 27 2c 20 20 30 2c 20 30 2c 20 65 74 43 48 41 52 ', 0, 0, etCHAR
1a30: 58 2c 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c X, 0, 0 },
1a40: 0a 20 20 7b 20 20 27 6f 27 2c 20 20 38 2c 20 30 . { 'o', 8, 0
1a50: 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 , etRADIX,
1a60: 30 2c 20 20 32 20 7d 2c 0a 20 20 7b 20 20 27 75 0, 2 },. { 'u
1a70: 27 2c 20 31 30 2c 20 30 2c 20 65 74 52 41 44 49 ', 10, 0, etRADI
1a80: 58 2c 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c X, 0, 0 },
1a90: 0a 20 20 7b 20 20 27 78 27 2c 20 31 36 2c 20 30 . { 'x', 16, 0
1aa0: 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 , etRADIX,
1ab0: 31 36 2c 20 31 20 7d 2c 0a 20 20 7b 20 20 27 58 16, 1 },. { 'X
1ac0: 27 2c 20 31 36 2c 20 30 2c 20 65 74 52 41 44 49 ', 16, 0, etRADI
1ad0: 58 2c 20 20 20 20 20 20 30 2c 20 20 34 20 7d 2c X, 0, 4 },
1ae0: 0a 20 20 7b 20 20 27 66 27 2c 20 20 30 2c 20 31 . { 'f', 0, 1
1af0: 2c 20 65 74 46 4c 4f 41 54 2c 20 20 20 20 20 20 , etFLOAT,
1b00: 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 65 0, 0 },. { 'e
1b10: 27 2c 20 20 30 2c 20 31 2c 20 65 74 45 58 50 2c ', 0, 1, etEXP,
1b20: 20 20 20 20 20 20 20 20 33 30 2c 20 30 20 7d 2c 30, 0 },
1b30: 0a 20 20 7b 20 20 27 45 27 2c 20 20 30 2c 20 31 . { 'E', 0, 1
1b40: 2c 20 65 74 45 58 50 2c 20 20 20 20 20 20 20 20 , etEXP,
1b50: 31 34 2c 20 30 20 7d 2c 0a 20 20 7b 20 20 27 47 14, 0 },. { 'G
1b60: 27 2c 20 20 30 2c 20 31 2c 20 65 74 47 45 4e 45 ', 0, 1, etGENE
1b70: 52 49 43 2c 20 20 20 20 31 34 2c 20 30 20 7d 2c RIC, 14, 0 },
1b80: 0a 20 20 7b 20 20 27 69 27 2c 20 31 30 2c 20 31 . { 'i', 10, 1
1b90: 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 , etRADIX,
1ba0: 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 6e 0, 0 },. { 'n
1bb0: 27 2c 20 20 30 2c 20 30 2c 20 65 74 53 49 5a 45 ', 0, 0, etSIZE
1bc0: 2c 20 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c , 0, 0 },
1bd0: 0a 20 20 7b 20 20 27 25 27 2c 20 20 30 2c 20 30 . { '%', 0, 0
1be0: 2c 20 65 74 50 45 52 43 45 4e 54 2c 20 20 20 20 , etPERCENT,
1bf0: 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 70 0, 0 },. { 'p
1c00: 27 2c 20 31 36 2c 20 30 2c 20 65 74 50 4f 49 4e ', 16, 0, etPOIN
1c10: 54 45 52 2c 20 20 20 20 30 2c 20 20 31 20 7d 2c TER, 0, 1 },
1c20: 0a 20 20 7b 20 20 27 2f 27 2c 20 20 30 2c 20 30 . { '/', 0, 0
1c30: 2c 20 65 74 50 41 54 48 2c 20 20 20 20 20 20 20 , etPATH,
1c40: 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 24 0, 0 },. { '$
1c50: 27 2c 20 20 30 2c 20 30 2c 20 65 74 53 48 45 4c ', 0, 0, etSHEL
1c60: 4c 45 53 43 2c 20 20 20 30 2c 20 20 30 20 7d 2c LESC, 0, 0 },
1c70: 0a 20 20 7b 20 20 65 74 45 52 52 4f 52 2c 20 30 . { etERROR, 0
1c80: 2c 30 2c 30 2c 30 2c 30 7d 20 20 2f 2a 20 4d 75 ,0,0,0,0} /* Mu
1c90: 73 74 20 62 65 20 6c 61 73 74 20 2a 2f 0a 7d 3b st be last */.};
1ca0: 0a 23 64 65 66 69 6e 65 20 65 74 4e 49 4e 46 4f .#define etNINFO
1cb0: 20 63 6f 75 6e 74 28 66 6d 74 69 6e 66 6f 29 0a count(fmtinfo).
1cc0: 0a 2f 2a 0a 2a 2a 20 56 65 72 69 66 79 20 74 68 ./*.** Verify th
1cd0: 61 74 20 74 68 65 20 66 6d 74 63 68 72 5b 5d 20 at the fmtchr[]
1ce0: 61 6e 64 20 66 6d 74 69 6e 66 6f 5b 5d 20 61 72 and fmtinfo[] ar
1cf0: 72 61 79 73 20 61 72 65 20 69 6e 20 61 67 72 65 rays are in agre
1d00: 65 6d 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 ement..**.** Thi
1d10: 73 20 72 6f 75 74 69 6e 65 20 69 73 20 61 20 64 s routine is a d
1d20: 65 66 65 6e 73 65 20 61 67 61 69 6e 73 74 20 70 efense against p
1d30: 72 6f 67 72 61 6d 6d 69 6e 67 20 65 72 72 6f 72 rogramming error
1d40: 73 2e 0a 2a 2f 0a 76 6f 69 64 20 66 6f 73 73 69 s..*/.void fossi
1d50: 6c 5f 70 72 69 6e 74 66 5f 73 65 6c 66 63 68 65 l_printf_selfche
1d60: 63 6b 28 76 6f 69 64 29 7b 0a 20 20 69 6e 74 20 ck(void){. int
1d70: 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 66 6d i;. for(i=0; fm
1d80: 74 63 68 72 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 tchr[i]; i++){.
1d90: 20 20 20 61 73 73 65 72 74 28 20 66 6d 74 63 68 assert( fmtch
1da0: 72 5b 69 5d 3d 3d 66 6d 74 69 6e 66 6f 5b 69 5d r[i]==fmtinfo[i]
1db0: 2e 66 6d 74 74 79 70 65 20 29 3b 0a 20 20 7d 0a .fmttype );. }.
1dc0: 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 22 2a 76 61 6c 22 }.../*.** "*val"
1dd0: 20 69 73 20 61 20 64 6f 75 62 6c 65 20 73 75 63 is a double suc
1de0: 68 20 74 68 61 74 20 30 2e 31 20 3c 3d 20 2a 76 h that 0.1 <= *v
1df0: 61 6c 20 3c 20 31 30 2e 30 0a 2a 2a 20 52 65 74 al < 10.0.** Ret
1e00: 75 72 6e 20 74 68 65 20 61 73 63 69 69 20 63 6f urn the ascii co
1e10: 64 65 20 66 6f 72 20 74 68 65 20 6c 65 61 64 69 de for the leadi
1e20: 6e 67 20 64 69 67 69 74 20 6f 66 20 2a 76 61 6c ng digit of *val
1e30: 2c 20 74 68 65 6e 0a 2a 2a 20 6d 75 6c 74 69 70 , then.** multip
1e40: 6c 79 20 22 2a 76 61 6c 22 20 62 79 20 31 30 2e ly "*val" by 10.
1e50: 30 20 74 6f 20 72 65 6e 6f 72 6d 61 6c 69 7a 65 0 to renormalize
1e60: 2e 0a 2a 2a 0a 2a 2a 20 45 78 61 6d 70 6c 65 3a ..**.** Example:
1e70: 0a 2a 2a 20 20 20 20 20 69 6e 70 75 74 3a 20 20 .** input:
1e80: 20 20 20 2a 76 61 6c 20 3d 20 33 2e 31 34 31 35 *val = 3.1415
1e90: 39 0a 2a 2a 20 20 20 20 20 6f 75 74 70 75 74 3a 9.** output:
1ea0: 20 20 20 20 2a 76 61 6c 20 3d 20 31 2e 34 31 35 *val = 1.415
1eb0: 39 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 72 65 9 function re
1ec0: 74 75 72 6e 20 3d 20 27 33 27 0a 2a 2a 0a 2a 2a turn = '3'.**.**
1ed0: 20 54 68 65 20 63 6f 75 6e 74 65 72 20 2a 63 6e The counter *cn
1ee0: 74 20 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 t is incremented
1ef0: 20 65 61 63 68 20 74 69 6d 65 2e 20 20 41 66 74 each time. Aft
1f00: 65 72 20 63 6f 75 6e 74 65 72 20 65 78 63 65 65 er counter excee
1f10: 64 73 0a 2a 2a 20 31 36 20 28 74 68 65 20 6e 75 ds.** 16 (the nu
1f20: 6d 62 65 72 20 6f 66 20 73 69 67 6e 69 66 69 63 mber of signific
1f30: 61 6e 74 20 64 69 67 69 74 73 20 69 6e 20 61 20 ant digits in a
1f40: 36 34 2d 62 69 74 20 66 6c 6f 61 74 29 20 27 30 64-bit float) '0
1f50: 27 20 69 73 0a 2a 2a 20 61 6c 77 61 79 73 20 72 ' is.** always r
1f60: 65 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 eturned..*/.stat
1f70: 69 63 20 69 6e 74 20 65 74 5f 67 65 74 64 69 67 ic int et_getdig
1f80: 69 74 28 6c 6f 6e 67 20 64 6f 75 62 6c 65 20 2a it(long double *
1f90: 76 61 6c 2c 20 69 6e 74 20 2a 63 6e 74 29 7b 0a val, int *cnt){.
1fa0: 20 20 69 6e 74 20 64 69 67 69 74 3b 0a 20 20 6c int digit;. l
1fb0: 6f 6e 67 20 64 6f 75 62 6c 65 20 64 3b 0a 20 20 ong double d;.
1fc0: 69 66 28 20 28 2a 63 6e 74 29 2b 2b 20 3e 3d 20 if( (*cnt)++ >=
1fd0: 31 36 20 29 20 72 65 74 75 72 6e 20 27 30 27 3b 16 ) return '0';
1fe0: 0a 20 20 64 69 67 69 74 20 3d 20 28 69 6e 74 29 . digit = (int)
1ff0: 2a 76 61 6c 3b 0a 20 20 64 20 3d 20 64 69 67 69 *val;. d = digi
2000: 74 3b 0a 20 20 64 69 67 69 74 20 2b 3d 20 27 30 t;. digit += '0
2010: 27 3b 0a 20 20 2a 76 61 6c 20 3d 20 28 2a 76 61 ';. *val = (*va
2020: 6c 20 2d 20 64 29 2a 31 30 2e 30 3b 0a 20 20 72 l - d)*10.0;. r
2030: 65 74 75 72 6e 20 64 69 67 69 74 3b 0a 7d 0a 0a eturn digit;.}..
2040: 2f 2a 0a 2a 2a 20 53 69 7a 65 20 6f 66 20 74 65 /*.** Size of te
2050: 6d 70 6f 72 61 72 79 20 63 6f 6e 76 65 72 73 69 mporary conversi
2060: 6f 6e 20 62 75 66 66 65 72 2e 0a 2a 2f 0a 23 64 on buffer..*/.#d
2070: 65 66 69 6e 65 20 65 74 42 55 46 53 49 5a 45 20 efine etBUFSIZE
2080: 35 30 30 0a 0a 2f 2a 0a 2a 2a 20 46 69 6e 64 20 500../*.** Find
2090: 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 61 20 the length of a
20a0: 73 74 72 69 6e 67 20 61 73 20 6c 6f 6e 67 20 61 string as long a
20b0: 73 20 74 68 61 74 20 6c 65 6e 67 74 68 20 64 6f s that length do
20c0: 65 73 20 6e 6f 74 0a 2a 2a 20 65 78 63 65 65 64 es not.** exceed
20d0: 20 4e 20 62 79 74 65 73 2e 20 20 49 66 20 6e 6f N bytes. If no
20e0: 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74 6f 72 zero terminator
20f0: 20 69 73 20 73 65 65 6e 20 69 6e 20 74 68 65 20 is seen in the
2100: 66 69 72 73 74 0a 2a 2a 20 4e 20 62 79 74 65 73 first.** N bytes
2110: 20 74 68 65 6e 20 72 65 74 75 72 6e 20 4e 2e 20 then return N.
2120: 20 49 66 20 4e 20 69 73 20 6e 65 67 61 74 69 76 If N is negativ
2130: 65 2c 20 74 68 65 6e 20 74 68 69 73 20 72 6f 75 e, then this rou
2140: 74 69 6e 65 0a 2a 2a 20 69 73 20 61 6e 20 61 6c tine.** is an al
2150: 69 61 73 20 66 6f 72 20 73 74 72 6c 65 6e 28 29 ias for strlen()
2160: 2e 0a 2a 2f 0a 23 69 66 20 5f 58 4f 50 45 4e 5f ..*/.#if _XOPEN_
2170: 53 4f 55 52 43 45 20 3e 3d 20 37 30 30 20 7c 7c SOURCE >= 700 ||
2180: 20 5f 50 4f 53 49 58 5f 43 5f 53 4f 55 52 43 45 _POSIX_C_SOURCE
2190: 20 3e 3d 20 32 30 30 38 30 39 4c 0a 23 20 64 65 >= 200809L.# de
21a0: 66 69 6e 65 20 53 74 72 4e 4c 65 6e 33 32 28 5a fine StrNLen32(Z
21b0: 2c 4e 29 20 28 69 6e 74 29 73 74 72 6e 6c 65 6e ,N) (int)strnlen
21c0: 28 5a 2c 4e 29 0a 23 65 6c 73 65 0a 73 74 61 74 (Z,N).#else.stat
21d0: 69 63 20 69 6e 74 20 53 74 72 4e 4c 65 6e 33 32 ic int StrNLen32
21e0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20 (const char *z,
21f0: 69 6e 74 20 4e 29 7b 0a 20 20 69 6e 74 20 6e 20 int N){. int n
2200: 3d 20 30 3b 0a 20 20 77 68 69 6c 65 28 20 28 4e = 0;. while( (N
2210: 2d 2d 20 21 3d 20 30 29 20 26 26 20 2a 28 7a 2b -- != 0) && *(z+
2220: 2b 29 21 3d 30 20 29 7b 20 6e 2b 2b 3b 20 7d 0a +)!=0 ){ n++; }.
2230: 20 20 72 65 74 75 72 6e 20 6e 3b 0a 7d 0a 23 65 return n;.}.#e
2240: 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 ndif../*.** Retu
2250: 72 6e 20 61 6e 20 61 70 70 72 6f 70 72 69 61 74 rn an appropriat
2260: 65 20 73 65 74 20 6f 66 20 66 6c 61 67 73 20 66 e set of flags f
2270: 6f 72 20 77 69 6b 69 5f 63 6f 6e 76 65 72 74 28 or wiki_convert(
2280: 29 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 ) for displaying
2290: 0a 2a 2a 20 63 6f 6d 6d 65 6e 74 73 20 6f 6e 20 .** comments on
22a0: 61 20 74 69 6d 65 6c 69 6e 65 2e 20 20 54 68 65 a timeline. The
22b0: 73 65 20 66 6c 61 67 20 73 65 74 74 69 6e 67 73 se flag settings
22c0: 20 61 72 65 20 64 65 74 65 72 6d 69 6e 65 64 20 are determined
22d0: 62 79 0a 2a 2a 20 63 6f 6e 66 69 67 75 72 61 74 by.** configurat
22e0: 69 6f 6e 20 70 61 72 61 6d 65 74 65 72 73 2e 0a ion parameters..
22f0: 2a 2a 0a 2a 2a 20 54 68 65 20 61 6c 74 46 6f 72 **.** The altFor
2300: 6d 32 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 m2 argument is t
2310: 72 75 65 20 66 6f 72 20 22 25 21 57 22 20 28 77 rue for "%!W" (w
2320: 69 74 68 20 74 68 65 20 22 21 22 20 61 6c 74 65 ith the "!" alte
2330: 72 6e 61 74 65 2d 66 6f 72 6d 2d 32 0a 2a 2a 20 rnate-form-2.**
2340: 66 6c 61 67 73 29 20 61 6e 64 20 69 73 20 66 61 flags) and is fa
2350: 6c 73 65 20 66 6f 72 20 70 6c 61 69 6e 20 22 25 lse for plain "%
2360: 57 22 2e 20 20 54 68 65 20 21 20 69 6e 64 69 63 W". The ! indic
2370: 61 74 65 73 20 74 68 61 74 20 74 68 65 20 74 65 ates that the te
2380: 78 74 20 69 73 0a 2a 2a 20 74 6f 20 62 65 20 72 xt is.** to be r
2390: 65 6e 64 65 72 65 64 20 6f 6e 20 61 20 66 6f 72 endered on a for
23a0: 6d 20 72 61 74 68 65 72 20 74 68 61 6e 20 74 68 m rather than th
23b0: 65 20 74 69 6d 65 6c 69 6e 65 20 61 6e 64 20 74 e timeline and t
23c0: 68 61 74 20 62 6c 6f 63 6b 20 6d 61 72 6b 75 70 hat block markup
23d0: 0a 2a 2a 20 69 73 20 61 63 63 65 70 74 61 62 6c .** is acceptabl
23e0: 65 20 65 76 65 6e 20 69 66 20 74 68 65 20 22 74 e even if the "t
23f0: 69 6d 65 6c 69 6e 65 2d 62 6c 6f 63 6b 2d 6d 61 imeline-block-ma
2400: 72 6b 75 70 22 20 73 65 74 74 69 6e 67 20 69 73 rkup" setting is
2410: 20 66 61 6c 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 false..*/.stati
2420: 63 20 69 6e 74 20 77 69 6b 69 5f 63 6f 6e 76 65 c int wiki_conve
2430: 72 74 5f 66 6c 61 67 73 28 69 6e 74 20 61 6c 74 rt_flags(int alt
2440: 46 6f 72 6d 32 29 7b 0a 20 20 73 74 61 74 69 63 Form2){. static
2450: 20 69 6e 74 20 77 69 6b 69 46 6c 61 67 73 20 3d int wikiFlags =
2460: 20 30 3b 0a 20 20 69 66 28 20 77 69 6b 69 46 6c 0;. if( wikiFl
2470: 61 67 73 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 ags==0 ){. if
2480: 28 20 61 6c 74 46 6f 72 6d 32 20 7c 7c 20 64 62 ( altForm2 || db
2490: 5f 67 65 74 5f 62 6f 6f 6c 65 61 6e 28 22 74 69 _get_boolean("ti
24a0: 6d 65 6c 69 6e 65 2d 62 6c 6f 63 6b 2d 6d 61 72 meline-block-mar
24b0: 6b 75 70 22 2c 20 30 29 20 29 7b 0a 20 20 20 20 kup", 0) ){.
24c0: 20 20 77 69 6b 69 46 6c 61 67 73 20 3d 20 57 49 wikiFlags = WI
24d0: 4b 49 5f 49 4e 4c 49 4e 45 20 7c 20 57 49 4b 49 KI_INLINE | WIKI
24e0: 5f 4e 4f 42 41 44 4c 49 4e 4b 53 3b 0a 20 20 20 _NOBADLINKS;.
24f0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 77 69 }else{. wi
2500: 6b 69 46 6c 61 67 73 20 3d 20 57 49 4b 49 5f 49 kiFlags = WIKI_I
2510: 4e 4c 49 4e 45 20 7c 20 57 49 4b 49 5f 4e 4f 42 NLINE | WIKI_NOB
2520: 4c 4f 43 4b 20 7c 20 57 49 4b 49 5f 4e 4f 42 41 LOCK | WIKI_NOBA
2530: 44 4c 49 4e 4b 53 3b 0a 20 20 20 20 7d 0a 20 20 DLINKS;. }.
2540: 20 20 69 66 28 20 64 62 5f 67 65 74 5f 62 6f 6f if( db_get_boo
2550: 6c 65 61 6e 28 22 74 69 6d 65 6c 69 6e 65 2d 70 lean("timeline-p
2560: 6c 61 69 6e 74 65 78 74 22 2c 20 30 29 20 29 7b laintext", 0) ){
2570: 0a 20 20 20 20 20 20 77 69 6b 69 46 6c 61 67 73 . wikiFlags
2580: 20 7c 3d 20 57 49 4b 49 5f 4c 49 4e 4b 53 4f 4e |= WIKI_LINKSON
2590: 4c 59 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 LY;. }. if
25a0: 28 20 64 62 5f 67 65 74 5f 62 6f 6f 6c 65 61 6e ( db_get_boolean
25b0: 28 22 74 69 6d 65 6c 69 6e 65 2d 68 61 72 64 2d ("timeline-hard-
25c0: 6e 65 77 6c 69 6e 65 73 22 2c 20 30 29 20 29 7b newlines", 0) ){
25d0: 0a 20 20 20 20 20 20 77 69 6b 69 46 6c 61 67 73 . wikiFlags
25e0: 20 7c 3d 20 57 49 4b 49 5f 4e 45 57 4c 49 4e 45 |= WIKI_NEWLINE
25f0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 ;. }. }. re
2600: 74 75 72 6e 20 77 69 6b 69 46 6c 61 67 73 3b 0a turn wikiFlags;.
2610: 7d 0a 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 72 }..../*.** The r
2620: 6f 6f 74 20 70 72 6f 67 72 61 6d 2e 20 20 41 6c oot program. Al
2630: 6c 20 76 61 72 69 61 74 69 6f 6e 73 20 63 61 6c l variations cal
2640: 6c 20 74 68 69 73 20 63 6f 72 65 2e 0a 2a 2a 0a l this core..**.
2650: 2a 2a 20 49 4e 50 55 54 53 3a 0a 2a 2a 20 20 20 ** INPUTS:.**
2660: 70 42 6c 6f 62 20 20 54 68 69 73 20 69 73 20 74 pBlob This is t
2670: 68 65 20 62 6c 6f 62 20 77 68 65 72 65 20 74 68 he blob where th
2680: 65 20 6f 75 74 70 75 74 20 77 69 6c 6c 20 62 65 e output will be
2690: 20 62 75 69 6c 74 2e 0a 2a 2a 0a 2a 2a 20 20 20 built..**.**
26a0: 66 6d 74 20 20 20 20 54 68 69 73 20 69 73 20 74 fmt This is t
26b0: 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 he format string
26c0: 2c 20 61 73 20 69 6e 20 74 68 65 20 75 73 75 61 , as in the usua
26d0: 6c 20 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 20 l print..**.**
26e0: 20 61 70 20 20 20 20 20 54 68 69 73 20 69 73 20 ap This is
26f0: 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 6c a pointer to a l
2700: 69 73 74 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ist of arguments
2710: 2e 20 20 53 61 6d 65 20 61 73 20 69 6e 0a 2a 2a . Same as in.**
2720: 20 20 20 20 20 20 20 20 20 20 76 66 70 72 69 6e vfprin
2730: 74 2e 0a 2a 2a 0a 2a 2a 20 4f 55 54 50 55 54 53 t..**.** OUTPUTS
2740: 3a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 54 68 :.** Th
2750: 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 e return value i
2760: 73 20 74 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 s the total numb
2770: 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 er of characters
2780: 20 73 65 6e 74 20 74 6f 0a 2a 2a 20 20 20 20 20 sent to.**
2790: 20 20 20 20 20 74 68 65 20 66 75 6e 63 74 69 6f the functio
27a0: 6e 20 22 66 75 6e 63 22 2e 20 20 52 65 74 75 72 n "func". Retur
27b0: 6e 73 20 2d 31 20 6f 6e 20 61 20 65 72 72 6f 72 ns -1 on a error
27c0: 2e 0a 2a 2a 0a 2a 2a 20 4e 6f 74 65 20 74 68 61 ..**.** Note tha
27d0: 74 20 74 68 65 20 6f 72 64 65 72 20 69 6e 20 77 t the order in w
27e0: 68 69 63 68 20 61 75 74 6f 6d 61 74 69 63 20 76 hich automatic v
27f0: 61 72 69 61 62 6c 65 73 20 61 72 65 20 64 65 63 ariables are dec
2800: 6c 61 72 65 64 20 62 65 6c 6f 77 0a 2a 2a 20 73 lared below.** s
2810: 65 65 6d 73 20 74 6f 20 6d 61 6b 65 20 61 20 62 eems to make a b
2820: 69 67 20 64 69 66 66 65 72 65 6e 63 65 20 69 6e ig difference in
2830: 20 64 65 74 65 72 6d 69 6e 69 6e 67 20 68 6f 77 determining how
2840: 20 66 61 73 74 20 74 68 69 73 20 62 65 61 73 74 fast this beast
2850: 0a 2a 2a 20 77 69 6c 6c 20 72 75 6e 2e 0a 2a 2f .** will run..*/
2860: 0a 69 6e 74 20 76 78 70 72 69 6e 74 66 28 0a 20 .int vxprintf(.
2870: 20 42 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 20 20 Blob *pBlob,
2880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2890: 20 20 20 20 2f 2a 20 41 70 70 65 6e 64 20 6f 75 /* Append ou
28a0: 74 70 75 74 20 74 6f 20 74 68 69 73 20 62 6c 6f tput to this blo
28b0: 62 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 b */. const cha
28c0: 72 20 2a 66 6d 74 2c 20 20 20 20 20 20 20 20 20 r *fmt,
28d0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 6f 72 /* For
28e0: 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 mat string */.
28f0: 76 61 5f 6c 69 73 74 20 61 70 20 20 20 20 20 20 va_list ap
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2910: 20 20 20 2f 2a 20 61 72 67 75 6d 65 6e 74 73 20 /* arguments
2920: 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 63 3b 20 20 */.){. int c;
2930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2940: 20 20 20 2f 2a 20 4e 65 78 74 20 63 68 61 72 61 /* Next chara
2950: 63 74 65 72 20 69 6e 20 74 68 65 20 66 6f 72 6d cter in the form
2960: 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 63 at string */. c
2970: 68 61 72 20 2a 62 75 66 70 74 3b 20 20 20 20 20 har *bufpt;
2980: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 6f 69 /* Poi
2990: 6e 74 65 72 20 74 6f 20 74 68 65 20 63 6f 6e 76 nter to the conv
29a0: 65 72 73 69 6f 6e 20 62 75 66 66 65 72 20 2a 2f ersion buffer */
29b0: 0a 20 20 69 6e 74 20 70 72 65 63 69 73 69 6f 6e . int precision
29c0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a ; /*
29d0: 20 50 72 65 63 69 73 69 6f 6e 20 6f 66 20 74 68 Precision of th
29e0: 65 20 63 75 72 72 65 6e 74 20 66 69 65 6c 64 20 e current field
29f0: 2a 2f 0a 20 20 69 6e 74 20 6c 65 6e 67 74 68 3b */. int length;
2a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2a10: 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 65 /* Length of the
2a20: 20 66 69 65 6c 64 20 2a 2f 0a 20 20 69 6e 74 20 field */. int
2a30: 69 64 78 3b 20 20 20 20 20 20 20 20 20 20 20 20 idx;
2a40: 20 20 20 20 20 20 20 2f 2a 20 41 20 67 65 6e 65 /* A gene
2a50: 72 61 6c 20 70 75 72 70 6f 73 65 20 6c 6f 6f 70 ral purpose loop
2a60: 20 63 6f 75 6e 74 65 72 20 2a 2f 0a 20 20 69 6e counter */. in
2a70: 74 20 63 6f 75 6e 74 3b 20 20 20 20 20 20 20 20 t count;
2a80: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 6f 74 61 /* Tota
2a90: 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 l number of char
2aa0: 61 63 74 65 72 73 20 6f 75 74 70 75 74 20 2a 2f acters output */
2ab0: 0a 20 20 69 6e 74 20 77 69 64 74 68 3b 20 20 20 . int width;
2ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
2ad0: 20 57 69 64 74 68 20 6f 66 20 74 68 65 20 63 75 Width of the cu
2ae0: 72 72 65 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20 rrent field */.
2af0: 20 65 74 42 79 74 65 20 66 6c 61 67 5f 6c 65 66 etByte flag_lef
2b00: 74 6a 75 73 74 69 66 79 3b 20 20 20 2f 2a 20 54 tjustify; /* T
2b10: 72 75 65 20 69 66 20 22 2d 22 20 66 6c 61 67 20 rue if "-" flag
2b20: 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 is present */.
2b30: 65 74 42 79 74 65 20 66 6c 61 67 5f 70 6c 75 73 etByte flag_plus
2b40: 73 69 67 6e 3b 20 20 20 20 20 20 2f 2a 20 54 72 sign; /* Tr
2b50: 75 65 20 69 66 20 22 2b 22 20 66 6c 61 67 20 69 ue if "+" flag i
2b60: 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 s present */. e
2b70: 74 42 79 74 65 20 66 6c 61 67 5f 62 6c 61 6e 6b tByte flag_blank
2b80: 73 69 67 6e 3b 20 20 20 20 20 2f 2a 20 54 72 75 sign; /* Tru
2b90: 65 20 69 66 20 22 20 22 20 66 6c 61 67 20 69 73 e if " " flag is
2ba0: 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 present */. et
2bb0: 42 79 74 65 20 66 6c 61 67 5f 61 6c 74 65 72 6e Byte flag_altern
2bc0: 61 74 65 66 6f 72 6d 3b 20 2f 2a 20 54 72 75 65 ateform; /* True
2bd0: 20 69 66 20 22 23 22 20 66 6c 61 67 20 69 73 20 if "#" flag is
2be0: 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 present */. etB
2bf0: 79 74 65 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d yte flag_altform
2c00: 32 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 2; /* True
2c10: 69 66 20 22 21 22 20 66 6c 61 67 20 69 73 20 70 if "!" flag is p
2c20: 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 resent */. etBy
2c30: 74 65 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 3b te flag_zeropad;
2c40: 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 /* True i
2c50: 66 20 66 69 65 6c 64 20 77 69 64 74 68 20 63 6f f field width co
2c60: 6e 73 74 61 6e 74 20 73 74 61 72 74 73 20 77 69 nstant starts wi
2c70: 74 68 20 7a 65 72 6f 20 2a 2f 0a 20 20 65 74 42 th zero */. etB
2c80: 79 74 65 20 66 6c 61 67 5f 6c 6f 6e 67 3b 20 20 yte flag_long;
2c90: 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 /* True
2ca0: 69 66 20 22 6c 22 20 66 6c 61 67 20 69 73 20 70 if "l" flag is p
2cb0: 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 resent */. etBy
2cc0: 74 65 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 te flag_longlong
2cd0: 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 ; /* True i
2ce0: 66 20 74 68 65 20 22 6c 6c 22 20 66 6c 61 67 20 f the "ll" flag
2cf0: 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 is present */.
2d00: 65 74 42 79 74 65 20 64 6f 6e 65 3b 20 20 20 20 etByte done;
2d10: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 6f /* Lo
2d20: 6f 70 20 74 65 72 6d 69 6e 61 74 69 6f 6e 20 66 op termination f
2d30: 6c 61 67 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 lag */. etByte
2d40: 63 54 68 6f 75 73 61 6e 64 3b 20 20 20 20 20 20 cThousand;
2d50: 20 20 20 20 2f 2a 20 54 68 6f 75 73 61 6e 64 73 /* Thousands
2d60: 20 73 65 70 61 72 61 74 6f 72 20 66 6f 72 20 25 separator for %
2d70: 64 20 61 6e 64 20 25 75 20 2a 2f 0a 20 20 75 36 d and %u */. u6
2d80: 34 20 6c 6f 6e 67 76 61 6c 75 65 3b 20 20 20 20 4 longvalue;
2d90: 20 20 20 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 /* Valu
2da0: 65 20 66 6f 72 20 69 6e 74 65 67 65 72 20 74 79 e for integer ty
2db0: 70 65 73 20 2a 2f 0a 20 20 6c 6f 6e 67 20 64 6f pes */. long do
2dc0: 75 62 6c 65 20 72 65 61 6c 76 61 6c 75 65 3b 20 uble realvalue;
2dd0: 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 66 6f 72 /* Value for
2de0: 20 72 65 61 6c 20 74 79 70 65 73 20 2a 2f 0a 20 real types */.
2df0: 20 63 6f 6e 73 74 20 65 74 5f 69 6e 66 6f 20 2a const et_info *
2e00: 69 6e 66 6f 70 3b 20 20 20 20 20 20 2f 2a 20 50 infop; /* P
2e10: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 61 70 ointer to the ap
2e20: 70 72 6f 70 72 69 61 74 65 20 69 6e 66 6f 20 73 propriate info s
2e30: 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 63 68 tructure */. ch
2e40: 61 72 20 62 75 66 5b 65 74 42 55 46 53 49 5a 45 ar buf[etBUFSIZE
2e50: 5d 3b 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 ]; /* Conv
2e60: 65 72 73 69 6f 6e 20 62 75 66 66 65 72 20 2a 2f ersion buffer */
2e70: 0a 20 20 63 68 61 72 20 70 72 65 66 69 78 3b 20 . char prefix;
2e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
2e90: 20 50 72 65 66 69 78 20 63 68 61 72 61 63 74 65 Prefix characte
2ea0: 72 2e 20 20 22 2b 22 20 6f 72 20 22 2d 22 20 6f r. "+" or "-" o
2eb0: 72 20 22 20 22 20 6f 72 20 27 5c 30 27 2e 20 2a r " " or '\0'. *
2ec0: 2f 0a 20 20 65 74 42 79 74 65 20 65 72 72 6f 72 /. etByte error
2ed0: 66 6c 61 67 20 3d 20 30 3b 20 20 20 20 20 20 2f flag = 0; /
2ee0: 2a 20 54 72 75 65 20 69 66 20 61 6e 20 65 72 72 * True if an err
2ef0: 6f 72 20 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 or is encountere
2f00: 64 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 78 74 d */. etByte xt
2f10: 79 70 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 ype;
2f20: 20 20 2f 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 /* Conversion
2f30: 70 61 72 61 64 69 67 6d 20 2a 2f 0a 20 20 63 68 paradigm */. ch
2f40: 61 72 20 2a 7a 45 78 74 72 61 3b 20 20 20 20 20 ar *zExtra;
2f50: 20 20 20 20 20 20 20 20 20 2f 2a 20 45 78 74 72 /* Extr
2f60: 61 20 6d 65 6d 6f 72 79 20 75 73 65 64 20 66 6f a memory used fo
2f70: 72 20 65 74 54 43 4c 45 53 43 41 50 45 20 63 6f r etTCLESCAPE co
2f80: 6e 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 20 73 nversions */. s
2f90: 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 tatic const char
2fa0: 20 73 70 61 63 65 73 5b 5d 20 3d 0a 20 20 20 22 spaces[] =. "
2fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ff0: 20 20 20 20 20 20 20 20 20 22 3b 0a 23 64 65 66 ";.#def
3000: 69 6e 65 20 65 74 53 50 41 43 45 53 49 5a 45 20 ine etSPACESIZE
3010: 28 73 69 7a 65 6f 66 28 73 70 61 63 65 73 29 2d (sizeof(spaces)-
3020: 31 29 0a 20 20 69 6e 74 20 20 65 78 70 2c 20 65 1). int exp, e
3030: 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2;
3040: 2f 2a 20 65 78 70 6f 6e 65 6e 74 20 6f 66 20 72 /* exponent of r
3050: 65 61 6c 20 6e 75 6d 62 65 72 73 20 2a 2f 0a 20 eal numbers */.
3060: 20 64 6f 75 62 6c 65 20 72 6f 75 6e 64 65 72 3b double rounder;
3070: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 /* U
3080: 73 65 64 20 66 6f 72 20 72 6f 75 6e 64 69 6e 67 sed for rounding
3090: 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 floating point
30a0: 76 61 6c 75 65 73 20 2a 2f 0a 20 20 65 74 42 79 values */. etBy
30b0: 74 65 20 66 6c 61 67 5f 64 70 3b 20 20 20 20 20 te flag_dp;
30c0: 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 /* True i
30d0: 66 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 f decimal point
30e0: 73 68 6f 75 6c 64 20 62 65 20 73 68 6f 77 6e 20 should be shown
30f0: 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 */. etByte flag
3100: 5f 72 74 7a 3b 20 20 20 20 20 20 20 20 20 20 20 _rtz;
3110: 2f 2a 20 54 72 75 65 20 69 66 20 74 72 61 69 6c /* True if trail
3120: 69 6e 67 20 7a 65 72 6f 73 20 73 68 6f 75 6c 64 ing zeros should
3130: 20 62 65 20 72 65 6d 6f 76 65 64 20 2a 2f 0a 20 be removed */.
3140: 20 65 74 42 79 74 65 20 66 6c 61 67 5f 65 78 70 etByte flag_exp
3150: 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 ; /* T
3160: 72 75 65 20 74 6f 20 66 6f 72 63 65 20 64 69 73 rue to force dis
3170: 70 6c 61 79 20 6f 66 20 74 68 65 20 65 78 70 6f play of the expo
3180: 6e 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 73 nent */. int ns
3190: 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d;
31a0: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
31b0: 66 20 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 f significant di
31c0: 67 69 74 73 20 72 65 74 75 72 6e 65 64 20 2a 2f gits returned */
31d0: 0a 20 20 63 68 61 72 20 2a 7a 46 6d 74 4c 6f 6f . char *zFmtLoo
31e0: 6b 75 70 3b 0a 0a 20 20 63 6f 75 6e 74 20 3d 20 kup;.. count =
31f0: 6c 65 6e 67 74 68 20 3d 20 30 3b 0a 20 20 62 75 length = 0;. bu
3200: 66 70 74 20 3d 20 30 3b 0a 20 20 66 6f 72 28 3b fpt = 0;. for(;
3210: 20 28 63 3d 28 2a 66 6d 74 29 29 21 3d 30 3b 20 (c=(*fmt))!=0;
3220: 2b 2b 66 6d 74 29 7b 0a 20 20 20 20 69 66 28 20 ++fmt){. if(
3230: 63 21 3d 27 25 27 20 29 7b 0a 20 20 20 20 20 20 c!='%' ){.
3240: 62 75 66 70 74 20 3d 20 28 63 68 61 72 20 2a 29 bufpt = (char *)
3250: 66 6d 74 3b 0a 23 69 66 20 48 41 56 45 5f 53 54 fmt;.#if HAVE_ST
3260: 52 43 48 52 4e 55 4c 0a 20 20 20 20 20 20 66 6d RCHRNUL. fm
3270: 74 20 3d 20 73 74 72 63 68 72 6e 75 6c 28 66 6d t = strchrnul(fm
3280: 74 2c 20 27 25 27 29 3b 0a 23 65 6c 73 65 0a 20 t, '%');.#else.
3290: 20 20 20 20 20 64 6f 7b 20 66 6d 74 2b 2b 3b 20 do{ fmt++;
32a0: 7d 77 68 69 6c 65 28 20 2a 66 6d 74 20 26 26 20 }while( *fmt &&
32b0: 2a 66 6d 74 20 21 3d 20 27 25 27 20 29 3b 0a 23 *fmt != '%' );.#
32c0: 65 6e 64 69 66 0a 20 20 20 20 20 20 62 6c 6f 62 endif. blob
32d0: 5f 61 70 70 65 6e 64 28 70 42 6c 6f 62 2c 20 62 _append(pBlob, b
32e0: 75 66 70 74 2c 20 28 69 6e 74 29 28 66 6d 74 20 ufpt, (int)(fmt
32f0: 2d 20 62 75 66 70 74 29 29 3b 0a 20 20 20 20 20 - bufpt));.
3300: 20 69 66 28 20 2a 66 6d 74 3d 3d 30 20 29 20 62 if( *fmt==0 ) b
3310: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 reak;. }.
3320: 69 66 28 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 if( (c=(*++fmt))
3330: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 65 72 72 ==0 ){. err
3340: 6f 72 66 6c 61 67 20 3d 20 31 3b 0a 20 20 20 20 orflag = 1;.
3350: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 42 blob_append(pB
3360: 6c 6f 62 2c 22 25 22 2c 31 29 3b 0a 20 20 20 20 lob,"%",1);.
3370: 20 20 63 6f 75 6e 74 2b 2b 3b 0a 20 20 20 20 20 count++;.
3380: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 break;. }.
3390: 20 20 2f 2a 20 46 69 6e 64 20 6f 75 74 20 77 68 /* Find out wh
33a0: 61 74 20 66 6c 61 67 73 20 61 72 65 20 70 72 65 at flags are pre
33b0: 73 65 6e 74 20 2a 2f 0a 20 20 20 20 66 6c 61 67 sent */. flag
33c0: 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d 20 66 _leftjustify = f
33d0: 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 3d 20 66 lag_plussign = f
33e0: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 3d 20 lag_blanksign =
33f0: 63 54 68 6f 75 73 61 6e 64 20 3d 0a 20 20 20 20 cThousand =.
3400: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
3410: 6f 72 6d 20 3d 20 66 6c 61 67 5f 61 6c 74 66 6f orm = flag_altfo
3420: 72 6d 32 20 3d 20 66 6c 61 67 5f 7a 65 72 6f 70 rm2 = flag_zerop
3430: 61 64 20 3d 20 30 3b 0a 20 20 20 20 64 6f 6e 65 ad = 0;. done
3440: 20 3d 20 30 3b 0a 20 20 20 20 64 6f 7b 0a 20 20 = 0;. do{.
3450: 20 20 20 20 73 77 69 74 63 68 28 20 63 20 29 7b switch( c ){
3460: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 2d . case '-
3470: 27 3a 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 ': flag_leftju
3480: 73 74 69 66 79 20 3d 20 31 3b 20 20 20 20 20 62 stify = 1; b
3490: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 reak;. ca
34a0: 73 65 20 27 2b 27 3a 20 20 20 66 6c 61 67 5f 70 se '+': flag_p
34b0: 6c 75 73 73 69 67 6e 20 3d 20 31 3b 20 20 20 20 lussign = 1;
34c0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
34d0: 20 20 20 63 61 73 65 20 27 20 27 3a 20 20 20 66 case ' ': f
34e0: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 3d 20 lag_blanksign =
34f0: 31 3b 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 1; break;.
3500: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 23 27 case '#'
3510: 3a 20 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 : flag_alterna
3520: 74 65 66 6f 72 6d 20 3d 20 31 3b 20 20 20 62 72 teform = 1; br
3530: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 eak;. cas
3540: 65 20 27 21 27 3a 20 20 20 66 6c 61 67 5f 61 6c e '!': flag_al
3550: 74 66 6f 72 6d 32 20 3d 20 31 3b 20 20 20 20 20 tform2 = 1;
3560: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
3570: 20 20 63 61 73 65 20 27 30 27 3a 20 20 20 66 6c case '0': fl
3580: 61 67 5f 7a 65 72 6f 70 61 64 20 3d 20 31 3b 20 ag_zeropad = 1;
3590: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
35a0: 20 20 20 20 20 20 20 63 61 73 65 20 27 2c 27 3a case ',':
35b0: 20 20 20 63 54 68 6f 75 73 61 6e 64 20 3d 20 27 cThousand = '
35c0: 2c 27 3b 20 20 20 20 20 20 20 20 20 20 62 72 65 ,'; bre
35d0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 64 65 66 61 ak;. defa
35e0: 75 6c 74 3a 20 20 20 20 64 6f 6e 65 20 3d 20 31 ult: done = 1
35f0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
3600: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d break;. }
3610: 0a 20 20 20 20 7d 77 68 69 6c 65 28 20 21 64 6f . }while( !do
3620: 6e 65 20 26 26 20 28 63 3d 28 2a 2b 2b 66 6d 74 ne && (c=(*++fmt
3630: 29 29 21 3d 30 20 29 3b 0a 20 20 20 20 2f 2a 20 ))!=0 );. /*
3640: 47 65 74 20 74 68 65 20 66 69 65 6c 64 20 77 69 Get the field wi
3650: 64 74 68 20 2a 2f 0a 20 20 20 20 77 69 64 74 68 dth */. width
3660: 20 3d 20 30 3b 0a 20 20 20 20 69 66 28 20 63 3d = 0;. if( c=
3670: 3d 27 2a 27 20 29 7b 0a 20 20 20 20 20 20 77 69 ='*' ){. wi
3680: 64 74 68 20 3d 20 76 61 5f 61 72 67 28 61 70 2c dth = va_arg(ap,
3690: 69 6e 74 29 3b 0a 20 20 20 20 20 20 69 66 28 20 int);. if(
36a0: 77 69 64 74 68 3c 30 20 29 7b 0a 20 20 20 20 20 width<0 ){.
36b0: 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 flag_leftjust
36c0: 69 66 79 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 ify = 1;.
36d0: 20 77 69 64 74 68 20 3d 20 2d 77 69 64 74 68 3b width = -width;
36e0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 . }. c
36f0: 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 7d = *++fmt;. }
3700: 65 6c 73 65 7b 0a 20 20 20 20 20 20 77 68 69 6c else{. whil
3710: 65 28 20 63 3e 3d 27 30 27 20 26 26 20 63 3c 3d e( c>='0' && c<=
3720: 27 39 27 20 29 7b 0a 20 20 20 20 20 20 20 20 77 '9' ){. w
3730: 69 64 74 68 20 3d 20 77 69 64 74 68 2a 31 30 20 idth = width*10
3740: 2b 20 63 20 2d 20 27 30 27 3b 0a 20 20 20 20 20 + c - '0';.
3750: 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 c = *++fmt;.
3760: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
3770: 20 69 66 28 20 77 69 64 74 68 20 3e 20 65 74 42 if( width > etB
3780: 55 46 53 49 5a 45 2d 31 30 20 29 7b 0a 20 20 20 UFSIZE-10 ){.
3790: 20 20 20 77 69 64 74 68 20 3d 20 65 74 42 55 46 width = etBUF
37a0: 53 49 5a 45 2d 31 30 3b 0a 20 20 20 20 7d 0a 20 SIZE-10;. }.
37b0: 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20 70 72 /* Get the pr
37c0: 65 63 69 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 ecision */. i
37d0: 66 28 20 63 3d 3d 27 2e 27 20 29 7b 0a 20 20 20 f( c=='.' ){.
37e0: 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 30 precision = 0
37f0: 3b 0a 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 ;. c = *++f
3800: 6d 74 3b 0a 20 20 20 20 20 20 69 66 28 20 63 3d mt;. if( c=
3810: 3d 27 2a 27 20 29 7b 0a 20 20 20 20 20 20 20 20 ='*' ){.
3820: 70 72 65 63 69 73 69 6f 6e 20 3d 20 76 61 5f 61 precision = va_a
3830: 72 67 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 rg(ap,int);.
3840: 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f if( precisio
3850: 6e 3c 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 n<0 ) precision
3860: 3d 20 2d 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 = -precision;.
3870: 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 c = *++fmt
3880: 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 ;. }else{.
3890: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 63 3e while( c>
38a0: 3d 27 30 27 20 26 26 20 63 3c 3d 27 39 27 20 29 ='0' && c<='9' )
38b0: 7b 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 63 {. prec
38c0: 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73 69 6f ision = precisio
38d0: 6e 2a 31 30 20 2b 20 63 20 2d 20 27 30 27 3b 0a n*10 + c - '0';.
38e0: 20 20 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b c = *+
38f0: 2b 66 6d 74 3b 0a 20 20 20 20 20 20 20 20 7d 0a +fmt;. }.
3900: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 }. }els
3910: 65 7b 0a 20 20 20 20 20 20 70 72 65 63 69 73 69 e{. precisi
3920: 6f 6e 20 3d 20 2d 31 3b 0a 20 20 20 20 7d 0a 20 on = -1;. }.
3930: 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20 63 6f /* Get the co
3940: 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 20 6d 6f nversion type mo
3950: 64 69 66 69 65 72 20 2a 2f 0a 20 20 20 20 69 66 difier */. if
3960: 28 20 63 3d 3d 27 6c 27 20 29 7b 0a 20 20 20 20 ( c=='l' ){.
3970: 20 20 66 6c 61 67 5f 6c 6f 6e 67 20 3d 20 31 3b flag_long = 1;
3980: 0a 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d . c = *++fm
3990: 74 3b 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d t;. if( c==
39a0: 27 6c 27 20 29 7b 0a 20 20 20 20 20 20 20 20 66 'l' ){. f
39b0: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 3d 20 31 lag_longlong = 1
39c0: 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b ;. c = *+
39d0: 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 65 6c 73 +fmt;. }els
39e0: 65 7b 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f e{. flag_
39f0: 6c 6f 6e 67 6c 6f 6e 67 20 3d 20 30 3b 0a 20 20 longlong = 0;.
3a00: 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b }. }else{
3a10: 0a 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 . flag_long
3a20: 20 3d 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 = flag_longlong
3a30: 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 = 0;. }.
3a40: 2f 2a 20 46 65 74 63 68 20 74 68 65 20 69 6e 66 /* Fetch the inf
3a50: 6f 20 65 6e 74 72 79 20 66 6f 72 20 74 68 65 20 o entry for the
3a60: 66 69 65 6c 64 20 2a 2f 0a 20 20 20 20 7a 46 6d field */. zFm
3a70: 74 4c 6f 6f 6b 75 70 20 3d 20 73 74 72 63 68 72 tLookup = strchr
3a80: 28 66 6d 74 63 68 72 2c 63 29 3b 0a 20 20 20 20 (fmtchr,c);.
3a90: 69 66 28 20 7a 46 6d 74 4c 6f 6f 6b 75 70 20 29 if( zFmtLookup )
3aa0: 7b 0a 20 20 20 20 20 20 69 6e 66 6f 70 20 3d 20 {. infop =
3ab0: 26 66 6d 74 69 6e 66 6f 5b 7a 46 6d 74 4c 6f 6f &fmtinfo[zFmtLoo
3ac0: 6b 75 70 2d 66 6d 74 63 68 72 5d 3b 0a 20 20 20 kup-fmtchr];.
3ad0: 20 20 20 78 74 79 70 65 20 3d 20 69 6e 66 6f 70 xtype = infop
3ae0: 2d 3e 74 79 70 65 3b 0a 20 20 20 20 7d 65 6c 73 ->type;. }els
3af0: 65 7b 0a 20 20 20 20 20 20 69 6e 66 6f 70 20 3d e{. infop =
3b00: 20 30 3b 0a 20 20 20 20 20 20 78 74 79 70 65 20 0;. xtype
3b10: 3d 20 65 74 45 52 52 4f 52 3b 0a 20 20 20 20 7d = etERROR;. }
3b20: 0a 20 20 20 20 7a 45 78 74 72 61 20 3d 20 30 3b . zExtra = 0;
3b30: 0a 0a 20 20 20 20 2f 2a 20 4c 69 6d 69 74 20 74 .. /* Limit t
3b40: 68 65 20 70 72 65 63 69 73 69 6f 6e 20 74 6f 20 he precision to
3b50: 70 72 65 76 65 6e 74 20 6f 76 65 72 66 6c 6f 77 prevent overflow
3b60: 69 6e 67 20 62 75 66 5b 5d 20 64 75 72 69 6e 67 ing buf[] during
3b70: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 20 conversion */.
3b80: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e if( precision
3b90: 3e 65 74 42 55 46 53 49 5a 45 2d 34 30 20 26 26 >etBUFSIZE-40 &&
3ba0: 20 28 69 6e 66 6f 70 2d 3e 66 6c 61 67 73 20 26 (infop->flags &
3bb0: 20 46 4c 41 47 5f 53 54 52 49 4e 47 29 3d 3d 30 FLAG_STRING)==0
3bc0: 20 29 7b 0a 20 20 20 20 20 20 70 72 65 63 69 73 ){. precis
3bd0: 69 6f 6e 20 3d 20 65 74 42 55 46 53 49 5a 45 2d ion = etBUFSIZE-
3be0: 34 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 40;. }.. /
3bf0: 2a 0a 20 20 20 20 2a 2a 20 41 74 20 74 68 69 73 *. ** At this
3c00: 20 70 6f 69 6e 74 2c 20 76 61 72 69 61 62 6c 65 point, variable
3c10: 73 20 61 72 65 20 69 6e 69 74 69 61 6c 69 7a 65 s are initialize
3c20: 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20 d as follows:.
3c30: 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 66 6c **. ** fl
3c40: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d ag_alternateform
3c50: 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69 TRUE i
3c60: 66 20 61 20 27 23 27 20 69 73 20 70 72 65 73 65 f a '#' is prese
3c70: 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 nt.. ** fla
3c80: 67 5f 61 6c 74 66 6f 72 6d 32 20 20 20 20 20 20 g_altform2
3c90: 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66 TRUE if
3ca0: 20 61 20 27 21 27 20 69 73 20 70 72 65 73 65 6e a '!' is presen
3cb0: 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 t.. ** flag
3cc0: 5f 70 6c 75 73 73 69 67 6e 20 20 20 20 20 20 20 _plussign
3cd0: 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 TRUE if
3ce0: 61 20 27 2b 27 20 69 73 20 70 72 65 73 65 6e 74 a '+' is present
3cf0: 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f .. ** flag_
3d00: 6c 65 66 74 6a 75 73 74 69 66 79 20 20 20 20 20 leftjustify
3d10: 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 61 TRUE if a
3d20: 20 27 2d 27 20 69 73 20 70 72 65 73 65 6e 74 20 '-' is present
3d30: 6f 72 20 69 66 20 74 68 65 0a 20 20 20 20 2a 2a or if the. **
3d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 f
3d60: 69 65 6c 64 20 77 69 64 74 68 20 77 61 73 20 6e ield width was n
3d70: 65 67 61 74 69 76 65 2e 0a 20 20 20 20 2a 2a 20 egative.. **
3d80: 20 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 20 flag_zeropad
3d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 TR
3da0: 55 45 20 69 66 20 74 68 65 20 77 69 64 74 68 20 UE if the width
3db0: 62 65 67 61 6e 20 77 69 74 68 20 30 2e 0a 20 20 began with 0..
3dc0: 20 20 2a 2a 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 ** flag_long
3dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3de0: 20 20 20 54 52 55 45 20 69 66 20 74 68 65 20 6c TRUE if the l
3df0: 65 74 74 65 72 20 27 6c 27 20 28 65 6c 6c 29 20 etter 'l' (ell)
3e00: 70 72 65 66 69 78 65 64 0a 20 20 20 20 2a 2a 20 prefixed. **
3e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 th
3e30: 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 63 68 61 e conversion cha
3e40: 72 61 63 74 65 72 2e 0a 20 20 20 20 2a 2a 20 20 racter.. **
3e50: 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 20 flag_longlong
3e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 TRU
3e70: 45 20 69 66 20 74 68 65 20 6c 65 74 74 65 72 20 E if the letter
3e80: 27 6c 6c 27 20 28 65 6c 6c 20 65 6c 6c 29 20 70 'll' (ell ell) p
3e90: 72 65 66 69 78 65 64 0a 20 20 20 20 2a 2a 20 20 refixed. **
3ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 the
3ec0: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 63 68 61 72 conversion char
3ed0: 61 63 74 65 72 2e 0a 20 20 20 20 2a 2a 20 20 20 acter.. **
3ee0: 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 20 flag_blanksign
3ef0: 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45 TRUE
3f00: 20 69 66 20 61 20 27 20 27 20 69 73 20 70 72 65 if a ' ' is pre
3f10: 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 77 sent.. ** w
3f20: 69 64 74 68 20 20 20 20 20 20 20 20 20 20 20 20 idth
3f30: 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 73 The s
3f40: 70 65 63 69 66 69 65 64 20 66 69 65 6c 64 20 77 pecified field w
3f50: 69 64 74 68 2e 20 20 54 68 69 73 20 69 73 0a 20 idth. This is.
3f60: 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 **
3f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3f80: 20 20 20 20 61 6c 77 61 79 73 20 6e 6f 6e 2d 6e always non-n
3f90: 65 67 61 74 69 76 65 2e 20 20 5a 65 72 6f 20 69 egative. Zero i
3fa0: 73 20 74 68 65 20 64 65 66 61 75 6c 74 2e 0a 20 s the default..
3fb0: 20 20 20 2a 2a 20 20 20 70 72 65 63 69 73 69 6f ** precisio
3fc0: 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n
3fd0: 20 20 20 20 54 68 65 20 73 70 65 63 69 66 69 65 The specifie
3fe0: 64 20 70 72 65 63 69 73 69 6f 6e 2e 20 20 54 68 d precision. Th
3ff0: 65 20 64 65 66 61 75 6c 74 0a 20 20 20 20 2a 2a e default. **
4000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 i
4020: 73 20 2d 31 2e 0a 20 20 20 20 2a 2a 20 20 20 78 s -1.. ** x
4030: 74 79 70 65 20 20 20 20 20 20 20 20 20 20 20 20 type
4040: 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20 63 The c
4050: 6c 61 73 73 20 6f 66 20 74 68 65 20 63 6f 6e 76 lass of the conv
4060: 65 72 73 69 6f 6e 2e 0a 20 20 20 20 2a 2a 20 20 ersion.. **
4070: 20 69 6e 66 6f 70 20 20 20 20 20 20 20 20 20 20 infop
4080: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 6f 69 Poi
4090: 6e 74 65 72 20 74 6f 20 74 68 65 20 61 70 70 72 nter to the appr
40a0: 6f 70 72 69 61 74 65 20 69 6e 66 6f 20 73 74 72 opriate info str
40b0: 75 63 74 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 uct.. */.
40c0: 73 77 69 74 63 68 28 20 78 74 79 70 65 20 29 7b switch( xtype ){
40d0: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 50 4f . case etPO
40e0: 49 4e 54 45 52 3a 0a 20 20 20 20 20 20 20 20 66 INTER:. f
40f0: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 3d 20 73 lag_longlong = s
4100: 69 7a 65 6f 66 28 63 68 61 72 2a 29 3d 3d 73 69 izeof(char*)==si
4110: 7a 65 6f 66 28 69 36 34 29 3b 0a 20 20 20 20 20 zeof(i64);.
4120: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20 3d 20 73 flag_long = s
4130: 69 7a 65 6f 66 28 63 68 61 72 2a 29 3d 3d 73 69 izeof(char*)==si
4140: 7a 65 6f 66 28 6c 6f 6e 67 20 69 6e 74 29 3b 0a zeof(long int);.
4150: 20 20 20 20 20 20 20 20 2f 2a 20 46 61 6c 6c 20 /* Fall
4160: 74 68 72 6f 75 67 68 20 69 6e 74 6f 20 74 68 65 through into the
4170: 20 6e 65 78 74 20 63 61 73 65 20 2a 2f 0a 20 20 next case */.
4180: 20 20 20 20 63 61 73 65 20 65 74 52 41 44 49 58 case etRADIX
4190: 3a 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 6e :. if( in
41a0: 66 6f 70 2d 3e 66 6c 61 67 73 20 26 20 46 4c 41 fop->flags & FLA
41b0: 47 5f 53 49 47 4e 45 44 20 29 7b 0a 20 20 20 20 G_SIGNED ){.
41c0: 20 20 20 20 20 20 69 36 34 20 76 3b 0a 20 20 20 i64 v;.
41d0: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
41e0: 6c 6f 6e 67 6c 6f 6e 67 20 29 20 20 20 76 20 3d longlong ) v =
41f0: 20 76 61 5f 61 72 67 28 61 70 2c 69 36 34 29 3b va_arg(ap,i64);
4200: 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 . else
4210: 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67 20 29 20 if( flag_long )
4220: 20 76 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 6c v = va_arg(ap,l
4230: 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 20 20 20 20 ong int);.
4240: 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20 20 else
4250: 20 20 20 20 20 20 20 20 20 20 76 20 3d 20 76 61 v = va
4260: 5f 61 72 67 28 61 70 2c 69 6e 74 29 3b 0a 20 20 _arg(ap,int);.
4270: 20 20 20 20 20 20 20 20 69 66 28 20 76 3c 30 20 if( v<0
4280: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c ){. l
4290: 6f 6e 67 76 61 6c 75 65 20 3d 20 2d 76 3b 0a 20 ongvalue = -v;.
42a0: 20 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 prefi
42b0: 78 20 3d 20 27 2d 27 3b 0a 20 20 20 20 20 20 20 x = '-';.
42c0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
42d0: 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c 75 65 20 longvalue
42e0: 3d 20 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 = v;.
42f0: 20 69 66 28 20 66 6c 61 67 5f 70 6c 75 73 73 69 if( flag_plussi
4300: 67 6e 20 29 20 20 20 20 20 20 20 20 70 72 65 66 gn ) pref
4310: 69 78 20 3d 20 27 2b 27 3b 0a 20 20 20 20 20 20 ix = '+';.
4320: 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 66 else if( f
4330: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 29 20 lag_blanksign )
4340: 20 70 72 65 66 69 78 20 3d 20 27 20 27 3b 0a 20 prefix = ' ';.
4350: 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 else
4360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4370: 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 30 prefix = 0
4380: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 ;. }.
4390: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }else{.
43a0: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
43b0: 6c 6f 6e 67 6c 6f 6e 67 20 29 20 20 20 6c 6f 6e longlong ) lon
43c0: 67 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 gvalue = va_arg(
43d0: 61 70 2c 75 36 34 29 3b 0a 20 20 20 20 20 20 20 ap,u64);.
43e0: 20 20 20 65 6c 73 65 20 69 66 28 20 66 6c 61 67 else if( flag
43f0: 5f 6c 6f 6e 67 20 29 20 20 6c 6f 6e 67 76 61 6c _long ) longval
4400: 75 65 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 75 ue = va_arg(ap,u
4410: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 69 6e 74 nsigned long int
4420: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 );. els
4430: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e
4440: 20 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 longvalue = v
4450: 61 5f 61 72 67 28 61 70 2c 75 6e 73 69 67 6e 65 a_arg(ap,unsigne
4460: 64 20 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 d int);.
4470: 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20 prefix = 0;.
4480: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
4490: 69 66 28 20 6c 6f 6e 67 76 61 6c 75 65 3d 3d 30 if( longvalue==0
44a0: 20 29 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 ) flag_alternat
44b0: 65 66 6f 72 6d 20 3d 20 30 3b 0a 20 20 20 20 20 eform = 0;.
44c0: 20 20 20 69 66 28 20 66 6c 61 67 5f 7a 65 72 6f if( flag_zero
44d0: 70 61 64 20 26 26 20 70 72 65 63 69 73 69 6f 6e pad && precision
44e0: 3c 77 69 64 74 68 2d 28 70 72 65 66 69 78 21 3d <width-(prefix!=
44f0: 30 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 0) ){.
4500: 70 72 65 63 69 73 69 6f 6e 20 3d 20 77 69 64 74 precision = widt
4510: 68 2d 28 70 72 65 66 69 78 21 3d 30 29 3b 0a 20 h-(prefix!=0);.
4520: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
4530: 20 62 75 66 70 74 20 3d 20 26 62 75 66 5b 65 74 bufpt = &buf[et
4540: 42 55 46 53 49 5a 45 2d 31 5d 3b 0a 20 20 20 20 BUFSIZE-1];.
4550: 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 {.
4560: 72 65 67 69 73 74 65 72 20 63 6f 6e 73 74 20 63 register const c
4570: 68 61 72 20 2a 63 73 65 74 3b 20 20 20 20 20 20 har *cset;
4580: 2f 2a 20 55 73 65 20 72 65 67 69 73 74 65 72 73 /* Use registers
4590: 20 66 6f 72 20 73 70 65 65 64 20 2a 2f 0a 20 20 for speed */.
45a0: 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65 72 register
45b0: 20 69 6e 74 20 62 61 73 65 3b 0a 20 20 20 20 20 int base;.
45c0: 20 20 20 20 20 63 73 65 74 20 3d 20 26 61 44 69 cset = &aDi
45d0: 67 69 74 73 5b 69 6e 66 6f 70 2d 3e 63 68 61 72 gits[infop->char
45e0: 73 65 74 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 set];.
45f0: 62 61 73 65 20 3d 20 69 6e 66 6f 70 2d 3e 62 61 base = infop->ba
4600: 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 64 6f se;. do
4610: 7b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {
4620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4630: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 /* C
4640: 6f 6e 76 65 72 74 20 74 6f 20 61 73 63 69 69 20 onvert to ascii
4650: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a */. *
4660: 28 2d 2d 62 75 66 70 74 29 20 3d 20 63 73 65 74 (--bufpt) = cset
4670: 5b 6c 6f 6e 67 76 61 6c 75 65 25 62 61 73 65 5d [longvalue%base]
4680: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f ;. lo
4690: 6e 67 76 61 6c 75 65 20 3d 20 6c 6f 6e 67 76 61 ngvalue = longva
46a0: 6c 75 65 2f 62 61 73 65 3b 0a 20 20 20 20 20 20 lue/base;.
46b0: 20 20 20 20 7d 77 68 69 6c 65 28 20 6c 6f 6e 67 }while( long
46c0: 76 61 6c 75 65 3e 30 20 29 3b 0a 20 20 20 20 20 value>0 );.
46d0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e }. len
46e0: 67 74 68 20 3d 20 26 62 75 66 5b 65 74 42 55 46 gth = &buf[etBUF
46f0: 53 49 5a 45 2d 31 5d 2d 62 75 66 70 74 3b 0a 20 SIZE-1]-bufpt;.
4700: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 70 72 while( pr
4710: 65 63 69 73 69 6f 6e 3e 6c 65 6e 67 74 68 20 29 ecision>length )
4720: 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 2d 2d {. *(--
4730: 62 75 66 70 74 29 20 3d 20 27 30 27 3b 20 20 20 bufpt) = '0';
4740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4750: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 5a 65 72 /* Zer
4760: 6f 20 70 61 64 20 2a 2f 0a 20 20 20 20 20 20 20 o pad */.
4770: 20 20 20 6c 65 6e 67 74 68 2b 2b 3b 0a 20 20 20 length++;.
4780: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 }. i
4790: 66 28 20 63 54 68 6f 75 73 61 6e 64 20 29 7b 0a f( cThousand ){.
47a0: 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 6e 6e int nn
47b0: 20 3d 20 28 6c 65 6e 67 74 68 20 2d 20 31 29 2f = (length - 1)/
47c0: 33 3b 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 3; /* Number of
47d0: 20 22 2c 22 20 74 6f 20 69 6e 73 65 72 74 20 2a "," to insert *
47e0: 2f 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 /. int
47f0: 69 78 20 3d 20 28 6c 65 6e 67 74 68 20 2d 20 31 ix = (length - 1
4800: 29 25 33 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 )%3 + 1;.
4810: 20 20 20 62 75 66 70 74 20 2d 3d 20 6e 6e 3b 0a bufpt -= nn;.
4820: 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 69 64 for(id
4830: 78 3d 30 3b 20 6e 6e 3e 30 3b 20 69 64 78 2b 2b x=0; nn>0; idx++
4840: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ){. b
4850: 75 66 70 74 5b 69 64 78 5d 20 3d 20 62 75 66 70 ufpt[idx] = bufp
4860: 74 5b 69 64 78 2b 6e 6e 5d 3b 0a 20 20 20 20 20 t[idx+nn];.
4870: 20 20 20 20 20 20 20 69 78 2d 2d 3b 0a 20 20 20 ix--;.
4880: 20 20 20 20 20 20 20 20 20 69 66 28 20 69 78 3d if( ix=
4890: 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 =0 ){.
48a0: 20 20 20 20 62 75 66 70 74 5b 2b 2b 69 64 78 5d bufpt[++idx]
48b0: 20 3d 20 63 54 68 6f 75 73 61 6e 64 3b 0a 20 20 = cThousand;.
48c0: 20 20 20 20 20 20 20 20 20 20 20 20 6e 6e 2d 2d nn--
48d0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
48e0: 69 78 20 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 ix = 3;.
48f0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 }.
4900: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
4910: 20 20 20 20 69 66 28 20 70 72 65 66 69 78 20 29 if( prefix )
4920: 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 70 72 *(--bufpt) = pr
4930: 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 efix;
4940: 20 20 20 20 2f 2a 20 41 64 64 20 73 69 67 6e 20 /* Add sign
4950: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 */. if( f
4960: 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 lag_alternatefor
4970: 6d 20 26 26 20 69 6e 66 6f 70 2d 3e 70 72 65 66 m && infop->pref
4980: 69 78 20 29 7b 20 20 20 20 20 20 2f 2a 20 41 64 ix ){ /* Ad
4990: 64 20 22 30 22 20 6f 72 20 22 30 78 22 20 2a 2f d "0" or "0x" */
49a0: 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 74 . const
49b0: 20 63 68 61 72 20 2a 70 72 65 3b 0a 20 20 20 20 char *pre;.
49c0: 20 20 20 20 20 20 63 68 61 72 20 78 3b 0a 20 20 char x;.
49d0: 20 20 20 20 20 20 20 20 70 72 65 20 3d 20 26 61 pre = &a
49e0: 50 72 65 66 69 78 5b 69 6e 66 6f 70 2d 3e 70 72 Prefix[infop->pr
49f0: 65 66 69 78 5d 3b 0a 20 20 20 20 20 20 20 20 20 efix];.
4a00: 20 69 66 28 20 2a 62 75 66 70 74 21 3d 70 72 65 if( *bufpt!=pre
4a10: 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 20 [0] ){.
4a20: 20 20 20 66 6f 72 28 3b 20 28 78 3d 28 2a 70 72 for(; (x=(*pr
4a30: 65 29 29 21 3d 30 3b 20 70 72 65 2b 2b 29 20 2a e))!=0; pre++) *
4a40: 28 2d 2d 62 75 66 70 74 29 20 3d 20 78 3b 0a 20 (--bufpt) = x;.
4a50: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
4a60: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e }. len
4a70: 67 74 68 20 3d 20 26 62 75 66 5b 65 74 42 55 46 gth = &buf[etBUF
4a80: 53 49 5a 45 2d 31 5d 2d 62 75 66 70 74 3b 0a 20 SIZE-1]-bufpt;.
4a90: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
4aa0: 20 20 20 20 63 61 73 65 20 65 74 46 4c 4f 41 54 case etFLOAT
4ab0: 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 45 :. case etE
4ac0: 58 50 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 XP:. case e
4ad0: 74 47 45 4e 45 52 49 43 3a 0a 20 20 20 20 20 20 tGENERIC:.
4ae0: 20 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 76 61 realvalue = va
4af0: 5f 61 72 67 28 61 70 2c 64 6f 75 62 6c 65 29 3b _arg(ap,double);
4b00: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 . if( pre
4b10: 63 69 73 69 6f 6e 3c 30 20 29 20 70 72 65 63 69 cision<0 ) preci
4b20: 73 69 6f 6e 20 3d 20 36 3b 20 20 20 20 20 20 20 sion = 6;
4b30: 20 20 2f 2a 20 53 65 74 20 64 65 66 61 75 6c 74 /* Set default
4b40: 20 70 72 65 63 69 73 69 6f 6e 20 2a 2f 0a 20 20 precision */.
4b50: 20 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 if( precis
4b60: 69 6f 6e 3e 65 74 42 55 46 53 49 5a 45 2f 32 2d ion>etBUFSIZE/2-
4b70: 31 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 10 ) precision =
4b80: 20 65 74 42 55 46 53 49 5a 45 2f 32 2d 31 30 3b etBUFSIZE/2-10;
4b90: 0a 20 20 20 20 20 20 20 20 69 66 28 20 72 65 61 . if( rea
4ba0: 6c 76 61 6c 75 65 3c 30 2e 30 20 29 7b 0a 20 20 lvalue<0.0 ){.
4bb0: 20 20 20 20 20 20 20 20 72 65 61 6c 76 61 6c 75 realvalu
4bc0: 65 20 3d 20 2d 72 65 61 6c 76 61 6c 75 65 3b 0a e = -realvalue;.
4bd0: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 prefix
4be0: 20 3d 20 27 2d 27 3b 0a 20 20 20 20 20 20 20 20 = '-';.
4bf0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 }else{.
4c00: 20 69 66 28 20 66 6c 61 67 5f 70 6c 75 73 73 69 if( flag_plussi
4c10: 67 6e 20 29 20 20 20 20 20 20 20 20 20 20 70 72 gn ) pr
4c20: 65 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 20 20 efix = '+';.
4c30: 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 66 else if( f
4c40: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 29 20 lag_blanksign )
4c50: 20 20 20 70 72 65 66 69 78 20 3d 20 27 20 27 3b prefix = ' ';
4c60: 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 . else
4c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4c80: 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d prefix =
4c90: 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 0;. }.
4ca0: 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65 3d if( xtype=
4cb0: 3d 65 74 47 45 4e 45 52 49 43 20 26 26 20 70 72 =etGENERIC && pr
4cc0: 65 63 69 73 69 6f 6e 3e 30 20 29 20 70 72 65 63 ecision>0 ) prec
4cd0: 69 73 69 6f 6e 2d 2d 3b 0a 23 69 66 20 30 0a 20 ision--;.#if 0.
4ce0: 20 20 20 20 20 20 20 2f 2a 20 52 6f 75 6e 64 69 /* Roundi
4cf0: 6e 67 20 77 6f 72 6b 73 20 6c 69 6b 65 20 42 53 ng works like BS
4d00: 44 20 77 68 65 6e 20 74 68 65 20 63 6f 6e 73 74 D when the const
4d10: 61 6e 74 20 30 2e 34 39 39 39 20 69 73 20 75 73 ant 0.4999 is us
4d20: 65 64 2e 20 20 57 69 65 72 64 21 20 2a 2f 0a 20 ed. Wierd! */.
4d30: 20 20 20 20 20 20 20 66 6f 72 28 69 64 78 3d 70 for(idx=p
4d40: 72 65 63 69 73 69 6f 6e 2c 20 72 6f 75 6e 64 65 recision, rounde
4d50: 72 3d 30 2e 34 39 39 39 3b 20 69 64 78 3e 30 3b r=0.4999; idx>0;
4d60: 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65 72 2a idx--, rounder*
4d70: 3d 30 2e 31 29 3b 0a 23 65 6c 73 65 0a 20 20 20 =0.1);.#else.
4d80: 20 20 20 20 20 2f 2a 20 49 74 20 6d 61 6b 65 73 /* It makes
4d90: 20 6d 6f 72 65 20 73 65 6e 73 65 20 74 6f 20 75 more sense to u
4da0: 73 65 20 30 2e 35 20 2a 2f 0a 20 20 20 20 20 20 se 0.5 */.
4db0: 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 for(idx=precis
4dc0: 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e 35 ion, rounder=0.5
4dd0: 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d 2c 20 ; idx>0; idx--,
4de0: 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 3b 0a 23 rounder*=0.1);.#
4df0: 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 69 66 endif. if
4e00: 28 20 78 74 79 70 65 3d 3d 65 74 46 4c 4f 41 54 ( xtype==etFLOAT
4e10: 20 29 20 72 65 61 6c 76 61 6c 75 65 20 2b 3d 20 ) realvalue +=
4e20: 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 rounder;.
4e30: 20 2f 2a 20 4e 6f 72 6d 61 6c 69 7a 65 20 72 65 /* Normalize re
4e40: 61 6c 76 61 6c 75 65 20 74 6f 20 77 69 74 68 69 alvalue to withi
4e50: 6e 20 31 30 2e 30 20 3e 20 72 65 61 6c 76 61 6c n 10.0 > realval
4e60: 75 65 20 3e 3d 20 31 2e 30 20 2a 2f 0a 20 20 20 ue >= 1.0 */.
4e70: 20 20 20 20 20 65 78 70 20 3d 20 30 3b 0a 20 20 exp = 0;.
4e80: 20 20 20 20 20 20 69 66 28 20 72 65 61 6c 76 61 if( realva
4e90: 6c 75 65 3e 30 2e 30 20 29 7b 0a 20 20 20 20 20 lue>0.0 ){.
4ea0: 20 20 20 20 20 77 68 69 6c 65 28 20 72 65 61 6c while( real
4eb0: 76 61 6c 75 65 3e 3d 31 65 33 32 20 26 26 20 65 value>=1e32 && e
4ec0: 78 70 3c 3d 33 35 30 20 29 7b 20 72 65 61 6c 76 xp<=350 ){ realv
4ed0: 61 6c 75 65 20 2a 3d 20 31 65 2d 33 32 3b 20 65 alue *= 1e-32; e
4ee0: 78 70 2b 3d 33 32 3b 20 7d 0a 20 20 20 20 20 20 xp+=32; }.
4ef0: 20 20 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 while( realv
4f00: 61 6c 75 65 3e 3d 31 65 38 20 26 26 20 65 78 70 alue>=1e8 && exp
4f10: 3c 3d 33 35 30 20 29 7b 20 72 65 61 6c 76 61 6c <=350 ){ realval
4f20: 75 65 20 2a 3d 20 31 65 2d 38 3b 20 65 78 70 2b ue *= 1e-8; exp+
4f30: 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 =8; }.
4f40: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 while( realvalue
4f50: 3e 3d 31 30 2e 30 20 26 26 20 65 78 70 3c 3d 33 >=10.0 && exp<=3
4f60: 35 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 50 ){ realvalue
4f70: 2a 3d 20 30 2e 31 3b 20 65 78 70 2b 2b 3b 20 7d *= 0.1; exp++; }
4f80: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 . while
4f90: 28 20 72 65 61 6c 76 61 6c 75 65 3c 31 65 2d 38 ( realvalue<1e-8
4fa0: 20 26 26 20 65 78 70 3e 3d 2d 33 35 30 20 29 7b && exp>=-350 ){
4fb0: 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 31 65 realvalue *= 1e
4fc0: 38 3b 20 65 78 70 2d 3d 38 3b 20 7d 0a 20 20 20 8; exp-=8; }.
4fd0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 65 while( re
4fe0: 61 6c 76 61 6c 75 65 3c 31 2e 30 20 26 26 20 65 alvalue<1.0 && e
4ff0: 78 70 3e 3d 2d 33 35 30 20 29 7b 20 72 65 61 6c xp>=-350 ){ real
5000: 76 61 6c 75 65 20 2a 3d 20 31 30 2e 30 3b 20 65 value *= 10.0; e
5010: 78 70 2d 2d 3b 20 7d 0a 20 20 20 20 20 20 20 20 xp--; }.
5020: 20 20 69 66 28 20 65 78 70 3e 33 35 30 20 7c 7c if( exp>350 ||
5030: 20 65 78 70 3c 2d 33 35 30 20 29 7b 0a 20 20 20 exp<-350 ){.
5040: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d bufpt =
5050: 20 22 4e 61 4e 22 3b 0a 20 20 20 20 20 20 20 20 "NaN";.
5060: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 33 3b 0a length = 3;.
5070: 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 brea
5080: 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 k;. }.
5090: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
50a0: 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 20 bufpt = buf;.
50b0: 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 20 /*.
50c0: 20 2a 2a 20 49 66 20 74 68 65 20 66 69 65 6c 64 ** If the field
50d0: 20 74 79 70 65 20 69 73 20 65 74 47 45 4e 45 52 type is etGENER
50e0: 49 43 2c 20 74 68 65 6e 20 63 6f 6e 76 65 72 74 IC, then convert
50f0: 20 74 6f 20 65 69 74 68 65 72 20 65 74 45 58 50 to either etEXP
5100: 0a 20 20 20 20 20 20 20 20 2a 2a 20 6f 72 20 65 . ** or e
5110: 74 46 4c 4f 41 54 2c 20 61 73 20 61 70 70 72 6f tFLOAT, as appro
5120: 70 72 69 61 74 65 2e 0a 20 20 20 20 20 20 20 20 priate..
5130: 2a 2f 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f */. flag_
5140: 65 78 70 20 3d 20 78 74 79 70 65 3d 3d 65 74 45 exp = xtype==etE
5150: 58 50 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 XP;. if(
5160: 78 74 79 70 65 21 3d 65 74 46 4c 4f 41 54 20 29 xtype!=etFLOAT )
5170: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 61 6c {. real
5180: 76 61 6c 75 65 20 2b 3d 20 72 6f 75 6e 64 65 72 value += rounder
5190: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
51a0: 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30 2e 30 20 realvalue>=10.0
51b0: 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 ){ realvalue *=
51c0: 30 2e 31 3b 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 0.1; exp++; }.
51d0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
51e0: 69 66 28 20 78 74 79 70 65 3d 3d 65 74 47 45 4e if( xtype==etGEN
51f0: 45 52 49 43 20 29 7b 0a 20 20 20 20 20 20 20 20 ERIC ){.
5200: 20 20 66 6c 61 67 5f 72 74 7a 20 3d 20 21 66 6c flag_rtz = !fl
5210: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d ag_alternateform
5220: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
5230: 65 78 70 3c 2d 34 20 7c 7c 20 65 78 70 3e 70 72 exp<-4 || exp>pr
5240: 65 63 69 73 69 6f 6e 20 29 7b 0a 20 20 20 20 20 ecision ){.
5250: 20 20 20 20 20 20 20 78 74 79 70 65 20 3d 20 65 xtype = e
5260: 74 45 58 50 3b 0a 20 20 20 20 20 20 20 20 20 20 tEXP;.
5270: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 }else{.
5280: 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 70 precision = p
5290: 72 65 63 69 73 69 6f 6e 20 2d 20 65 78 70 3b 0a recision - exp;.
52a0: 20 20 20 20 20 20 20 20 20 20 20 20 78 74 79 70 xtyp
52b0: 65 20 3d 20 65 74 46 4c 4f 41 54 3b 0a 20 20 20 e = etFLOAT;.
52c0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
52d0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 }else{.
52e0: 20 20 66 6c 61 67 5f 72 74 7a 20 3d 20 30 3b 0a flag_rtz = 0;.
52f0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
5300: 20 20 69 66 28 20 78 74 79 70 65 3d 3d 65 74 45 if( xtype==etE
5310: 58 50 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 XP ){.
5320: 65 32 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 e2 = 0;.
5330: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 }else{.
5340: 20 65 32 20 3d 20 65 78 70 3b 0a 20 20 20 20 20 e2 = exp;.
5350: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6e 73 64 }. nsd
5360: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 66 6c = 0;. fl
5370: 61 67 5f 64 70 20 3d 20 28 70 72 65 63 69 73 69 ag_dp = (precisi
5380: 6f 6e 3e 30 29 20 7c 20 66 6c 61 67 5f 61 6c 74 on>0) | flag_alt
5390: 65 72 6e 61 74 65 66 6f 72 6d 20 7c 20 66 6c 61 ernateform | fla
53a0: 67 5f 61 6c 74 66 6f 72 6d 32 3b 0a 20 20 20 20 g_altform2;.
53b0: 20 20 20 20 2f 2a 20 54 68 65 20 73 69 67 6e 20 /* The sign
53c0: 69 6e 20 66 72 6f 6e 74 20 6f 66 20 74 68 65 20 in front of the
53d0: 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 20 20 20 20 number */.
53e0: 20 20 69 66 28 20 70 72 65 66 69 78 20 29 7b 0a if( prefix ){.
53f0: 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 *(bufp
5400: 74 2b 2b 29 20 3d 20 70 72 65 66 69 78 3b 0a 20 t++) = prefix;.
5410: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
5420: 20 2f 2a 20 44 69 67 69 74 73 20 70 72 69 6f 72 /* Digits prior
5430: 20 74 6f 20 74 68 65 20 64 65 63 69 6d 61 6c 20 to the decimal
5440: 70 6f 69 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20 point */.
5450: 20 69 66 28 20 65 32 3c 30 20 29 7b 0a 20 20 20 if( e2<0 ){.
5460: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b *(bufpt++
5470: 29 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 ) = '0';.
5480: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 }else{.
5490: 20 20 66 6f 72 28 3b 20 65 32 3e 3d 30 3b 20 65 for(; e2>=0; e
54a0: 32 2d 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2--){.
54b0: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 *(bufpt++) = e
54c0: 74 5f 67 65 74 64 69 67 69 74 28 26 72 65 61 6c t_getdigit(&real
54d0: 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20 value,&nsd);.
54e0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
54f0: 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 68 }. /* Th
5500: 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 e decimal point
5510: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 */. if( f
5520: 6c 61 67 5f 64 70 20 29 7b 0a 20 20 20 20 20 20 lag_dp ){.
5530: 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d *(bufpt++) =
5540: 20 27 2e 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a '.';. }.
5550: 20 20 20 20 20 20 20 20 2f 2a 20 22 30 22 20 64 /* "0" d
5560: 69 67 69 74 73 20 61 66 74 65 72 20 74 68 65 20 igits after the
5570: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 62 75 decimal point bu
5580: 74 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 t before the fir
5590: 73 74 0a 20 20 20 20 20 20 20 20 2a 2a 20 73 69 st. ** si
55a0: 67 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 20 gnificant digit
55b0: 6f 66 20 74 68 65 20 6e 75 6d 62 65 72 20 2a 2f of the number */
55c0: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 65 32 2b . for(e2+
55d0: 2b 3b 20 65 32 3c 30 20 26 26 20 70 72 65 63 69 +; e2<0 && preci
55e0: 73 69 6f 6e 3e 30 3b 20 70 72 65 63 69 73 69 6f sion>0; precisio
55f0: 6e 2d 2d 2c 20 65 32 2b 2b 29 7b 0a 20 20 20 20 n--, e2++){.
5600: 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 *(bufpt++)
5610: 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 = '0';.
5620: 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 53 69 67 }. /* Sig
5630: 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 73 20 nificant digits
5640: 61 66 74 65 72 20 74 68 65 20 64 65 63 69 6d 61 after the decima
5650: 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20 20 20 20 l point */.
5660: 20 20 20 77 68 69 6c 65 28 20 28 70 72 65 63 69 while( (preci
5670: 73 69 6f 6e 2d 2d 29 3e 30 20 29 7b 0a 20 20 20 sion--)>0 ){.
5680: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b *(bufpt++
5690: 29 20 3d 20 65 74 5f 67 65 74 64 69 67 69 74 28 ) = et_getdigit(
56a0: 26 72 65 61 6c 76 61 6c 75 65 2c 26 6e 73 64 29 &realvalue,&nsd)
56b0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
56c0: 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 74 72 /* Remove tr
56d0: 61 69 6c 69 6e 67 20 7a 65 72 6f 73 20 61 6e 64 ailing zeros and
56e0: 20 74 68 65 20 22 2e 22 20 69 66 20 6e 6f 20 64 the "." if no d
56f0: 69 67 69 74 73 20 66 6f 6c 6c 6f 77 20 74 68 65 igits follow the
5700: 20 22 2e 22 20 2a 2f 0a 20 20 20 20 20 20 20 20 "." */.
5710: 69 66 28 20 66 6c 61 67 5f 72 74 7a 20 26 26 20 if( flag_rtz &&
5720: 66 6c 61 67 5f 64 70 20 29 7b 0a 20 20 20 20 20 flag_dp ){.
5730: 20 20 20 20 20 77 68 69 6c 65 28 20 62 75 66 70 while( bufp
5740: 74 5b 2d 31 5d 3d 3d 27 30 27 20 29 20 2a 28 2d t[-1]=='0' ) *(-
5750: 2d 62 75 66 70 74 29 20 3d 20 30 3b 0a 20 20 20 -bufpt) = 0;.
5760: 20 20 20 20 20 20 20 61 73 73 65 72 74 28 20 62 assert( b
5770: 75 66 70 74 3e 62 75 66 20 29 3b 0a 20 20 20 20 ufpt>buf );.
5780: 20 20 20 20 20 20 69 66 28 20 62 75 66 70 74 5b if( bufpt[
5790: 2d 31 5d 3d 3d 27 2e 27 20 29 7b 0a 20 20 20 20 -1]=='.' ){.
57a0: 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 if( flag
57b0: 5f 61 6c 74 66 6f 72 6d 32 20 29 7b 0a 20 20 20 _altform2 ){.
57c0: 20 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 *(buf
57d0: 70 74 2b 2b 29 20 3d 20 27 30 27 3b 0a 20 20 20 pt++) = '0';.
57e0: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a }else{.
57f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 *(
5800: 2d 2d 62 75 66 70 74 29 20 3d 20 30 3b 0a 20 20 --bufpt) = 0;.
5810: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }.
5820: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
5830: 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 41 64 64 }. /* Add
5840: 20 74 68 65 20 22 65 4e 4e 4e 22 20 73 75 66 66 the "eNNN" suff
5850: 69 78 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 ix */. if
5860: 28 20 66 6c 61 67 5f 65 78 70 20 7c 7c 20 28 78 ( flag_exp || (x
5870: 74 79 70 65 3d 3d 65 74 45 58 50 20 26 26 20 65 type==etEXP && e
5880: 78 70 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 xp) ){.
5890: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 61 44 *(bufpt++) = aD
58a0: 69 67 69 74 73 5b 69 6e 66 6f 70 2d 3e 63 68 61 igits[infop->cha
58b0: 72 73 65 74 5d 3b 0a 20 20 20 20 20 20 20 20 20 rset];.
58c0: 20 69 66 28 20 65 78 70 3c 30 20 29 7b 0a 20 20 if( exp<0 ){.
58d0: 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 *(bufp
58e0: 74 2b 2b 29 20 3d 20 27 2d 27 3b 20 65 78 70 20 t++) = '-'; exp
58f0: 3d 20 2d 65 78 70 3b 0a 20 20 20 20 20 20 20 20 = -exp;.
5900: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
5910: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 *(bufpt++)
5920: 3d 20 27 2b 27 3b 0a 20 20 20 20 20 20 20 20 20 = '+';.
5930: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 }. if(
5940: 20 65 78 70 3e 3d 31 30 30 20 29 7b 0a 20 20 20 exp>=100 ){.
5950: 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 *(bufpt
5960: 2b 2b 29 20 3d 20 28 65 78 70 2f 31 30 30 29 2b ++) = (exp/100)+
5970: 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 '0';
5980: 20 20 20 20 2f 2a 20 31 30 30 27 73 20 64 69 67 /* 100's dig
5990: 69 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 it */.
59a0: 20 20 65 78 70 20 25 3d 20 31 30 30 3b 0a 20 20 exp %= 100;.
59b0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
59c0: 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d *(bufpt++) =
59d0: 20 65 78 70 2f 31 30 2b 27 30 27 3b 20 20 20 20 exp/10+'0';
59e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
59f0: 20 2f 2a 20 31 30 27 73 20 64 69 67 69 74 20 2a /* 10's digit *
5a00: 2f 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 /. *(bu
5a10: 66 70 74 2b 2b 29 20 3d 20 65 78 70 25 31 30 2b fpt++) = exp%10+
5a20: 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 '0';
5a30: 20 20 20 20 20 20 20 20 20 2f 2a 20 31 27 73 20 /* 1's
5a40: 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 20 20 digit */.
5a50: 20 7d 0a 20 20 20 20 20 20 20 20 2a 62 75 66 70 }. *bufp
5a60: 74 20 3d 20 30 3b 0a 0a 20 20 20 20 20 20 20 20 t = 0;..
5a70: 2f 2a 20 54 68 65 20 63 6f 6e 76 65 72 74 65 64 /* The converted
5a80: 20 6e 75 6d 62 65 72 20 69 73 20 69 6e 20 62 75 number is in bu
5a90: 66 5b 5d 20 61 6e 64 20 7a 65 72 6f 20 74 65 72 f[] and zero ter
5aa0: 6d 69 6e 61 74 65 64 2e 20 4f 75 74 70 75 74 20 minated. Output
5ab0: 69 74 2e 0a 20 20 20 20 20 20 20 20 2a 2a 20 4e it.. ** N
5ac0: 6f 74 65 20 74 68 61 74 20 74 68 65 20 6e 75 6d ote that the num
5ad0: 62 65 72 20 69 73 20 69 6e 20 74 68 65 20 75 73 ber is in the us
5ae0: 75 61 6c 20 6f 72 64 65 72 2c 20 6e 6f 74 20 72 ual order, not r
5af0: 65 76 65 72 73 65 64 20 61 73 20 77 69 74 68 0a eversed as with.
5b00: 20 20 20 20 20 20 20 20 2a 2a 20 69 6e 74 65 67 ** integ
5b10: 65 72 20 63 6f 6e 76 65 72 73 69 6f 6e 73 2e 20 er conversions.
5b20: 2a 2f 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 */. lengt
5b30: 68 20 3d 20 62 75 66 70 74 2d 62 75 66 3b 0a 20 h = bufpt-buf;.
5b40: 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 bufpt = b
5b50: 75 66 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 uf;.. /*
5b60: 53 70 65 63 69 61 6c 20 63 61 73 65 3a 20 20 41 Special case: A
5b70: 64 64 20 6c 65 61 64 69 6e 67 20 7a 65 72 6f 73 dd leading zeros
5b80: 20 69 66 20 74 68 65 20 66 6c 61 67 5f 7a 65 72 if the flag_zer
5b90: 6f 70 61 64 20 66 6c 61 67 20 69 73 0a 20 20 20 opad flag is.
5ba0: 20 20 20 20 20 2a 2a 20 73 65 74 20 61 6e 64 20 ** set and
5bb0: 77 65 20 61 72 65 20 6e 6f 74 20 6c 65 66 74 20 we are not left
5bc0: 6a 75 73 74 69 66 69 65 64 20 2a 2f 0a 20 20 20 justified */.
5bd0: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 7a 65 if( flag_ze
5be0: 72 6f 70 61 64 20 26 26 20 21 66 6c 61 67 5f 6c ropad && !flag_l
5bf0: 65 66 74 6a 75 73 74 69 66 79 20 26 26 20 6c 65 eftjustify && le
5c00: 6e 67 74 68 20 3c 20 77 69 64 74 68 29 7b 0a 20 ngth < width){.
5c10: 20 20 20 20 20 20 20 20 20 69 6e 74 20 69 3b 0a int i;.
5c20: 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 6e 50 int nP
5c30: 61 64 20 3d 20 77 69 64 74 68 20 2d 20 6c 65 6e ad = width - len
5c40: 67 74 68 3b 0a 20 20 20 20 20 20 20 20 20 20 66 gth;. f
5c50: 6f 72 28 69 3d 77 69 64 74 68 3b 20 69 3e 3d 6e or(i=width; i>=n
5c60: 50 61 64 3b 20 69 2d 2d 29 7b 0a 20 20 20 20 20 Pad; i--){.
5c70: 20 20 20 20 20 20 20 62 75 66 70 74 5b 69 5d 20 bufpt[i]
5c80: 3d 20 62 75 66 70 74 5b 69 2d 6e 50 61 64 5d 3b = bufpt[i-nPad];
5c90: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 . }.
5ca0: 20 20 20 20 20 20 20 69 20 3d 20 70 72 65 66 69 i = prefi
5cb0: 78 21 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 x!=0;.
5cc0: 77 68 69 6c 65 28 20 6e 50 61 64 2d 2d 20 29 20 while( nPad-- )
5cd0: 62 75 66 70 74 5b 69 2b 2b 5d 20 3d 20 27 30 27 bufpt[i++] = '0'
5ce0: 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 65 6e 67 ;. leng
5cf0: 74 68 20 3d 20 77 69 64 74 68 3b 0a 20 20 20 20 th = width;.
5d00: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 72 }. br
5d10: 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 eak;. case
5d20: 65 74 53 49 5a 45 3a 0a 20 20 20 20 20 20 20 20 etSIZE:.
5d30: 2a 28 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 2a *(va_arg(ap,int*
5d40: 29 29 20 3d 20 63 6f 75 6e 74 3b 0a 20 20 20 20 )) = count;.
5d50: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 length = wid
5d60: 74 68 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 th = 0;.
5d70: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 break;. cas
5d80: 65 20 65 74 50 45 52 43 45 4e 54 3a 0a 20 20 20 e etPERCENT:.
5d90: 20 20 20 20 20 62 75 66 5b 30 5d 20 3d 20 27 25 buf[0] = '%
5da0: 27 3b 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 ';. bufpt
5db0: 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 = buf;.
5dc0: 6c 65 6e 67 74 68 20 3d 20 31 3b 0a 20 20 20 20 length = 1;.
5dd0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
5de0: 20 63 61 73 65 20 65 74 43 48 41 52 58 3a 0a 20 case etCHARX:.
5df0: 20 20 20 20 20 20 20 63 20 3d 20 62 75 66 5b 30 c = buf[0
5e00: 5d 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e ] = va_arg(ap,in
5e10: 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 t);. if(
5e20: 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 29 7b 0a precision>=0 ){.
5e30: 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 69 64 for(id
5e40: 78 3d 31 3b 20 69 64 78 3c 70 72 65 63 69 73 69 x=1; idx<precisi
5e50: 6f 6e 3b 20 69 64 78 2b 2b 29 20 62 75 66 5b 69 on; idx++) buf[i
5e60: 64 78 5d 20 3d 20 63 3b 0a 20 20 20 20 20 20 20 dx] = c;.
5e70: 20 20 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 length = prec
5e80: 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 7d ision;. }
5e90: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 else{.
5ea0: 6c 65 6e 67 74 68 20 3d 31 3b 0a 20 20 20 20 20 length =1;.
5eb0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 }. buf
5ec0: 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 pt = buf;.
5ed0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 break;. c
5ee0: 61 73 65 20 65 74 50 41 54 48 3a 20 7b 0a 20 20 ase etPATH: {.
5ef0: 20 20 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 int i;.
5f00: 20 20 20 20 20 69 6e 74 20 6c 69 6d 69 74 20 3d int limit =
5f10: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
5f20: 6f 72 6d 20 3f 20 76 61 5f 61 72 67 28 61 70 2c orm ? va_arg(ap,
5f30: 69 6e 74 29 20 3a 20 2d 31 3b 0a 20 20 20 20 20 int) : -1;.
5f40: 20 20 20 63 68 61 72 20 2a 65 20 3d 20 76 61 5f char *e = va_
5f50: 61 72 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 arg(ap,char*);.
5f60: 20 20 20 20 20 20 20 69 66 28 20 65 3d 3d 30 20 if( e==0
5f70: 29 7b 65 3d 22 22 3b 7d 0a 20 20 20 20 20 20 20 ){e="";}.
5f80: 20 6c 65 6e 67 74 68 20 3d 20 53 74 72 4e 4c 65 length = StrNLe
5f90: 6e 33 32 28 65 2c 20 6c 69 6d 69 74 29 3b 0a 20 n32(e, limit);.
5fa0: 20 20 20 20 20 20 20 7a 45 78 74 72 61 20 3d 20 zExtra =
5fb0: 62 75 66 70 74 20 3d 20 66 6f 73 73 69 6c 5f 6d bufpt = fossil_m
5fc0: 61 6c 6c 6f 63 28 6c 65 6e 67 74 68 2b 31 29 3b alloc(length+1);
5fd0: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 20 69 3d . for( i=
5fe0: 30 3b 20 69 3c 6c 65 6e 67 74 68 3b 20 69 2b 2b 0; i<length; i++
5ff0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 ){. if
6000: 28 20 65 5b 69 5d 3d 3d 27 5c 5c 27 20 29 7b 0a ( e[i]=='\\' ){.
6010: 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 70 bufp
6020: 74 5b 69 5d 3d 27 2f 27 3b 0a 20 20 20 20 20 20 t[i]='/';.
6030: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
6040: 20 20 20 20 20 20 20 62 75 66 70 74 5b 69 5d 3d bufpt[i]=
6050: 65 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 e[i];.
6060: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
6070: 20 20 20 20 62 75 66 70 74 5b 6c 65 6e 67 74 68 bufpt[length
6080: 5d 3d 27 5c 30 27 3b 0a 20 20 20 20 20 20 20 20 ]='\0';.
6090: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 break;. }.
60a0: 20 20 20 20 20 63 61 73 65 20 65 74 52 4f 4f 54 case etROOT
60b0: 3a 20 7b 0a 20 20 20 20 20 20 20 20 62 75 66 70 : {. bufp
60c0: 74 20 3d 20 67 2e 7a 54 6f 70 20 3f 20 67 2e 7a t = g.zTop ? g.z
60d0: 54 6f 70 20 3a 20 22 22 3b 0a 20 20 20 20 20 20 Top : "";.
60e0: 20 20 6c 65 6e 67 74 68 20 3d 20 28 69 6e 74 29 length = (int)
60f0: 73 74 72 6c 65 6e 28 62 75 66 70 74 29 3b 0a 20 strlen(bufpt);.
6100: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
6110: 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 }. case
6120: 20 65 74 53 54 52 49 4e 47 49 44 3a 0a 20 20 20 etSTRINGID:.
6130: 20 20 20 63 61 73 65 20 65 74 53 54 52 49 4e 47 case etSTRING
6140: 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 44 :. case etD
6150: 59 4e 53 54 52 49 4e 47 3a 20 7b 0a 20 20 20 20 YNSTRING: {.
6160: 20 20 20 20 69 6e 74 20 6c 69 6d 69 74 20 3d 20 int limit =
6170: 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f flag_alternatefo
6180: 72 6d 20 3f 20 76 61 5f 61 72 67 28 61 70 2c 69 rm ? va_arg(ap,i
6190: 6e 74 29 20 3a 20 2d 31 3b 0a 20 20 20 20 20 20 nt) : -1;.
61a0: 20 20 62 75 66 70 74 20 3d 20 76 61 5f 61 72 67 bufpt = va_arg
61b0: 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 (ap,char*);.
61c0: 20 20 20 20 69 66 28 20 62 75 66 70 74 3d 3d 30 if( bufpt==0
61d0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 62 75 ){. bu
61e0: 66 70 74 20 3d 20 22 22 3b 0a 20 20 20 20 20 20 fpt = "";.
61f0: 20 20 7d 65 6c 73 65 20 69 66 28 20 78 74 79 70 }else if( xtyp
6200: 65 3d 3d 65 74 44 59 4e 53 54 52 49 4e 47 20 29 e==etDYNSTRING )
6210: 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 45 78 74 {. zExt
6220: 72 61 20 3d 20 62 75 66 70 74 3b 0a 20 20 20 20 ra = bufpt;.
6230: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 78 74 }else if( xt
6240: 79 70 65 3d 3d 65 74 53 54 52 49 4e 47 49 44 20 ype==etSTRINGID
6250: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 ){. pre
6260: 63 69 73 69 6f 6e 20 3d 20 68 61 73 68 5f 64 69 cision = hash_di
6270: 67 69 74 73 28 66 6c 61 67 5f 61 6c 74 66 6f 72 gits(flag_altfor
6280: 6d 32 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 m2);. }.
6290: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 length =
62a0: 53 74 72 4e 4c 65 6e 33 32 28 62 75 66 70 74 2c StrNLen32(bufpt,
62b0: 20 6c 69 6d 69 74 29 3b 0a 20 20 20 20 20 20 20 limit);.
62c0: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d if( precision>=
62d0: 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 0 && precision<l
62e0: 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d ength ) length =
62f0: 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 precision;.
6300: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
6310: 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 }. case et
6320: 42 4c 4f 42 3a 20 7b 0a 20 20 20 20 20 20 20 20 BLOB: {.
6330: 69 6e 74 20 6c 69 6d 69 74 20 3d 20 66 6c 61 67 int limit = flag
6340: 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3f _alternateform ?
6350: 20 76 61 5f 61 72 67 28 61 70 2c 20 69 6e 74 29 va_arg(ap, int)
6360: 20 3a 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 42 : -1;. B
6370: 6c 6f 62 20 2a 70 42 6c 6f 62 20 3d 20 76 61 5f lob *pBlob = va_
6380: 61 72 67 28 61 70 2c 20 42 6c 6f 62 2a 29 3b 0a arg(ap, Blob*);.
6390: 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 bufpt =
63a0: 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 42 6c 6f blob_buffer(pBlo
63b0: 62 29 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 b);. leng
63c0: 74 68 20 3d 20 62 6c 6f 62 5f 73 69 7a 65 28 70 th = blob_size(p
63d0: 42 6c 6f 62 29 3b 0a 20 20 20 20 20 20 20 20 69 Blob);. i
63e0: 66 28 20 6c 69 6d 69 74 3e 3d 30 20 26 26 20 6c f( limit>=0 && l
63f0: 69 6d 69 74 3c 6c 65 6e 67 74 68 20 29 20 6c 65 imit<length ) le
6400: 6e 67 74 68 20 3d 20 6c 69 6d 69 74 3b 0a 20 20 ngth = limit;.
6410: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
6420: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
6430: 65 74 42 4c 4f 42 53 51 4c 3a 20 7b 0a 20 20 20 etBLOBSQL: {.
6440: 20 20 20 20 20 69 6e 74 20 6c 69 6d 69 74 20 3d int limit =
6450: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
6460: 6f 72 6d 20 3f 20 76 61 5f 61 72 67 28 61 70 2c orm ? va_arg(ap,
6470: 20 69 6e 74 29 20 3a 20 2d 31 3b 0a 20 20 20 20 int) : -1;.
6480: 20 20 20 20 42 6c 6f 62 20 2a 70 42 6c 6f 62 20 Blob *pBlob
6490: 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 42 6c 6f = va_arg(ap, Blo
64a0: 62 2a 29 3b 0a 20 20 20 20 20 20 20 20 63 68 61 b*);. cha
64b0: 72 20 2a 7a 4f 72 69 67 20 3d 20 62 6c 6f 62 5f r *zOrig = blob_
64c0: 62 75 66 66 65 72 28 70 42 6c 6f 62 29 3b 0a 20 buffer(pBlob);.
64d0: 20 20 20 20 20 20 20 69 6e 74 20 69 2c 20 6a 2c int i, j,
64e0: 20 6e 2c 20 63 6e 74 3b 0a 20 20 20 20 20 20 20 n, cnt;.
64f0: 20 6e 20 3d 20 62 6c 6f 62 5f 73 69 7a 65 28 70 n = blob_size(p
6500: 42 6c 6f 62 29 3b 0a 20 20 20 20 20 20 20 20 69 Blob);. i
6510: 66 28 20 6c 69 6d 69 74 3e 3d 30 20 26 26 20 6c f( limit>=0 && l
6520: 69 6d 69 74 3c 6e 20 29 20 6e 20 3d 20 6c 69 6d imit<n ) n = lim
6530: 69 74 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 it;. for(
6540: 63 6e 74 3d 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b cnt=i=0; i<n; i+
6550: 2b 29 7b 20 69 66 28 20 7a 4f 72 69 67 5b 69 5d +){ if( zOrig[i]
6560: 3d 3d 27 5c 27 27 20 29 20 63 6e 74 2b 2b 3b 20 =='\'' ) cnt++;
6570: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 2b }. if( n+
6580: 63 6e 74 2b 32 20 3e 20 65 74 42 55 46 53 49 5a cnt+2 > etBUFSIZ
6590: 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 62 E ){. b
65a0: 75 66 70 74 20 3d 20 7a 45 78 74 72 61 20 3d 20 ufpt = zExtra =
65b0: 66 6f 73 73 69 6c 5f 6d 61 6c 6c 6f 63 28 20 6e fossil_malloc( n
65c0: 20 2b 20 63 6e 74 20 2b 20 32 20 29 3b 0a 20 20 + cnt + 2 );.
65d0: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }else{.
65e0: 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 bufpt = b
65f0: 75 66 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 uf;. }.
6600: 20 20 20 20 20 20 62 75 66 70 74 5b 30 5d 20 3d bufpt[0] =
6610: 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 66 '\'';. f
6620: 6f 72 28 69 3d 30 2c 20 6a 3d 31 3b 20 69 3c 6e or(i=0, j=1; i<n
6630: 3b 20 69 2b 2b 2c 20 6a 2b 2b 29 7b 0a 20 20 20 ; i++, j++){.
6640: 20 20 20 20 20 20 20 69 66 28 20 7a 4f 72 69 67 if( zOrig
6650: 5b 69 5d 3d 3d 27 5c 27 27 20 29 7b 20 62 75 66 [i]=='\'' ){ buf
6660: 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 20 pt[j++] = '\'';
6670: 7d 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 }. bufp
6680: 74 5b 6a 5d 20 3d 20 7a 4f 72 69 67 5b 69 5d 3b t[j] = zOrig[i];
6690: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
66a0: 20 20 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 bufpt[j++] =
66b0: 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 6c 65 '\'';. le
66c0: 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 20 20 20 20 ngth = j;.
66d0: 20 20 61 73 73 65 72 74 28 20 6c 65 6e 67 74 68 assert( length
66e0: 3d 3d 6e 2b 63 6e 74 2b 32 20 29 3b 0a 20 20 20 ==n+cnt+2 );.
66f0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
6700: 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 65 }. case e
6710: 74 53 51 4c 45 53 43 41 50 45 3a 0a 20 20 20 20 tSQLESCAPE:.
6720: 20 20 63 61 73 65 20 65 74 53 51 4c 45 53 43 41 case etSQLESCA
6730: 50 45 32 3a 0a 20 20 20 20 20 20 63 61 73 65 20 PE2:. case
6740: 65 74 53 51 4c 45 53 43 41 50 45 33 3a 20 7b 0a etSQLESCAPE3: {.
6750: 20 20 20 20 20 20 20 20 69 6e 74 20 69 2c 20 6a int i, j
6760: 2c 20 6e 2c 20 63 68 2c 20 69 73 6e 75 6c 6c 3b , n, ch, isnull;
6770: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6e 65 65 . int nee
6780: 64 51 75 6f 74 65 3b 0a 20 20 20 20 20 20 20 20 dQuote;.
6790: 69 6e 74 20 6c 69 6d 69 74 20 3d 20 66 6c 61 67 int limit = flag
67a0: 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3f _alternateform ?
67b0: 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 va_arg(ap,int)
67c0: 3a 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 63 68 : -1;. ch
67d0: 61 72 20 71 20 3d 20 28 28 78 74 79 70 65 3d 3d ar q = ((xtype==
67e0: 65 74 53 51 4c 45 53 43 41 50 45 33 29 3f 27 22 etSQLESCAPE3)?'"
67f0: 27 3a 27 5c 27 27 29 3b 20 20 2f 2a 20 51 75 6f ':'\''); /* Quo
6800: 74 65 20 63 68 61 72 61 63 74 65 72 73 20 2a 2f te characters */
6810: 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 65 . char *e
6820: 73 63 61 72 67 20 3d 20 76 61 5f 61 72 67 28 61 scarg = va_arg(a
6830: 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 p,char*);.
6840: 20 20 69 73 6e 75 6c 6c 20 3d 20 65 73 63 61 72 isnull = escar
6850: 67 3d 3d 30 3b 0a 20 20 20 20 20 20 20 20 69 66 g==0;. if
6860: 28 20 69 73 6e 75 6c 6c 20 29 20 65 73 63 61 72 ( isnull ) escar
6870: 67 20 3d 20 28 78 74 79 70 65 3d 3d 65 74 53 51 g = (xtype==etSQ
6880: 4c 45 53 43 41 50 45 32 20 3f 20 22 4e 55 4c 4c LESCAPE2 ? "NULL
6890: 22 20 3a 20 22 28 4e 55 4c 4c 29 22 29 3b 0a 20 " : "(NULL)");.
68a0: 20 20 20 20 20 20 20 69 66 28 20 6c 69 6d 69 74 if( limit
68b0: 3c 30 20 29 20 6c 69 6d 69 74 20 3d 20 73 74 72 <0 ) limit = str
68c0: 6c 65 6e 28 65 73 63 61 72 67 29 3b 0a 20 20 20 len(escarg);.
68d0: 20 20 20 20 20 66 6f 72 28 69 3d 6e 3d 30 3b 20 for(i=n=0;
68e0: 69 3c 6c 69 6d 69 74 3b 20 69 2b 2b 29 7b 0a 20 i<limit; i++){.
68f0: 20 20 20 20 20 20 20 20 20 69 66 28 20 65 73 63 if( esc
6900: 61 72 67 5b 69 5d 3d 3d 71 20 29 20 20 6e 2b 2b arg[i]==q ) n++
6910: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
6920: 20 20 20 20 6e 65 65 64 51 75 6f 74 65 20 3d 20 needQuote =
6930: 21 69 73 6e 75 6c 6c 20 26 26 20 78 74 79 70 65 !isnull && xtype
6940: 3d 3d 65 74 53 51 4c 45 53 43 41 50 45 32 3b 0a ==etSQLESCAPE2;.
6950: 20 20 20 20 20 20 20 20 6e 20 2b 3d 20 69 20 2b n += i +
6960: 20 31 20 2b 20 6e 65 65 64 51 75 6f 74 65 2a 32 1 + needQuote*2
6970: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 3e ;. if( n>
6980: 65 74 42 55 46 53 49 5a 45 20 29 7b 0a 20 20 20 etBUFSIZE ){.
6990: 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 7a bufpt = z
69a0: 45 78 74 72 61 20 3d 20 66 6f 73 73 69 6c 5f 6d Extra = fossil_m
69b0: 61 6c 6c 6f 63 28 20 6e 20 29 3b 0a 20 20 20 20 alloc( n );.
69c0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
69d0: 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 bufpt = buf
69e0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
69f0: 20 20 20 20 6a 20 3d 20 30 3b 0a 20 20 20 20 20 j = 0;.
6a00: 20 20 20 69 66 28 20 6e 65 65 64 51 75 6f 74 65 if( needQuote
6a10: 20 29 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 ) bufpt[j++] =
6a20: 71 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 q;. for(i
6a30: 3d 30 3b 20 69 3c 6c 69 6d 69 74 3b 20 69 2b 2b =0; i<limit; i++
6a40: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 ){. buf
6a50: 70 74 5b 6a 2b 2b 5d 20 3d 20 63 68 20 3d 20 65 pt[j++] = ch = e
6a60: 73 63 61 72 67 5b 69 5d 3b 0a 20 20 20 20 20 20 scarg[i];.
6a70: 20 20 20 20 69 66 28 20 63 68 3d 3d 71 20 29 20 if( ch==q )
6a80: 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 68 3b bufpt[j++] = ch;
6a90: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
6aa0: 20 20 20 69 66 28 20 6e 65 65 64 51 75 6f 74 65 if( needQuote
6ab0: 20 29 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 ) bufpt[j++] =
6ac0: 71 3b 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 q;. bufpt
6ad0: 5b 6a 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 [j] = 0;.
6ae0: 20 6c 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 20 length = j;.
6af0: 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69 if( precisi
6b00: 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 on>=0 && precisi
6b10: 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 on<length ) leng
6b20: 74 68 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a th = precision;.
6b30: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
6b40: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 }. cas
6b50: 65 20 65 74 48 54 4d 4c 49 5a 45 3a 20 7b 0a 20 e etHTMLIZE: {.
6b60: 20 20 20 20 20 20 20 69 6e 74 20 6c 69 6d 69 74 int limit
6b70: 20 3d 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 = flag_alternat
6b80: 65 66 6f 72 6d 20 3f 20 76 61 5f 61 72 67 28 61 eform ? va_arg(a
6b90: 70 2c 69 6e 74 29 20 3a 20 2d 31 3b 0a 20 20 20 p,int) : -1;.
6ba0: 20 20 20 20 20 63 68 61 72 20 2a 7a 4d 65 6d 20 char *zMem
6bb0: 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 = va_arg(ap,char
6bc0: 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 *);. if(
6bd0: 7a 4d 65 6d 3d 3d 30 20 29 20 7a 4d 65 6d 20 3d zMem==0 ) zMem =
6be0: 20 22 22 3b 0a 20 20 20 20 20 20 20 20 7a 45 78 "";. zEx
6bf0: 74 72 61 20 3d 20 62 75 66 70 74 20 3d 20 68 74 tra = bufpt = ht
6c00: 6d 6c 69 7a 65 28 7a 4d 65 6d 2c 20 6c 69 6d 69 mlize(zMem, limi
6c10: 74 29 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 t);. leng
6c20: 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 75 66 70 th = strlen(bufp
6c30: 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 t);. if(
6c40: 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 precision>=0 &&
6c50: 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 precision<length
6c60: 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 ) length = prec
6c70: 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 ision;. b
6c80: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 reak;. }.
6c90: 20 20 20 20 63 61 73 65 20 65 74 48 54 54 50 49 case etHTTPI
6ca0: 5a 45 3a 20 7b 0a 20 20 20 20 20 20 20 20 69 6e ZE: {. in
6cb0: 74 20 6c 69 6d 69 74 20 3d 20 66 6c 61 67 5f 61 t limit = flag_a
6cc0: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3f 20 76 lternateform ? v
6cd0: 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 a_arg(ap,int) :
6ce0: 2d 31 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 -1;. char
6cf0: 20 2a 7a 4d 65 6d 20 3d 20 76 61 5f 61 72 67 28 *zMem = va_arg(
6d00: 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 ap,char*);.
6d10: 20 20 20 69 66 28 20 7a 4d 65 6d 3d 3d 30 20 29 if( zMem==0 )
6d20: 20 7a 4d 65 6d 20 3d 20 22 22 3b 0a 20 20 20 20 zMem = "";.
6d30: 20 20 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 zExtra = buf
6d40: 70 74 20 3d 20 68 74 74 70 69 7a 65 28 7a 4d 65 pt = httpize(zMe
6d50: 6d 2c 20 6c 69 6d 69 74 29 3b 0a 20 20 20 20 20 m, limit);.
6d60: 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c length = strl
6d70: 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 20 20 20 en(bufpt);.
6d80: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e if( precision
6d90: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e >=0 && precision
6da0: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 <length ) length
6db0: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 = precision;.
6dc0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
6dd0: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
6de0: 65 74 55 52 4c 49 5a 45 3a 20 7b 0a 20 20 20 20 etURLIZE: {.
6df0: 20 20 20 20 69 6e 74 20 6c 69 6d 69 74 20 3d 20 int limit =
6e00: 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f flag_alternatefo
6e10: 72 6d 20 3f 20 76 61 5f 61 72 67 28 61 70 2c 69 rm ? va_arg(ap,i
6e20: 6e 74 29 20 3a 20 2d 31 3b 0a 20 20 20 20 20 20 nt) : -1;.
6e30: 20 20 63 68 61 72 20 2a 7a 4d 65 6d 20 3d 20 76 char *zMem = v
6e40: 61 5f 61 72 67 28 61 70 2c 63 68 61 72 2a 29 3b a_arg(ap,char*);
6e50: 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 4d 65 . if( zMe
6e60: 6d 3d 3d 30 20 29 20 7a 4d 65 6d 20 3d 20 22 22 m==0 ) zMem = ""
6e70: 3b 0a 20 20 20 20 20 20 20 20 7a 45 78 74 72 61 ;. zExtra
6e80: 20 3d 20 62 75 66 70 74 20 3d 20 75 72 6c 69 7a = bufpt = urliz
6e90: 65 28 7a 4d 65 6d 2c 20 6c 69 6d 69 74 29 3b 0a e(zMem, limit);.
6ea0: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
6eb0: 20 73 74 72 6c 65 6e 28 62 75 66 70 74 29 3b 0a strlen(bufpt);.
6ec0: 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 63 if( prec
6ed0: 69 73 69 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 ision>=0 && prec
6ee0: 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c ision<length ) l
6ef0: 65 6e 67 74 68 20 3d 20 70 72 65 63 69 73 69 6f ength = precisio
6f00: 6e 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b n;. break
6f10: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 ;. }.
6f20: 63 61 73 65 20 65 74 46 4f 53 53 49 4c 49 5a 45 case etFOSSILIZE
6f30: 3a 20 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 : {. int
6f40: 6c 69 6d 69 74 20 3d 20 66 6c 61 67 5f 61 6c 74 limit = flag_alt
6f50: 65 72 6e 61 74 65 66 6f 72 6d 20 3f 20 76 61 5f ernateform ? va_
6f60: 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 2d 31 arg(ap,int) : -1
6f70: 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a ;. char *
6f80: 7a 4d 65 6d 20 3d 20 76 61 5f 61 72 67 28 61 70 zMem = va_arg(ap
6f90: 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 ,char*);.
6fa0: 20 69 66 28 20 7a 4d 65 6d 3d 3d 30 20 29 20 7a if( zMem==0 ) z
6fb0: 4d 65 6d 20 3d 20 22 22 3b 0a 20 20 20 20 20 20 Mem = "";.
6fc0: 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 70 74 zExtra = bufpt
6fd0: 20 3d 20 66 6f 73 73 69 6c 69 7a 65 28 7a 4d 65 = fossilize(zMe
6fe0: 6d 2c 20 6c 69 6d 69 74 29 3b 0a 20 20 20 20 20 m, limit);.
6ff0: 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c length = strl
7000: 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 20 20 20 en(bufpt);.
7010: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e if( precision
7020: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e >=0 && precision
7030: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 <length ) length
7040: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 = precision;.
7050: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
7060: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
7070: 65 74 4a 53 4f 4e 53 54 52 3a 20 7b 0a 20 20 20 etJSONSTR: {.
7080: 20 20 20 20 20 69 6e 74 20 6c 69 6d 69 74 20 3d int limit =
7090: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
70a0: 6f 72 6d 20 3f 20 76 61 5f 61 72 67 28 61 70 2c orm ? va_arg(ap,
70b0: 69 6e 74 29 20 3a 20 2d 31 3b 0a 20 20 20 20 20 int) : -1;.
70c0: 20 20 20 63 68 61 72 20 2a 7a 4d 65 6d 20 3d 20 char *zMem =
70d0: 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 2a 29 va_arg(ap,char*)
70e0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 6c 69 ;. if( li
70f0: 6d 69 74 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 mit!=0 ){.
7100: 20 20 20 20 2f 2a 20 49 67 6e 6f 72 65 20 74 68 /* Ignore th
7110: 65 20 6c 69 6d 69 74 20 66 6c 61 67 2c 20 69 66 e limit flag, if
7120: 20 73 65 74 2c 20 66 6f 72 20 4a 53 4f 4e 20 73 set, for JSON s
7130: 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 tring.
7140: 2a 2a 20 6f 75 74 70 75 74 2e 20 54 68 69 73 20 ** output. This
7150: 62 6c 6f 63 6b 20 65 78 69 73 74 73 20 74 6f 20 block exists to
7160: 73 71 75 65 6c 63 68 20 74 68 65 20 61 73 73 6f squelch the asso
7170: 63 69 61 74 65 64 0a 20 20 20 20 20 20 20 20 20 ciated.
7180: 20 2a 2a 20 22 75 6e 75 73 65 64 20 76 61 72 69 ** "unused vari
7190: 61 62 6c 65 22 20 63 6f 6d 70 69 6c 65 72 20 77 able" compiler w
71a0: 61 72 6e 69 6e 67 2e 20 2a 2f 0a 20 20 20 20 20 arning. */.
71b0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 }. if(
71c0: 20 7a 4d 65 6d 3d 3d 30 20 29 20 7a 4d 65 6d 20 zMem==0 ) zMem
71d0: 3d 20 22 22 3b 0a 20 20 20 20 20 20 20 20 7a 45 = "";. zE
71e0: 78 74 72 61 20 3d 20 62 75 66 70 74 20 3d 0a 20 xtra = bufpt =.
71f0: 20 20 20 20 20 20 20 20 20 65 6e 63 6f 64 65 5f encode_
7200: 6a 73 6f 6e 5f 73 74 72 69 6e 67 5f 6c 69 74 65 json_string_lite
7210: 72 61 6c 28 7a 4d 65 6d 2c 20 66 6c 61 67 5f 61 ral(zMem, flag_a
7220: 6c 74 66 6f 72 6d 32 2c 20 26 6c 65 6e 67 74 68 ltform2, &length
7230: 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 );. if( p
7240: 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 70 recision>=0 && p
7250: 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 20 recision<length
7260: 29 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 69 ) length = preci
7270: 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 72 sion;. br
7280: 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 eak;. }.
7290: 20 20 20 63 61 73 65 20 65 74 57 49 4b 49 53 54 case etWIKIST
72a0: 52 3a 20 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 R: {. int
72b0: 20 6c 69 6d 69 74 20 3d 20 66 6c 61 67 5f 61 6c limit = flag_al
72c0: 74 65 72 6e 61 74 65 66 6f 72 6d 20 3f 20 76 61 ternateform ? va
72d0: 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 2d _arg(ap,int) : -
72e0: 31 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 1;. char
72f0: 2a 7a 57 69 6b 69 20 3d 20 76 61 5f 61 72 67 28 *zWiki = va_arg(
7300: 61 70 2c 20 63 68 61 72 2a 29 3b 0a 20 20 20 20 ap, char*);.
7310: 20 20 20 20 42 6c 6f 62 20 77 69 6b 69 3b 0a 20 Blob wiki;.
7320: 20 20 20 20 20 20 20 62 6c 6f 62 5f 69 6e 69 74 blob_init
7330: 28 26 77 69 6b 69 2c 20 7a 57 69 6b 69 2c 20 6c (&wiki, zWiki, l
7340: 69 6d 69 74 29 3b 0a 20 20 20 20 20 20 20 20 77 imit);. w
7350: 69 6b 69 5f 63 6f 6e 76 65 72 74 28 26 77 69 6b iki_convert(&wik
7360: 69 2c 20 70 42 6c 6f 62 2c 20 77 69 6b 69 5f 63 i, pBlob, wiki_c
7370: 6f 6e 76 65 72 74 5f 66 6c 61 67 73 28 66 6c 61 onvert_flags(fla
7380: 67 5f 61 6c 74 66 6f 72 6d 32 29 29 3b 0a 20 20 g_altform2));.
7390: 20 20 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 blob_reset
73a0: 28 26 77 69 6b 69 29 3b 0a 20 20 20 20 20 20 20 (&wiki);.
73b0: 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68 20 length = width
73c0: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 72 65 = 0;. bre
73d0: 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 ak;. }.
73e0: 20 20 63 61 73 65 20 65 74 53 48 45 4c 4c 45 53 case etSHELLES
73f0: 43 3a 20 7b 0a 20 20 20 20 20 20 20 20 63 68 61 C: {. cha
7400: 72 20 2a 7a 41 72 67 20 3d 20 76 61 5f 61 72 67 r *zArg = va_arg
7410: 28 61 70 2c 20 63 68 61 72 2a 29 3b 0a 20 20 20 (ap, char*);.
7420: 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 blob_append
7430: 5f 65 73 63 61 70 65 64 5f 61 72 67 28 70 42 6c _escaped_arg(pBl
7440: 6f 62 2c 20 7a 41 72 67 2c 20 21 66 6c 61 67 5f ob, zArg, !flag_
7450: 61 6c 74 66 6f 72 6d 32 29 3b 0a 20 20 20 20 20 altform2);.
7460: 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 length = widt
7470: 68 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 h = 0;. b
7480: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 reak;. }.
7490: 20 20 20 20 63 61 73 65 20 65 74 45 52 52 4f 52 case etERROR
74a0: 3a 0a 20 20 20 20 20 20 20 20 62 75 66 5b 30 5d :. buf[0]
74b0: 20 3d 20 27 25 27 3b 0a 20 20 20 20 20 20 20 20 = '%';.
74c0: 62 75 66 5b 31 5d 20 3d 20 63 3b 0a 20 20 20 20 buf[1] = c;.
74d0: 20 20 20 20 65 72 72 6f 72 66 6c 61 67 20 3d 20 errorflag =
74e0: 30 3b 0a 20 20 20 20 20 20 20 20 69 64 78 20 3d 0;. idx =
74f0: 20 31 2b 28 63 21 3d 30 29 3b 0a 20 20 20 20 20 1+(c!=0);.
7500: 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 blob_append(p
7510: 42 6c 6f 62 2c 22 25 22 2c 69 64 78 29 3b 0a 20 Blob,"%",idx);.
7520: 20 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 count +=
7530: 69 64 78 3b 0a 20 20 20 20 20 20 20 20 69 66 28 idx;. if(
7540: 20 63 3d 3d 30 20 29 20 66 6d 74 2d 2d 3b 0a 20 c==0 ) fmt--;.
7550: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
7560: 20 20 7d 2f 2a 20 45 6e 64 20 73 77 69 74 63 68 }/* End switch
7570: 20 6f 76 65 72 20 74 68 65 20 66 6f 72 6d 61 74 over the format
7580: 20 74 79 70 65 20 2a 2f 0a 20 20 20 20 2f 2a 0a type */. /*.
7590: 20 20 20 20 2a 2a 20 54 68 65 20 74 65 78 74 20 ** The text
75a0: 6f 66 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f of the conversio
75b0: 6e 20 69 73 20 70 6f 69 6e 74 65 64 20 74 6f 20 n is pointed to
75c0: 62 79 20 22 62 75 66 70 74 22 20 61 6e 64 20 69 by "bufpt" and i
75d0: 73 0a 20 20 20 20 2a 2a 20 22 6c 65 6e 67 74 68 s. ** "length
75e0: 22 20 63 68 61 72 61 63 74 65 72 73 20 6c 6f 6e " characters lon
75f0: 67 2e 20 20 54 68 65 20 66 69 65 6c 64 20 77 69 g. The field wi
7600: 64 74 68 20 69 73 20 22 77 69 64 74 68 22 2e 20 dth is "width".
7610: 20 44 6f 0a 20 20 20 20 2a 2a 20 74 68 65 20 6f Do. ** the o
7620: 75 74 70 75 74 2e 0a 20 20 20 20 2a 2f 0a 20 20 utput.. */.
7630: 20 20 69 66 28 20 21 66 6c 61 67 5f 6c 65 66 74 if( !flag_left
7640: 6a 75 73 74 69 66 79 20 29 7b 0a 20 20 20 20 20 justify ){.
7650: 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 6e 73 register int ns
7660: 70 61 63 65 3b 0a 20 20 20 20 20 20 6e 73 70 61 pace;. nspa
7670: 63 65 20 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74 ce = width-lengt
7680: 68 3b 0a 20 20 20 20 20 20 69 66 28 20 6e 73 70 h;. if( nsp
7690: 61 63 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 ace>0 ){.
76a0: 20 63 6f 75 6e 74 20 2b 3d 20 6e 73 70 61 63 65 count += nspace
76b0: 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 ;. while(
76c0: 20 6e 73 70 61 63 65 3e 3d 65 74 53 50 41 43 45 nspace>=etSPACE
76d0: 53 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20 SIZE ){.
76e0: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 42 blob_append(pB
76f0: 6c 6f 62 2c 73 70 61 63 65 73 2c 65 74 53 50 41 lob,spaces,etSPA
7700: 43 45 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20 CESIZE);.
7710: 20 20 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53 nspace -= etS
7720: 50 41 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20 PACESIZE;.
7730: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 }. if(
7740: 6e 73 70 61 63 65 3e 30 20 29 20 62 6c 6f 62 5f nspace>0 ) blob_
7750: 61 70 70 65 6e 64 28 70 42 6c 6f 62 2c 73 70 61 append(pBlob,spa
7760: 63 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20 20 ces,nspace);.
7770: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 }. }. i
7780: 66 28 20 6c 65 6e 67 74 68 3e 30 20 29 7b 0a 20 f( length>0 ){.
7790: 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 blob_append
77a0: 28 70 42 6c 6f 62 2c 62 75 66 70 74 2c 6c 65 6e (pBlob,bufpt,len
77b0: 67 74 68 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e gth);. coun
77c0: 74 20 2b 3d 20 6c 65 6e 67 74 68 3b 0a 20 20 20 t += length;.
77d0: 20 7d 0a 20 20 20 20 69 66 28 20 66 6c 61 67 5f }. if( flag_
77e0: 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b 0a 20 leftjustify ){.
77f0: 20 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e register in
7800: 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 t nspace;.
7810: 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68 2d 6c nspace = width-l
7820: 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 66 28 ength;. if(
7830: 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 20 20 nspace>0 ){.
7840: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73 count += ns
7850: 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68 pace;. wh
7860: 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53 ile( nspace>=etS
7870: 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20 PACESIZE ){.
7880: 20 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e blob_appen
7890: 64 28 70 42 6c 6f 62 2c 73 70 61 63 65 73 2c 65 d(pBlob,spaces,e
78a0: 74 53 50 41 43 45 53 49 5a 45 29 3b 0a 20 20 20 tSPACESIZE);.
78b0: 20 20 20 20 20 20 20 6e 73 70 61 63 65 20 2d 3d nspace -=
78c0: 20 65 74 53 50 41 43 45 53 49 5a 45 3b 0a 20 20 etSPACESIZE;.
78d0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
78e0: 69 66 28 20 6e 73 70 61 63 65 3e 30 20 29 20 62 if( nspace>0 ) b
78f0: 6c 6f 62 5f 61 70 70 65 6e 64 28 70 42 6c 6f 62 lob_append(pBlob
7900: 2c 73 70 61 63 65 73 2c 6e 73 70 61 63 65 29 3b ,spaces,nspace);
7910: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
7920: 20 20 20 69 66 28 20 7a 45 78 74 72 61 20 29 7b if( zExtra ){
7930: 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 66 72 . fossil_fr
7940: 65 65 28 7a 45 78 74 72 61 29 3b 0a 20 20 20 20 ee(zExtra);.
7950: 7d 0a 20 20 7d 2f 2a 20 45 6e 64 20 66 6f 72 20 }. }/* End for
7960: 6c 6f 6f 70 20 6f 76 65 72 20 74 68 65 20 66 6f loop over the fo
7970: 72 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 20 rmat string */.
7980: 20 72 65 74 75 72 6e 20 65 72 72 6f 72 66 6c 61 return errorfla
7990: 67 20 3f 20 2d 31 20 3a 20 63 6f 75 6e 74 3b 0a g ? -1 : count;.
79a0: 7d 20 2f 2a 20 45 6e 64 20 6f 66 20 66 75 6e 63 } /* End of func
79b0: 74 69 6f 6e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 50 tion */../*.** P
79c0: 72 69 6e 74 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 rint into memory
79d0: 20 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 66 obtained from f
79e0: 6f 73 73 69 6c 5f 6d 61 6c 6c 6f 63 28 29 2e 0a ossil_malloc()..
79f0: 2a 2f 0a 63 68 61 72 20 2a 6d 70 72 69 6e 74 66 */.char *mprintf
7a00: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f (const char *zFo
7a10: 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 rmat, ...){. va
7a20: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72 _list ap;. char
7a30: 20 2a 7a 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 *z;. va_start(
7a40: 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 7a ap,zFormat);. z
7a50: 20 3d 20 76 6d 70 72 69 6e 74 66 28 7a 46 6f 72 = vmprintf(zFor
7a60: 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 mat, ap);. va_e
7a70: 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e nd(ap);. return
7a80: 20 7a 3b 0a 7d 0a 63 68 61 72 20 2a 76 6d 70 72 z;.}.char *vmpr
7a90: 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 intf(const char
7aa0: 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 73 *zFormat, va_lis
7ab0: 74 20 61 70 29 7b 0a 20 20 42 6c 6f 62 20 62 6c t ap){. Blob bl
7ac0: 6f 62 20 3d 20 65 6d 70 74 79 5f 62 6c 6f 62 3b ob = empty_blob;
7ad0: 0a 20 20 62 6c 6f 62 5f 76 61 70 70 65 6e 64 66 . blob_vappendf
7ae0: 28 26 62 6c 6f 62 2c 20 7a 46 6f 72 6d 61 74 2c (&blob, zFormat,
7af0: 20 61 70 29 3b 0a 20 20 62 6c 6f 62 5f 6d 61 74 ap);. blob_mat
7b00: 65 72 69 61 6c 69 7a 65 28 26 62 6c 6f 62 29 3b erialize(&blob);
7b10: 0a 20 20 72 65 74 75 72 6e 20 62 6c 6f 62 2e 61 . return blob.a
7b20: 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 Data;.}../*.** R
7b30: 65 63 6f 72 64 20 61 6e 20 65 72 72 6f 72 20 6d ecord an error m
7b40: 65 73 73 61 67 65 20 69 6e 20 74 68 65 20 67 6c essage in the gl
7b50: 6f 62 61 6c 20 67 2e 7a 45 72 72 4d 73 67 20 76 obal g.zErrMsg v
7b60: 61 72 69 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a 20 49 ariable..**.** I
7b70: 66 20 74 68 65 72 65 20 69 73 20 61 6c 72 65 61 f there is alrea
7b80: 64 79 20 61 6e 6f 74 68 65 72 20 65 72 72 6f 72 dy another error
7b90: 20 6d 65 73 73 61 67 65 2c 20 6f 6e 6c 79 20 6f message, only o
7ba0: 76 65 72 77 72 69 74 65 20 69 74 20 69 66 0a 2a verwrite it if.*
7bb0: 2a 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 72 * the current er
7bc0: 72 6f 72 20 68 61 73 20 61 20 68 69 67 68 65 72 ror has a higher
7bd0: 20 70 72 69 6f 72 69 74 79 2e 0a 2a 2f 0a 76 6f priority..*/.vo
7be0: 69 64 20 66 6f 73 73 69 6c 5f 65 72 72 6f 72 28 id fossil_error(
7bf0: 69 6e 74 20 69 50 72 69 6f 72 69 74 79 2c 20 63 int iPriority, c
7c00: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d onst char *zForm
7c10: 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c at, ...){. va_l
7c20: 69 73 74 20 61 70 3b 0a 20 20 69 66 28 20 69 50 ist ap;. if( iP
7c30: 72 69 6f 72 69 74 79 3c 3d 30 20 29 7b 0a 20 20 riority<=0 ){.
7c40: 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 return;. }.
7c50: 69 66 28 20 67 2e 7a 45 72 72 4d 73 67 20 29 7b if( g.zErrMsg ){
7c60: 0a 20 20 20 20 69 66 28 20 67 2e 69 45 72 72 50 . if( g.iErrP
7c70: 72 69 6f 72 69 74 79 3e 3d 69 50 72 69 6f 72 69 riority>=iPriori
7c80: 74 79 20 29 7b 0a 20 20 20 20 20 20 72 65 74 75 ty ){. retu
7c90: 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 66 72 rn;. }. fr
7ca0: 65 65 28 67 2e 7a 45 72 72 4d 73 67 29 3b 0a 20 ee(g.zErrMsg);.
7cb0: 20 7d 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 }. va_start(ap
7cc0: 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 67 2e , zFormat);. g.
7cd0: 7a 45 72 72 4d 73 67 20 3d 20 76 6d 70 72 69 6e zErrMsg = vmprin
7ce0: 74 66 28 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b tf(zFormat, ap);
7cf0: 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 . va_end(ap);.
7d00: 20 67 2e 69 45 72 72 50 72 69 6f 72 69 74 79 20 g.iErrPriority
7d10: 3d 20 69 50 72 69 6f 72 69 74 79 3b 0a 7d 0a 76 = iPriority;.}.v
7d20: 6f 69 64 20 66 6f 73 73 69 6c 5f 65 72 72 6f 72 oid fossil_error
7d30: 5f 72 65 73 65 74 28 76 6f 69 64 29 7b 0a 20 20 _reset(void){.
7d40: 66 72 65 65 28 67 2e 7a 45 72 72 4d 73 67 29 3b free(g.zErrMsg);
7d50: 0a 20 20 67 2e 7a 45 72 72 4d 73 67 20 3d 20 30 . g.zErrMsg = 0
7d60: 3b 0a 20 20 67 2e 69 45 72 72 50 72 69 6f 72 69 ;. g.iErrPriori
7d70: 74 79 20 3d 20 30 3b 0a 7d 0a 0a 2f 2a 20 54 72 ty = 0;.}../* Tr
7d80: 75 65 20 69 66 20 74 68 65 20 6c 61 73 74 20 63 ue if the last c
7d90: 68 61 72 61 63 74 65 72 20 73 74 61 6e 64 61 72 haracter standar
7da0: 64 20 6f 75 74 70 75 74 20 63 75 72 73 6f 72 20 d output cursor
7db0: 69 73 20 73 65 74 74 69 6e 67 20 61 74 0a 2a 2a is setting at.**
7dc0: 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f the beginning o
7dd0: 66 20 61 20 62 6c 61 6e 6b 20 6c 69 6e 6b 2e 20 f a blank link.
7de0: 20 46 61 6c 73 65 20 69 66 20 61 20 5c 72 20 68 False if a \r h
7df0: 61 73 20 62 65 65 6e 20 74 6f 20 6d 6f 76 65 20 as been to move
7e00: 74 68 65 0a 2a 2a 20 63 75 72 73 6f 72 20 74 6f the.** cursor to
7e10: 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f the beginning o
7e20: 66 20 74 68 65 20 6c 69 6e 65 20 6f 72 20 69 66 f the line or if
7e30: 20 6e 6f 74 20 61 74 20 74 68 65 20 62 65 67 69 not at the begi
7e40: 6e 6e 69 6e 67 20 6f 66 0a 2a 2a 20 61 20 6c 69 nning of.** a li
7e50: 6e 65 2e 0a 2a 2a 20 77 61 73 20 61 20 5c 6e 0a ne..** was a \n.
7e60: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 74 */.static int st
7e70: 64 6f 75 74 41 74 42 4f 4c 20 3d 20 31 3b 0a 0a doutAtBOL = 1;..
7e80: 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 74 6f 20 73 /*.** Write to s
7e90: 74 61 6e 64 61 72 64 20 6f 75 74 70 75 74 20 6f tandard output o
7ea0: 72 20 73 74 61 6e 64 61 72 64 20 65 72 72 6f 72 r standard error
7eb0: 2e 0a 2a 2a 0a 2a 2a 20 4f 6e 20 77 69 6e 64 6f ..**.** On windo
7ec0: 77 73 2c 20 74 72 61 6e 73 66 6f 72 6d 20 74 68 ws, transform th
7ed0: 65 20 6f 75 74 70 75 74 20 69 6e 74 6f 20 74 68 e output into th
7ee0: 65 20 63 75 72 72 65 6e 74 20 74 65 72 6d 69 6e e current termin
7ef0: 61 6c 20 65 6e 63 6f 64 69 6e 67 0a 2a 2a 20 69 al encoding.** i
7f00: 66 20 74 68 65 20 6f 75 74 70 75 74 20 69 73 20 f the output is
7f10: 67 6f 69 6e 67 20 74 6f 20 74 68 65 20 73 63 72 going to the scr
7f20: 65 65 6e 2e 20 20 49 66 20 6f 75 74 70 75 74 20 een. If output
7f30: 69 73 20 72 65 64 69 72 65 63 74 65 64 20 69 6e is redirected in
7f40: 74 6f 0a 2a 2a 20 61 20 66 69 6c 65 2c 20 6e 6f to.** a file, no
7f50: 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 6f 63 63 translation occ
7f60: 75 72 73 2e 20 53 77 69 74 63 68 20 6f 75 74 70 urs. Switch outp
7f70: 75 74 20 6d 6f 64 65 20 74 6f 20 62 69 6e 61 72 ut mode to binar
7f80: 79 20 74 6f 0a 2a 2a 20 70 72 6f 70 65 72 6c 79 y to.** properly
7f90: 20 70 72 6f 63 65 73 73 20 6c 69 6e 65 2d 65 6e process line-en
7fa0: 64 69 6e 67 73 2c 20 6d 61 6b 65 20 73 75 72 65 dings, make sure
7fb0: 20 74 6f 20 73 77 69 74 63 68 20 74 68 65 20 6d to switch the m
7fc0: 6f 64 65 20 62 61 63 6b 20 74 6f 0a 2a 2a 20 74 ode back to.** t
7fd0: 65 78 74 20 77 68 65 6e 20 64 6f 6e 65 2e 0a 2a ext when done..*
7fe0: 2a 20 4e 6f 20 74 72 61 6e 73 6c 61 74 69 6f 6e * No translation
7ff0: 20 65 76 65 72 20 6f 63 63 75 72 73 20 6f 6e 20 ever occurs on
8000: 75 6e 69 78 2e 0a 2a 2f 0a 76 6f 69 64 20 66 6f unix..*/.void fo
8010: 73 73 69 6c 5f 70 75 74 73 28 63 6f 6e 73 74 20 ssil_puts(const
8020: 63 68 61 72 20 2a 7a 2c 20 69 6e 74 20 74 6f 53 char *z, int toS
8030: 74 64 45 72 72 2c 20 69 6e 74 20 6e 29 7b 0a 20 tdErr, int n){.
8040: 20 46 49 4c 45 2a 20 6f 75 74 20 3d 20 28 74 6f FILE* out = (to
8050: 53 74 64 45 72 72 20 3f 20 73 74 64 65 72 72 20 StdErr ? stderr
8060: 3a 20 73 74 64 6f 75 74 29 3b 0a 20 20 69 66 28 : stdout);. if(
8070: 20 6e 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a n==0 ) return;.
8080: 20 20 61 73 73 65 72 74 28 20 74 6f 53 74 64 45 assert( toStdE
8090: 72 72 3d 3d 30 20 7c 7c 20 74 6f 53 74 64 45 72 rr==0 || toStdEr
80a0: 72 3d 3d 31 20 29 3b 0a 20 20 69 66 28 20 74 6f r==1 );. if( to
80b0: 53 74 64 45 72 72 3d 3d 30 20 29 20 73 74 64 6f StdErr==0 ) stdo
80c0: 75 74 41 74 42 4f 4c 20 3d 20 28 7a 5b 6e 2d 31 utAtBOL = (z[n-1
80d0: 5d 3d 3d 27 5c 6e 27 29 3b 0a 23 69 66 20 64 65 ]=='\n');.#if de
80e0: 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20 20 fined(_WIN32).
80f0: 69 66 28 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f if( fossil_utf8_
8100: 74 6f 5f 63 6f 6e 73 6f 6c 65 28 7a 2c 20 6e 2c to_console(z, n,
8110: 20 74 6f 53 74 64 45 72 72 29 20 3e 3d 20 30 20 toStdErr) >= 0
8120: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 ){. return;.
8130: 20 7d 0a 20 20 66 66 6c 75 73 68 28 6f 75 74 29 }. fflush(out)
8140: 3b 0a 20 20 5f 73 65 74 6d 6f 64 65 28 5f 66 69 ;. _setmode(_fi
8150: 6c 65 6e 6f 28 6f 75 74 29 2c 20 5f 4f 5f 42 49 leno(out), _O_BI
8160: 4e 41 52 59 29 3b 0a 23 65 6e 64 69 66 0a 20 20 NARY);.#endif.
8170: 66 77 72 69 74 65 28 7a 2c 20 31 2c 20 6e 2c 20 fwrite(z, 1, n,
8180: 6f 75 74 29 3b 0a 23 69 66 20 64 65 66 69 6e 65 out);.#if define
8190: 64 28 5f 57 49 4e 33 32 29 0a 20 20 66 66 6c 75 d(_WIN32). fflu
81a0: 73 68 28 6f 75 74 29 3b 0a 20 20 5f 73 65 74 6d sh(out);. _setm
81b0: 6f 64 65 28 5f 66 69 6c 65 6e 6f 28 6f 75 74 29 ode(_fileno(out)
81c0: 2c 20 5f 4f 5f 54 45 58 54 29 3b 0a 23 65 6e 64 , _O_TEXT);.#end
81d0: 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 6f 72 63 if.}../*.** Forc
81e0: 65 20 74 68 65 20 73 74 61 6e 64 61 72 64 20 6f e the standard o
81f0: 75 74 70 75 74 20 63 75 72 73 6f 72 20 74 6f 20 utput cursor to
8200: 6d 6f 76 65 20 74 6f 20 74 68 65 20 62 65 67 69 move to the begi
8210: 6e 6e 69 6e 67 0a 2a 2a 20 6f 66 20 61 20 6c 69 nning.** of a li
8220: 6e 65 2c 20 69 66 20 69 74 20 69 73 20 6e 6f 74 ne, if it is not
8230: 20 74 68 65 72 65 20 61 6c 72 65 61 64 79 2e 0a there already..
8240: 2a 2f 0a 69 6e 74 20 66 6f 73 73 69 6c 5f 66 6f */.int fossil_fo
8250: 72 63 65 5f 6e 65 77 6c 69 6e 65 28 76 6f 69 64 rce_newline(void
8260: 29 7b 0a 20 20 69 66 28 20 67 2e 63 67 69 4f 75 ){. if( g.cgiOu
8270: 74 70 75 74 3d 3d 30 20 26 26 20 73 74 64 6f 75 tput==0 && stdou
8280: 74 41 74 42 4f 4c 3d 3d 30 20 29 7b 0a 20 20 20 tAtBOL==0 ){.
8290: 20 66 6f 73 73 69 6c 5f 70 75 74 73 28 22 5c 6e fossil_puts("\n
82a0: 22 2c 20 30 2c 20 31 29 3b 0a 20 20 20 20 72 65 ", 0, 1);. re
82b0: 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 72 65 turn 1;. }. re
82c0: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
82d0: 20 49 6e 64 69 63 61 74 65 20 74 68 61 74 20 74 Indicate that t
82e0: 68 65 20 63 75 72 73 6f 72 20 68 61 73 20 6d 6f he cursor has mo
82f0: 76 65 64 20 74 6f 20 74 68 65 20 73 74 61 72 74 ved to the start
8300: 20 6f 66 20 61 20 6c 69 6e 65 20 62 79 20 6d 65 of a line by me
8310: 61 6e 73 0a 2a 2a 20 6f 74 68 65 72 20 74 68 61 ans.** other tha
8320: 6e 20 77 72 69 74 69 6e 67 20 74 6f 20 73 74 61 n writing to sta
8330: 6e 64 61 72 64 20 6f 75 74 70 75 74 2e 0a 2a 2f ndard output..*/
8340: 0a 76 6f 69 64 20 66 6f 73 73 69 6c 5f 6e 65 77 .void fossil_new
8350: 5f 6c 69 6e 65 5f 73 74 61 72 74 65 64 28 76 6f _line_started(vo
8360: 69 64 29 7b 0a 20 20 73 74 64 6f 75 74 41 74 42 id){. stdoutAtB
8370: 4f 4c 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a OL = 1;.}../*.**
8380: 20 57 72 69 74 65 20 6f 75 74 70 75 74 20 66 6f Write output fo
8390: 72 20 75 73 65 72 20 63 6f 6e 73 75 6d 70 74 69 r user consumpti
83a0: 6f 6e 2e 20 20 49 66 20 67 2e 63 67 69 4f 75 74 on. If g.cgiOut
83b0: 70 75 74 20 69 73 20 65 6e 61 62 6c 65 64 2c 20 put is enabled,
83c0: 74 68 65 6e 0a 2a 2a 20 73 65 6e 64 20 74 68 65 then.** send the
83d0: 20 6f 75 74 70 75 74 20 61 73 20 70 61 72 74 20 output as part
83e0: 6f 66 20 74 68 65 20 43 47 49 20 72 65 70 6c 79 of the CGI reply
83f0: 2e 20 20 49 66 20 67 2e 63 67 69 4f 75 74 70 75 . If g.cgiOutpu
8400: 74 20 69 73 20 66 61 6c 73 65 2c 0a 2a 2a 20 74 t is false,.** t
8410: 68 65 6e 20 77 72 69 74 65 20 6f 6e 20 73 74 61 hen write on sta
8420: 6e 64 61 72 64 20 6f 75 74 70 75 74 2e 0a 2a 2f ndard output..*/
8430: 0a 76 6f 69 64 20 66 6f 73 73 69 6c 5f 70 72 69 .void fossil_pri
8440: 6e 74 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a nt(const char *z
8450: 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 Format, ...){.
8460: 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 76 61 va_list ap;. va
8470: 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d _start(ap, zForm
8480: 61 74 29 3b 0a 20 20 69 66 28 20 67 2e 63 67 69 at);. if( g.cgi
8490: 4f 75 74 70 75 74 20 29 7b 0a 20 20 20 20 63 67 Output ){. cg
84a0: 69 5f 76 70 72 69 6e 74 66 28 7a 46 6f 72 6d 61 i_vprintf(zForma
84b0: 74 2c 20 61 70 29 3b 0a 20 20 7d 65 6c 73 65 7b t, ap);. }else{
84c0: 0a 20 20 20 20 76 78 70 72 69 6e 74 66 28 30 2c . vxprintf(0,
84d0: 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 zFormat, ap);.
84e0: 20 7d 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b }. va_end(ap);
84f0: 0a 7d 0a 76 6f 69 64 20 66 6f 73 73 69 6c 5f 76 .}.void fossil_v
8500: 70 72 69 6e 74 28 63 6f 6e 73 74 20 63 68 61 72 print(const char
8510: 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 *zFormat, va_li
8520: 73 74 20 61 70 29 7b 0a 20 20 69 66 28 20 67 2e st ap){. if( g.
8530: 63 67 69 4f 75 74 70 75 74 20 29 7b 0a 20 20 20 cgiOutput ){.
8540: 20 63 67 69 5f 76 70 72 69 6e 74 66 28 7a 46 6f cgi_vprintf(zFo
8550: 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 7d 65 6c rmat, ap);. }el
8560: 73 65 7b 0a 20 20 20 20 76 78 70 72 69 6e 74 66 se{. vxprintf
8570: 28 30 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 (0, zFormat, ap)
8580: 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 ;. }.}../*.** P
8590: 72 69 6e 74 20 61 20 74 72 61 63 65 20 6d 65 73 rint a trace mes
85a0: 73 61 67 65 20 6f 6e 20 73 74 61 6e 64 61 72 64 sage on standard
85b0: 20 65 72 72 6f 72 2e 0a 2a 2f 0a 76 6f 69 64 20 error..*/.void
85c0: 66 6f 73 73 69 6c 5f 74 72 61 63 65 28 63 6f 6e fossil_trace(con
85d0: 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 st char *zFormat
85e0: 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 , ...){. va_lis
85f0: 74 20 61 70 3b 0a 20 20 42 6c 6f 62 20 62 3b 0a t ap;. Blob b;.
8600: 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a va_start(ap, z
8610: 46 6f 72 6d 61 74 29 3b 0a 20 20 62 20 3d 20 65 Format);. b = e
8620: 6d 70 74 79 5f 62 6c 6f 62 3b 0a 20 20 76 78 70 mpty_blob;. vxp
8630: 72 69 6e 74 66 28 26 62 2c 20 7a 46 6f 72 6d 61 rintf(&b, zForma
8640: 74 2c 20 61 70 29 3b 0a 20 20 66 6f 73 73 69 6c t, ap);. fossil
8650: 5f 70 75 74 73 28 62 6c 6f 62 5f 62 75 66 66 65 _puts(blob_buffe
8660: 72 28 26 62 29 2c 20 31 2c 20 62 6c 6f 62 5f 73 r(&b), 1, blob_s
8670: 69 7a 65 28 26 62 29 29 3b 0a 20 20 62 6c 6f 62 ize(&b));. blob
8680: 5f 72 65 73 65 74 28 26 62 29 3b 0a 20 20 76 61 _reset(&b);. va
8690: 5f 65 6e 64 28 61 70 29 3b 0a 7d 0a 0a 2f 2a 0a _end(ap);.}../*.
86a0: 2a 2a 20 57 72 69 74 65 20 61 20 6d 65 73 73 61 ** Write a messa
86b0: 67 65 20 74 6f 20 74 68 65 20 65 72 72 6f 72 20 ge to the error
86c0: 6c 6f 67 2c 20 69 66 20 74 68 65 20 65 72 72 6f log, if the erro
86d0: 72 20 6c 6f 67 20 66 69 6c 65 6e 61 6d 65 20 69 r log filename i
86e0: 73 0a 2a 2a 20 64 65 66 69 6e 65 64 2e 0a 2a 2f s.** defined..*/
86f0: 0a 76 6f 69 64 20 66 6f 73 73 69 6c 5f 65 72 72 .void fossil_err
8700: 6f 72 6c 6f 67 28 63 6f 6e 73 74 20 63 68 61 72 orlog(const char
8710: 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b *zFormat, ...){
8720: 0a 20 20 73 74 72 75 63 74 20 74 6d 20 2a 70 4e . struct tm *pN
8730: 6f 77 3b 0a 20 20 74 69 6d 65 5f 74 20 6e 6f 77 ow;. time_t now
8740: 3b 0a 20 20 46 49 4c 45 20 2a 6f 75 74 3b 0a 20 ;. FILE *out;.
8750: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a const char *z;.
8760: 20 20 69 6e 74 20 69 3b 0a 20 20 76 61 5f 6c 69 int i;. va_li
8770: 73 74 20 61 70 3b 0a 20 20 73 74 61 74 69 63 20 st ap;. static
8780: 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 6f 6e 73 const char *cons
8790: 74 20 61 7a 45 6e 76 5b 5d 20 3d 20 7b 20 22 48 t azEnv[] = { "H
87a0: 54 54 50 5f 48 4f 53 54 22 2c 20 22 48 54 54 50 TTP_HOST", "HTTP
87b0: 5f 52 45 46 45 52 45 52 22 2c 0a 20 20 20 20 20 _REFERER",.
87c0: 20 22 48 54 54 50 5f 55 53 45 52 5f 41 47 45 4e "HTTP_USER_AGEN
87d0: 54 22 2c 0a 20 20 20 20 20 20 22 50 41 54 48 5f T",. "PATH_
87e0: 49 4e 46 4f 22 2c 20 22 51 55 45 52 59 5f 53 54 INFO", "QUERY_ST
87f0: 52 49 4e 47 22 2c 20 22 52 45 4d 4f 54 45 5f 41 RING", "REMOTE_A
8800: 44 44 52 22 2c 20 22 52 45 51 55 45 53 54 5f 4d DDR", "REQUEST_M
8810: 45 54 48 4f 44 22 2c 0a 20 20 20 20 20 20 22 52 ETHOD",. "R
8820: 45 51 55 45 53 54 5f 55 52 49 22 2c 20 22 53 43 EQUEST_URI", "SC
8830: 52 49 50 54 5f 4e 41 4d 45 22 20 7d 3b 0a 20 20 RIPT_NAME" };.
8840: 69 66 28 20 67 2e 7a 45 72 72 6c 6f 67 3d 3d 30 if( g.zErrlog==0
8850: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 ) return;. if(
8860: 20 67 2e 7a 45 72 72 6c 6f 67 5b 30 5d 3d 3d 27 g.zErrlog[0]=='
8870: 2d 27 20 26 26 20 67 2e 7a 45 72 72 6c 6f 67 5b -' && g.zErrlog[
8880: 31 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 6f 75 74 1]==0 ){. out
8890: 20 3d 20 73 74 64 65 72 72 3b 0a 20 20 7d 65 6c = stderr;. }el
88a0: 73 65 7b 0a 20 20 20 20 6f 75 74 20 3d 20 66 6f se{. out = fo
88b0: 73 73 69 6c 5f 66 6f 70 65 6e 28 67 2e 7a 45 72 ssil_fopen(g.zEr
88c0: 72 6c 6f 67 2c 20 22 61 22 29 3b 0a 20 20 20 20 rlog, "a");.
88d0: 69 66 28 20 6f 75 74 3d 3d 30 20 29 20 72 65 74 if( out==0 ) ret
88e0: 75 72 6e 3b 0a 20 20 7d 0a 20 20 6e 6f 77 20 3d urn;. }. now =
88f0: 20 74 69 6d 65 28 30 29 3b 0a 20 20 70 4e 6f 77 time(0);. pNow
8900: 20 3d 20 67 6d 74 69 6d 65 28 26 6e 6f 77 29 3b = gmtime(&now);
8910: 0a 20 20 66 70 72 69 6e 74 66 28 6f 75 74 2c 20 . fprintf(out,
8920: 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 25 "------------- %
8930: 30 34 64 2d 25 30 32 64 2d 25 30 32 64 20 25 30 04d-%02d-%02d %0
8940: 32 64 3a 25 30 32 64 3a 25 30 32 64 20 55 54 43 2d:%02d:%02d UTC
8950: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 5c 6e 22 ------------\n"
8960: 2c 0a 20 20 20 20 20 20 20 20 20 20 70 4e 6f 77 ,. pNow
8970: 2d 3e 74 6d 5f 79 65 61 72 2b 31 39 30 30 2c 20 ->tm_year+1900,
8980: 70 4e 6f 77 2d 3e 74 6d 5f 6d 6f 6e 2b 31 2c 20 pNow->tm_mon+1,
8990: 70 4e 6f 77 2d 3e 74 6d 5f 6d 64 61 79 2c 0a 20 pNow->tm_mday,.
89a0: 20 20 20 20 20 20 20 20 20 70 4e 6f 77 2d 3e 74 pNow->t
89b0: 6d 5f 68 6f 75 72 2c 20 70 4e 6f 77 2d 3e 74 6d m_hour, pNow->tm
89c0: 5f 6d 69 6e 2c 20 70 4e 6f 77 2d 3e 74 6d 5f 73 _min, pNow->tm_s
89d0: 65 63 29 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 ec);. va_start(
89e0: 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 ap, zFormat);.
89f0: 76 66 70 72 69 6e 74 66 28 6f 75 74 2c 20 7a 46 vfprintf(out, zF
8a00: 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 66 70 ormat, ap);. fp
8a10: 72 69 6e 74 66 28 6f 75 74 2c 20 22 5c 6e 22 29 rintf(out, "\n")
8a20: 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a ;. va_end(ap);.
8a30: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 63 6f 75 for(i=0; i<cou
8a40: 6e 74 28 61 7a 45 6e 76 29 3b 20 69 2b 2b 29 7b nt(azEnv); i++){
8a50: 0a 20 20 20 20 63 68 61 72 20 2a 70 3b 0a 20 20 . char *p;.
8a60: 20 20 69 66 28 20 28 70 20 3d 20 66 6f 73 73 69 if( (p = fossi
8a70: 6c 5f 67 65 74 65 6e 76 28 61 7a 45 6e 76 5b 69 l_getenv(azEnv[i
8a80: 5d 29 29 21 3d 30 20 26 26 20 70 5b 30 5d 21 3d ]))!=0 && p[0]!=
8a90: 30 20 29 7b 0a 20 20 20 20 20 20 66 70 72 69 6e 0 ){. fprin
8aa0: 74 66 28 6f 75 74 2c 20 22 25 73 3d 25 73 5c 6e tf(out, "%s=%s\n
8ab0: 22 2c 20 61 7a 45 6e 76 5b 69 5d 2c 20 70 29 3b ", azEnv[i], p);
8ac0: 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 70 61 . fossil_pa
8ad0: 74 68 5f 66 72 65 65 28 70 29 3b 0a 20 20 20 20 th_free(p);.
8ae0: 7d 65 6c 73 65 20 69 66 28 20 28 7a 20 3d 20 50 }else if( (z = P
8af0: 28 61 7a 45 6e 76 5b 69 5d 29 29 21 3d 30 20 26 (azEnv[i]))!=0 &
8b00: 26 20 7a 5b 30 5d 21 3d 30 20 29 7b 0a 20 20 20 & z[0]!=0 ){.
8b10: 20 20 20 66 70 72 69 6e 74 66 28 6f 75 74 2c 20 fprintf(out,
8b20: 22 25 73 3d 25 73 5c 6e 22 2c 20 61 7a 45 6e 76 "%s=%s\n", azEnv
8b30: 5b 69 5d 2c 20 7a 29 3b 0a 20 20 20 20 7d 0a 20 [i], z);. }.
8b40: 20 7d 0a 20 20 66 63 6c 6f 73 65 28 6f 75 74 29 }. fclose(out)
8b50: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 ;.}../*.** The f
8b60: 6f 6c 6c 6f 77 69 6e 67 20 76 61 72 69 61 62 6c ollowing variabl
8b70: 65 20 62 65 63 6f 6d 65 73 20 74 72 75 65 20 77 e becomes true w
8b80: 68 69 6c 65 20 70 72 6f 63 65 73 73 69 6e 67 20 hile processing
8b90: 61 20 66 61 74 61 6c 20 65 72 72 6f 72 0a 2a 2a a fatal error.**
8ba0: 20 6f 72 20 61 20 70 61 6e 69 63 2e 20 20 49 66 or a panic. If
8bb0: 20 61 64 64 69 74 69 6f 6e 61 6c 20 22 72 65 63 additional "rec
8bc0: 75 72 73 69 76 65 2d 66 61 74 61 6c 22 20 65 72 ursive-fatal" er
8bd0: 72 6f 72 73 20 6f 63 63 75 72 20 77 68 69 6c 65 rors occur while
8be0: 0a 2a 2a 20 73 68 75 74 74 69 6e 67 20 64 6f 77 .** shutting dow
8bf0: 6e 2c 20 74 68 65 20 72 65 63 75 72 73 69 76 65 n, the recursive
8c00: 20 65 72 72 6f 72 73 20 61 72 65 20 73 69 6c 65 errors are sile
8c10: 6e 74 6c 79 20 69 67 6e 6f 72 65 64 2e 0a 2a 2f ntly ignored..*/
8c20: 0a 73 74 61 74 69 63 20 69 6e 74 20 6d 61 69 6e .static int main
8c30: 49 6e 46 61 74 61 6c 45 72 72 6f 72 20 3d 20 30 InFatalError = 0
8c40: 3b 0a 0a 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 65 ;../*.** Write e
8c50: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 6f 75 74 rror message out
8c60: 70 75 74 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e put.*/.static in
8c70: 74 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 5f 65 t fossil_print_e
8c80: 72 72 6f 72 28 69 6e 74 20 72 63 2c 20 63 6f 6e rror(int rc, con
8c90: 73 74 20 63 68 61 72 20 2a 7a 29 7b 0a 23 69 66 st char *z){.#if
8ca0: 64 65 66 20 46 4f 53 53 49 4c 5f 45 4e 41 42 4c def FOSSIL_ENABL
8cb0: 45 5f 4a 53 4f 4e 0a 20 20 69 66 28 20 67 2e 6a E_JSON. if( g.j
8cc0: 73 6f 6e 2e 69 73 4a 73 6f 6e 4d 6f 64 65 21 3d son.isJsonMode!=
8cd0: 30 20 29 7b 0a 20 20 20 20 2f 2a 0a 20 20 20 20 0 ){. /*.
8ce0: 2a 2a 20 41 76 6f 69 64 20 63 61 6c 6c 69 6e 67 ** Avoid calling
8cf0: 20 69 6e 74 6f 20 74 68 65 20 4a 53 4f 4e 20 73 into the JSON s
8d00: 75 70 70 6f 72 74 20 73 75 62 73 79 73 74 65 6d upport subsystem
8d10: 20 69 66 20 69 74 0a 20 20 20 20 2a 2a 20 68 61 if it. ** ha
8d20: 73 20 6e 6f 74 20 79 65 74 20 62 65 65 6e 20 69 s not yet been i
8d30: 6e 69 74 69 61 6c 69 7a 65 64 2c 20 65 2e 67 2e nitialized, e.g.
8d40: 20 65 61 72 6c 79 20 53 51 4c 69 74 65 20 6c 6f early SQLite lo
8d50: 67 0a 20 20 20 20 2a 2a 20 6d 65 73 73 61 67 65 g. ** message
8d60: 73 2c 20 65 74 63 2e 0a 20 20 20 20 2a 2f 0a 20 s, etc.. */.
8d70: 20 20 20 69 66 28 20 21 6a 73 6f 6e 5f 69 73 5f if( !json_is_
8d80: 62 6f 6f 74 73 74 72 61 70 70 65 64 5f 65 61 72 bootstrapped_ear
8d90: 6c 79 28 29 20 29 20 6a 73 6f 6e 5f 62 6f 6f 74 ly() ) json_boot
8da0: 73 74 72 61 70 5f 65 61 72 6c 79 28 29 3b 0a 20 strap_early();.
8db0: 20 20 20 6a 73 6f 6e 5f 65 72 72 28 20 30 2c 20 json_err( 0,
8dc0: 7a 2c 20 31 20 29 3b 0a 20 20 20 20 69 66 28 20 z, 1 );. if(
8dd0: 67 2e 69 73 48 54 54 50 20 26 26 20 21 67 2e 6a g.isHTTP && !g.j
8de0: 73 6f 6e 2e 70 72 65 73 65 72 76 65 52 63 20 29 son.preserveRc )
8df0: 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 30 20 2f {. rc = 0 /
8e00: 2a 20 61 76 6f 69 64 20 48 54 54 50 20 35 30 30 * avoid HTTP 500
8e10: 20 2a 2f 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 */;. }. i
8e20: 66 28 20 67 2e 63 67 69 4f 75 74 70 75 74 3d 3d f( g.cgiOutput==
8e30: 31 20 29 7b 0a 20 20 20 20 20 20 67 2e 63 67 69 1 ){. g.cgi
8e40: 4f 75 74 70 75 74 20 3d 20 32 3b 0a 20 20 20 20 Output = 2;.
8e50: 20 20 63 67 69 5f 72 65 70 6c 79 28 29 3b 0a 20 cgi_reply();.
8e60: 20 20 20 7d 0a 20 20 7d 0a 20 20 65 6c 73 65 0a }. }. else.
8e70: 23 65 6e 64 69 66 0a 20 20 69 66 28 20 67 2e 63 #endif. if( g.c
8e80: 67 69 4f 75 74 70 75 74 3d 3d 31 20 26 26 20 67 giOutput==1 && g
8e90: 2e 64 62 20 29 7b 0a 20 20 20 20 67 2e 63 67 69 .db ){. g.cgi
8ea0: 4f 75 74 70 75 74 20 3d 20 32 3b 0a 20 20 20 20 Output = 2;.
8eb0: 63 67 69 5f 72 65 73 65 74 5f 63 6f 6e 74 65 6e cgi_reset_conten
8ec0: 74 28 29 3b 0a 20 20 20 20 63 67 69 5f 73 65 74 t();. cgi_set
8ed0: 5f 63 6f 6e 74 65 6e 74 5f 74 79 70 65 28 22 74 _content_type("t
8ee0: 65 78 74 2f 68 74 6d 6c 22 29 3b 0a 20 20 20 20 ext/html");.
8ef0: 73 74 79 6c 65 5f 73 65 74 5f 63 75 72 72 65 6e style_set_curren
8f00: 74 5f 66 65 61 74 75 72 65 28 22 65 72 72 6f 72 t_feature("error
8f10: 22 29 3b 0a 20 20 20 20 73 74 79 6c 65 5f 68 65 ");. style_he
8f20: 61 64 65 72 28 22 42 61 64 20 52 65 71 75 65 73 ader("Bad Reques
8f30: 74 22 29 3b 0a 20 20 20 20 65 74 61 67 5f 63 61 t");. etag_ca
8f40: 6e 63 65 6c 28 29 3b 0a 20 20 20 20 40 20 3c 70 ncel();. @ <p
8f50: 20 63 6c 61 73 73 3d 22 67 65 6e 65 72 61 6c 45 class="generalE
8f60: 72 72 6f 72 22 3e 25 68 28 7a 29 3c 2f 70 3e 0a rror">%h(z)</p>.
8f70: 20 20 20 20 63 67 69 5f 73 65 74 5f 73 74 61 74 cgi_set_stat
8f80: 75 73 28 34 30 30 2c 20 22 42 61 64 20 52 65 71 us(400, "Bad Req
8f90: 75 65 73 74 22 29 3b 0a 20 20 20 20 73 74 79 6c uest");. styl
8fa0: 65 5f 66 69 6e 69 73 68 5f 70 61 67 65 28 29 3b e_finish_page();
8fb0: 0a 20 20 20 20 63 67 69 5f 72 65 70 6c 79 28 29 . cgi_reply()
8fc0: 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 21 67 ;. }else if( !g
8fd0: 2e 66 51 75 69 65 74 20 29 7b 0a 20 20 20 20 66 .fQuiet ){. f
8fe0: 6f 73 73 69 6c 5f 66 6f 72 63 65 5f 6e 65 77 6c ossil_force_newl
8ff0: 69 6e 65 28 29 3b 0a 20 20 20 20 66 6f 73 73 69 ine();. fossi
9000: 6c 5f 74 72 61 63 65 28 22 25 73 5c 6e 22 2c 20 l_trace("%s\n",
9010: 7a 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e z);. }. return
9020: 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 rc;.}../*.** Pr
9030: 69 6e 74 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 int an error mes
9040: 73 61 67 65 2c 20 72 6f 6c 6c 62 61 63 6b 20 61 sage, rollback a
9050: 6c 6c 20 64 61 74 61 62 61 73 65 73 2c 20 61 6e ll databases, an
9060: 64 20 71 75 69 74 2e 20 20 54 68 65 73 65 0a 2a d quit. These.*
9070: 2a 20 72 6f 75 74 69 6e 65 73 20 6e 65 76 65 72 * routines never
9080: 20 72 65 74 75 72 6e 20 61 6e 64 20 70 72 6f 64 return and prod
9090: 75 63 65 20 61 20 6e 6f 6e 2d 7a 65 72 6f 20 70 uce a non-zero p
90a0: 72 6f 63 65 73 73 20 65 78 69 74 20 73 74 61 74 rocess exit stat
90b0: 75 73 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6d 61 us..**.** The ma
90c0: 69 6e 20 64 69 66 66 65 72 65 6e 63 65 20 62 65 in difference be
90d0: 74 77 65 65 6e 20 66 6f 73 73 69 6c 5f 66 61 74 tween fossil_fat
90e0: 61 6c 28 29 20 61 6e 64 20 66 6f 73 73 69 6c 5f al() and fossil_
90f0: 70 61 6e 69 63 28 29 20 69 73 20 74 68 61 74 0a panic() is that.
9100: 2a 2a 20 66 6f 73 73 69 6c 5f 70 61 6e 69 63 28 ** fossil_panic(
9110: 29 20 6d 61 6b 65 73 20 61 6e 20 65 6e 74 72 79 ) makes an entry
9120: 20 69 6e 20 74 68 65 20 65 72 72 6f 72 20 6c 6f in the error lo
9130: 67 20 77 68 65 72 65 61 73 20 66 6f 73 73 69 6c g whereas fossil
9140: 5f 66 61 74 61 6c 28 29 0a 2a 2a 20 64 6f 65 73 _fatal().** does
9150: 20 6e 6f 74 2e 20 4f 6e 20 50 4f 53 49 58 20 70 not. On POSIX p
9160: 6c 61 74 66 6f 72 6d 73 2c 20 69 66 20 74 68 65 latforms, if the
9170: 72 65 20 69 73 20 6e 6f 74 20 61 6e 20 65 72 72 re is not an err
9180: 6f 72 20 6c 6f 67 2c 20 74 68 65 6e 20 62 6f 74 or log, then bot
9190: 68 0a 2a 2a 20 72 6f 75 74 69 6e 65 73 20 77 6f h.** routines wo
91a0: 72 6b 20 73 69 6d 69 6c 61 72 6c 79 20 77 69 74 rk similarly wit
91b0: 68 20 72 65 73 70 65 63 74 20 74 6f 20 75 73 65 h respect to use
91c0: 72 2d 76 69 73 69 62 6c 65 20 65 66 66 65 63 74 r-visible effect
91d0: 73 2e 20 20 48 65 6e 63 65 2c 0a 2a 2a 20 74 68 s. Hence,.** th
91e0: 65 20 72 6f 75 74 69 6e 65 73 20 61 72 65 20 69 e routines are i
91f0: 6e 74 65 72 63 68 61 6e 67 61 62 6c 65 20 66 6f nterchangable fo
9200: 72 20 63 6f 6d 6d 61 6e 64 73 20 61 6e 64 20 6f r commands and o
9210: 6e 6c 79 20 61 63 74 20 64 69 66 66 65 72 65 6e nly act differen
9220: 74 6c 79 0a 2a 2a 20 77 68 65 6e 20 70 72 6f 63 tly.** when proc
9230: 65 73 73 69 6e 67 20 77 65 62 20 70 61 67 65 73 essing web pages
9240: 2e 20 4f 6e 20 74 68 65 20 57 69 6e 64 6f 77 73 . On the Windows
9250: 20 70 6c 61 74 66 6f 72 6d 2c 20 66 6f 73 73 69 platform, fossi
9260: 6c 5f 70 61 6e 69 63 28 29 0a 2a 2a 20 61 6c 73 l_panic().** als
9270: 6f 20 64 69 73 70 6c 61 79 73 20 61 20 70 6f 70 o displays a pop
9280: 2d 75 70 20 73 74 61 74 69 6e 67 20 74 68 61 74 -up stating that
9290: 20 61 6e 20 65 72 72 6f 72 20 68 61 73 20 6f 63 an error has oc
92a0: 63 75 72 65 64 20 61 6e 64 20 61 6c 6c 6f 77 69 cured and allowi
92b0: 6e 67 0a 2a 2a 20 6a 75 73 74 2d 69 6e 2d 74 69 ng.** just-in-ti
92c0: 6d 65 20 64 65 62 75 67 67 69 6e 67 20 74 6f 20 me debugging to
92d0: 63 6f 6d 6d 65 6e 63 65 2e 20 4f 6e 20 61 6c 6c commence. On all
92e0: 20 70 6c 61 74 66 6f 72 6d 73 2c 20 66 6f 73 73 platforms, foss
92f0: 69 6c 5f 70 61 6e 69 63 28 29 0a 2a 2a 20 65 6e il_panic().** en
9300: 64 73 20 65 78 65 63 75 74 69 6f 6e 20 77 69 74 ds execution wit
9310: 68 20 61 20 53 49 47 41 42 52 54 20 73 69 67 6e h a SIGABRT sign
9320: 61 6c 2c 20 62 79 70 61 73 73 69 6e 67 20 61 74 al, bypassing at
9330: 65 78 69 74 20 70 72 6f 63 65 73 73 69 6e 67 2e exit processing.
9340: 0a 2a 2a 20 54 68 69 73 20 73 69 67 6e 61 6c 20 .** This signal
9350: 63 61 6e 20 61 6c 73 6f 20 70 72 6f 64 75 63 65 can also produce
9360: 20 61 20 63 6f 72 65 20 64 75 6d 70 20 6f 6e 20 a core dump on
9370: 50 4f 53 49 58 20 70 6c 61 74 66 6f 72 6d 73 2e POSIX platforms.
9380: 0a 2a 2a 0a 2a 2a 20 55 73 65 20 66 6f 73 73 69 .**.** Use fossi
9390: 6c 5f 66 61 74 61 6c 28 29 20 66 6f 72 20 6d 61 l_fatal() for ma
93a0: 6c 66 6f 72 6d 65 64 20 69 6e 70 75 74 73 20 74 lformed inputs t
93b0: 68 61 74 20 73 68 6f 75 6c 64 20 62 65 20 72 65 hat should be re
93c0: 70 6f 72 74 65 64 20 62 61 63 6b 0a 2a 2a 20 74 ported back.** t
93d0: 6f 20 74 68 65 20 75 73 65 72 2c 20 62 75 74 20 o the user, but
93e0: 77 68 69 63 68 20 64 6f 20 6e 6f 74 20 72 65 70 which do not rep
93f0: 72 65 73 65 6e 74 20 61 20 63 6f 6e 66 69 67 75 resent a configu
9400: 72 61 74 69 6f 6e 20 70 72 6f 62 6c 65 6d 20 6f ration problem o
9410: 72 20 62 75 67 2e 0a 2a 2a 0a 2a 2a 20 55 73 65 r bug..**.** Use
9420: 20 66 6f 73 73 69 6c 5f 70 61 6e 69 63 28 29 20 fossil_panic()
9430: 66 6f 72 20 61 6e 79 20 6b 69 6e 64 20 6f 66 20 for any kind of
9440: 65 72 72 6f 72 20 74 68 61 74 20 73 68 6f 75 6c error that shoul
9450: 64 20 62 65 20 62 72 6f 75 67 68 74 20 74 6f 20 d be brought to
9460: 74 68 65 0a 2a 2a 20 61 74 74 65 6e 74 69 6f 6e the.** attention
9470: 20 6f 66 20 74 68 65 20 73 79 73 74 65 6d 20 61 of the system a
9480: 64 6d 69 6e 69 73 74 72 61 74 6f 72 20 6f 72 20 dministrator or
9490: 46 6f 73 73 69 6c 20 64 65 76 65 6c 6f 70 65 72 Fossil developer
94a0: 73 2e 20 49 74 20 73 68 6f 75 6c 64 0a 2a 2a 20 s. It should.**
94b0: 62 65 20 61 76 6f 69 64 65 64 20 66 6f 72 20 6f be avoided for o
94c0: 72 64 69 6e 61 72 79 20 75 73 61 67 65 2c 20 70 rdinary usage, p
94d0: 61 72 61 6d 65 74 65 72 2c 20 4f 4f 4d 20 61 6e arameter, OOM an
94e0: 64 20 49 2f 4f 20 65 72 72 6f 72 73 2e 0a 2a 2f d I/O errors..*/
94f0: 0a 4e 4f 52 45 54 55 52 4e 20 76 6f 69 64 20 66 .NORETURN void f
9500: 6f 73 73 69 6c 5f 70 61 6e 69 63 28 63 6f 6e 73 ossil_panic(cons
9510: 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c t char *zFormat,
9520: 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 ...){. va_list
9530: 20 61 70 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 ap;. int rc =
9540: 31 3b 0a 20 20 63 68 61 72 20 7a 5b 31 30 30 30 1;. char z[1000
9550: 5d 3b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 20 ];. static int
9560: 6f 6e 63 65 20 3d 20 30 3b 0a 0a 20 20 69 66 28 once = 0;.. if(
9570: 20 6f 6e 63 65 20 29 20 65 78 69 74 28 31 29 3b once ) exit(1);
9580: 0a 20 20 6f 6e 63 65 20 3d 20 31 3b 0a 20 20 6d . once = 1;. m
9590: 61 69 6e 49 6e 46 61 74 61 6c 45 72 72 6f 72 20 ainInFatalError
95a0: 3d 20 31 3b 0a 20 20 2f 2a 20 64 62 5f 66 6f 72 = 1;. /* db_for
95b0: 63 65 5f 72 6f 6c 6c 62 61 63 6b 28 29 3b 20 2a ce_rollback(); *
95c0: 2f 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c /. va_start(ap,
95d0: 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 73 71 6c zFormat);. sql
95e0: 69 74 65 33 5f 76 73 6e 70 72 69 6e 74 66 28 73 ite3_vsnprintf(s
95f0: 69 7a 65 6f 66 28 7a 29 2c 7a 2c 7a 46 6f 72 6d izeof(z),z,zForm
9600: 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e at, ap);. va_en
9610: 64 28 61 70 29 3b 0a 20 20 69 66 28 20 67 2e 66 d(ap);. if( g.f
9620: 41 6e 79 54 72 61 63 65 20 29 7b 0a 20 20 20 20 AnyTrace ){.
9630: 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 fprintf(stderr,
9640: 22 2f 2a 2a 2a 2a 2a 20 70 61 6e 69 63 20 6f 6e "/***** panic on
9650: 20 25 64 20 2a 2a 2a 2a 2a 2f 5c 6e 22 2c 20 67 %d *****/\n", g
9660: 65 74 70 69 64 28 29 29 3b 0a 20 20 7d 0a 20 20 etpid());. }.
9670: 66 6f 73 73 69 6c 5f 65 72 72 6f 72 6c 6f 67 28 fossil_errorlog(
9680: 22 70 61 6e 69 63 3a 20 25 73 22 2c 20 7a 29 3b "panic: %s", z);
9690: 0a 20 20 72 63 20 3d 20 66 6f 73 73 69 6c 5f 70 . rc = fossil_p
96a0: 72 69 6e 74 5f 65 72 72 6f 72 28 72 63 2c 20 7a rint_error(rc, z
96b0: 29 3b 0a 20 20 61 62 6f 72 74 28 29 3b 0a 20 20 );. abort();.
96c0: 65 78 69 74 28 72 63 29 3b 0a 7d 0a 4e 4f 52 45 exit(rc);.}.NORE
96d0: 54 55 52 4e 20 76 6f 69 64 20 66 6f 73 73 69 6c TURN void fossil
96e0: 5f 66 61 74 61 6c 28 63 6f 6e 73 74 20 63 68 61 _fatal(const cha
96f0: 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 r *zFormat, ...)
9700: 7b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 20 6f {. static int o
9710: 6e 63 65 20 3d 20 30 3b 0a 20 20 76 61 5f 6c 69 nce = 0;. va_li
9720: 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a 7a st ap;. char *z
9730: 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 31 3b 0a ;. int rc = 1;.
9740: 20 20 69 66 28 20 6f 6e 63 65 20 29 20 65 78 69 if( once ) exi
9750: 74 28 31 29 3b 0a 20 20 6f 6e 63 65 20 3d 20 31 t(1);. once = 1
9760: 3b 0a 20 20 6d 61 69 6e 49 6e 46 61 74 61 6c 45 ;. mainInFatalE
9770: 72 72 6f 72 20 3d 20 31 3b 0a 20 20 76 61 5f 73 rror = 1;. va_s
9780: 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 tart(ap, zFormat
9790: 29 3b 0a 20 20 7a 20 3d 20 76 6d 70 72 69 6e 74 );. z = vmprint
97a0: 66 28 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a f(zFormat, ap);.
97b0: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 va_end(ap);.
97c0: 72 63 20 3d 20 66 6f 73 73 69 6c 5f 70 72 69 6e rc = fossil_prin
97d0: 74 5f 65 72 72 6f 72 28 72 63 2c 20 7a 29 3b 0a t_error(rc, z);.
97e0: 20 20 66 6f 73 73 69 6c 5f 66 72 65 65 28 7a 29 fossil_free(z)
97f0: 3b 0a 20 20 64 62 5f 66 6f 72 63 65 5f 72 6f 6c ;. db_force_rol
9800: 6c 62 61 63 6b 28 29 3b 0a 20 20 66 6f 73 73 69 lback();. fossi
9810: 6c 5f 65 78 69 74 28 72 63 29 3b 0a 7d 0a 0a 2f l_exit(rc);.}../
9820: 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 77 * This routine w
9830: 6f 72 6b 73 20 6c 69 6b 65 20 66 6f 73 73 69 6c orks like fossil
9840: 5f 66 61 74 61 6c 28 29 20 65 78 63 65 70 74 20 _fatal() except
9850: 74 68 61 74 20 69 66 20 63 61 6c 6c 65 64 0a 2a that if called.*
9860: 2a 20 72 65 63 75 72 73 69 76 65 6c 79 2c 20 74 * recursively, t
9870: 68 65 20 72 65 63 75 72 73 69 76 65 20 63 61 6c he recursive cal
9880: 6c 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 2a 2a l is a no-op..**
9890: 0a 2a 2a 20 55 73 65 20 74 68 69 73 20 69 6e 20 .** Use this in
98a0: 70 6c 61 63 65 73 20 77 68 65 72 65 20 61 6e 20 places where an
98b0: 65 72 72 6f 72 20 6d 69 67 68 74 20 6f 63 63 75 error might occu
98c0: 72 20 77 68 69 6c 65 20 64 6f 69 6e 67 0a 2a 2a r while doing.**
98d0: 20 66 61 74 61 6c 20 65 72 72 6f 72 20 73 68 75 fatal error shu
98e0: 74 64 6f 77 6e 20 70 72 6f 63 65 73 73 69 6e 67 tdown processing
98f0: 2e 20 20 55 6e 6c 69 6b 65 20 66 6f 73 73 69 6c . Unlike fossil
9900: 5f 70 61 6e 69 63 28 29 20 61 6e 64 0a 2a 2a 20 _panic() and.**
9910: 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28 29 20 77 fossil_fatal() w
9920: 68 69 63 68 20 6e 65 76 65 72 20 72 65 74 75 72 hich never retur
9930: 6e 2c 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 n, this routine
9940: 6d 69 67 68 74 20 72 65 74 75 72 6e 20 69 66 0a might return if.
9950: 2a 2a 20 74 68 65 20 66 61 74 61 6c 20 65 72 72 ** the fatal err
9960: 6f 72 20 68 61 6e 64 69 6e 67 20 69 73 20 61 6c or handing is al
9970: 72 65 61 64 79 20 69 6e 20 70 72 6f 63 65 73 73 ready in process
9980: 2e 20 20 54 68 65 20 63 61 6c 6c 65 72 20 6d 75 . The caller mu
9990: 73 74 0a 2a 2a 20 62 65 20 70 72 65 70 61 72 65 st.** be prepare
99a0: 64 20 66 6f 72 20 74 68 69 73 20 72 6f 75 74 69 d for this routi
99b0: 6e 65 20 74 6f 20 72 65 74 75 72 6e 2e 0a 2a 2f ne to return..*/
99c0: 0a 76 6f 69 64 20 66 6f 73 73 69 6c 5f 66 61 74 .void fossil_fat
99d0: 61 6c 5f 72 65 63 75 72 73 69 76 65 28 63 6f 6e al_recursive(con
99e0: 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 st char *zFormat
99f0: 2c 20 2e 2e 2e 29 7b 0a 20 20 63 68 61 72 20 2a , ...){. char *
9a00: 7a 3b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b z;. va_list ap;
9a10: 0a 20 20 69 6e 74 20 72 63 20 3d 20 31 3b 0a 20 . int rc = 1;.
9a20: 20 69 66 28 20 6d 61 69 6e 49 6e 46 61 74 61 6c if( mainInFatal
9a30: 45 72 72 6f 72 20 29 20 72 65 74 75 72 6e 3b 0a Error ) return;.
9a40: 20 20 6d 61 69 6e 49 6e 46 61 74 61 6c 45 72 72 mainInFatalErr
9a50: 6f 72 20 3d 20 31 3b 0a 20 20 76 61 5f 73 74 61 or = 1;. va_sta
9a60: 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b rt(ap, zFormat);
9a70: 0a 20 20 7a 20 3d 20 76 6d 70 72 69 6e 74 66 28 . z = vmprintf(
9a80: 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 zFormat, ap);.
9a90: 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 72 63 va_end(ap);. rc
9aa0: 20 3d 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 5f = fossil_print_
9ab0: 65 72 72 6f 72 28 72 63 2c 20 7a 29 3b 0a 20 20 error(rc, z);.
9ac0: 64 62 5f 66 6f 72 63 65 5f 72 6f 6c 6c 62 61 63 db_force_rollbac
9ad0: 6b 28 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 65 78 k();. fossil_ex
9ae0: 69 74 28 72 63 29 3b 0a 7d 0a 0a 0a 2f 2a 20 50 it(rc);.}.../* P
9af0: 72 69 6e 74 20 61 20 77 61 72 6e 69 6e 67 20 6d rint a warning m
9b00: 65 73 73 61 67 65 2e 0a 2a 2a 0a 2a 2a 20 55 6e essage..**.** Un
9b10: 6c 69 6b 65 20 66 6f 73 73 69 6c 5f 66 61 74 61 like fossil_fata
9b20: 6c 28 29 20 61 6e 64 20 66 6f 73 73 69 6c 5f 70 l() and fossil_p
9b30: 61 6e 69 63 28 29 2c 20 74 68 69 73 20 72 6f 75 anic(), this rou
9b40: 74 69 6e 65 20 64 6f 65 73 20 72 65 74 75 72 6e tine does return
9b50: 0a 2a 2a 20 61 6e 64 20 70 72 6f 63 65 73 73 69 .** and processi
9b60: 6e 67 20 61 74 74 65 6d 70 74 73 20 74 6f 20 63 ng attempts to c
9b70: 6f 6e 74 69 6e 75 65 2e 20 20 41 20 6d 65 73 73 ontinue. A mess
9b80: 61 67 65 20 69 73 20 77 72 69 74 74 65 6e 20 74 age is written t
9b90: 6f 20 74 68 65 0a 2a 2a 20 65 72 72 6f 72 20 6c o the.** error l
9ba0: 6f 67 2c 20 68 6f 77 65 76 65 72 2c 20 73 6f 20 og, however, so
9bb0: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 73 68 6f this routine sho
9bc0: 75 6c 64 20 6f 6e 6c 79 20 62 65 20 75 73 65 64 uld only be used
9bd0: 20 66 6f 72 20 73 69 74 75 61 74 69 6f 6e 73 0a for situations.
9be0: 2a 2a 20 74 68 61 74 20 72 65 71 75 69 72 65 20 ** that require
9bf0: 61 64 6d 69 6e 69 73 74 72 61 74 6f 72 20 6f 72 administrator or
9c00: 20 64 65 76 65 6c 6f 70 65 72 20 61 74 74 65 6e developer atten
9c10: 74 69 6f 6e 2e 20 20 4d 69 6e 6f 72 20 70 72 6f tion. Minor pro
9c20: 62 6c 65 6d 73 0a 2a 2a 20 69 6e 20 75 73 65 72 blems.** in user
9c30: 20 69 6e 70 75 74 73 20 73 68 6f 75 6c 64 20 6e inputs should n
9c40: 6f 74 20 75 73 65 20 74 68 69 73 20 72 6f 75 74 ot use this rout
9c50: 69 6e 65 2e 0a 2a 2f 0a 76 6f 69 64 20 66 6f 73 ine..*/.void fos
9c60: 73 69 6c 5f 77 61 72 6e 69 6e 67 28 63 6f 6e 73 sil_warning(cons
9c70: 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c t char *zFormat,
9c80: 20 2e 2e 2e 29 7b 0a 20 20 63 68 61 72 20 2a 7a ...){. char *z
9c90: 3b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a ;. va_list ap;.
9ca0: 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a va_start(ap, z
9cb0: 46 6f 72 6d 61 74 29 3b 0a 20 20 7a 20 3d 20 76 Format);. z = v
9cc0: 6d 70 72 69 6e 74 66 28 7a 46 6f 72 6d 61 74 2c mprintf(zFormat,
9cd0: 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 ap);. va_end(a
9ce0: 70 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 65 72 72 p);. fossil_err
9cf0: 6f 72 6c 6f 67 28 22 77 61 72 6e 69 6e 67 3a 20 orlog("warning:
9d00: 25 73 22 2c 20 7a 29 3b 0a 23 69 66 64 65 66 20 %s", z);.#ifdef
9d10: 46 4f 53 53 49 4c 5f 45 4e 41 42 4c 45 5f 4a 53 FOSSIL_ENABLE_JS
9d20: 4f 4e 0a 20 20 69 66 28 20 67 2e 6a 73 6f 6e 2e ON. if( g.json.
9d30: 69 73 4a 73 6f 6e 4d 6f 64 65 21 3d 30 20 29 7b isJsonMode!=0 ){
9d40: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 41 . /*. ** A
9d50: 76 6f 69 64 20 63 61 6c 6c 69 6e 67 20 69 6e 74 void calling int
9d60: 6f 20 74 68 65 20 4a 53 4f 4e 20 73 75 70 70 6f o the JSON suppo
9d70: 72 74 20 73 75 62 73 79 73 74 65 6d 20 69 66 20 rt subsystem if
9d80: 69 74 0a 20 20 20 20 2a 2a 20 68 61 73 20 6e 6f it. ** has no
9d90: 74 20 79 65 74 20 62 65 65 6e 20 69 6e 69 74 69 t yet been initi
9da0: 61 6c 69 7a 65 64 2c 20 65 2e 67 2e 20 65 61 72 alized, e.g. ear
9db0: 6c 79 20 53 51 4c 69 74 65 20 6c 6f 67 0a 20 20 ly SQLite log.
9dc0: 20 20 2a 2a 20 6d 65 73 73 61 67 65 73 2c 20 65 ** messages, e
9dd0: 74 63 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 69 tc.. */. i
9de0: 66 28 20 21 6a 73 6f 6e 5f 69 73 5f 62 6f 6f 74 f( !json_is_boot
9df0: 73 74 72 61 70 70 65 64 5f 65 61 72 6c 79 28 29 strapped_early()
9e00: 20 29 20 6a 73 6f 6e 5f 62 6f 6f 74 73 74 72 61 ) json_bootstra
9e10: 70 5f 65 61 72 6c 79 28 29 3b 0a 20 20 20 20 6a p_early();. j
9e20: 73 6f 6e 5f 77 61 72 6e 28 20 46 53 4c 5f 4a 53 son_warn( FSL_JS
9e30: 4f 4e 5f 57 5f 55 4e 4b 4e 4f 57 4e 2c 20 22 25 ON_W_UNKNOWN, "%
9e40: 73 22 2c 20 7a 20 29 3b 0a 20 20 7d 65 6c 73 65 s", z );. }else
9e50: 0a 23 65 6e 64 69 66 0a 20 20 7b 0a 20 20 20 20 .#endif. {.
9e60: 69 66 28 20 67 2e 63 67 69 4f 75 74 70 75 74 3d if( g.cgiOutput=
9e70: 3d 31 20 29 7b 0a 20 20 20 20 20 20 65 74 61 67 =1 ){. etag
9e80: 5f 63 61 6e 63 65 6c 28 29 3b 0a 20 20 20 20 20 _cancel();.
9e90: 20 63 67 69 5f 70 72 69 6e 74 66 28 22 3c 70 20 cgi_printf("<p
9ea0: 63 6c 61 73 73 3d 5c 22 67 65 6e 65 72 61 6c 45 class=\"generalE
9eb0: 72 72 6f 72 5c 22 3e 5c 6e 25 68 5c 6e 3c 2f 70 rror\">\n%h\n</p
9ec0: 3e 5c 6e 22 2c 20 7a 29 3b 0a 20 20 20 20 7d 65 >\n", z);. }e
9ed0: 6c 73 65 7b 0a 20 20 20 20 20 20 66 6f 73 73 69 lse{. fossi
9ee0: 6c 5f 66 6f 72 63 65 5f 6e 65 77 6c 69 6e 65 28 l_force_newline(
9ef0: 29 3b 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f );. fossil_
9f00: 74 72 61 63 65 28 22 25 73 5c 6e 22 2c 20 7a 29 trace("%s\n", z)
9f10: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 66 72 ;. }. }. fr
9f20: 65 65 28 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 ee(z);.}../*.**
9f30: 54 75 72 6e 20 6f 66 66 20 61 6e 79 20 4c 46 20 Turn off any LF
9f40: 74 6f 20 43 52 4c 46 20 74 72 61 6e 73 6c 61 74 to CRLF translat
9f50: 69 6f 6e 20 6f 6e 20 74 68 65 20 73 74 72 65 61 ion on the strea
9f60: 6d 20 67 69 76 65 6e 20 61 73 20 61 6e 0a 2a 2a m given as an.**
9f70: 20 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 69 73 argument. This
9f80: 20 69 73 20 61 20 6e 6f 2d 6f 70 20 6f 6e 20 75 is a no-op on u
9f90: 6e 69 78 20 62 75 74 20 69 73 20 6e 65 63 65 73 nix but is neces
9fa0: 73 61 72 79 20 6f 6e 20 77 69 6e 64 6f 77 73 2e sary on windows.
9fb0: 0a 2a 2f 0a 76 6f 69 64 20 66 6f 73 73 69 6c 5f .*/.void fossil_
9fc0: 62 69 6e 61 72 79 5f 6d 6f 64 65 28 46 49 4c 45 binary_mode(FILE
9fd0: 20 2a 70 29 7b 0a 23 69 66 20 64 65 66 69 6e 65 *p){.#if define
9fe0: 64 28 5f 57 49 4e 33 32 29 0a 20 20 5f 73 65 74 d(_WIN32). _set
9ff0: 6d 6f 64 65 28 5f 66 69 6c 65 6e 6f 28 70 29 2c mode(_fileno(p),
a000: 20 5f 4f 5f 42 49 4e 41 52 59 29 3b 0a 23 65 6e _O_BINARY);.#en
a010: 64 69 66 0a 23 69 66 64 65 66 20 5f 5f 45 4d 58 dif.#ifdef __EMX
a020: 5f 5f 20 20 20 20 20 2f 2a 20 4f 53 2f 32 20 2a __ /* OS/2 *
a030: 2f 0a 20 20 73 65 74 6d 6f 64 65 28 66 69 6c 65 /. setmode(file
a040: 6e 6f 28 70 29 2c 20 4f 5f 42 49 4e 41 52 59 29 no(p), O_BINARY)
a050: 3b 0a 23 65 6e 64 69 66 0a 7d 0a ;.#endif.}.