/ Hex Artifact Content
Login

Artifact 2f12f7fa8858bbe61cf81820a2da96c79ed1ca8d:


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 66 69  SQLITE3H)" ^| fi
06b0: 6e 64 20 22 24 28 5f 48 41 53 48 43 48 41 52 29  nd "$(_HASHCHAR)
06c0: 64 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 56 45  define SQLITE_VE
06d0: 52 53 49 4f 4e 20 22 27 29 20 64 6f 20 28 65 63  RSION "') do (ec
06e0: 68 6f 20 56 45 52 53 49 4f 4e 20 3d 20 5e 5e 25  ho VERSION = ^^%
06f0: 56 20 3e 3e 20 72 63 76 65 72 2e 76 63 29 5d 20  V >> rcver.vc)] 
0700: 26 26 20 5c 5c 0a 20 20 20 20 21 5b 65 63 68 6f  && \\.    ![echo
0710: 20 21 45 4e 44 49 46 20 3e 3e 20 72 63 76 65 72   !ENDIF >> rcver
0720: 2e 76 63 5d 0a 21 49 4e 43 4c 55 44 45 20 72 63  .vc].!INCLUDE rc
0730: 76 65 72 2e 76 63 0a 21 45 4e 44 49 46 0a 0a 52  ver.vc.!ENDIF..R
0740: 45 53 4f 55 52 43 45 5f 56 45 52 53 49 4f 4e 20  ESOURCE_VERSION 
0750: 3d 20 24 28 56 45 52 53 49 4f 4e 3a 5e 23 3d 29  = $(VERSION:^#=)
0760: 0a 52 45 53 4f 55 52 43 45 5f 56 45 52 53 49 4f  .RESOURCE_VERSIO
0770: 4e 20 3d 20 24 28 52 45 53 4f 55 52 43 45 5f 56  N = $(RESOURCE_V
0780: 45 52 53 49 4f 4e 3a 64 65 66 69 6e 65 3d 29 0a  ERSION:define=).
0790: 52 45 53 4f 55 52 43 45 5f 56 45 52 53 49 4f 4e  RESOURCE_VERSION
07a0: 20 3d 20 24 28 52 45 53 4f 55 52 43 45 5f 56 45   = $(RESOURCE_VE
07b0: 52 53 49 4f 4e 3a 53 51 4c 49 54 45 5f 56 45 52  RSION:SQLITE_VER
07c0: 53 49 4f 4e 3d 29 0a 52 45 53 4f 55 52 43 45 5f  SION=).RESOURCE_
07d0: 56 45 52 53 49 4f 4e 20 3d 20 24 28 52 45 53 4f  VERSION = $(RESO
07e0: 55 52 43 45 5f 56 45 52 53 49 4f 4e 3a 22 3d 29  URCE_VERSION:"=)
07f0: 0a 52 45 53 4f 55 52 43 45 5f 56 45 52 53 49 4f  .RESOURCE_VERSIO
0800: 4e 20 3d 20 24 28 52 45 53 4f 55 52 43 45 5f 56  N = $(RESOURCE_V
0810: 45 52 53 49 4f 4e 3a 2e 3d 2c 29 0a 0a 24 28 4c  ERSION:.=,)..$(L
0820: 49 42 52 45 53 4f 42 4a 53 29 3a 09 24 28 54 4f  IBRESOBJS):.$(TO
0830: 50 29 5c 73 71 6c 69 74 65 33 2e 72 63 20 72 63  P)\sqlite3.rc rc
0840: 76 65 72 2e 76 63 20 24 28 53 51 4c 49 54 45 33  ver.vc $(SQLITE3
0850: 48 29 0a 09 65 63 68 6f 20 23 69 66 6e 64 65 66  H)..echo #ifndef
0860: 20 53 51 4c 49 54 45 5f 52 45 53 4f 55 52 43 45   SQLITE_RESOURCE
0870: 5f 56 45 52 53 49 4f 4e 20 3e 20 73 71 6c 69 74  _VERSION > sqlit
0880: 65 33 72 63 2e 68 0a 09 65 63 68 6f 20 23 64 65  e3rc.h..echo #de
0890: 66 69 6e 65 20 53 51 4c 49 54 45 5f 52 45 53 4f  fine SQLITE_RESO
08a0: 55 52 43 45 5f 56 45 52 53 49 4f 4e 20 24 28 52  URCE_VERSION $(R
08b0: 45 53 4f 55 52 43 45 5f 56 45 52 53 49 4f 4e 29  ESOURCE_VERSION)
08c0: 20 3e 3e 20 73 71 6c 69 74 65 33 72 63 2e 68 0a   >> sqlite3rc.h.
08d0: 09 65 63 68 6f 20 23 65 6e 64 69 66 20 3e 3e 20  .echo #endif >> 
08e0: 73 71 6c 69 74 65 33 72 63 2e 68 0a 09 24 28 4c  sqlite3rc.h..$(L
08f0: 54 52 43 4f 4d 50 49 4c 45 29 20 2d 66 6f 20 24  TRCOMPILE) -fo $
0900: 28 4c 49 42 52 45 53 4f 42 4a 53 29 20 2d 44 52  (LIBRESOBJS) -DR
0910: 43 5f 56 45 52 4f 4e 4c 59 20 24 28 54 4f 50 29  C_VERONLY $(TOP)
0920: 5c 73 71 6c 69 74 65 33 2e 72 63 0a 7d 5d 5d 0a  \sqlite3.rc.}]].
0930: 0a 23 0a 23 20 4e 4f 54 45 3a 20 54 68 69 73 20  .#.# NOTE: This 
0940: 62 6c 6f 63 6b 20 69 73 20 75 73 65 64 20 74 6f  block is used to
0950: 20 72 65 70 6c 61 63 65 20 74 68 65 20 73 65 63   replace the sec
0960: 74 69 6f 6e 20 6d 61 72 6b 65 64 20 3c 3c 62 6c  tion marked <<bl
0970: 6f 63 6b 32 3e 3e 20 69 6e 0a 23 20 20 20 20 20  ock2>> in.#     
0980: 20 20 74 68 65 20 4d 61 6b 65 66 69 6c 65 2c 20    the Makefile, 
0990: 69 66 20 69 74 20 65 78 69 73 74 73 2e 0a 23 0a  if it exists..#.
09a0: 73 65 74 20 62 6c 6f 63 6b 73 28 32 29 20 5b 73  set blocks(2) [s
09b0: 74 72 69 6e 67 20 74 72 69 6d 6c 65 66 74 20 5b  tring trimleft [
09c0: 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74  string map [list
09d0: 20 5c 5c 5c 5c 20 5c 5c 5d 20 7b 0a 52 65 70 6c   \\\\ \\] {.Repl
09e0: 61 63 65 2e 65 78 65 3a 0a 09 24 28 43 53 43 29  ace.exe:..$(CSC)
09f0: 20 2f 74 61 72 67 65 74 3a 65 78 65 20 24 28 54   /target:exe $(T
0a00: 4f 50 29 5c 52 65 70 6c 61 63 65 2e 63 73 0a 0a  OP)\Replace.cs..
0a10: 73 71 6c 69 74 65 33 2e 64 65 66 3a 09 52 65 70  sqlite3.def:.Rep
0a20: 6c 61 63 65 2e 65 78 65 20 24 28 4c 49 42 4f 42  lace.exe $(LIBOB
0a30: 4a 29 0a 09 65 63 68 6f 20 45 58 50 4f 52 54 53  J)..echo EXPORTS
0a40: 20 3e 20 73 71 6c 69 74 65 33 2e 64 65 66 0a 09   > sqlite3.def..
0a50: 64 75 6d 70 62 69 6e 20 2f 61 6c 6c 20 24 28 4c  dumpbin /all $(L
0a60: 49 42 4f 42 4a 29 20 5c 5c 0a 09 09 7c 20 2e 5c  IBOBJ) \\...| .\
0a70: 52 65 70 6c 61 63 65 2e 65 78 65 20 22 5e 5c 73  Replace.exe "^\s
0a80: 2b 2f 45 58 50 4f 52 54 3a 5f 3f 28 73 71 6c 69  +/EXPORT:_?(sqli
0a90: 74 65 33 5f 5b 5e 40 2c 5d 2a 29 28 3f 3a 40 5c  te3_[^@,]*)(?:@\
0aa0: 64 2b 7c 2c 44 41 54 41 29 3f 24 24 22 20 24 24  d+|,DATA)?$$" $$
0ab0: 31 20 74 72 75 65 20 5c 5c 0a 09 09 7c 20 73 6f  1 true \\...| so
0ac0: 72 74 20 3e 3e 20 73 71 6c 69 74 65 33 2e 64 65  rt >> sqlite3.de
0ad0: 66 0a 7d 5d 5d 0a 0a 73 65 74 20 64 61 74 61 20  f.}]]..set data 
0ae0: 22 23 23 23 23 20 44 4f 20 4e 4f 54 20 45 44 49  "#### DO NOT EDI
0af0: 54 20 23 23 23 23 5c 6e 22 0a 61 70 70 65 6e 64  T ####\n".append
0b00: 20 64 61 74 61 20 22 23 20 54 68 69 73 20 6d 61   data "# This ma
0b10: 6b 65 66 69 6c 65 20 69 73 20 61 75 74 6f 6d 61  kefile is automa
0b20: 74 69 63 61 6c 6c 79 20 22 0a 61 70 70 65 6e 64  tically ".append
0b30: 20 64 61 74 61 20 22 67 65 6e 65 72 61 74 65 64   data "generated
0b40: 20 66 72 6f 6d 20 74 68 65 20 5b 66 69 6c 65 20   from the [file 
0b50: 74 61 69 6c 20 24 66 72 6f 6d 46 69 6c 65 4e 61  tail $fromFileNa
0b60: 6d 65 5d 20 61 74 5c 6e 22 0a 61 70 70 65 6e 64  me] at\n".append
0b70: 20 64 61 74 61 20 22 23 20 74 68 65 20 72 6f 6f   data "# the roo
0b80: 74 20 6f 66 20 74 68 65 20 63 61 6e 6f 6e 69 63  t of the canonic
0b90: 61 6c 20 53 51 4c 69 74 65 20 73 6f 75 72 63 65  al SQLite source
0ba0: 20 74 72 65 65 20 28 6e 6f 74 20 74 68 65 5c 6e   tree (not the\n
0bb0: 22 0a 61 70 70 65 6e 64 20 64 61 74 61 20 22 23  ".append data "#
0bc0: 20 61 6d 61 6c 67 61 6d 61 74 69 6f 6e 20 74 61   amalgamation ta
0bd0: 72 62 61 6c 6c 29 20 75 73 69 6e 67 20 74 68 65  rball) using the
0be0: 20 74 6f 6f 6c 2f 5b 66 69 6c 65 20 74 61 69 6c   tool/[file tail
0bf0: 20 24 61 72 67 76 30 5d 5c 6e 22 0a 61 70 70 65   $argv0]\n".appe
0c00: 6e 64 20 64 61 74 61 20 22 23 20 73 63 72 69 70  nd data "# scrip
0c10: 74 2e 5c 6e 23 5c 6e 5c 6e 22 0a 61 70 70 65 6e  t.\n#\n\n".appen
0c20: 64 20 64 61 74 61 20 5b 72 65 61 64 46 69 6c 65  d data [readFile
0c30: 20 24 66 72 6f 6d 46 69 6c 65 4e 61 6d 65 5d 0a   $fromFileName].
0c40: 0a 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20  .regsub -all -- 
0c50: 7b 23 20 3c 3c 6d 61 72 6b 3e 3e 5c 6e 2e 2a 3f  {# <<mark>>\n.*?
0c60: 23 20 3c 3c 2f 6d 61 72 6b 3e 3e 5c 6e 7d 20 5c  # <</mark>>\n} \
0c70: 0a 20 20 20 20 24 64 61 74 61 20 22 22 20 64 61  .    $data "" da
0c80: 74 61 0a 0a 66 6f 72 65 61 63 68 20 69 20 5b 6c  ta..foreach i [l
0c90: 73 6f 72 74 20 2d 69 6e 74 65 67 65 72 20 5b 61  sort -integer [a
0ca0: 72 72 61 79 20 6e 61 6d 65 73 20 62 6c 6f 63 6b  rray names block
0cb0: 73 5d 5d 20 7b 0a 20 20 72 65 67 73 75 62 20 2d  s]] {.  regsub -
0cc0: 61 6c 6c 20 2d 2d 20 5b 73 75 62 73 74 56 61 72  all -- [substVar
0cd0: 73 20 5c 0a 20 20 20 20 20 20 7b 23 20 3c 3c 62  s \.      {# <<b
0ce0: 6c 6f 63 6b 24 7b 69 7d 3e 3e 5c 6e 2e 2a 3f 23  lock${i}>>\n.*?#
0cf0: 20 3c 3c 2f 62 6c 6f 63 6b 24 7b 69 7d 3e 3e 5c   <</block${i}>>\
0d00: 6e 7d 5d 20 5c 0a 20 20 20 20 20 20 24 64 61 74  n}] \.      $dat
0d10: 61 20 5b 65 73 63 61 70 65 53 75 62 53 70 65 63  a [escapeSubSpec
0d20: 20 24 62 6c 6f 63 6b 73 28 24 69 29 5d 20 64 61   $blocks($i)] da
0d30: 74 61 0a 7d 0a 0a 73 65 74 20 64 61 74 61 20 5b  ta.}..set data [
0d40: 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74  string map [list
0d50: 20 22 20 2d 49 5c 24 28 54 4f 50 29 5c 5c 73 72   " -I\$(TOP)\\sr
0d60: 63 22 20 22 22 5d 20 24 64 61 74 61 5d 0a 73 65  c" ""] $data].se
0d70: 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 6d  t data [string m
0d80: 61 70 20 5b 6c 69 73 74 20 22 20 6c 69 62 73 71  ap [list " libsq
0d90: 6c 69 74 65 33 2e 6c 69 62 22 20 22 22 5d 20 24  lite3.lib" ""] $
0da0: 64 61 74 61 5d 0a 73 65 74 20 64 61 74 61 20 5b  data].set data [
0db0: 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74  string map [list
0dc0: 20 22 20 5c 24 28 41 4c 4c 5f 54 43 4c 5f 54 41   " \$(ALL_TCL_TA
0dd0: 52 47 45 54 53 29 22 20 22 22 5d 20 24 64 61 74  RGETS)" ""] $dat
0de0: 61 5d 0a 73 65 74 20 64 61 74 61 20 5b 73 74 72  a].set data [str
0df0: 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 22 5c  ing map [list "\
0e00: 24 28 54 4f 50 29 5c 5c 73 72 63 5c 5c 22 20 22  $(TOP)\\src\\" "
0e10: 5c 24 28 54 4f 50 29 5c 5c 22 5d 20 24 64 61 74  \$(TOP)\\"] $dat
0e20: 61 5d 0a 0a 77 72 69 74 65 46 69 6c 65 20 24 74  a]..writeFile $t
0e30: 6f 46 69 6c 65 4e 61 6d 65 20 24 64 61 74 61 0a  oFileName $data.