/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact cf5cd68028e69a51ed5c76042672664201f0f756:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 68  #!/usr/bin/tclsh
0010: 0a 23 0a 23 20 54 68 69 73 20 73 63 72 69 70 74  .#.# This script
0020: 20 63 6f 6e 73 74 72 75 63 74 73 20 74 68 65 20   constructs the 
0030: 22 73 71 6c 69 74 65 33 2e 68 22 20 68 65 61 64  "sqlite3.h" head
0040: 65 72 20 66 69 6c 65 20 66 72 6f 6d 20 74 68 65  er file from the
0050: 20 66 6f 6c 6c 6f 77 69 6e 67 0a 23 20 73 6f 75   following.# sou
0060: 72 63 65 73 3a 0a 23 0a 23 20 20 20 31 29 20 54  rces:.#.#   1) T
0070: 68 65 20 73 72 63 2f 73 71 6c 69 74 65 2e 68 2e  he src/sqlite.h.
0080: 69 6e 20 73 6f 75 72 63 65 20 66 69 6c 65 2e 20  in source file. 
0090: 20 54 68 69 73 20 69 73 20 74 68 65 20 74 65 6d   This is the tem
00a0: 70 6c 61 74 65 20 66 6f 72 20 73 71 6c 69 74 65  plate for sqlite
00b0: 33 2e 68 2e 0a 23 20 20 20 32 29 20 54 68 65 20  3.h..#   2) The 
00c0: 56 45 52 53 49 4f 4e 20 66 69 6c 65 20 63 6f 6e  VERSION file con
00d0: 74 61 69 6e 69 6e 67 20 74 68 65 20 63 75 72 72  taining the curr
00e0: 65 6e 74 20 53 51 4c 69 74 65 20 76 65 72 73 69  ent SQLite versi
00f0: 6f 6e 20 6e 75 6d 62 65 72 2e 0a 23 20 20 20 33  on number..#   3
0100: 29 20 54 68 65 20 6d 61 6e 69 66 65 73 74 20 66  ) The manifest f
0110: 69 6c 65 20 66 72 6f 6d 20 74 68 65 20 66 6f 73  ile from the fos
0120: 73 69 6c 20 53 43 4d 2e 20 20 54 68 69 73 20 67  sil SCM.  This g
0130: 69 76 65 73 20 75 73 65 20 74 68 65 20 64 61 74  ives use the dat
0140: 65 2e 0a 23 20 20 20 34 29 20 54 68 65 20 6d 61  e..#   4) The ma
0150: 6e 69 66 65 73 74 2e 75 75 69 64 20 66 69 6c 65  nifest.uuid file
0160: 20 66 72 6f 6d 20 74 68 65 20 66 6f 73 73 69 6c   from the fossil
0170: 20 53 43 4d 2e 20 20 54 68 69 73 20 67 69 76 65   SCM.  This give
0180: 73 20 74 68 65 20 53 48 41 31 20 68 61 73 68 2e  s the SHA1 hash.
0190: 0a 23 0a 23 20 52 75 6e 20 74 68 69 73 20 73 63  .#.# Run this sc
01a0: 72 69 70 74 20 62 79 20 73 70 65 63 69 66 79 69  ript by specifyi
01b0: 6e 67 20 74 68 65 20 72 6f 6f 74 20 64 69 72 65  ng the root dire
01c0: 63 74 6f 72 79 20 6f 66 20 74 68 65 20 73 6f 75  ctory of the sou
01d0: 72 63 65 20 74 72 65 65 0a 23 20 6f 6e 20 74 68  rce tree.# on th
01e0: 65 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2e 0a  e command-line..
01f0: 23 20 0a 23 20 54 68 69 73 20 73 63 72 69 70 74  # .# This script
0200: 20 70 65 72 66 6f 72 6d 73 20 70 72 6f 63 65 73   performs proces
0210: 73 69 6e 67 20 6f 6e 20 73 72 63 2f 73 71 6c 69  sing on src/sqli
0220: 74 65 2e 68 2e 69 6e 2e 20 49 74 3a 0a 23 0a 23  te.h.in. It:.#.#
0230: 20 20 20 31 29 20 41 64 64 73 20 53 51 4c 49 54     1) Adds SQLIT
0240: 45 5f 45 58 54 45 52 4e 20 69 6e 20 66 72 6f 6e  E_EXTERN in fron
0250: 74 20 6f 66 20 74 68 65 20 64 65 63 6c 61 72 61  t of the declara
0260: 74 69 6f 6e 20 6f 66 20 67 6c 6f 62 61 6c 20 76  tion of global v
0270: 61 72 69 61 62 6c 65 73 2c 0a 23 20 20 20 32 29  ariables,.#   2)
0280: 20 41 64 64 73 20 53 51 4c 49 54 45 5f 41 50 49   Adds SQLITE_API
0290: 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 74 68 65   in front of the
02a0: 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20   declaration of 
02b0: 41 50 49 20 66 75 6e 63 74 69 6f 6e 73 2c 0a 23  API functions,.#
02c0: 20 20 20 33 29 20 52 65 70 6c 61 63 65 73 20 74     3) Replaces t
02d0: 68 65 20 73 74 72 69 6e 67 20 2d 2d 56 45 52 53  he string --VERS
02e0: 2d 2d 20 77 69 74 68 20 74 68 65 20 63 75 72 72  -- with the curr
02f0: 65 6e 74 20 6c 69 62 72 61 72 79 20 76 65 72 73  ent library vers
0300: 69 6f 6e 2c 20 0a 23 20 20 20 20 20 20 66 6f 72  ion, .#      for
0310: 6d 61 74 74 65 64 20 61 73 20 61 20 73 74 72 69  matted as a stri
0320: 6e 67 20 28 65 2e 67 2e 20 22 33 2e 36 2e 31 37  ng (e.g. "3.6.17
0330: 22 29 2c 20 61 6e 64 0a 23 20 20 20 34 29 20 52  "), and.#   4) R
0340: 65 70 6c 61 63 65 73 20 74 68 65 20 73 74 72 69  eplaces the stri
0350: 6e 67 20 2d 2d 56 45 52 53 49 4f 4e 2d 4e 55 4d  ng --VERSION-NUM
0360: 42 45 52 2d 2d 20 77 69 74 68 20 63 75 72 72 65  BER-- with curre
0370: 6e 74 20 6c 69 62 72 61 72 79 20 76 65 72 73 69  nt library versi
0380: 6f 6e 2c 0a 23 20 20 20 20 20 20 66 6f 72 6d 61  on,.#      forma
0390: 74 74 65 64 20 61 73 20 61 6e 20 69 6e 74 65 67  tted as an integ
03a0: 65 72 20 28 65 2e 67 2e 20 22 33 30 30 36 30 31  er (e.g. "300601
03b0: 37 22 29 2e 0a 23 20 20 20 35 29 20 52 65 70 6c  7")..#   5) Repl
03c0: 61 63 65 73 20 74 68 65 20 73 74 72 69 6e 67 20  aces the string 
03d0: 2d 2d 53 4f 55 52 43 45 2d 49 44 2d 2d 20 77 69  --SOURCE-ID-- wi
03e0: 74 68 20 74 68 65 20 64 61 74 65 20 61 6e 64 20  th the date and 
03f0: 74 69 6d 65 20 61 6e 64 20 73 68 61 31 20 0a 23  time and sha1 .#
0400: 20 20 20 20 20 20 68 61 73 68 20 6f 66 20 74 68        hash of th
0410: 65 20 66 6f 73 73 69 6c 2d 73 63 6d 20 6d 61 6e  e fossil-scm man
0420: 69 66 65 73 74 20 66 6f 72 20 74 68 65 20 73 6f  ifest for the so
0430: 75 72 63 65 20 74 72 65 65 2e 0a 23 20 20 20 36  urce tree..#   6
0440: 29 20 41 64 64 73 20 74 68 65 20 53 51 4c 49 54  ) Adds the SQLIT
0450: 45 5f 43 41 4c 4c 42 41 43 4b 20 63 61 6c 6c 69  E_CALLBACK calli
0460: 6e 67 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 6d 61  ng convention ma
0470: 63 72 6f 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20  cro in front of 
0480: 61 6c 6c 0a 23 20 20 20 20 20 20 63 61 6c 6c 62  all.#      callb
0490: 61 63 6b 20 64 65 63 6c 61 72 61 74 69 6f 6e 73  ack declarations
04a0: 2e 0a 23 0a 23 20 54 68 69 73 20 73 63 72 69 70  ..#.# This scrip
04b0: 74 20 6f 75 74 70 75 74 73 20 74 6f 20 73 74 64  t outputs to std
04c0: 6f 75 74 2e 0a 23 0a 23 20 45 78 61 6d 70 6c 65  out..#.# Example
04d0: 20 75 73 61 67 65 3a 0a 23 0a 23 20 20 20 74 63   usage:.#.#   tc
04e0: 6c 73 68 20 6d 6b 73 71 6c 69 74 65 33 68 2e 74  lsh mksqlite3h.t
04f0: 63 6c 20 2e 2e 2f 73 71 6c 69 74 65 20 3e 73 71  cl ../sqlite >sq
0500: 6c 69 74 65 33 2e 68 0a 23 0a 0a 0a 23 20 47 65  lite3.h.#...# Ge
0510: 74 20 74 68 65 20 73 6f 75 72 63 65 20 74 72 65  t the source tre
0520: 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79  e root directory
0530: 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 6d 61 6e   from the comman
0540: 64 2d 6c 69 6e 65 0a 23 0a 73 65 74 20 54 4f 50  d-line.#.set TOP
0550: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20 30   [lindex $argv 0
0560: 5d 0a 0a 23 20 47 65 74 20 74 68 65 20 53 51 4c  ]..# Get the SQL
0570: 69 74 65 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62  ite version numb
0580: 65 72 20 28 65 78 3a 20 33 2e 36 2e 31 38 29 20  er (ex: 3.6.18) 
0590: 66 72 6f 6d 20 74 68 65 20 24 54 4f 50 2f 56 45  from the $TOP/VE
05a0: 52 53 49 4f 4e 20 66 69 6c 65 2e 0a 23 0a 73 65  RSION file..#.se
05b0: 74 20 69 6e 20 5b 6f 70 65 6e 20 24 54 4f 50 2f  t in [open $TOP/
05c0: 56 45 52 53 49 4f 4e 5d 0a 73 65 74 20 7a 56 65  VERSION].set zVe
05d0: 72 73 69 6f 6e 20 5b 73 74 72 69 6e 67 20 74 72  rsion [string tr
05e0: 69 6d 20 5b 72 65 61 64 20 24 69 6e 5d 5d 0a 63  im [read $in]].c
05f0: 6c 6f 73 65 20 24 69 6e 0a 73 65 74 20 6e 56 65  lose $in.set nVe
0600: 72 73 69 6f 6e 20 5b 65 76 61 6c 20 66 6f 72 6d  rsion [eval form
0610: 61 74 20 22 25 64 25 30 33 64 25 30 33 64 22 20  at "%d%03d%03d" 
0620: 5b 73 70 6c 69 74 20 24 7a 56 65 72 73 69 6f 6e  [split $zVersion
0630: 20 2e 5d 5d 0a 0a 23 20 47 65 74 20 74 68 65 20   .]]..# Get the 
0640: 66 6f 73 73 69 6c 2d 73 63 6d 20 76 65 72 73 69  fossil-scm versi
0650: 6f 6e 20 6e 75 6d 62 65 72 20 66 72 6f 6d 20 24  on number from $
0660: 54 4f 50 2f 6d 61 6e 69 66 65 73 74 2e 75 75 69  TOP/manifest.uui
0670: 64 2e 0a 23 0a 73 65 74 20 69 6e 20 5b 6f 70 65  d..#.set in [ope
0680: 6e 20 24 54 4f 50 2f 6d 61 6e 69 66 65 73 74 2e  n $TOP/manifest.
0690: 75 75 69 64 5d 0a 73 65 74 20 7a 55 75 69 64 20  uuid].set zUuid 
06a0: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b 72 65  [string trim [re
06b0: 61 64 20 24 69 6e 5d 5d 0a 63 6c 6f 73 65 20 24  ad $in]].close $
06c0: 69 6e 0a 0a 23 20 47 65 74 20 74 68 65 20 66 6f  in..# Get the fo
06d0: 73 73 69 6c 2d 73 63 6d 20 63 68 65 63 6b 2d 69  ssil-scm check-i
06e0: 6e 20 64 61 74 65 20 66 72 6f 6d 20 74 68 65 20  n date from the 
06f0: 22 44 22 20 63 61 72 64 20 6f 66 20 24 54 4f 50  "D" card of $TOP
0700: 2f 6d 61 6e 69 66 65 73 74 2e 0a 23 0a 73 65 74  /manifest..#.set
0710: 20 69 6e 20 5b 6f 70 65 6e 20 24 54 4f 50 2f 6d   in [open $TOP/m
0720: 61 6e 69 66 65 73 74 5d 0a 73 65 74 20 7a 44 61  anifest].set zDa
0730: 74 65 20 7b 7d 0a 77 68 69 6c 65 20 7b 21 5b 65  te {}.while {![e
0740: 6f 66 20 24 69 6e 5d 7d 20 7b 0a 20 20 73 65 74  of $in]} {.  set
0750: 20 6c 69 6e 65 20 5b 67 65 74 73 20 24 69 6e 5d   line [gets $in]
0760: 0a 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b  .  if {[regexp {
0770: 5e 44 20 28 32 5b 2d 30 2d 39 54 3a 5d 2b 29 7d  ^D (2[-0-9T:]+)}
0780: 20 24 6c 69 6e 65 20 61 6c 6c 20 64 61 74 65 5d   $line all date]
0790: 7d 20 7b 0a 20 20 20 20 73 65 74 20 7a 44 61 74  } {.    set zDat
07a0: 65 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 54  e [string map {T
07b0: 20 7b 20 7d 7d 20 24 64 61 74 65 5d 0a 20 20 20   { }} $date].   
07c0: 20 62 72 65 61 6b 0a 20 20 7d 0a 7d 0a 63 6c 6f   break.  }.}.clo
07d0: 73 65 20 24 69 6e 0a 0a 23 20 53 65 74 20 75 70  se $in..# Set up
07e0: 20 70 61 74 74 65 72 6e 73 20 66 6f 72 20 72 65   patterns for re
07f0: 63 6f 67 6e 69 7a 69 6e 67 20 41 50 49 20 64 65  cognizing API de
0800: 63 6c 61 72 61 74 69 6f 6e 73 2e 0a 23 0a 73 65  clarations..#.se
0810: 74 20 76 61 72 70 61 74 74 65 72 6e 20 7b 5e 5b  t varpattern {^[
0820: 61 2d 7a 41 2d 5a 5d 5b 61 2d 7a 41 2d 5a 5f 30  a-zA-Z][a-zA-Z_0
0830: 2d 39 20 2a 5d 2b 73 71 6c 69 74 65 33 5f 5b 5f  -9 *]+sqlite3_[_
0840: 61 2d 7a 41 2d 5a 30 2d 39 5d 2b 28 5c 5b 7c 3b  a-zA-Z0-9]+(\[|;
0850: 7c 20 3d 29 7d 0a 73 65 74 20 64 65 63 6c 70 61  | =)}.set declpa
0860: 74 74 65 72 6e 20 7b 5e 20 2a 28 5b 61 2d 7a 41  ttern {^ *([a-zA
0870: 2d 5a 5d 5b 61 2d 7a 41 2d 5a 5f 30 2d 39 20 5d  -Z][a-zA-Z_0-9 ]
0880: 2b 20 5c 2a 2a 29 28 73 71 6c 69 74 65 33 5f 5b  + \**)(sqlite3_[
0890: 5f 61 2d 7a 41 2d 5a 30 2d 39 5d 2b 29 28 5c 28  _a-zA-Z0-9]+)(\(
08a0: 2e 2a 29 24 7d 0a 0a 23 20 46 6f 72 63 65 20 74  .*)$}..# Force t
08b0: 68 65 20 6f 75 74 70 75 74 20 74 6f 20 75 73 65  he output to use
08c0: 20 75 6e 69 78 20 6c 69 6e 65 20 65 6e 64 69 6e   unix line endin
08d0: 67 73 2c 20 65 76 65 6e 20 6f 6e 20 57 69 6e 64  gs, even on Wind
08e0: 6f 77 73 2e 0a 66 63 6f 6e 66 69 67 75 72 65 20  ows..fconfigure 
08f0: 73 74 64 6f 75 74 20 2d 74 72 61 6e 73 6c 61 74  stdout -translat
0900: 69 6f 6e 20 6c 66 0a 0a 73 65 74 20 66 69 6c 65  ion lf..set file
0910: 6c 69 73 74 20 5b 73 75 62 73 74 20 7b 0a 20 20  list [subst {.  
0920: 24 54 4f 50 2f 73 72 63 2f 73 71 6c 69 74 65 2e  $TOP/src/sqlite.
0930: 68 2e 69 6e 0a 20 20 24 54 4f 50 2f 65 78 74 2f  h.in.  $TOP/ext/
0940: 72 74 72 65 65 2f 73 71 6c 69 74 65 33 72 74 72  rtree/sqlite3rtr
0950: 65 65 2e 68 0a 20 20 24 54 4f 50 2f 65 78 74 2f  ee.h.  $TOP/ext/
0960: 73 65 73 73 69 6f 6e 2f 73 71 6c 69 74 65 33 73  session/sqlite3s
0970: 65 73 73 69 6f 6e 2e 68 0a 20 20 24 54 4f 50 2f  ession.h.  $TOP/
0980: 65 78 74 2f 66 74 73 35 2f 66 74 73 35 2e 68 0a  ext/fts5/fts5.h.
0990: 7d 5d 0a 0a 23 20 54 68 65 73 65 20 61 72 65 20  }]..# These are 
09a0: 74 68 65 20 66 75 6e 63 74 69 6f 6e 73 20 74 68  the functions th
09b0: 61 74 20 61 63 63 65 70 74 20 61 20 76 61 72 69  at accept a vari
09c0: 61 62 6c 65 20 6e 75 6d 62 65 72 20 6f 66 20 61  able number of a
09d0: 72 67 75 6d 65 6e 74 73 2e 20 20 54 68 65 79 0a  rguments.  They.
09e0: 23 20 61 6c 77 61 79 73 20 6e 65 65 64 20 74 6f  # always need to
09f0: 20 75 73 65 20 74 68 65 20 22 63 64 65 63 6c 22   use the "cdecl"
0a00: 20 63 61 6c 6c 69 6e 67 20 63 6f 6e 76 65 6e 74   calling convent
0a10: 69 6f 6e 20 65 76 65 6e 20 77 68 65 6e 20 61 6e  ion even when an
0a20: 6f 74 68 65 72 20 63 61 6c 6c 69 6e 67 0a 23 20  other calling.# 
0a30: 63 6f 6e 76 65 6e 74 69 6f 6e 20 28 65 2e 67 2e  convention (e.g.
0a40: 20 22 73 74 63 61 6c 6c 22 29 20 69 73 20 62 65   "stcall") is be
0a50: 69 6e 67 20 75 73 65 64 20 66 6f 72 20 74 68 65  ing used for the
0a60: 20 72 65 73 74 20 6f 66 20 74 68 65 20 6c 69 62   rest of the lib
0a70: 72 61 72 79 2e 0a 73 65 74 20 63 64 65 63 6c 6c  rary..set cdecll
0a80: 69 73 74 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  ist {.  sqlite3_
0a90: 63 6f 6e 66 69 67 0a 20 20 73 71 6c 69 74 65 33  config.  sqlite3
0aa0: 5f 64 62 5f 63 6f 6e 66 69 67 0a 20 20 73 71 6c  _db_config.  sql
0ab0: 69 74 65 33 5f 6c 6f 67 0a 20 20 73 71 6c 69 74  ite3_log.  sqlit
0ac0: 65 33 5f 6d 70 72 69 6e 74 66 0a 20 20 73 71 6c  e3_mprintf.  sql
0ad0: 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 0a 20 20  ite3_snprintf.  
0ae0: 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63 6f 6e  sqlite3_test_con
0af0: 74 72 6f 6c 0a 20 20 73 71 6c 69 74 65 33 5f 76  trol.  sqlite3_v
0b00: 74 61 62 5f 63 6f 6e 66 69 67 0a 7d 0a 0a 23 20  tab_config.}..# 
0b10: 50 72 6f 63 65 73 73 20 74 68 65 20 73 6f 75 72  Process the sour
0b20: 63 65 20 66 69 6c 65 73 2e 0a 23 0a 66 6f 72 65  ce files..#.fore
0b30: 61 63 68 20 66 69 6c 65 20 24 66 69 6c 65 6c 69  ach file $fileli
0b40: 73 74 20 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f  st {.  set in [o
0b50: 70 65 6e 20 24 66 69 6c 65 5d 0a 20 20 69 66 20  pen $file].  if 
0b60: 7b 21 5b 72 65 67 65 78 70 20 7b 73 71 6c 69 74  {![regexp {sqlit
0b70: 65 5c 2e 68 5c 2e 69 6e 7d 20 24 66 69 6c 65 5d  e\.h\.in} $file]
0b80: 7d 20 7b 0a 20 20 20 20 70 75 74 73 20 22 2f 2a  } {.    puts "/*
0b90: 2a 2a 2a 2a 2a 2a 2a 20 42 65 67 69 6e 20 66 69  ******* Begin fi
0ba0: 6c 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66  le [file tail $f
0bb0: 69 6c 65 5d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 22  ile] *********/"
0bc0: 0a 20 20 7d 0a 20 20 77 68 69 6c 65 20 7b 21 5b  .  }.  while {![
0bd0: 65 6f 66 20 24 69 6e 5d 7d 20 7b 0a 20 20 0a 20  eof $in]} {.  . 
0be0: 20 20 20 73 65 74 20 6c 69 6e 65 20 5b 67 65 74     set line [get
0bf0: 73 20 24 69 6e 5d 0a 0a 20 20 20 20 23 20 46 69  s $in]..    # Fi
0c00: 6c 65 20 73 71 6c 69 74 65 33 72 74 72 65 65 2e  le sqlite3rtree.
0c10: 68 20 63 6f 6e 74 61 69 6e 73 20 61 20 6c 69 6e  h contains a lin
0c20: 65 20 22 23 69 6e 63 6c 75 64 65 20 3c 73 71 6c  e "#include <sql
0c30: 69 74 65 33 2e 68 3e 22 2e 20 4f 6d 69 74 20 74  ite3.h>". Omit t
0c40: 68 69 73 0a 20 20 20 20 23 20 6c 69 6e 65 20 77  his.    # line w
0c50: 68 65 6e 20 63 6f 70 79 69 6e 67 20 73 71 6c 69  hen copying sqli
0c60: 74 65 33 72 74 72 65 65 2e 68 20 69 6e 74 6f 20  te3rtree.h into 
0c70: 73 71 6c 69 74 65 33 2e 68 2e 0a 20 20 20 20 23  sqlite3.h..    #
0c80: 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67  .    if {[string
0c90: 20 6d 61 74 63 68 20 7b 2a 23 69 6e 63 6c 75 64   match {*#includ
0ca0: 65 2a 5b 3c 22 5d 73 71 6c 69 74 65 33 2e 68 5b  e*[<"]sqlite3.h[
0cb0: 3e 22 5d 2a 7d 20 24 6c 69 6e 65 5d 7d 20 63 6f  >"]*} $line]} co
0cc0: 6e 74 69 6e 75 65 0a 20 20 0a 20 20 20 20 72 65  ntinue.  .    re
0cd0: 67 73 75 62 20 2d 2d 20 2d 2d 56 45 52 53 2d 2d  gsub -- --VERS--
0ce0: 20 20 20 20 20 20 20 20 20 20 20 24 6c 69 6e 65             $line
0cf0: 20 24 7a 56 65 72 73 69 6f 6e 20 6c 69 6e 65 0a   $zVersion line.
0d00: 20 20 20 20 72 65 67 73 75 62 20 2d 2d 20 2d 2d      regsub -- --
0d10: 56 45 52 53 49 4f 4e 2d 4e 55 4d 42 45 52 2d 2d  VERSION-NUMBER--
0d20: 20 24 6c 69 6e 65 20 24 6e 56 65 72 73 69 6f 6e   $line $nVersion
0d30: 20 6c 69 6e 65 0a 20 20 20 20 72 65 67 73 75 62   line.    regsub
0d40: 20 2d 2d 20 2d 2d 53 4f 55 52 43 45 2d 49 44 2d   -- --SOURCE-ID-
0d50: 2d 20 20 20 20 20 20 24 6c 69 6e 65 20 22 24 7a  -      $line "$z
0d60: 44 61 74 65 20 24 7a 55 75 69 64 22 20 6c 69 6e  Date $zUuid" lin
0d70: 65 0a 0a 20 20 20 20 69 66 20 7b 5b 72 65 67 65  e..    if {[rege
0d80: 78 70 20 24 76 61 72 70 61 74 74 65 72 6e 20 24  xp $varpattern $
0d90: 6c 69 6e 65 5d 20 26 26 20 21 5b 72 65 67 65 78  line] && ![regex
0da0: 70 20 7b 5e 20 2a 74 79 70 65 64 65 66 7d 20 24  p {^ *typedef} $
0db0: 6c 69 6e 65 5d 7d 20 7b 0a 20 20 20 20 20 20 73  line]} {.      s
0dc0: 65 74 20 6c 69 6e 65 20 22 53 51 4c 49 54 45 5f  et line "SQLITE_
0dd0: 41 50 49 20 24 6c 69 6e 65 22 0a 20 20 20 20 7d  API $line".    }
0de0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 69 66   else {.      if
0df0: 20 7b 5b 72 65 67 65 78 70 20 24 64 65 63 6c 70   {[regexp $declp
0e00: 61 74 74 65 72 6e 20 24 6c 69 6e 65 20 61 6c 6c  attern $line all
0e10: 20 72 65 74 74 79 70 65 20 66 75 6e 63 6e 61 6d   rettype funcnam
0e20: 65 20 72 65 73 74 5d 7d 20 7b 0a 20 20 20 20 20  e rest]} {.     
0e30: 20 20 20 73 65 74 20 6c 69 6e 65 20 53 51 4c 49     set line SQLI
0e40: 54 45 5f 41 50 49 0a 20 20 20 20 20 20 20 20 61  TE_API.        a
0e50: 70 70 65 6e 64 20 6c 69 6e 65 20 22 20 22 20 5b  ppend line " " [
0e60: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 72 65 74  string trim $ret
0e70: 74 79 70 65 5d 0a 20 20 20 20 20 20 20 20 69 66  type].        if
0e80: 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20   {[string index 
0e90: 24 72 65 74 74 79 70 65 20 65 6e 64 5d 20 6e 65  $rettype end] ne
0ea0: 20 22 2a 22 7d 20 7b 0a 20 20 20 20 20 20 20 20   "*"} {.        
0eb0: 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 22 20    append line " 
0ec0: 22 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ".        }.    
0ed0: 20 20 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68      if {[lsearch
0ee0: 20 2d 65 78 61 63 74 20 24 63 64 65 63 6c 6c 69   -exact $cdeclli
0ef0: 73 74 20 24 66 75 6e 63 6e 61 6d 65 5d 20 3e 3d  st $funcname] >=
0f00: 20 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20   0} {.          
0f10: 61 70 70 65 6e 64 20 6c 69 6e 65 20 53 51 4c 49  append line SQLI
0f20: 54 45 5f 43 44 45 43 4c 0a 20 20 20 20 20 20 20  TE_CDECL.       
0f30: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
0f40: 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 20      append line 
0f50: 53 51 4c 49 54 45 5f 41 50 49 43 41 4c 4c 0a 20  SQLITE_APICALL. 
0f60: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
0f70: 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 22 20 22   append line " "
0f80: 20 24 66 75 6e 63 6e 61 6d 65 20 24 72 65 73 74   $funcname $rest
0f90: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20  .      }.    }. 
0fa0: 20 20 20 73 65 74 20 6c 69 6e 65 20 5b 73 74 72     set line [str
0fb0: 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 28 2a  ing map [list (*
0fc0: 73 71 6c 69 74 65 33 5f 73 79 73 63 61 6c 6c 5f  sqlite3_syscall_
0fd0: 70 74 72 29 20 5c 0a 20 20 20 20 20 20 20 20 22  ptr) \.        "
0fe0: 28 53 51 4c 49 54 45 5f 53 59 53 41 50 49 20 2a  (SQLITE_SYSAPI *
0ff0: 73 71 6c 69 74 65 33 5f 73 79 73 63 61 6c 6c 5f  sqlite3_syscall_
1000: 70 74 72 29 22 5d 20 24 6c 69 6e 65 5d 0a 20 20  ptr)"] $line].  
1010: 20 20 72 65 67 73 75 62 20 7b 5c 28 5c 2a 7d 20    regsub {\(\*} 
1020: 24 6c 69 6e 65 20 7b 28 53 51 4c 49 54 45 5f 43  $line {(SQLITE_C
1030: 41 4c 4c 42 41 43 4b 20 2a 7d 20 6c 69 6e 65 0a  ALLBACK *} line.
1040: 20 20 20 20 70 75 74 73 20 24 6c 69 6e 65 0a 20      puts $line. 
1050: 20 7d 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20   }.  close $in. 
1060: 20 69 66 20 7b 21 5b 72 65 67 65 78 70 20 7b 73   if {![regexp {s
1070: 71 6c 69 74 65 5c 2e 68 5c 2e 69 6e 7d 20 24 66  qlite\.h\.in} $f
1080: 69 6c 65 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73  ile]} {.    puts
1090: 20 22 2f 2a 2a 2a 2a 2a 2a 2a 2a 20 45 6e 64 20   "/******** End 
10a0: 6f 66 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66  of [file tail $f
10b0: 69 6c 65 5d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 22  ile] *********/"
10c0: 0a 20 20 7d 0a 7d 0a                             .  }.}.