/ Hex Artifact Content
Login

Artifact 8baf26690b80d861d0ac341b29880eec6ade39e4f11fe690271ded9cb90563a3:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 0a 23  #!/usr/bin/tcl.#
0010: 0a 23 20 54 68 69 73 20 73 63 72 69 70 74 20 72  .# This script r
0020: 65 61 64 73 20 74 68 65 20 72 65 67 75 6c 61 72  eads the regular
0030: 20 4d 53 56 43 20 6d 61 6b 65 66 69 6c 65 20 28   MSVC makefile (
0040: 2e 2e 2f 4d 61 6b 65 66 69 6c 65 2e 6d 73 63 29  ../Makefile.msc)
0050: 20 61 6e 64 20 6f 75 74 70 75 74 73 0a 23 20 61   and outputs.# a
0060: 20 72 65 76 69 73 65 64 20 76 65 72 73 69 6f 6e   revised version
0070: 20 6f 66 20 74 68 61 74 20 4d 61 6b 65 66 69 6c   of that Makefil
0080: 65 20 74 68 61 74 20 69 73 20 22 6d 69 6e 69 6d  e that is "minim
0090: 61 6c 22 20 69 6e 20 74 68 65 20 73 65 6e 73 65  al" in the sense
00a0: 20 74 68 61 74 0a 23 20 69 74 20 75 73 65 73 20   that.# it uses 
00b0: 74 68 65 20 73 71 6c 69 74 65 33 2e 63 20 61 6d  the sqlite3.c am
00c0: 61 6c 67 61 6d 61 74 69 6f 6e 20 61 73 20 69 6e  algamation as in
00d0: 70 75 74 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74  put and does not
00e0: 20 72 65 71 75 69 72 65 20 74 63 6c 73 68 2e 0a   require tclsh..
00f0: 23 20 54 68 65 20 72 65 73 75 6c 74 69 6e 67 20  # The resulting 
0100: 22 2e 2e 2f 4d 61 6b 65 66 69 6c 65 2e 6d 69 6e  "../Makefile.min
0110: 2e 6d 73 63 22 20 69 73 20 73 75 69 74 61 62 6c  .msc" is suitabl
0120: 65 20 66 6f 72 20 75 73 65 20 69 6e 20 74 68 65  e for use in the
0130: 20 61 6d 61 6c 67 61 6d 61 74 69 6f 6e 0a 23 20   amalgamation.# 
0140: 74 61 72 62 61 6c 6c 73 2e 0a 23 0a 69 66 20 7b  tarballs..#.if {
0150: 24 61 72 67 63 3d 3d 30 7d 20 7b 0a 20 20 73 65  $argc==0} {.  se
0160: 74 20 62 61 73 65 64 69 72 20 5b 66 69 6c 65 20  t basedir [file 
0170: 64 69 72 20 5b 66 69 6c 65 20 64 69 72 20 5b 66  dir [file dir [f
0180: 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 20 24 61  ile normalize $a
0190: 72 67 76 30 5d 5d 5d 0a 20 20 73 65 74 20 66 72  rgv0]]].  set fr
01a0: 6f 6d 46 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65  omFileName [file
01b0: 20 6a 6f 69 6e 20 24 62 61 73 65 64 69 72 20 4d   join $basedir M
01c0: 61 6b 65 66 69 6c 65 2e 6d 73 63 5d 0a 20 20 73  akefile.msc].  s
01d0: 65 74 20 74 6f 46 69 6c 65 4e 61 6d 65 20 5b 66  et toFileName [f
01e0: 69 6c 65 20 6a 6f 69 6e 20 24 62 61 73 65 64 69  ile join $basedi
01f0: 72 20 61 75 74 6f 63 6f 6e 66 20 4d 61 6b 65 66  r autoconf Makef
0200: 69 6c 65 2e 6d 73 63 5d 0a 7d 20 65 6c 73 65 20  ile.msc].} else 
0210: 7b 0a 20 20 73 65 74 20 66 72 6f 6d 46 69 6c 65  {.  set fromFile
0220: 4e 61 6d 65 20 5b 6c 69 6e 64 65 78 20 24 61 72  Name [lindex $ar
0230: 67 76 20 30 5d 0a 20 20 69 66 20 7b 21 5b 66 69  gv 0].  if {![fi
0240: 6c 65 20 65 78 69 73 74 73 20 24 66 72 6f 6d 46  le exists $fromF
0250: 69 6c 65 4e 61 6d 65 5d 7d 20 7b 0a 20 20 20 20  ileName]} {.    
0260: 65 72 72 6f 72 20 22 69 6e 70 75 74 20 66 69 6c  error "input fil
0270: 65 20 5c 22 24 66 72 6f 6d 46 69 6c 65 4e 61 6d  e \"$fromFileNam
0280: 65 5c 22 20 64 6f 65 73 20 6e 6f 74 20 65 78 69  e\" does not exi
0290: 73 74 22 0a 20 20 7d 0a 20 20 73 65 74 20 74 6f  st".  }.  set to
02a0: 46 69 6c 65 4e 61 6d 65 20 5b 6c 69 6e 64 65 78  FileName [lindex
02b0: 20 24 61 72 67 76 20 31 5d 0a 20 20 69 66 20 7b   $argv 1].  if {
02c0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 74 6f  [file exists $to
02d0: 46 69 6c 65 4e 61 6d 65 5d 7d 20 7b 0a 20 20 20  FileName]} {.   
02e0: 20 65 72 72 6f 72 20 22 6f 75 74 70 75 74 20 66   error "output f
02f0: 69 6c 65 20 5c 22 24 74 6f 46 69 6c 65 4e 61 6d  ile \"$toFileNam
0300: 65 5c 22 20 61 6c 72 65 61 64 79 20 65 78 69 73  e\" already exis
0310: 74 73 22 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20  ts".  }.}..proc 
0320: 72 65 61 64 46 69 6c 65 20 7b 20 66 69 6c 65 4e  readFile { fileN
0330: 61 6d 65 20 7d 20 7b 0a 20 20 73 65 74 20 66 69  ame } {.  set fi
0340: 6c 65 5f 69 64 20 5b 6f 70 65 6e 20 24 66 69 6c  le_id [open $fil
0350: 65 4e 61 6d 65 20 52 44 4f 4e 4c 59 5d 0a 20 20  eName RDONLY].  
0360: 66 63 6f 6e 66 69 67 75 72 65 20 24 66 69 6c 65  fconfigure $file
0370: 5f 69 64 20 2d 65 6e 63 6f 64 69 6e 67 20 62 69  _id -encoding bi
0380: 6e 61 72 79 20 2d 74 72 61 6e 73 6c 61 74 69 6f  nary -translatio
0390: 6e 20 62 69 6e 61 72 79 0a 20 20 73 65 74 20 72  n binary.  set r
03a0: 65 73 75 6c 74 20 5b 72 65 61 64 20 24 66 69 6c  esult [read $fil
03b0: 65 5f 69 64 5d 0a 20 20 63 6c 6f 73 65 20 24 66  e_id].  close $f
03c0: 69 6c 65 5f 69 64 0a 20 20 72 65 74 75 72 6e 20  ile_id.  return 
03d0: 24 72 65 73 75 6c 74 0a 7d 0a 0a 70 72 6f 63 20  $result.}..proc 
03e0: 77 72 69 74 65 46 69 6c 65 20 7b 20 66 69 6c 65  writeFile { file
03f0: 4e 61 6d 65 20 64 61 74 61 20 7d 20 7b 0a 20 20  Name data } {.  
0400: 73 65 74 20 66 69 6c 65 5f 69 64 20 5b 6f 70 65  set file_id [ope
0410: 6e 20 24 66 69 6c 65 4e 61 6d 65 20 7b 57 52 4f  n $fileName {WRO
0420: 4e 4c 59 20 43 52 45 41 54 20 54 52 55 4e 43 7d  NLY CREAT TRUNC}
0430: 5d 0a 20 20 66 63 6f 6e 66 69 67 75 72 65 20 24  ].  fconfigure $
0440: 66 69 6c 65 5f 69 64 20 2d 65 6e 63 6f 64 69 6e  file_id -encodin
0450: 67 20 62 69 6e 61 72 79 20 2d 74 72 61 6e 73 6c  g binary -transl
0460: 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 20 20 70  ation binary.  p
0470: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24  uts -nonewline $
0480: 66 69 6c 65 5f 69 64 20 24 64 61 74 61 0a 20 20  file_id $data.  
0490: 63 6c 6f 73 65 20 24 66 69 6c 65 5f 69 64 0a 20  close $file_id. 
04a0: 20 72 65 74 75 72 6e 20 22 22 0a 7d 0a 0a 70 72   return "".}..pr
04b0: 6f 63 20 65 73 63 61 70 65 53 75 62 53 70 65 63  oc escapeSubSpec
04c0: 20 7b 20 64 61 74 61 20 7d 20 7b 0a 20 20 72 65   { data } {.  re
04d0: 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b 26 7d  gsub -all -- {&}
04e0: 20 24 64 61 74 61 20 7b 5c 5c 5c 26 7d 20 64 61   $data {\\\&} da
04f0: 74 61 0a 20 20 72 65 67 73 75 62 20 2d 61 6c 6c  ta.  regsub -all
0500: 20 2d 2d 20 7b 5c 5c 28 5c 64 2b 29 7d 20 24 64   -- {\\(\d+)} $d
0510: 61 74 61 20 7b 5c 5c 5c 5c 5c 31 7d 20 64 61 74  ata {\\\\\1} dat
0520: 61 0a 20 20 72 65 74 75 72 6e 20 24 64 61 74 61  a.  return $data
0530: 0a 7d 0a 0a 70 72 6f 63 20 73 75 62 73 74 56 61  .}..proc substVa
0540: 72 73 20 7b 20 64 61 74 61 20 7d 20 7b 0a 20 20  rs { data } {.  
0550: 72 65 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20  return [uplevel 
0560: 31 20 5b 6c 69 73 74 20 73 75 62 73 74 20 2d 6e  1 [list subst -n
0570: 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63  ocommands -nobac
0580: 6b 73 6c 61 73 68 65 73 20 24 64 61 74 61 5d 5d  kslashes $data]]
0590: 0a 7d 0a 0a 23 0a 23 20 4e 4f 54 45 3a 20 54 68  .}..#.# NOTE: Th
05a0: 69 73 20 62 6c 6f 63 6b 20 69 73 20 75 73 65 64  is block is used
05b0: 20 74 6f 20 72 65 70 6c 61 63 65 20 74 68 65 20   to replace the 
05c0: 73 65 63 74 69 6f 6e 20 6d 61 72 6b 65 64 20 3c  section marked <
05d0: 3c 62 6c 6f 63 6b 31 3e 3e 20 69 6e 0a 23 20 20  <block1>> in.#  
05e0: 20 20 20 20 20 74 68 65 20 4d 61 6b 65 66 69 6c       the Makefil
05f0: 65 2c 20 69 66 20 69 74 20 65 78 69 73 74 73 2e  e, if it exists.
0600: 0a 23 0a 73 65 74 20 62 6c 6f 63 6b 73 28 31 29  .#.set blocks(1)
0610: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 6c 65 66   [string trimlef
0620: 74 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c  t [string map [l
0630: 69 73 74 20 5c 5c 5c 5c 20 5c 5c 5d 20 7b 0a 5f  ist \\\\ \\] {._
0640: 48 41 53 48 43 48 41 52 3d 5e 23 0a 21 49 46 20  HASHCHAR=^#.!IF 
0650: 21 5b 65 63 68 6f 20 21 49 46 4e 44 45 46 20 56  ![echo !IFNDEF V
0660: 45 52 53 49 4f 4e 20 3e 20 72 63 76 65 72 2e 76  ERSION > rcver.v
0670: 63 5d 20 26 26 20 5c 5c 0a 20 20 20 20 21 5b 66  c] && \\.    ![f
0680: 6f 72 20 2f 46 20 22 64 65 6c 69 6d 73 3d 22 20  or /F "delims=" 
0690: 25 56 20 69 6e 20 28 27 74 79 70 65 20 22 24 28  %V in ('type "$(
06a0: 53 51 4c 49 54 45 33 48 29 22 20 5e 7c 20 22 25  SQLITE3H)" ^| "%
06b0: 53 79 73 74 65 6d 52 6f 6f 74 25 5c 53 79 73 74  SystemRoot%\Syst
06c0: 65 6d 33 32 5c 66 69 6e 64 2e 65 78 65 22 20 22  em32\find.exe" "
06d0: 24 28 5f 48 41 53 48 43 48 41 52 29 64 65 66 69  $(_HASHCHAR)defi
06e0: 6e 65 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f  ne SQLITE_VERSIO
06f0: 4e 20 22 27 29 20 64 6f 20 28 65 63 68 6f 20 56  N "') do (echo V
0700: 45 52 53 49 4f 4e 20 3d 20 5e 5e 25 56 20 3e 3e  ERSION = ^^%V >>
0710: 20 72 63 76 65 72 2e 76 63 29 5d 20 26 26 20 5c   rcver.vc)] && \
0720: 5c 0a 20 20 20 20 21 5b 65 63 68 6f 20 21 45 4e  \.    ![echo !EN
0730: 44 49 46 20 3e 3e 20 72 63 76 65 72 2e 76 63 5d  DIF >> rcver.vc]
0740: 0a 21 49 4e 43 4c 55 44 45 20 72 63 76 65 72 2e  .!INCLUDE rcver.
0750: 76 63 0a 21 45 4e 44 49 46 0a 0a 52 45 53 4f 55  vc.!ENDIF..RESOU
0760: 52 43 45 5f 56 45 52 53 49 4f 4e 20 3d 20 24 28  RCE_VERSION = $(
0770: 56 45 52 53 49 4f 4e 3a 5e 23 3d 29 0a 52 45 53  VERSION:^#=).RES
0780: 4f 55 52 43 45 5f 56 45 52 53 49 4f 4e 20 3d 20  OURCE_VERSION = 
0790: 24 28 52 45 53 4f 55 52 43 45 5f 56 45 52 53 49  $(RESOURCE_VERSI
07a0: 4f 4e 3a 64 65 66 69 6e 65 3d 29 0a 52 45 53 4f  ON:define=).RESO
07b0: 55 52 43 45 5f 56 45 52 53 49 4f 4e 20 3d 20 24  URCE_VERSION = $
07c0: 28 52 45 53 4f 55 52 43 45 5f 56 45 52 53 49 4f  (RESOURCE_VERSIO
07d0: 4e 3a 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e  N:SQLITE_VERSION
07e0: 3d 29 0a 52 45 53 4f 55 52 43 45 5f 56 45 52 53  =).RESOURCE_VERS
07f0: 49 4f 4e 20 3d 20 24 28 52 45 53 4f 55 52 43 45  ION = $(RESOURCE
0800: 5f 56 45 52 53 49 4f 4e 3a 22 3d 29 0a 52 45 53  _VERSION:"=).RES
0810: 4f 55 52 43 45 5f 56 45 52 53 49 4f 4e 20 3d 20  OURCE_VERSION = 
0820: 24 28 52 45 53 4f 55 52 43 45 5f 56 45 52 53 49  $(RESOURCE_VERSI
0830: 4f 4e 3a 2e 3d 2c 29 0a 0a 24 28 4c 49 42 52 45  ON:.=,)..$(LIBRE
0840: 53 4f 42 4a 53 29 3a 09 24 28 54 4f 50 29 5c 73  SOBJS):.$(TOP)\s
0850: 71 6c 69 74 65 33 2e 72 63 20 72 63 76 65 72 2e  qlite3.rc rcver.
0860: 76 63 20 24 28 53 51 4c 49 54 45 33 48 29 0a 09  vc $(SQLITE3H)..
0870: 65 63 68 6f 20 23 69 66 6e 64 65 66 20 53 51 4c  echo #ifndef SQL
0880: 49 54 45 5f 52 45 53 4f 55 52 43 45 5f 56 45 52  ITE_RESOURCE_VER
0890: 53 49 4f 4e 20 3e 20 73 71 6c 69 74 65 33 72 63  SION > sqlite3rc
08a0: 2e 68 0a 09 65 63 68 6f 20 23 64 65 66 69 6e 65  .h..echo #define
08b0: 20 53 51 4c 49 54 45 5f 52 45 53 4f 55 52 43 45   SQLITE_RESOURCE
08c0: 5f 56 45 52 53 49 4f 4e 20 24 28 52 45 53 4f 55  _VERSION $(RESOU
08d0: 52 43 45 5f 56 45 52 53 49 4f 4e 29 20 3e 3e 20  RCE_VERSION) >> 
08e0: 73 71 6c 69 74 65 33 72 63 2e 68 0a 09 65 63 68  sqlite3rc.h..ech
08f0: 6f 20 23 65 6e 64 69 66 20 3e 3e 20 73 71 6c 69  o #endif >> sqli
0900: 74 65 33 72 63 2e 68 0a 09 24 28 4c 54 52 43 4f  te3rc.h..$(LTRCO
0910: 4d 50 49 4c 45 29 20 2d 66 6f 20 24 28 4c 49 42  MPILE) -fo $(LIB
0920: 52 45 53 4f 42 4a 53 29 20 2d 44 52 43 5f 56 45  RESOBJS) -DRC_VE
0930: 52 4f 4e 4c 59 20 24 28 54 4f 50 29 5c 73 71 6c  RONLY $(TOP)\sql
0940: 69 74 65 33 2e 72 63 0a 7d 5d 5d 0a 0a 23 0a 23  ite3.rc.}]]..#.#
0950: 20 4e 4f 54 45 3a 20 54 68 69 73 20 62 6c 6f 63   NOTE: This bloc
0960: 6b 20 69 73 20 75 73 65 64 20 74 6f 20 72 65 70  k is used to rep
0970: 6c 61 63 65 20 74 68 65 20 73 65 63 74 69 6f 6e  lace the section
0980: 20 6d 61 72 6b 65 64 20 3c 3c 62 6c 6f 63 6b 32   marked <<block2
0990: 3e 3e 20 69 6e 0a 23 20 20 20 20 20 20 20 74 68  >> in.#       th
09a0: 65 20 4d 61 6b 65 66 69 6c 65 2c 20 69 66 20 69  e Makefile, if i
09b0: 74 20 65 78 69 73 74 73 2e 0a 23 0a 73 65 74 20  t exists..#.set 
09c0: 62 6c 6f 63 6b 73 28 32 29 20 5b 73 74 72 69 6e  blocks(2) [strin
09d0: 67 20 74 72 69 6d 6c 65 66 74 20 5b 73 74 72 69  g trimleft [stri
09e0: 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 5c 5c 5c  ng map [list \\\
09f0: 5c 20 5c 5c 5d 20 7b 0a 52 65 70 6c 61 63 65 2e  \ \\] {.Replace.
0a00: 65 78 65 3a 0a 09 24 28 43 53 43 29 20 2f 74 61  exe:..$(CSC) /ta
0a10: 72 67 65 74 3a 65 78 65 20 24 28 54 4f 50 29 5c  rget:exe $(TOP)\
0a20: 52 65 70 6c 61 63 65 2e 63 73 0a 0a 73 71 6c 69  Replace.cs..sqli
0a30: 74 65 33 2e 64 65 66 3a 09 52 65 70 6c 61 63 65  te3.def:.Replace
0a40: 2e 65 78 65 20 24 28 4c 49 42 4f 42 4a 29 0a 09  .exe $(LIBOBJ)..
0a50: 65 63 68 6f 20 45 58 50 4f 52 54 53 20 3e 20 73  echo EXPORTS > s
0a60: 71 6c 69 74 65 33 2e 64 65 66 0a 09 64 75 6d 70  qlite3.def..dump
0a70: 62 69 6e 20 2f 61 6c 6c 20 24 28 4c 49 42 4f 42  bin /all $(LIBOB
0a80: 4a 29 20 5c 5c 0a 09 09 7c 20 2e 5c 52 65 70 6c  J) \\...| .\Repl
0a90: 61 63 65 2e 65 78 65 20 22 5e 5c 73 2b 2f 45 58  ace.exe "^\s+/EX
0aa0: 50 4f 52 54 3a 5f 3f 28 73 71 6c 69 74 65 33 28  PORT:_?(sqlite3(
0ab0: 3f 3a 73 65 73 73 69 6f 6e 7c 63 68 61 6e 67 65  ?:session|change
0ac0: 73 65 74 7c 63 68 61 6e 67 65 67 72 6f 75 70 29  set|changegroup)
0ad0: 3f 5f 5b 5e 40 2c 5d 2a 29 28 3f 3a 40 5c 64 2b  ?_[^@,]*)(?:@\d+
0ae0: 7c 2c 44 41 54 41 29 3f 24 24 22 20 24 24 31 20  |,DATA)?$$" $$1 
0af0: 74 72 75 65 20 5c 5c 0a 09 09 7c 20 73 6f 72 74  true \\...| sort
0b00: 20 3e 3e 20 73 71 6c 69 74 65 33 2e 64 65 66 0a   >> sqlite3.def.
0b10: 7d 5d 5d 0a 0a 73 65 74 20 64 61 74 61 20 22 23  }]]..set data "#
0b20: 23 23 23 20 44 4f 20 4e 4f 54 20 45 44 49 54 20  ### DO NOT EDIT 
0b30: 23 23 23 23 5c 6e 22 0a 61 70 70 65 6e 64 20 64  ####\n".append d
0b40: 61 74 61 20 22 23 20 54 68 69 73 20 6d 61 6b 65  ata "# This make
0b50: 66 69 6c 65 20 69 73 20 61 75 74 6f 6d 61 74 69  file is automati
0b60: 63 61 6c 6c 79 20 22 0a 61 70 70 65 6e 64 20 64  cally ".append d
0b70: 61 74 61 20 22 67 65 6e 65 72 61 74 65 64 20 66  ata "generated f
0b80: 72 6f 6d 20 74 68 65 20 5b 66 69 6c 65 20 74 61  rom the [file ta
0b90: 69 6c 20 24 66 72 6f 6d 46 69 6c 65 4e 61 6d 65  il $fromFileName
0ba0: 5d 20 61 74 5c 6e 22 0a 61 70 70 65 6e 64 20 64  ] at\n".append d
0bb0: 61 74 61 20 22 23 20 74 68 65 20 72 6f 6f 74 20  ata "# the root 
0bc0: 6f 66 20 74 68 65 20 63 61 6e 6f 6e 69 63 61 6c  of the canonical
0bd0: 20 53 51 4c 69 74 65 20 73 6f 75 72 63 65 20 74   SQLite source t
0be0: 72 65 65 20 28 6e 6f 74 20 74 68 65 5c 6e 22 0a  ree (not the\n".
0bf0: 61 70 70 65 6e 64 20 64 61 74 61 20 22 23 20 61  append data "# a
0c00: 6d 61 6c 67 61 6d 61 74 69 6f 6e 20 74 61 72 62  malgamation tarb
0c10: 61 6c 6c 29 20 75 73 69 6e 67 20 74 68 65 20 74  all) using the t
0c20: 6f 6f 6c 2f 5b 66 69 6c 65 20 74 61 69 6c 20 24  ool/[file tail $
0c30: 61 72 67 76 30 5d 5c 6e 22 0a 61 70 70 65 6e 64  argv0]\n".append
0c40: 20 64 61 74 61 20 22 23 20 73 63 72 69 70 74 2e   data "# script.
0c50: 5c 6e 23 5c 6e 5c 6e 22 0a 61 70 70 65 6e 64 20  \n#\n\n".append 
0c60: 64 61 74 61 20 5b 72 65 61 64 46 69 6c 65 20 24  data [readFile $
0c70: 66 72 6f 6d 46 69 6c 65 4e 61 6d 65 5d 0a 0a 72  fromFileName]..r
0c80: 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b 23  egsub -all -- {#
0c90: 20 3c 3c 6d 61 72 6b 3e 3e 5c 6e 2e 2a 3f 23 20   <<mark>>\n.*?# 
0ca0: 3c 3c 2f 6d 61 72 6b 3e 3e 5c 6e 7d 20 5c 0a 20  <</mark>>\n} \. 
0cb0: 20 20 20 24 64 61 74 61 20 22 22 20 64 61 74 61     $data "" data
0cc0: 0a 0a 66 6f 72 65 61 63 68 20 69 20 5b 6c 73 6f  ..foreach i [lso
0cd0: 72 74 20 2d 69 6e 74 65 67 65 72 20 5b 61 72 72  rt -integer [arr
0ce0: 61 79 20 6e 61 6d 65 73 20 62 6c 6f 63 6b 73 5d  ay names blocks]
0cf0: 5d 20 7b 0a 20 20 72 65 67 73 75 62 20 2d 61 6c  ] {.  regsub -al
0d00: 6c 20 2d 2d 20 5b 73 75 62 73 74 56 61 72 73 20  l -- [substVars 
0d10: 5c 0a 20 20 20 20 20 20 7b 23 20 3c 3c 62 6c 6f  \.      {# <<blo
0d20: 63 6b 24 7b 69 7d 3e 3e 5c 6e 2e 2a 3f 23 20 3c  ck${i}>>\n.*?# <
0d30: 3c 2f 62 6c 6f 63 6b 24 7b 69 7d 3e 3e 5c 6e 7d  </block${i}>>\n}
0d40: 5d 20 5c 0a 20 20 20 20 20 20 24 64 61 74 61 20  ] \.      $data 
0d50: 5b 65 73 63 61 70 65 53 75 62 53 70 65 63 20 24  [escapeSubSpec $
0d60: 62 6c 6f 63 6b 73 28 24 69 29 5d 20 64 61 74 61  blocks($i)] data
0d70: 0a 7d 0a 0a 73 65 74 20 64 61 74 61 20 5b 73 74  .}..set data [st
0d80: 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 22  ring map [list "
0d90: 20 2d 49 5c 24 28 54 4f 50 29 5c 5c 73 72 63 22   -I\$(TOP)\\src"
0da0: 20 22 22 5d 20 24 64 61 74 61 5d 0a 73 65 74 20   ""] $data].set 
0db0: 64 61 74 61 20 5b 73 74 72 69 6e 67 20 6d 61 70  data [string map
0dc0: 20 5b 6c 69 73 74 20 22 20 6c 69 62 73 71 6c 69   [list " libsqli
0dd0: 74 65 33 2e 6c 69 62 22 20 22 22 5d 20 24 64 61  te3.lib" ""] $da
0de0: 74 61 5d 0a 73 65 74 20 64 61 74 61 20 5b 73 74  ta].set data [st
0df0: 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 22  ring map [list "
0e00: 20 5c 24 28 41 4c 4c 5f 54 43 4c 5f 54 41 52 47   \$(ALL_TCL_TARG
0e10: 45 54 53 29 22 20 22 22 5d 20 24 64 61 74 61 5d  ETS)" ""] $data]
0e20: 0a 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e  .set data [strin
0e30: 67 20 6d 61 70 20 5b 6c 69 73 74 20 22 5c 24 28  g map [list "\$(
0e40: 54 4f 50 29 5c 5c 73 72 63 5c 5c 22 20 22 5c 24  TOP)\\src\\" "\$
0e50: 28 54 4f 50 29 5c 5c 22 5d 20 24 64 61 74 61 5d  (TOP)\\"] $data]
0e60: 0a 0a 77 72 69 74 65 46 69 6c 65 20 24 74 6f 46  ..writeFile $toF
0e70: 69 6c 65 4e 61 6d 65 20 24 64 61 74 61 0a        ileName $data.