System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact e3358c361415dda5c376ee6b9bb232d718e58499:


0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 64 65 70 6c 6f 79 41 6e 64 54  .#..# deployAndT
0060: 65 73 74 43 65 32 30 30 78 2e 65 61 67 6c 65 20  estCe200x.eagle 
0070: 2d 2d 20 57 69 6e 64 6f 77 73 20 43 45 20 44 65  -- Windows CE De
0080: 70 6c 6f 79 6d 65 6e 74 20 26 20 54 65 73 74 69  ployment & Testi
0090: 6e 67 20 54 6f 6f 6c 0d 0a 23 0d 0a 23 20 57 72  ng Tool..#..# Wr
00a0: 69 74 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73  itten by Joe Mis
00b0: 74 61 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65  tachkin...# Rele
00c0: 61 73 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c  ased to the publ
00d0: 69 63 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61  ic domain, use a
00e0: 74 20 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21  t your own risk!
00f0: 0d 0a 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23  ..#..###########
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0130: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0140: 23 23 23 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20  ####....package 
0150: 72 65 71 75 69 72 65 20 45 61 67 6c 65 0d 0a 0c  require Eagle...
0160: 0d 0a 70 72 6f 63 20 75 73 61 67 65 20 7b 20 65  ..proc usage { e
0170: 72 72 6f 72 20 7d 20 7b 0d 0a 20 20 69 66 20 7b  rror } {..  if {
0180: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
0190: 65 72 72 6f 72 5d 20 3e 20 30 7d 20 74 68 65 6e  error] > 0} then
01a0: 20 7b 70 75 74 73 20 73 74 64 6f 75 74 20 24 65   {puts stdout $e
01b0: 72 72 6f 72 7d 0d 0a 0d 0a 20 20 70 75 74 73 20  rror}....  puts 
01c0: 73 74 64 6f 75 74 20 22 75 73 61 67 65 3a 5c 0d  stdout "usage:\.
01d0: 0a 5b 66 69 6c 65 20 74 61 69 6c 20 5b 69 6e 66  .[file tail [inf
01e0: 6f 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62  o nameofexecutab
01f0: 6c 65 5d 5d 5c 0d 0a 5b 66 69 6c 65 20 74 61 69  le]]\..[file tai
0200: 6c 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d  l [info script]]
0210: 20 5c 5b 79 65 61 72 5c 5d 20 5c 5b 70 6c 61 74   \[year\] \[plat
0220: 66 6f 72 6d 5c 5d 20 5c 5b 63 6f 6e 66 69 67 75  form\] \[configu
0230: 72 61 74 69 6f 6e 5c 5d 5c 0d 0a 5c 5b 63 75 6c  ration\]\..\[cul
0240: 74 75 72 65 5c 5d 20 5c 5b 70 6c 61 74 66 6f 72  ture\] \[platfor
0250: 6d 49 64 5c 5d 20 5c 5b 64 65 76 69 63 65 49 64  mId\] \[deviceId
0260: 5c 5d 20 5c 5b 6d 6f 64 65 5c 5d 20 5c 5b 71 75  \] \[mode\] \[qu
0270: 69 65 74 5c 5d 22 0d 0a 0d 0a 20 20 23 0d 0a 20  iet\]"....  #.. 
0280: 20 23 20 4e 4f 54 45 3a 20 49 6e 64 69 63 61 74   # NOTE: Indicat
0290: 65 20 74 6f 20 74 68 65 20 63 61 6c 6c 65 72 2c  e to the caller,
02a0: 20 69 66 20 61 6e 79 2c 20 74 68 61 74 20 77 65   if any, that we
02b0: 20 68 61 76 65 20 66 61 69 6c 65 64 2e 0d 0a 20   have failed... 
02c0: 20 23 0d 0a 20 20 65 78 69 74 20 31 0d 0a 7d 0d   #..  exit 1..}.
02d0: 0a 0c 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 54  ....#..# NOTE: T
02e0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 77 69  his procedure wi
02f0: 6c 6c 20 6f 75 74 70 75 74 20 61 20 64 69 61 67  ll output a diag
0300: 6e 6f 73 74 69 63 20 6d 65 73 73 61 67 65 2c 20  nostic message, 
0310: 74 79 70 69 63 61 6c 6c 79 20 74 6f 20 74 68 65  typically to the
0320: 0d 0a 23 20 20 20 20 20 20 20 73 74 61 6e 64 61  ..#       standa
0330: 72 64 20 6f 75 74 70 75 74 20 63 68 61 6e 6e 65  rd output channe
0340: 6c 2c 20 75 73 69 6e 67 20 74 68 65 20 5b 70 75  l, using the [pu
0350: 74 73 5d 20 63 6f 6d 6d 61 6e 64 20 75 6e 6c 65  ts] command unle
0360: 73 73 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a 23  ss the global..#
0370: 20 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 20         variable 
0380: 22 71 75 69 65 74 22 20 69 73 20 6e 6f 6e 2d 7a  "quiet" is non-z
0390: 65 72 6f 2e 0d 0a 23 0d 0a 70 72 6f 63 20 71 70  ero...#..proc qp
03a0: 75 74 73 20 7b 20 61 72 67 73 20 7d 20 7b 0d 0a  uts { args } {..
03b0: 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69    if {![info exi
03c0: 73 74 73 20 3a 3a 71 75 69 65 74 5d 20 7c 7c 20  sts ::quiet] || 
03d0: 21 24 3a 3a 71 75 69 65 74 7d 20 74 68 65 6e 20  !$::quiet} then 
03e0: 7b 0d 0a 20 20 20 20 65 76 61 6c 20 70 75 74 73  {..    eval puts
03f0: 20 24 61 72 67 73 3b 20 66 6c 75 73 68 20 73 74   $args; flush st
0400: 64 6f 75 74 0d 0a 20 20 7d 0d 0a 7d 0d 0a 0c 0d  dout..  }..}....
0410: 0a 70 72 6f 63 20 73 68 6f 77 50 6c 61 74 66 6f  .proc showPlatfo
0420: 72 6d 73 20 7b 20 63 75 6c 74 75 72 65 49 6e 66  rms { cultureInf
0430: 6f 20 7d 20 7b 0d 0a 20 20 73 65 74 20 64 61 74  o } {..  set dat
0440: 61 73 74 6f 72 65 4d 61 6e 61 67 65 72 20 5b 6f  astoreManager [o
0450: 62 6a 65 63 74 20 63 72 65 61 74 65 20 2d 61 6c  bject create -al
0460: 69 61 73 20 5c 0d 0a 20 20 20 20 20 20 4d 69 63  ias \..      Mic
0470: 72 6f 73 6f 66 74 2e 53 6d 61 72 74 44 65 76 69  rosoft.SmartDevi
0480: 63 65 2e 43 6f 6e 6e 65 63 74 69 76 69 74 79 2e  ce.Connectivity.
0490: 44 61 74 61 73 74 6f 72 65 4d 61 6e 61 67 65 72  DatastoreManager
04a0: 20 5c 0d 0a 20 20 20 20 20 20 5b 24 63 75 6c 74   \..      [$cult
04b0: 75 72 65 49 6e 66 6f 20 4c 43 49 44 5d 5d 0d 0a  ureInfo LCID]]..
04c0: 0d 0a 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 61  ..  object forea
04d0: 63 68 20 2d 61 6c 69 61 73 20 70 6c 61 74 66 6f  ch -alias platfo
04e0: 72 6d 20 5b 24 64 61 74 61 73 74 6f 72 65 4d 61  rm [$datastoreMa
04f0: 6e 61 67 65 72 20 47 65 74 50 6c 61 74 66 6f 72  nager GetPlatfor
0500: 6d 73 5d 20 7b 0d 0a 20 20 20 20 71 70 75 74 73  ms] {..    qputs
0510: 20 73 74 64 6f 75 74 20 5b 61 70 70 65 6e 64 41   stdout [appendA
0520: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 22  rgs \..        "
0530: 66 6f 75 6e 64 20 70 6c 61 74 66 6f 72 6d 20 5c  found platform \
0540: 22 22 20 5b 24 70 6c 61 74 66 6f 72 6d 20 49 64  "" [$platform Id
0550: 2e 54 6f 53 74 72 69 6e 67 5d 20 22 5c 22 20 77  .ToString] "\" w
0560: 69 74 68 20 6e 61 6d 65 20 5c 22 22 20 5c 0d 0a  ith name \"" \..
0570: 20 20 20 20 20 20 20 20 5b 24 70 6c 61 74 66 6f          [$platfo
0580: 72 6d 20 4e 61 6d 65 5d 20 5c 22 2e 2e 2e 5d 0d  rm Name] \"...].
0590: 0a 20 20 7d 0d 0a 7d 0d 0a 0c 0d 0a 23 0d 0a 23  .  }..}.....#..#
05a0: 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63   NOTE: This proc
05b0: 65 64 75 72 65 20 6c 6f 6f 6b 73 20 75 70 20 61  edure looks up a
05c0: 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 20 74  nd returns the t
05d0: 61 72 67 65 74 20 64 65 76 69 63 65 20 62 61 73  arget device bas
05e0: 65 64 20 6f 6e 20 74 68 65 0d 0a 23 20 20 20 20  ed on the..#    
05f0: 20 20 20 6c 6f 63 61 6c 65 2c 20 70 6c 61 74 66     locale, platf
0600: 6f 72 6d 20 49 64 2c 20 61 6e 64 20 64 65 76 69  orm Id, and devi
0610: 63 65 20 49 64 2e 0d 0a 23 0d 0a 70 72 6f 63 20  ce Id...#..proc 
0620: 67 65 74 44 65 76 69 63 65 20 7b 20 63 75 6c 74  getDevice { cult
0630: 75 72 65 49 6e 66 6f 20 70 6c 61 74 66 6f 72 6d  ureInfo platform
0640: 49 64 20 64 65 76 69 63 65 49 64 20 7d 20 7b 0d  Id deviceId } {.
0650: 0a 20 20 73 65 74 20 64 61 74 61 73 74 6f 72 65  .  set datastore
0660: 4d 61 6e 61 67 65 72 20 5b 6f 62 6a 65 63 74 20  Manager [object 
0670: 63 72 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d  create -alias \.
0680: 0a 20 20 20 20 20 20 4d 69 63 72 6f 73 6f 66 74  .      Microsoft
0690: 2e 53 6d 61 72 74 44 65 76 69 63 65 2e 43 6f 6e  .SmartDevice.Con
06a0: 6e 65 63 74 69 76 69 74 79 2e 44 61 74 61 73 74  nectivity.Datast
06b0: 6f 72 65 4d 61 6e 61 67 65 72 20 5c 0d 0a 20 20  oreManager \..  
06c0: 20 20 20 20 5b 24 63 75 6c 74 75 72 65 49 6e 66      [$cultureInf
06d0: 6f 20 4c 43 49 44 5d 5d 0d 0a 0d 0a 20 20 73 65  o LCID]]....  se
06e0: 74 20 70 6c 61 74 66 6f 72 6d 20 5b 24 64 61 74  t platform [$dat
06f0: 61 73 74 6f 72 65 4d 61 6e 61 67 65 72 20 2d 61  astoreManager -a
0700: 6c 69 61 73 20 47 65 74 50 6c 61 74 66 6f 72 6d  lias GetPlatform
0710: 20 5b 6f 62 6a 65 63 74 20 63 72 65 61 74 65 20   [object create 
0720: 5c 0d 0a 20 20 20 20 20 20 4d 69 63 72 6f 73 6f  \..      Microso
0730: 66 74 2e 53 6d 61 72 74 44 65 76 69 63 65 2e 43  ft.SmartDevice.C
0740: 6f 6e 6e 65 63 74 69 76 69 74 79 2e 4f 62 6a 65  onnectivity.Obje
0750: 63 74 49 64 20 24 70 6c 61 74 66 6f 72 6d 49 64  ctId $platformId
0760: 5d 5d 0d 0a 0d 0a 20 20 69 66 20 7b 5b 73 74 72  ]]....  if {[str
0770: 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 65 76 69  ing length $devi
0780: 63 65 49 64 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  ceId] == 0} then
0790: 20 7b 0d 0a 20 20 20 20 73 65 74 20 64 65 76 69   {..    set devi
07a0: 63 65 49 64 20 5b 24 70 6c 61 74 66 6f 72 6d 20  ceId [$platform 
07b0: 47 65 74 44 65 66 61 75 6c 74 44 65 76 69 63 65  GetDefaultDevice
07c0: 49 64 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65  Id]..  }....  se
07d0: 74 20 64 65 76 69 63 65 20 5b 24 70 6c 61 74 66  t device [$platf
07e0: 6f 72 6d 20 2d 61 6c 69 61 73 20 47 65 74 44 65  orm -alias GetDe
07f0: 76 69 63 65 20 24 64 65 76 69 63 65 49 64 5d 0d  vice $deviceId].
0800: 0a 0d 0a 20 20 71 70 75 74 73 20 73 74 64 6f 75  ...  qputs stdou
0810: 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  t [appendArgs \.
0820: 0a 20 20 20 20 20 20 22 72 65 74 75 72 6e 69 6e  .      "returnin
0830: 67 20 64 65 76 69 63 65 20 5c 22 22 20 5b 24 64  g device \"" [$d
0840: 65 76 69 63 65 20 4e 61 6d 65 5d 20 22 5c 22 20  evice Name] "\" 
0850: 6f 66 20 70 6c 61 74 66 6f 72 6d 20 5c 22 22 20  of platform \"" 
0860: 5c 0d 0a 20 20 20 20 20 20 5b 24 64 65 76 69 63  \..      [$devic
0870: 65 20 50 6c 61 74 66 6f 72 6d 2e 54 6f 53 74 72  e Platform.ToStr
0880: 69 6e 67 5d 20 22 5c 22 20 77 69 74 68 20 49 64  ing] "\" with Id
0890: 20 5c 22 22 20 5b 24 64 65 76 69 63 65 20 49 64   \"" [$device Id
08a0: 2e 54 6f 53 74 72 69 6e 67 5d 20 5c 0d 0a 20 20  .ToString] \..  
08b0: 20 20 20 20 5c 22 2e 2e 2e 5d 0d 0a 0d 0a 20 20      \"...]....  
08c0: 72 65 74 75 72 6e 20 24 64 65 76 69 63 65 0d 0a  return $device..
08d0: 7d 0d 0a 0c 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a  }.....#..# NOTE:
08e0: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
08f0: 73 74 61 72 74 73 20 61 20 70 72 6f 63 65 73 73  starts a process
0900: 20 6f 6e 20 74 68 65 20 74 61 72 67 65 74 20 64   on the target d
0910: 65 76 69 63 65 20 61 6e 64 20 6f 70 74 69 6f 6e  evice and option
0920: 61 6c 6c 79 0d 0a 23 20 20 20 20 20 20 20 77 61  ally..#       wa
0930: 69 74 73 20 66 6f 72 20 69 74 20 74 6f 20 63 6f  its for it to co
0940: 6d 70 6c 65 74 65 2e 0d 0a 23 0d 0a 70 72 6f 63  mplete...#..proc
0950: 20 73 74 61 72 74 52 65 6d 6f 74 65 50 72 6f 63   startRemoteProc
0960: 65 73 73 20 7b 20 64 65 76 69 63 65 20 66 69 6c  ess { device fil
0970: 65 4e 61 6d 65 20 61 72 67 75 6d 65 6e 74 73 20  eName arguments 
0980: 7b 77 61 69 74 20 74 72 75 65 7d 20 7d 20 7b 0d  {wait true} } {.
0990: 0a 20 20 73 65 74 20 72 65 6d 6f 74 65 50 72 6f  .  set remotePro
09a0: 63 65 73 73 20 5b 24 64 65 76 69 63 65 20 2d 61  cess [$device -a
09b0: 6c 69 61 73 20 47 65 74 52 65 6d 6f 74 65 50 72  lias GetRemotePr
09c0: 6f 63 65 73 73 5d 0d 0a 0d 0a 20 20 69 66 20 7b  ocess]....  if {
09d0: 21 5b 24 72 65 6d 6f 74 65 50 72 6f 63 65 73 73  ![$remoteProcess
09e0: 20 53 74 61 72 74 20 24 66 69 6c 65 4e 61 6d 65   Start $fileName
09f0: 20 24 61 72 67 75 6d 65 6e 74 73 5d 7d 20 74 68   $arguments]} th
0a00: 65 6e 20 7b 0d 0a 20 20 20 20 65 72 72 6f 72 20  en {..    error 
0a10: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 63 6f 75  [appendArgs "cou
0a20: 6c 64 20 6e 6f 74 20 73 74 61 72 74 20 72 65 6d  ld not start rem
0a30: 6f 74 65 20 70 72 6f 63 65 73 73 20 5c 22 22 20  ote process \"" 
0a40: 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5d 0d 0a 20  $fileName \"].. 
0a50: 20 7d 0d 0a 0d 0a 20 20 69 66 20 7b 24 77 61 69   }....  if {$wai
0a60: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 71  t} then {..    q
0a70: 70 75 74 73 20 73 74 64 6f 75 74 20 5b 61 70 70  puts stdout [app
0a80: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
0a90: 20 20 20 22 77 61 69 74 69 6e 67 20 66 6f 72 20     "waiting for 
0aa0: 72 65 6d 6f 74 65 20 70 72 6f 63 65 73 73 20 22  remote process "
0ab0: 20 5b 24 72 65 6d 6f 74 65 50 72 6f 63 65 73 73   [$remoteProcess
0ac0: 20 47 65 74 49 64 5d 20 2e 2e 2e 5d 0d 0a 0d 0a   GetId] ...]....
0ad0: 20 20 20 20 77 68 69 6c 65 20 7b 21 5b 24 72 65      while {![$re
0ae0: 6d 6f 74 65 50 72 6f 63 65 73 73 20 48 61 73 45  moteProcess HasE
0af0: 78 69 74 65 64 5d 7d 20 7b 0d 0a 20 20 20 20 20  xited]} {..     
0b00: 20 71 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e   qputs -nonewlin
0b10: 65 20 73 74 64 6f 75 74 20 2e 0d 0a 20 20 20 20  e stdout ...    
0b20: 20 20 61 66 74 65 72 20 31 30 30 30 0d 0a 20 20    after 1000..  
0b30: 20 20 7d 0d 0a 0d 0a 20 20 20 20 71 70 75 74 73    }....    qputs
0b40: 20 73 74 64 6f 75 74 20 22 22 0d 0a 20 20 20 20   stdout ""..    
0b50: 72 65 74 75 72 6e 20 5b 24 72 65 6d 6f 74 65 50  return [$remoteP
0b60: 72 6f 63 65 73 73 20 47 65 74 45 78 69 74 43 6f  rocess GetExitCo
0b70: 64 65 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 72 65  de]..  }....  re
0b80: 74 75 72 6e 20 2d 31 0d 0a 7d 0d 0a 0c 0d 0a 73  turn -1..}.....s
0b90: 65 74 20 61 72 67 63 20 5b 6c 6c 65 6e 67 74 68  et argc [llength
0ba0: 20 24 61 72 67 76 5d 0d 0a 0d 0a 69 66 20 7b 24   $argv]....if {$
0bb0: 61 72 67 63 20 3e 3d 20 30 20 26 26 20 24 61 72  argc >= 0 && $ar
0bc0: 67 63 20 3c 3d 20 38 7d 20 74 68 65 6e 20 7b 0d  gc <= 8} then {.
0bd0: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
0be0: 53 65 74 75 70 20 74 68 65 20 64 65 66 61 75 6c  Setup the defaul
0bf0: 74 20 76 61 6c 75 65 73 20 66 6f 72 20 61 6c 6c  t values for all
0c00: 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 6f 70   command line op
0c10: 74 69 6f 6e 73 2e 0d 0a 20 20 23 0d 0a 20 20 61  tions...  #..  a
0c20: 72 72 61 79 20 73 65 74 20 64 65 66 61 75 6c 74  rray set default
0c30: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
0c40: 79 65 61 72 20 32 30 30 38 0d 0a 20 20 20 20 20  year 2008..     
0c50: 20 20 20 70 6c 61 74 66 6f 72 6d 20 7b 50 6f 63     platform {Poc
0c60: 6b 65 74 20 50 43 20 32 30 30 33 20 28 41 52 4d  ket PC 2003 (ARM
0c70: 56 34 29 7d 0d 0a 20 20 20 63 6f 6e 66 69 67 75  V4)}..   configu
0c80: 72 61 74 69 6f 6e 20 52 65 6c 65 61 73 65 0d 0a  ration Release..
0c90: 20 20 20 20 20 20 20 20 20 63 75 6c 74 75 72 65           culture
0ca0: 20 65 6e 2d 55 53 0d 0a 20 20 20 20 20 20 70 6c   en-US..      pl
0cb0: 61 74 66 6f 72 6d 49 64 20 33 63 34 31 63 35 30  atformId 3c41c50
0cc0: 33 2d 35 33 65 66 2d 34 63 32 61 2d 38 64 64 34  3-53ef-4c2a-8dd4
0cd0: 2d 61 38 32 31 37 63 61 64 31 31 35 65 0d 0a 20  -a8217cad115e.. 
0ce0: 20 20 20 20 20 20 20 64 65 76 69 63 65 49 64 20         deviceId 
0cf0: 7b 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  {}..            
0d00: 6d 6f 64 65 20 74 65 73 74 0d 0a 20 20 20 20 20  mode test..     
0d10: 20 20 20 20 20 20 71 75 69 65 74 20 66 61 6c 73        quiet fals
0d20: 65 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20  e..  }....  #.. 
0d30: 20 23 20 4e 4f 54 45 3a 20 50 72 6f 63 65 73 73   # NOTE: Process
0d40: 20 61 6c 6c 20 74 68 65 20 63 6f 6d 6d 61 6e 64   all the command
0d50: 20 6c 69 6e 65 20 6f 70 74 69 6f 6e 73 2e 20 20   line options.  
0d60: 49 66 20 61 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e  If a command lin
0d70: 65 20 6f 70 74 69 6f 6e 0d 0a 20 20 23 20 20 20  e option..  #   
0d80: 20 20 20 20 69 73 20 6e 6f 74 20 70 72 65 73 65      is not prese
0d90: 6e 74 2c 20 75 73 65 20 74 68 65 20 64 65 66 61  nt, use the defa
0da0: 75 6c 74 20 76 61 6c 75 65 2e 0d 0a 20 20 23 0d  ult value...  #.
0db0: 0a 20 20 73 65 74 20 6e 61 6d 65 73 20 5b 6c 69  .  set names [li
0dc0: 73 74 20 5c 0d 0a 20 20 20 20 20 20 79 65 61 72  st \..      year
0dd0: 20 70 6c 61 74 66 6f 72 6d 20 63 6f 6e 66 69 67   platform config
0de0: 75 72 61 74 69 6f 6e 20 63 75 6c 74 75 72 65 20  uration culture 
0df0: 70 6c 61 74 66 6f 72 6d 49 64 20 64 65 76 69 63  platformId devic
0e00: 65 49 64 20 6d 6f 64 65 20 71 75 69 65 74 5d 0d  eId mode quiet].
0e10: 0a 0d 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 6e  ...  for {set in
0e20: 64 65 78 20 30 7d 20 7b 24 69 6e 64 65 78 20 3c  dex 0} {$index <
0e30: 20 5b 6c 6c 65 6e 67 74 68 20 24 6e 61 6d 65 73   [llength $names
0e40: 5d 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20  ]} {incr index} 
0e50: 7b 0d 0a 20 20 20 20 73 65 74 20 6e 61 6d 65 20  {..    set name 
0e60: 5b 6c 69 6e 64 65 78 20 24 6e 61 6d 65 73 20 24  [lindex $names $
0e70: 69 6e 64 65 78 5d 3b 20 73 65 74 20 76 61 6c 75  index]; set valu
0e80: 65 20 22 22 0d 0a 0d 0a 20 20 20 20 69 66 20 7b  e ""....    if {
0e90: 24 61 72 67 63 20 3e 20 24 69 6e 64 65 78 7d 20  $argc > $index} 
0ea0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65  then {..      se
0eb0: 74 20 76 61 6c 75 65 20 5b 73 74 72 69 6e 67 20  t value [string 
0ec0: 74 72 69 6d 20 5b 6c 69 6e 64 65 78 20 24 61 72  trim [lindex $ar
0ed0: 67 76 20 24 69 6e 64 65 78 5d 5d 0d 0a 20 20 20  gv $index]]..   
0ee0: 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b 73   }....    if {[s
0ef0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 76 61  tring length $va
0f00: 6c 75 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b  lue] > 0} then {
0f10: 0d 0a 20 20 20 20 20 20 73 65 74 20 24 6e 61 6d  ..      set $nam
0f20: 65 20 24 76 61 6c 75 65 3b 20 73 65 74 20 64 65  e $value; set de
0f30: 66 61 75 6c 74 56 61 6c 75 65 20 66 61 6c 73 65  faultValue false
0f40: 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a  ..    } else {..
0f50: 20 20 20 20 20 20 73 65 74 20 24 6e 61 6d 65 20        set $name 
0f60: 24 64 65 66 61 75 6c 74 28 24 6e 61 6d 65 29 3b  $default($name);
0f70: 20 73 65 74 20 64 65 66 61 75 6c 74 56 61 6c 75   set defaultValu
0f80: 65 20 74 72 75 65 0d 0a 20 20 20 20 7d 0d 0a 0d  e true..    }...
0f90: 0a 20 20 20 20 71 70 75 74 73 20 73 74 64 6f 75  .    qputs stdou
0fa0: 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  t [appendArgs \.
0fb0: 0a 20 20 20 20 20 20 20 20 22 6e 61 6d 65 64 20  .        "named 
0fc0: 70 61 72 61 6d 65 74 65 72 20 5c 22 22 20 24 6e  parameter \"" $n
0fd0: 61 6d 65 20 22 5c 22 20 76 61 6c 75 65 20 69 73  ame "\" value is
0fe0: 20 6e 6f 77 20 5c 22 22 20 5b 73 65 74 20 24 6e   now \"" [set $n
0ff0: 61 6d 65 5d 20 5c 22 20 5c 0d 0a 20 20 20 20 20  ame] \" \..     
1000: 20 20 20 5b 65 78 70 72 20 7b 24 64 65 66 61 75     [expr {$defau
1010: 6c 74 56 61 6c 75 65 20 3f 20 22 20 28 64 65 66  ltValue ? " (def
1020: 61 75 6c 74 29 22 20 3a 20 22 22 7d 5d 20 2e 5d  ault)" : ""}] .]
1030: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20  ..  }....  #..  
1040: 23 20 4e 4f 54 45 3a 20 47 72 61 62 20 74 68 65  # NOTE: Grab the
1050: 20 63 75 6c 74 75 72 65 20 69 6e 73 74 61 6e 63   culture instanc
1060: 65 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63  e based on the c
1070: 6f 6e 66 69 67 75 72 65 64 20 63 75 6c 74 75 72  onfigured cultur
1080: 65 20 6e 61 6d 65 2e 0d 0a 20 20 23 0d 0a 20 20  e name...  #..  
1090: 73 65 74 20 63 75 6c 74 75 72 65 49 6e 66 6f 20  set cultureInfo 
10a0: 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d  [object invoke -
10b0: 61 6c 69 61 73 20 53 79 73 74 65 6d 2e 47 6c 6f  alias System.Glo
10c0: 62 61 6c 69 7a 61 74 69 6f 6e 2e 43 75 6c 74 75  balization.Cultu
10d0: 72 65 49 6e 66 6f 20 5c 0d 0a 20 20 20 20 20 20  reInfo \..      
10e0: 47 65 74 43 75 6c 74 75 72 65 49 6e 66 6f 20 24  GetCultureInfo $
10f0: 63 75 6c 74 75 72 65 5d 0d 0a 0d 0a 20 20 23 0d  culture]....  #.
1100: 0a 20 20 23 20 4e 4f 54 45 3a 20 42 75 69 6c 64  .  # NOTE: Build
1110: 20 74 68 65 20 6c 69 73 74 20 6f 66 20 2e 4e 45   the list of .NE
1120: 54 20 43 6f 6d 70 61 63 74 20 46 72 61 6d 65 77  T Compact Framew
1130: 6f 72 6b 20 32 2e 30 20 70 61 63 6b 61 67 65 73  ork 2.0 packages
1140: 20 74 68 61 74 20 6e 65 65 64 20 74 6f 0d 0a 20   that need to.. 
1150: 20 23 20 20 20 20 20 20 20 62 65 20 64 65 70 6c   #       be depl
1160: 6f 79 65 64 20 74 6f 20 74 68 65 20 74 61 72 67  oyed to the targ
1170: 65 74 20 64 65 76 69 63 65 2c 20 69 66 20 6e 65  et device, if ne
1180: 63 65 73 73 61 72 79 2e 0d 0a 20 20 23 0d 0a 20  cessary...  #.. 
1190: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
11a0: 74 73 20 70 61 63 6b 61 67 65 73 28 32 30 30 35  ts packages(2005
11b0: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  )]} then {..    
11c0: 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 54  #..    # NOTE: T
11d0: 68 65 20 74 68 72 65 65 20 6c 65 74 74 65 72 20  he three letter 
11e0: 57 69 6e 64 6f 77 73 20 6c 61 6e 67 75 61 67 65  Windows language
11f0: 20 6e 61 6d 65 20 69 73 20 6e 65 65 64 65 64 20   name is needed 
1200: 77 68 65 6e 20 62 75 69 6c 64 69 6e 67 0d 0a 20  when building.. 
1210: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 64     #       the d
1220: 65 66 61 75 6c 74 20 6c 69 73 74 20 6f 66 20 2e  efault list of .
1230: 4e 45 54 20 43 6f 6d 70 61 63 74 20 46 72 61 6d  NET Compact Fram
1240: 65 77 6f 72 6b 20 70 61 63 6b 61 67 65 73 20 62  ework packages b
1250: 65 63 61 75 73 65 20 6f 6e 65 0d 0a 20 20 20 20  ecause one..    
1260: 23 20 20 20 20 20 20 20 6f 66 20 74 68 65 6d 20  #       of them 
1270: 69 73 20 61 20 6c 6f 63 61 6c 69 7a 65 64 20 72  is a localized r
1280: 65 73 6f 75 72 63 65 20 70 61 63 6b 61 67 65 2e  esource package.
1290: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65 74  ..    #..    set
12a0: 20 6c 61 6e 67 75 61 67 65 33 20 5b 73 74 72 69   language3 [stri
12b0: 6e 67 20 74 6f 75 70 70 65 72 20 5c 0d 0a 20 20  ng toupper \..  
12c0: 20 20 20 20 20 20 5b 24 63 75 6c 74 75 72 65 49        [$cultureI
12d0: 6e 66 6f 20 54 68 72 65 65 4c 65 74 74 65 72 57  nfo ThreeLetterW
12e0: 69 6e 64 6f 77 73 4c 61 6e 67 75 61 67 65 4e 61  indowsLanguageNa
12f0: 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20  me]]....    #.. 
1300: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 64     # NOTE: The d
1310: 65 66 61 75 6c 74 20 6c 69 73 74 20 6f 66 20 2e  efault list of .
1320: 4e 45 54 20 43 6f 6d 70 61 63 74 20 46 72 61 6d  NET Compact Fram
1330: 65 77 6f 72 6b 20 32 2e 30 20 70 61 63 6b 61 67  ework 2.0 packag
1340: 65 73 20 63 6f 6e 74 61 69 6e 73 0d 0a 20 20 20  es contains..   
1350: 20 23 20 20 20 20 20 20 20 74 68 65 20 2e 4e 45   #       the .NE
1360: 54 20 43 6f 6d 70 61 63 74 20 46 72 61 6d 65 77  T Compact Framew
1370: 6f 72 6b 20 32 2e 30 20 69 6e 73 74 61 6c 6c 61  ork 2.0 installa
1380: 74 69 6f 6e 20 43 41 42 20 66 69 6c 65 20 66 6f  tion CAB file fo
1390: 72 20 41 52 4d 56 34 0d 0a 20 20 20 20 23 20 20  r ARMV4..    #  
13a0: 20 20 20 20 20 6f 6e 20 74 68 65 20 50 6f 63 6b       on the Pock
13b0: 65 74 20 50 43 20 61 6e 64 20 69 74 73 20 61 73  et PC and its as
13c0: 73 6f 63 69 61 74 65 64 20 72 65 73 6f 75 72 63  sociated resourc
13d0: 65 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 43  e installation C
13e0: 41 42 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20  AB..    #       
13f0: 66 69 6c 65 73 2e 0d 0a 20 20 20 20 23 0d 0a 20  files...    #.. 
1400: 20 20 20 73 65 74 20 70 61 63 6b 61 67 65 73 28     set packages(
1410: 32 30 30 35 29 20 5b 6c 69 73 74 20 5c 0d 0a 20  2005) [list \.. 
1420: 20 20 20 20 20 20 20 61 62 64 37 38 35 66 30 2d         abd785f0-
1430: 63 64 61 37 2d 34 31 63 35 2d 38 33 37 35 2d 32  cda7-41c5-8375-2
1440: 34 35 31 61 37 63 62 66 66 32 36 20 5c 0d 0a 20  451a7cbff26 \.. 
1450: 20 20 20 20 20 20 20 5c 5c 57 69 6e 64 6f 77 73         \\Windows
1460: 5c 5c 4e 45 54 43 46 76 32 2e 70 70 63 2e 61 72  \\NETCFv2.ppc.ar
1470: 6d 76 34 2e 63 61 62 20 5c 0d 0a 20 20 20 20 20  mv4.cab \..     
1480: 20 20 20 63 30 63 63 66 34 38 65 2d 34 62 66 62     c0ccf48e-4bfb
1490: 2d 34 64 38 34 2d 38 32 37 63 2d 39 38 31 61 35  -4d84-827c-981a5
14a0: 39 35 65 34 30 62 34 20 5c 0d 0a 20 20 20 20 20  95e40b4 \..     
14b0: 20 20 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c     [appendArgs \
14c0: 5c 57 69 6e 64 6f 77 73 5c 5c 53 79 73 74 65 6d  \Windows\\System
14d0: 5f 53 52 5f 20 24 6c 61 6e 67 75 61 67 65 33 20  _SR_ $language3 
14e0: 2e 63 61 62 5d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20  .cab]]..  }.... 
14f0: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 42 75   #..  # NOTE: Bu
1500: 69 6c 64 20 74 68 65 20 6c 69 73 74 20 6f 66 20  ild the list of 
1510: 2e 4e 45 54 20 43 6f 6d 70 61 63 74 20 46 72 61  .NET Compact Fra
1520: 6d 65 77 6f 72 6b 20 33 2e 35 20 70 61 63 6b 61  mework 3.5 packa
1530: 67 65 73 20 74 68 61 74 20 6e 65 65 64 20 74 6f  ges that need to
1540: 0d 0a 20 20 23 20 20 20 20 20 20 20 62 65 20 64  ..  #       be d
1550: 65 70 6c 6f 79 65 64 20 74 6f 20 74 68 65 20 74  eployed to the t
1560: 61 72 67 65 74 20 64 65 76 69 63 65 2c 20 69 66  arget device, if
1570: 20 6e 65 63 65 73 73 61 72 79 2e 0d 0a 20 20 23   necessary...  #
1580: 0d 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65  ..  if {![info e
1590: 78 69 73 74 73 20 70 61 63 6b 61 67 65 73 28 32  xists packages(2
15a0: 30 30 38 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  008)]} then {.. 
15b0: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
15c0: 3a 20 54 68 65 20 74 77 6f 20 6c 65 74 74 65 72  : The two letter
15d0: 20 49 53 4f 20 6c 61 6e 67 75 61 67 65 20 6e 61   ISO language na
15e0: 6d 65 20 69 73 20 6e 65 65 64 65 64 20 77 68 65  me is needed whe
15f0: 6e 20 62 75 69 6c 64 69 6e 67 20 74 68 65 0d 0a  n building the..
1600: 20 20 20 20 23 20 20 20 20 20 20 20 64 65 66 61      #       defa
1610: 75 6c 74 20 6c 69 73 74 20 6f 66 20 2e 4e 45 54  ult list of .NET
1620: 20 43 6f 6d 70 61 63 74 20 46 72 61 6d 65 77 6f   Compact Framewo
1630: 72 6b 20 70 61 63 6b 61 67 65 73 20 62 65 63 61  rk packages beca
1640: 75 73 65 20 6f 6e 65 20 6f 66 0d 0a 20 20 20 20  use one of..    
1650: 23 20 20 20 20 20 20 20 74 68 65 6d 20 69 73 20  #       them is 
1660: 61 20 6c 6f 63 61 6c 69 7a 65 64 20 72 65 73 6f  a localized reso
1670: 75 72 63 65 20 70 61 63 6b 61 67 65 2e 0d 0a 20  urce package... 
1680: 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20 6c 61     #..    set la
1690: 6e 67 75 61 67 65 32 20 5b 73 74 72 69 6e 67 20  nguage2 [string 
16a0: 74 6f 75 70 70 65 72 20 5c 0d 0a 20 20 20 20 20  toupper \..     
16b0: 20 20 20 5b 24 63 75 6c 74 75 72 65 49 6e 66 6f     [$cultureInfo
16c0: 20 54 77 6f 4c 65 74 74 65 72 49 53 4f 4c 61 6e   TwoLetterISOLan
16d0: 67 75 61 67 65 4e 61 6d 65 5d 5d 0d 0a 0d 0a 20  guageName]].... 
16e0: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
16f0: 3a 20 54 68 65 20 64 65 66 61 75 6c 74 20 6c 69  : The default li
1700: 73 74 20 6f 66 20 2e 4e 45 54 20 43 6f 6d 70 61  st of .NET Compa
1710: 63 74 20 46 72 61 6d 65 77 6f 72 6b 20 33 2e 35  ct Framework 3.5
1720: 20 70 61 63 6b 61 67 65 73 20 63 6f 6e 74 61 69   packages contai
1730: 6e 73 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20  ns..    #       
1740: 74 68 65 20 2e 4e 45 54 20 43 6f 6d 70 61 63 74  the .NET Compact
1750: 20 46 72 61 6d 65 77 6f 72 6b 20 33 2e 35 20 69   Framework 3.5 i
1760: 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 43 41 42 20  nstallation CAB 
1770: 66 69 6c 65 20 66 6f 72 20 41 52 4d 56 34 0d 0a  file for ARMV4..
1780: 20 20 20 20 23 20 20 20 20 20 20 20 6f 6e 20 74      #       on t
1790: 68 65 20 50 6f 63 6b 65 74 20 50 43 20 61 6e 64  he Pocket PC and
17a0: 20 69 74 73 20 61 73 73 6f 63 69 61 74 65 64 20   its associated 
17b0: 72 65 73 6f 75 72 63 65 20 69 6e 73 74 61 6c 6c  resource install
17c0: 61 74 69 6f 6e 20 43 41 42 0d 0a 20 20 20 20 23  ation CAB..    #
17d0: 20 20 20 20 20 20 20 66 69 6c 65 73 2e 0d 0a 20         files... 
17e0: 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20 70 61     #..    set pa
17f0: 63 6b 61 67 65 73 28 32 30 30 38 29 20 5b 6c 69  ckages(2008) [li
1800: 73 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 61 62  st \..        ab
1810: 64 37 38 35 66 30 2d 63 64 61 37 2d 34 31 63 35  d785f0-cda7-41c5
1820: 2d 38 33 37 35 2d 32 34 35 31 61 37 63 62 66 66  -8375-2451a7cbff
1830: 33 37 20 5c 0d 0a 20 20 20 20 20 20 20 20 5c 5c  37 \..        \\
1840: 57 69 6e 64 6f 77 73 5c 5c 4e 45 54 43 46 76 33  Windows\\NETCFv3
1850: 35 2e 70 70 63 2e 61 72 6d 76 34 2e 63 61 62 20  5.ppc.armv4.cab 
1860: 5c 0d 0a 20 20 20 20 20 20 20 20 63 30 63 63 66  \..        c0ccf
1870: 34 38 65 2d 34 62 66 62 2d 34 64 38 34 2d 38 32  48e-4bfb-4d84-82
1880: 37 63 2d 39 38 31 61 35 39 35 65 34 30 63 35 20  7c-981a595e40c5 
1890: 5c 0d 0a 20 20 20 20 20 20 20 20 5b 61 70 70 65  \..        [appe
18a0: 6e 64 41 72 67 73 20 5c 5c 57 69 6e 64 6f 77 73  ndArgs \\Windows
18b0: 5c 5c 4e 45 54 43 46 76 33 35 2e 4d 65 73 73 61  \\NETCFv35.Messa
18c0: 67 65 73 2e 20 24 6c 61 6e 67 75 61 67 65 32 20  ges. $language2 
18d0: 2e 63 61 62 5d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20  .cab]]..  }.... 
18e0: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 53 61   #..  # NOTE: Sa
18f0: 76 65 20 74 68 65 20 70 61 74 68 20 77 68 65 72  ve the path wher
1900: 65 20 74 68 69 73 20 73 63 72 69 70 74 20 69 73  e this script is
1910: 20 72 75 6e 6e 69 6e 67 20 66 72 6f 6d 2e 0d 0a   running from...
1920: 20 20 23 0d 0a 20 20 73 65 74 20 70 61 74 68 20    #..  set path 
1930: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69  [file dirname [i
1940: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 0d 0a 0d 0a  nfo script]]....
1950: 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54    #..  # NOTE: T
1960: 68 65 20 62 61 73 65 20 70 61 74 68 20 73 68 6f  he base path sho
1970: 75 6c 64 20 62 65 20 74 68 65 20 70 72 6f 6a 65  uld be the proje
1980: 63 74 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72  ct root director
1990: 79 2c 20 77 68 69 63 68 20 73 68 6f 75 6c 64 0d  y, which should.
19a0: 0a 20 20 23 20 20 20 20 20 20 20 62 65 20 6f 6e  .  #       be on
19b0: 65 20 6c 65 76 65 6c 20 61 62 6f 76 65 20 74 68  e level above th
19c0: 65 20 6f 6e 65 20 63 6f 6e 74 61 69 6e 69 6e 67  e one containing
19d0: 20 74 68 69 73 20 73 63 72 69 70 74 2e 0d 0a 20   this script... 
19e0: 20 23 0d 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f   #..  if {![info
19f0: 20 65 78 69 73 74 73 20 62 61 73 65 5f 70 61 74   exists base_pat
1a00: 68 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  h]} then {..    
1a10: 73 65 74 20 62 61 73 65 5f 70 61 74 68 20 5b 66  set base_path [f
1a20: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 70 61 74  ile dirname $pat
1a30: 68 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a  h]..  }....  #..
1a40: 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6d 61    # NOTE: The ma
1a50: 6e 61 67 65 64 20 62 69 6e 61 72 69 65 73 20 74  naged binaries t
1a60: 6f 20 62 65 20 64 65 70 6c 6f 79 65 64 20 74 6f  o be deployed to
1a70: 20 74 68 65 20 74 61 72 67 65 74 20 64 65 76 69   the target devi
1a80: 63 65 20 73 68 6f 75 6c 64 0d 0a 20 20 23 20 20  ce should..  #  
1a90: 20 20 20 20 20 62 65 20 6c 6f 63 61 74 65 64 20       be located 
1aa0: 69 6e 20 74 68 65 20 22 3c 62 61 73 65 3e 5c 62  in the "<base>\b
1ab0: 69 6e 5c 3c 79 65 61 72 3e 5c 3c 63 6f 6e 66 69  in\<year>\<confi
1ac0: 67 75 72 61 74 69 6f 6e 3e 43 6f 6d 70 61 63 74  guration>Compact
1ad0: 5c 62 69 6e 22 0d 0a 20 20 23 20 20 20 20 20 20  \bin"..  #      
1ae0: 20 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 23   directory...  #
1af0: 0d 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65  ..  if {![info e
1b00: 78 69 73 74 73 20 6d 61 6e 61 67 65 64 5f 64 69  xists managed_di
1b10: 72 65 63 74 6f 72 79 5d 7d 20 74 68 65 6e 20 7b  rectory]} then {
1b20: 0d 0a 20 20 20 20 73 65 74 20 6d 61 6e 61 67 65  ..    set manage
1b30: 64 5f 64 69 72 65 63 74 6f 72 79 20 5b 66 69 6c  d_directory [fil
1b40: 65 20 6a 6f 69 6e 20 5c 0d 0a 20 20 20 20 20 20  e join \..      
1b50: 20 20 24 62 61 73 65 5f 70 61 74 68 20 62 69 6e    $base_path bin
1b60: 20 24 79 65 61 72 20 5b 61 70 70 65 6e 64 41 72   $year [appendAr
1b70: 67 73 20 24 63 6f 6e 66 69 67 75 72 61 74 69 6f  gs $configuratio
1b80: 6e 20 43 6f 6d 70 61 63 74 5d 20 62 69 6e 5d 0d  n Compact] bin].
1b90: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23  .  }....  #..  #
1ba0: 20 4e 4f 54 45 3a 20 54 68 65 20 6e 61 74 69 76   NOTE: The nativ
1bb0: 65 20 62 69 6e 61 72 69 65 73 20 74 6f 20 62 65  e binaries to be
1bc0: 20 64 65 70 6c 6f 79 65 64 20 74 6f 20 74 68 65   deployed to the
1bd0: 20 74 61 72 67 65 74 20 64 65 76 69 63 65 20 73   target device s
1be0: 68 6f 75 6c 64 0d 0a 20 20 23 20 20 20 20 20 20  hould..  #      
1bf0: 20 62 65 20 6c 6f 63 61 74 65 64 20 69 6e 20 74   be located in t
1c00: 68 65 20 22 3c 62 61 73 65 3e 5c 62 69 6e 5c 3c  he "<base>\bin\<
1c10: 79 65 61 72 3e 5c 3c 70 6c 61 74 66 6f 72 6d 3e  year>\<platform>
1c20: 5c 3c 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 3e  \<configuration>
1c30: 22 0d 0a 20 20 23 20 20 20 20 20 20 20 64 69 72  "..  #       dir
1c40: 65 63 74 6f 72 79 2e 0d 0a 20 20 23 0d 0a 20 20  ectory...  #..  
1c50: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
1c60: 73 20 6e 61 74 69 76 65 5f 64 69 72 65 63 74 6f  s native_directo
1c70: 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ry]} then {..   
1c80: 20 73 65 74 20 6e 61 74 69 76 65 5f 64 69 72 65   set native_dire
1c90: 63 74 6f 72 79 20 5b 66 69 6c 65 20 6a 6f 69 6e  ctory [file join
1ca0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 62 61 73   \..        $bas
1cb0: 65 5f 70 61 74 68 20 62 69 6e 20 24 79 65 61 72  e_path bin $year
1cc0: 20 24 70 6c 61 74 66 6f 72 6d 20 24 63 6f 6e 66   $platform $conf
1cd0: 69 67 75 72 61 74 69 6f 6e 5d 0d 0a 20 20 7d 0d  iguration]..  }.
1ce0: 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45  ...  #..  # NOTE
1cf0: 3a 20 46 69 67 75 72 65 20 6f 75 74 20 74 68 65  : Figure out the
1d00: 20 6d 61 69 6e 20 74 65 73 74 20 66 69 6c 65 20   main test file 
1d10: 6e 61 6d 65 73 20 62 61 73 65 64 20 6f 6e 20 74  names based on t
1d20: 68 65 20 6d 6f 64 65 20 61 72 67 75 6d 65 6e 74  he mode argument
1d30: 20 66 72 6f 6d 0d 0a 20 20 23 20 20 20 20 20 20   from..  #      
1d40: 20 74 68 65 20 63 61 6c 6c 65 72 2e 0d 0a 20 20   the caller...  
1d50: 23 0d 0a 20 20 73 77 69 74 63 68 20 2d 65 78 61  #..  switch -exa
1d60: 63 74 20 2d 6e 6f 63 61 73 65 20 2d 2d 20 24 6d  ct -nocase -- $m
1d70: 6f 64 65 20 7b 0d 0a 20 20 20 20 74 65 73 74 20  ode {..    test 
1d80: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 74 65 73  {..      set tes
1d90: 74 46 69 6c 65 4e 61 6d 65 4f 6e 6c 79 20 74 65  tFileNameOnly te
1da0: 73 74 63 65 2e 65 78 65 0d 0a 20 20 20 20 20 20  stce.exe..      
1db0: 73 65 74 20 63 66 67 46 69 6c 65 4e 61 6d 65 4f  set cfgFileNameO
1dc0: 6e 6c 79 20 74 65 73 74 2e 63 66 67 0d 0a 20 20  nly test.cfg..  
1dd0: 20 20 20 20 73 65 74 20 73 71 6c 46 69 6c 65 4e      set sqlFileN
1de0: 61 6d 65 4f 6e 6c 79 20 74 65 73 74 2e 73 71 6c  ameOnly test.sql
1df0: 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 73 68 65  ..    }..    she
1e00: 6c 6c 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20  ll {..      set 
1e10: 74 65 73 74 46 69 6c 65 4e 61 6d 65 4f 6e 6c 79  testFileNameOnly
1e20: 20 73 68 65 6c 6c 63 65 2e 65 78 65 0d 0a 20 20   shellce.exe..  
1e30: 20 20 20 20 73 65 74 20 63 66 67 46 69 6c 65 4e      set cfgFileN
1e40: 61 6d 65 4f 6e 6c 79 20 73 68 65 6c 6c 2e 63 66  ameOnly shell.cf
1e50: 67 0d 0a 20 20 20 20 20 20 73 65 74 20 73 71 6c  g..      set sql
1e60: 46 69 6c 65 4e 61 6d 65 4f 6e 6c 79 20 73 68 65  FileNameOnly she
1e70: 6c 6c 2e 73 71 6c 0d 0a 20 20 20 20 7d 0d 0a 20  ll.sql..    }.. 
1e80: 20 20 20 64 65 66 61 75 6c 74 20 7b 0d 0a 20 20     default {..  
1e90: 20 20 20 20 65 72 72 6f 72 20 5b 61 70 70 65 6e      error [appen
1ea0: 64 41 72 67 73 20 22 75 6e 73 75 70 70 6f 72 74  dArgs "unsupport
1eb0: 65 64 20 6d 6f 64 65 20 5c 22 22 20 24 6d 6f 64  ed mode \"" $mod
1ec0: 65 20 5c 22 5d 0d 0a 20 20 20 20 7d 0d 0a 20 20  e \"]..    }..  
1ed0: 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f  }....  #..  # NO
1ee0: 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 6c 69  TE: Build the li
1ef0: 73 74 20 6f 66 20 61 6c 6c 20 61 70 70 6c 69 63  st of all applic
1f00: 61 74 69 6f 6e 20 66 69 6c 65 73 20 74 68 61 74  ation files that
1f10: 20 6e 65 65 64 20 74 6f 20 62 65 20 64 65 70 6c   need to be depl
1f20: 6f 79 65 64 20 74 6f 0d 0a 20 20 23 20 20 20 20  oyed to..  #    
1f30: 20 20 20 74 68 65 20 74 61 72 67 65 74 20 64 65     the target de
1f40: 76 69 63 65 2c 20 69 6e 63 6c 75 64 69 6e 67 20  vice, including 
1f50: 61 6c 6c 20 74 68 65 20 6e 61 74 69 76 65 20 61  all the native a
1f60: 6e 64 20 6d 61 6e 61 67 65 64 20 62 69 6e 61 72  nd managed binar
1f70: 69 65 73 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20  ies...  #..  if 
1f80: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 66  {![info exists f
1f90: 69 6c 65 4e 61 6d 65 73 5d 7d 20 74 68 65 6e 20  ileNames]} then 
1fa0: 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20  {..    #..    # 
1fb0: 4e 4f 54 45 3a 20 47 72 61 62 20 74 68 65 20 61  NOTE: Grab the a
1fc0: 73 73 65 6d 62 6c 79 20 6e 61 6d 65 20 69 6e 73  ssembly name ins
1fd0: 74 61 6e 63 65 20 62 61 73 65 64 20 6f 6e 20 74  tance based on t
1fe0: 68 65 20 70 72 69 6d 61 72 79 20 6d 61 6e 61 67  he primary manag
1ff0: 65 64 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20  ed..    #       
2000: 61 73 73 65 6d 62 6c 79 20 66 69 6c 65 20 6e 61  assembly file na
2010: 6d 65 2e 20 20 54 68 69 73 20 69 73 20 6e 65 65  me.  This is nee
2020: 64 65 64 20 62 65 63 61 75 73 65 20 74 68 65 20  ded because the 
2030: 62 75 69 6c 64 20 70 6f 72 74 69 6f 6e 20 6f 66  build portion of
2040: 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 74 68  ..    #       th
2050: 65 20 61 73 73 65 6d 62 6c 79 20 76 65 72 73 69  e assembly versi
2060: 6f 6e 20 69 73 20 75 73 65 64 20 77 68 65 6e 20  on is used when 
2070: 62 75 69 6c 64 69 6e 67 20 74 68 65 20 64 65 66  building the def
2080: 61 75 6c 74 20 6c 69 73 74 20 6f 66 0d 0a 20 20  ault list of..  
2090: 20 20 23 20 20 20 20 20 20 20 61 70 70 6c 69 63    #       applic
20a0: 61 74 69 6f 6e 20 66 69 6c 65 73 20 74 6f 20 62  ation files to b
20b0: 65 20 64 65 70 6c 6f 79 65 64 20 74 6f 20 74 68  e deployed to th
20c0: 65 20 74 61 72 67 65 74 20 64 65 76 69 63 65 2e  e target device.
20d0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65 74  ..    #..    set
20e0: 20 61 73 73 65 6d 62 6c 79 4e 61 6d 65 20 5b 6f   assemblyName [o
20f0: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 61 6c  bject invoke -al
2100: 69 61 73 20 53 79 73 74 65 6d 2e 52 65 66 6c 65  ias System.Refle
2110: 63 74 69 6f 6e 2e 41 73 73 65 6d 62 6c 79 4e 61  ction.AssemblyNa
2120: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 47 65  me \..        Ge
2130: 74 41 73 73 65 6d 62 6c 79 4e 61 6d 65 20 5b 66  tAssemblyName [f
2140: 69 6c 65 20 6a 6f 69 6e 20 24 6d 61 6e 61 67 65  ile join $manage
2150: 64 5f 64 69 72 65 63 74 6f 72 79 20 53 79 73 74  d_directory Syst
2160: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64  em.Data.SQLite.d
2170: 6c 6c 5d 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20  ll]]....    #.. 
2180: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 64     # NOTE: The d
2190: 65 66 61 75 6c 74 20 6c 69 73 74 20 6f 66 20 61  efault list of a
21a0: 70 70 6c 69 63 61 74 69 6f 6e 20 66 69 6c 65 73  pplication files
21b0: 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 74 65   includes the te
21c0: 73 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a  st application..
21d0: 20 20 20 20 23 20 20 20 20 20 20 20 69 74 73 65      #       itse
21e0: 6c 66 2c 20 74 68 65 20 53 79 73 74 65 6d 2e 44  lf, the System.D
21f0: 61 74 61 2e 53 51 4c 69 74 65 20 6d 61 6e 61 67  ata.SQLite manag
2200: 65 64 20 61 73 73 65 6d 62 6c 79 2c 20 74 68 65  ed assembly, the
2210: 20 53 51 4c 69 74 65 20 69 6e 74 65 72 6f 70 0d   SQLite interop.
2220: 0a 20 20 20 20 23 20 20 20 20 20 20 20 61 73 73  .    #       ass
2230: 65 6d 62 6c 79 2c 20 61 6e 64 20 74 68 65 20 74  embly, and the t
2240: 65 73 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 20  est application 
2250: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 66 69  configuration fi
2260: 6c 65 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  le...    #..    
2270: 73 65 74 20 66 69 6c 65 4e 61 6d 65 73 20 5b 6c  set fileNames [l
2280: 69 73 74 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  ist [file join $
2290: 6d 61 6e 61 67 65 64 5f 64 69 72 65 63 74 6f 72  managed_director
22a0: 79 20 24 74 65 73 74 46 69 6c 65 4e 61 6d 65 4f  y $testFileNameO
22b0: 6e 6c 79 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20  nly] \..        
22c0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 6d 61 6e 61  [file join $mana
22d0: 67 65 64 5f 64 69 72 65 63 74 6f 72 79 20 53 79  ged_directory Sy
22e0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
22f0: 2e 64 6c 6c 5d 20 5b 66 69 6c 65 20 6a 6f 69 6e  .dll] [file join
2300: 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 6e 61 74   \..        $nat
2310: 69 76 65 5f 64 69 72 65 63 74 6f 72 79 20 5b 61  ive_directory [a
2320: 70 70 65 6e 64 41 72 67 73 20 53 51 4c 69 74 65  ppendArgs SQLite
2330: 2e 49 6e 74 65 72 6f 70 2e 20 5b 66 6f 72 6d 61  .Interop. [forma
2340: 74 20 25 30 33 64 20 5c 0d 0a 20 20 20 20 20 20  t %03d \..      
2350: 20 20 5b 24 61 73 73 65 6d 62 6c 79 4e 61 6d 65    [$assemblyName
2360: 20 56 65 72 73 69 6f 6e 2e 42 75 69 6c 64 5d 5d   Version.Build]]
2370: 20 2e 64 6c 6c 5d 5d 20 5b 66 69 6c 65 20 6a 6f   .dll]] [file jo
2380: 69 6e 20 24 6d 61 6e 61 67 65 64 5f 64 69 72 65  in $managed_dire
2390: 63 74 6f 72 79 20 5c 0d 0a 20 20 20 20 20 20 20  ctory \..       
23a0: 20 24 63 66 67 46 69 6c 65 4e 61 6d 65 4f 6e 6c   $cfgFileNameOnl
23b0: 79 5d 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 6d  y] [file join $m
23c0: 61 6e 61 67 65 64 5f 64 69 72 65 63 74 6f 72 79  anaged_directory
23d0: 20 24 73 71 6c 46 69 6c 65 4e 61 6d 65 4f 6e 6c   $sqlFileNameOnl
23e0: 79 5d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d  y]]..  }....  #.
23f0: 0a 20 20 23 20 4e 4f 54 45 3a 20 53 65 74 75 70  .  # NOTE: Setup
2400: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 6f   the directory o
2410: 6e 20 74 68 65 20 74 61 72 67 65 74 20 64 65 76  n the target dev
2420: 69 63 65 20 77 68 65 72 65 20 74 68 65 20 61 70  ice where the ap
2430: 70 6c 69 63 61 74 69 6f 6e 20 66 69 6c 65 73 0d  plication files.
2440: 0a 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c  .  #       shoul
2450: 64 20 62 65 20 64 65 70 6c 6f 79 65 64 20 74 6f  d be deployed to
2460: 2e 20 20 49 74 20 73 68 6f 75 6c 64 20 62 65 20  .  It should be 
2470: 6e 6f 74 65 64 20 74 68 61 74 20 74 68 69 73 20  noted that this 
2480: 64 69 72 65 63 74 6f 72 79 20 76 61 6c 75 65 0d  directory value.
2490: 0a 20 20 23 20 20 20 20 20 20 20 64 6f 65 73 20  .  #       does 
24a0: 6e 6f 74 20 76 61 72 79 20 62 61 73 65 64 20 6f  not vary based o
24b0: 6e 20 74 68 65 20 6d 6f 64 65 2e 0d 0a 20 20 23  n the mode...  #
24c0: 0d 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65  ..  if {![info e
24d0: 78 69 73 74 73 20 64 65 76 69 63 65 5f 64 69 72  xists device_dir
24e0: 65 63 74 6f 72 79 5d 7d 20 74 68 65 6e 20 7b 0d  ectory]} then {.
24f0: 0a 20 20 20 20 73 65 74 20 64 65 76 69 63 65 5f  .    set device_
2500: 64 69 72 65 63 74 6f 72 79 20 22 5c 5c 50 72 6f  directory "\\Pro
2510: 67 72 61 6d 20 46 69 6c 65 73 5c 5c 74 65 73 74  gram Files\\test
2520: 63 65 5c 5c 22 0d 0a 20 20 7d 0d 0a 0d 0a 20 20  ce\\"..  }....  
2530: 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 4c 6f 61  #..  # NOTE: Loa
2540: 64 20 74 68 65 20 6d 61 6e 61 67 65 64 20 61 73  d the managed as
2550: 73 65 6d 62 6c 79 20 74 68 61 74 20 61 6c 6c 6f  sembly that allo
2560: 77 73 20 75 73 20 74 6f 20 63 6f 6d 6d 75 6e 69  ws us to communi
2570: 63 61 74 65 20 77 69 74 68 20 74 68 65 0d 0a 20  cate with the.. 
2580: 20 23 20 20 20 20 20 20 20 74 61 72 67 65 74 20   #       target 
2590: 64 65 76 69 63 65 2e 20 20 49 66 20 74 68 69 73  device.  If this
25a0: 20 66 61 69 6c 73 2c 20 74 68 65 20 6e 65 63 65   fails, the nece
25b0: 73 73 61 72 79 20 53 44 4b 20 63 6f 6d 70 6f 6e  ssary SDK compon
25c0: 65 6e 74 73 20 61 72 65 0d 0a 20 20 23 20 20 20  ents are..  #   
25d0: 20 20 20 20 70 72 6f 62 61 62 6c 79 20 6e 6f 74      probably not
25e0: 20 61 76 61 69 6c 61 62 6c 65 20 6f 6e 20 74 68   available on th
25f0: 69 73 20 73 79 73 74 65 6d 2e 0d 0a 20 20 23 0d  is system...  #.
2600: 0a 20 20 23 20 4e 4f 54 45 3a 20 41 73 20 6f 66  .  # NOTE: As of
2610: 20 56 69 73 75 61 6c 20 53 74 75 64 69 6f 20 32   Visual Studio 2
2620: 30 31 33 20 55 70 64 61 74 65 20 32 20 28 3f 29  013 Update 2 (?)
2630: 2c 20 74 68 69 73 20 6d 75 73 74 20 73 70 65 63  , this must spec
2640: 69 66 79 20 74 68 65 20 66 75 6c 6c 0d 0a 20 20  ify the full..  
2650: 23 20 20 20 20 20 20 20 28 76 65 72 73 69 6f 6e  #       (version
2660: 65 64 29 20 61 73 73 65 6d 62 6c 79 20 6e 61 6d  ed) assembly nam
2670: 65 20 68 65 72 65 20 69 6e 20 6f 72 64 65 72 20  e here in order 
2680: 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 65  to make sure the
2690: 20 61 73 73 65 6d 62 6c 79 0d 0a 20 20 23 20 20   assembly..  #  
26a0: 20 20 20 20 20 61 73 73 6f 63 69 61 74 65 64 20       associated 
26b0: 77 69 74 68 20 74 68 65 20 50 6f 63 6b 65 74 20  with the Pocket 
26c0: 50 43 20 32 30 30 33 20 70 6c 61 74 66 6f 72 6d  PC 2003 platform
26d0: 28 73 29 20 67 65 74 73 20 6c 6f 61 64 65 64 2e  (s) gets loaded.
26e0: 0d 0a 20 20 23 0d 0a 20 20 6f 62 6a 65 63 74 20  ..  #..  object 
26f0: 6c 6f 61 64 20 5b 61 70 70 65 6e 64 41 72 67 73  load [appendArgs
2700: 20 5c 0d 0a 20 20 20 20 20 20 22 4d 69 63 72 6f   \..      "Micro
2710: 73 6f 66 74 2e 53 6d 61 72 74 64 65 76 69 63 65  soft.Smartdevice
2720: 2e 43 6f 6e 6e 65 63 74 69 76 69 74 79 2c 20 56  .Connectivity, V
2730: 65 72 73 69 6f 6e 3d 39 2e 30 2e 30 2e 30 2c 20  ersion=9.0.0.0, 
2740: 22 20 5c 0d 0a 20 20 20 20 20 20 22 43 75 6c 74  " \..      "Cult
2750: 75 72 65 3d 6e 65 75 74 72 61 6c 2c 20 50 75 62  ure=neutral, Pub
2760: 6c 69 63 4b 65 79 54 6f 6b 65 6e 3d 62 30 33 66  licKeyToken=b03f
2770: 35 66 37 66 31 31 64 35 30 61 33 61 22 5d 0d 0a  5f7f11d50a3a"]..
2780: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
2790: 20 53 68 6f 77 20 74 68 65 20 66 75 6c 6c 20 6c   Show the full l
27a0: 69 73 74 20 6f 66 20 61 76 61 69 6c 61 62 6c 65  ist of available
27b0: 20 70 6c 61 74 66 6f 72 6d 73 2e 0d 0a 20 20 23   platforms...  #
27c0: 0d 0a 20 20 73 68 6f 77 50 6c 61 74 66 6f 72 6d  ..  showPlatform
27d0: 73 20 24 63 75 6c 74 75 72 65 49 6e 66 6f 0d 0a  s $cultureInfo..
27e0: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
27f0: 20 4c 6f 6f 6b 75 70 20 74 68 65 20 6e 65 63 65   Lookup the nece
2800: 73 73 61 72 79 20 64 65 76 69 63 65 20 62 61 73  ssary device bas
2810: 65 64 20 6f 6e 20 74 68 65 20 70 6c 61 74 66 6f  ed on the platfo
2820: 72 6d 20 61 6e 64 20 64 65 76 69 63 65 20 49 64  rm and device Id
2830: 73 2e 0d 0a 20 20 23 0d 0a 20 20 73 65 74 20 64  s...  #..  set d
2840: 65 76 69 63 65 20 5b 67 65 74 44 65 76 69 63 65  evice [getDevice
2850: 20 24 63 75 6c 74 75 72 65 49 6e 66 6f 20 24 70   $cultureInfo $p
2860: 6c 61 74 66 6f 72 6d 49 64 20 24 64 65 76 69 63  latformId $devic
2870: 65 49 64 5d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23  eId]....  #..  #
2880: 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74   NOTE: Attempt t
2890: 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 20 74 68 65  o connect to the
28a0: 20 74 61 72 67 65 74 20 64 65 76 69 63 65 2c 20   target device, 
28b0: 77 68 69 63 68 20 6d 61 79 20 62 65 20 61 6e 20  which may be an 
28c0: 65 6d 75 6c 61 74 6f 72 2e 0d 0a 20 20 23 20 20  emulator...  #  
28d0: 20 20 20 20 20 42 79 20 64 65 66 61 75 6c 74 2c       By default,
28e0: 20 77 65 20 61 74 74 65 6d 70 74 20 74 6f 20 63   we attempt to c
28f0: 6f 6e 6e 65 63 74 20 74 6f 20 74 68 65 20 22 50  onnect to the "P
2900: 6f 63 6b 65 74 20 50 43 20 32 30 30 33 20 53 45  ocket PC 2003 SE
2910: 20 45 6d 75 6c 61 74 6f 72 22 0d 0a 20 20 23 20   Emulator"..  # 
2920: 20 20 20 20 20 20 64 65 76 69 63 65 20 6f 66 20        device of 
2930: 74 68 65 20 22 50 6f 63 6b 65 74 20 50 43 20 32  the "Pocket PC 2
2940: 30 30 33 22 20 70 6c 61 74 66 6f 72 6d 20 28 45  003" platform (E
2950: 6e 67 6c 69 73 68 29 2e 20 20 49 66 20 74 68 69  nglish).  If thi
2960: 73 20 66 61 69 6c 73 2c 0d 0a 20 20 23 20 20 20  s fails,..  #   
2970: 20 20 20 20 74 68 65 20 74 61 72 67 65 74 20 64      the target d
2980: 65 76 69 63 65 20 69 73 20 70 72 6f 62 61 62 6c  evice is probabl
2990: 79 20 75 6e 61 76 61 69 6c 61 62 6c 65 2c 20 65  y unavailable, e
29a0: 69 74 68 65 72 20 62 65 63 61 75 73 65 20 69 74  ither because it
29b0: 20 69 73 20 6e 6f 74 0d 0a 20 20 23 20 20 20 20   is not..  #    
29c0: 20 20 20 63 6f 6e 6e 65 63 74 65 64 20 6f 72 20     connected or 
29d0: 73 6f 6d 65 20 53 44 4b 20 63 6f 6d 70 6f 6e 65  some SDK compone
29e0: 6e 74 73 20 61 72 65 20 6d 69 73 73 69 6e 67 2e  nts are missing.
29f0: 0d 0a 20 20 23 0d 0a 20 20 24 64 65 76 69 63 65  ..  #..  $device
2a00: 20 43 6f 6e 6e 65 63 74 0d 0a 0d 0a 20 20 23 0d   Connect....  #.
2a10: 0a 20 20 23 20 4e 4f 54 45 3a 20 47 72 61 62 20  .  # NOTE: Grab 
2a20: 74 68 65 20 66 69 6c 65 20 64 65 70 6c 6f 79 65  the file deploye
2a30: 72 20 69 6e 73 74 61 6e 63 65 20 66 6f 72 20 74  r instance for t
2a40: 68 65 20 74 61 72 67 65 74 20 64 65 76 69 63 65  he target device
2a50: 2e 20 20 54 68 69 73 20 77 69 6c 6c 0d 0a 20 20  .  This will..  
2a60: 23 20 20 20 20 20 20 20 62 65 20 75 73 65 64 20  #       be used 
2a70: 74 6f 20 64 6f 77 6e 6c 6f 61 64 20 70 61 63 6b  to download pack
2a80: 61 67 65 73 20 61 6e 64 20 73 65 6e 64 20 66 69  ages and send fi
2a90: 6c 65 73 20 74 6f 20 74 68 65 20 74 61 72 67 65  les to the targe
2aa0: 74 20 64 65 76 69 63 65 2e 0d 0a 20 20 23 0d 0a  t device...  #..
2ab0: 20 20 73 65 74 20 66 69 6c 65 44 65 70 6c 6f 79    set fileDeploy
2ac0: 65 72 20 5b 24 64 65 76 69 63 65 20 2d 61 6c 69  er [$device -ali
2ad0: 61 73 20 47 65 74 46 69 6c 65 44 65 70 6c 6f 79  as GetFileDeploy
2ae0: 65 72 5d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20  er]....  #..  # 
2af0: 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 6c 69 73  NOTE: If the lis
2b00: 74 20 6f 66 20 70 61 63 6b 61 67 65 73 20 72 65  t of packages re
2b10: 6c 61 74 65 64 20 74 6f 20 74 68 65 20 63 6f 6e  lated to the con
2b20: 66 69 67 75 72 65 64 20 62 75 69 6c 64 20 79 65  figured build ye
2b30: 61 72 20 64 6f 20 6e 6f 74 0d 0a 20 20 23 20 20  ar do not..  #  
2b40: 20 20 20 20 20 65 78 69 73 74 2c 20 73 6b 69 70       exist, skip
2b50: 20 74 68 69 73 20 73 74 65 70 2e 0d 0a 20 20 23   this step...  #
2b60: 0d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  ..  if {[info ex
2b70: 69 73 74 73 20 70 61 63 6b 61 67 65 73 28 24 79  ists packages($y
2b80: 65 61 72 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  ear)]} then {.. 
2b90: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
2ba0: 3a 20 50 72 6f 63 65 73 73 20 65 61 63 68 20 65  : Process each e
2bb0: 6e 74 72 79 20 69 6e 20 74 68 65 20 6c 69 73 74  ntry in the list
2bc0: 20 6f 66 20 70 61 63 6b 61 67 65 73 20 74 6f 20   of packages to 
2bd0: 62 65 20 64 6f 77 6e 6c 6f 61 64 65 64 20 74 6f  be downloaded to
2be0: 20 74 68 65 0d 0a 20 20 20 20 23 20 20 20 20 20   the..    #     
2bf0: 20 20 74 61 72 67 65 74 20 64 65 76 69 63 65 2e    target device.
2c00: 20 20 54 68 65 20 70 61 63 6b 61 67 65 20 6c 69    The package li
2c10: 73 74 20 6d 75 73 74 20 63 6f 6e 74 61 69 6e 20  st must contain 
2c20: 74 68 65 20 70 61 63 6b 61 67 65 20 49 64 20 61  the package Id a
2c30: 6e 64 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20  nd..    #       
2c40: 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 20 28 72  the file name (r
2c50: 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 74  elative to the t
2c60: 61 72 67 65 74 20 64 65 76 69 63 65 29 2c 20 69  arget device), i
2c70: 6e 20 74 68 61 74 20 6f 72 64 65 72 2c 20 66 6f  n that order, fo
2c80: 72 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 65  r..    #       e
2c90: 61 63 68 20 70 61 63 6b 61 67 65 20 74 6f 20 62  ach package to b
2ca0: 65 20 64 6f 77 6e 6c 6f 61 64 65 64 20 74 6f 20  e downloaded to 
2cb0: 74 68 65 20 74 61 72 67 65 74 20 64 65 76 69 63  the target devic
2cc0: 65 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 66  e...    #..    f
2cd0: 6f 72 65 61 63 68 20 7b 70 61 63 6b 61 67 65 49  oreach {packageI
2ce0: 64 20 70 61 63 6b 61 67 65 46 69 6c 65 4e 61 6d  d packageFileNam
2cf0: 65 7d 20 24 70 61 63 6b 61 67 65 73 28 24 79 65  e} $packages($ye
2d00: 61 72 29 20 7b 0d 0a 20 20 20 20 20 20 71 70 75  ar) {..      qpu
2d10: 74 73 20 73 74 64 6f 75 74 20 5b 61 70 70 65 6e  ts stdout [appen
2d20: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
2d30: 20 20 20 22 64 6f 77 6e 6c 6f 61 64 69 6e 67 20     "downloading 
2d40: 70 61 63 6b 61 67 65 20 5c 22 22 20 24 70 61 63  package \"" $pac
2d50: 6b 61 67 65 49 64 20 22 5c 22 20 74 6f 20 64 65  kageId "\" to de
2d60: 76 69 63 65 2e 2e 2e 22 5d 0d 0a 0d 0a 20 20 20  vice..."]....   
2d70: 20 20 20 24 66 69 6c 65 44 65 70 6c 6f 79 65 72     $fileDeployer
2d80: 20 44 6f 77 6e 6c 6f 61 64 50 61 63 6b 61 67 65   DownloadPackage
2d90: 20 5b 6f 62 6a 65 63 74 20 63 72 65 61 74 65 20   [object create 
2da0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 4d 69 63  \..          Mic
2db0: 72 6f 73 6f 66 74 2e 53 6d 61 72 74 44 65 76 69  rosoft.SmartDevi
2dc0: 63 65 2e 43 6f 6e 6e 65 63 74 69 76 69 74 79 2e  ce.Connectivity.
2dd0: 4f 62 6a 65 63 74 49 64 20 24 70 61 63 6b 61 67  ObjectId $packag
2de0: 65 49 64 5d 0d 0a 0d 0a 20 20 20 20 20 20 71 70  eId]....      qp
2df0: 75 74 73 20 73 74 64 6f 75 74 20 5b 61 70 70 65  uts stdout [appe
2e00: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
2e10: 20 20 20 20 22 69 6e 73 74 61 6c 6c 69 6e 67 20      "installing 
2e20: 70 61 63 6b 61 67 65 20 66 69 6c 65 20 5c 22 22  package file \""
2e30: 20 24 70 61 63 6b 61 67 65 46 69 6c 65 4e 61 6d   $packageFileNam
2e40: 65 20 22 5c 22 20 6f 6e 20 64 65 76 69 63 65 2e  e "\" on device.
2e50: 2e 2e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 73 74  .."]....      st
2e60: 61 72 74 52 65 6d 6f 74 65 50 72 6f 63 65 73 73  artRemoteProcess
2e70: 20 24 64 65 76 69 63 65 20 77 63 65 6c 6f 61 64   $device wceload
2e80: 2e 65 78 65 20 5b 61 70 70 65 6e 64 41 72 67 73  .exe [appendArgs
2e90: 20 22 2f 6e 6f 75 69 20 22 20 5c 0d 0a 20 20 20   "/noui " \..   
2ea0: 20 20 20 20 20 20 20 24 70 61 63 6b 61 67 65 46         $packageF
2eb0: 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 7d 0d  ileName]..    }.
2ec0: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23  .  }....  #..  #
2ed0: 20 4e 4f 54 45 3a 20 50 72 6f 63 65 73 73 20 65   NOTE: Process e
2ee0: 61 63 68 20 61 70 70 6c 69 63 61 74 69 6f 6e 20  ach application 
2ef0: 66 69 6c 65 20 74 6f 20 62 65 20 73 65 6e 74 20  file to be sent 
2f00: 74 6f 20 74 68 65 20 74 61 72 67 65 74 20 64 65  to the target de
2f10: 76 69 63 65 2e 0d 0a 20 20 23 0d 0a 20 20 66 6f  vice...  #..  fo
2f20: 72 65 61 63 68 20 66 69 6c 65 4e 61 6d 65 20 24  reach fileName $
2f30: 66 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20  fileNames {..   
2f40: 20 71 70 75 74 73 20 73 74 64 6f 75 74 20 5b 61   qputs stdout [a
2f50: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
2f60: 20 20 20 20 20 22 73 65 6e 64 69 6e 67 20 66 69       "sending fi
2f70: 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65  le \"" $fileName
2f80: 20 22 5c 22 20 74 6f 20 64 65 76 69 63 65 2e 2e   "\" to device..
2f90: 2e 22 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20  ."]....    #..  
2fa0: 20 20 23 20 4e 4f 54 45 3a 20 41 6c 6c 20 74 68    # NOTE: All th
2fb0: 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 66 69  e application fi
2fc0: 6c 65 73 20 61 72 65 20 73 65 6e 74 20 74 6f 20  les are sent to 
2fd0: 74 68 65 20 73 61 6d 65 20 64 69 72 65 63 74 6f  the same directo
2fe0: 72 79 20 6f 6e 20 74 68 65 0d 0a 20 20 20 20 23  ry on the..    #
2ff0: 20 20 20 20 20 20 20 74 61 72 67 65 74 20 64 65         target de
3000: 76 69 63 65 20 61 6e 64 20 74 68 65 20 53 65 6e  vice and the Sen
3010: 64 46 69 6c 65 20 6d 65 74 68 6f 64 20 72 65 71  dFile method req
3020: 75 69 72 65 73 20 61 20 66 75 6c 6c 79 20 71 75  uires a fully qu
3030: 61 6c 69 66 69 65 64 0d 0a 20 20 20 20 23 20 20  alified..    #  
3040: 20 20 20 20 20 66 69 6c 65 20 6e 61 6d 65 3b 20       file name; 
3050: 74 68 65 72 65 66 6f 72 65 2c 20 67 72 61 62 20  therefore, grab 
3060: 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 20 6f 6e  the file name on
3070: 6c 79 20 66 72 6f 6d 20 74 68 65 20 73 6f 75 72  ly from the sour
3080: 63 65 20 66 69 6c 65 0d 0a 20 20 20 20 23 20 20  ce file..    #  
3090: 20 20 20 20 20 6e 61 6d 65 20 61 6e 64 20 61 70       name and ap
30a0: 70 65 6e 64 20 74 68 61 74 20 74 6f 20 74 68 65  pend that to the
30b0: 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 20   directory name 
30c0: 6f 6e 20 74 68 65 20 74 61 72 67 65 74 20 64 65  on the target de
30d0: 76 69 63 65 2e 0d 0a 20 20 20 20 23 20 20 20 20  vice...    #    
30e0: 20 20 20 55 73 69 6e 67 20 5b 66 69 6c 65 20 6a     Using [file j
30f0: 6f 69 6e 5d 20 61 6e 64 2f 6f 72 20 5b 66 69 6c  oin] and/or [fil
3100: 65 20 6e 6f 72 6d 61 6c 69 7a 65 5d 20 73 68 6f  e normalize] sho
3110: 75 6c 64 20 62 65 20 61 76 6f 69 64 65 64 20 68  uld be avoided h
3120: 65 72 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20  ere..    #      
3130: 20 62 65 63 61 75 73 65 20 74 68 65 20 64 69 72   because the dir
3140: 65 63 74 6f 72 79 20 6e 61 6d 65 20 6f 6e 20 74  ectory name on t
3150: 68 65 20 74 61 72 67 65 74 20 64 65 76 69 63 65  he target device
3160: 20 69 73 20 6e 6f 74 20 6e 65 63 65 73 73 61 72   is not necessar
3170: 69 6c 79 0d 0a 20 20 20 20 23 20 20 20 20 20 20  ily..    #      
3180: 20 76 61 6c 69 64 20 61 20 66 69 6c 65 20 6e 61   valid a file na
3190: 6d 65 20 6f 6e 20 74 68 69 73 20 73 79 73 74 65  me on this syste
31a0: 6d 20 61 6e 64 20 76 69 63 65 20 76 65 72 73 61  m and vice versa
31b0: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 24 66  ...    #..    $f
31c0: 69 6c 65 44 65 70 6c 6f 79 65 72 20 53 65 6e 64  ileDeployer Send
31d0: 46 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 20 5b  File $fileName [
31e0: 61 70 70 65 6e 64 41 72 67 73 20 24 64 65 76 69  appendArgs $devi
31f0: 63 65 5f 64 69 72 65 63 74 6f 72 79 20 5c 0d 0a  ce_directory \..
3200: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 74 61          [file ta
3210: 69 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 20 74  il $fileName]] t
3220: 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 7d 0d 0a  rue false..  }..
3230: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
3240: 20 52 75 6e 20 74 68 65 20 74 65 73 74 20 61 70   Run the test ap
3250: 70 6c 69 63 61 74 69 6f 6e 20 6f 6e 20 74 68 65  plication on the
3260: 20 74 61 72 67 65 74 20 64 65 76 69 63 65 20 69   target device i
3270: 6e 20 22 61 75 74 6f 6d 61 74 69 63 22 20 6d 6f  n "automatic" mo
3280: 64 65 0d 0a 20 20 23 20 20 20 20 20 20 20 28 69  de..  #       (i
3290: 2e 65 2e 20 6e 6f 20 75 73 65 72 20 69 6e 74 65  .e. no user inte
32a0: 72 61 63 74 69 6f 6e 20 69 73 20 72 65 71 75 69  raction is requi
32b0: 72 65 64 29 20 61 6e 64 20 63 61 70 74 75 72 65  red) and capture
32c0: 20 74 68 65 20 65 78 69 74 20 63 6f 64 65 2e 0d   the exit code..
32d0: 0a 20 20 23 20 20 20 20 20 20 20 54 68 65 20 65  .  #       The e
32e0: 78 69 74 20 63 6f 64 65 20 77 69 6c 6c 20 62 65  xit code will be
32f0: 20 7a 65 72 6f 20 75 70 6f 6e 20 73 75 63 63 65   zero upon succe
3300: 73 73 20 28 69 2e 65 2e 20 61 6c 6c 20 74 65 73  ss (i.e. all tes
3310: 74 73 20 70 61 73 73 65 64 29 20 6f 72 0d 0a 20  ts passed) or.. 
3320: 20 23 20 20 20 20 20 20 20 6e 6f 6e 2d 7a 65 72   #       non-zer
3330: 6f 20 6f 74 68 65 72 77 69 73 65 2e 0d 0a 20 20  o otherwise...  
3340: 23 0d 0a 20 20 73 65 74 20 74 65 73 74 46 69 6c  #..  set testFil
3350: 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6e 61 74 69  eName [file nati
3360: 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20  vename \..      
3370: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 65 76 69  [file join $devi
3380: 63 65 5f 64 69 72 65 63 74 6f 72 79 20 24 74 65  ce_directory $te
3390: 73 74 46 69 6c 65 4e 61 6d 65 4f 6e 6c 79 5d 5d  stFileNameOnly]]
33a0: 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54  ....  #..  # NOT
33b0: 45 3a 20 54 68 65 20 66 69 72 73 74 20 28 61 6e  E: The first (an
33c0: 64 20 6f 6e 6c 79 29 20 61 72 67 75 6d 65 6e 74  d only) argument
33d0: 20 70 61 73 73 65 64 20 74 6f 20 6d 61 69 6e 20   passed to main 
33e0: 74 65 73 74 20 45 58 45 20 6f 6e 20 74 68 65 20  test EXE on the 
33f0: 64 65 76 69 63 65 0d 0a 20 20 23 20 20 20 20 20  device..  #     
3400: 20 20 69 73 20 74 68 65 20 61 75 74 6f 2d 63 6c    is the auto-cl
3410: 6f 73 65 20 66 6c 61 67 2e 20 20 57 68 65 6e 20  ose flag.  When 
3420: 6e 6f 6e 2d 7a 65 72 6f 2c 20 69 74 20 77 69 6c  non-zero, it wil
3430: 6c 20 63 6c 6f 73 65 20 61 75 74 6f 6d 61 74 69  l close automati
3440: 63 61 6c 6c 79 0d 0a 20 20 23 20 20 20 20 20 20  cally..  #      
3450: 20 75 70 6f 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e   upon completion
3460: 2e 20 20 53 65 74 74 69 6e 67 20 74 68 69 73 20  .  Setting this 
3470: 74 6f 20 7a 65 72 6f 20 69 73 20 73 6f 6d 65 74  to zero is somet
3480: 69 6d 65 73 20 75 73 65 66 75 6c 20 69 6e 20 6f  imes useful in o
3490: 72 64 65 72 0d 0a 20 20 23 20 20 20 20 20 20 20  rder..  #       
34a0: 74 6f 20 6d 6f 72 65 20 63 61 72 65 66 75 6c 6c  to more carefull
34b0: 79 20 65 78 61 6d 69 6e 65 20 74 68 65 20 64 65  y examine the de
34c0: 74 61 69 6c 65 64 20 72 65 73 75 6c 74 73 2e 0d  tailed results..
34d0: 0a 20 20 23 0d 0a 20 20 73 65 74 20 65 78 69 74  .  #..  set exit
34e0: 43 6f 64 65 20 5b 73 74 61 72 74 52 65 6d 6f 74  Code [startRemot
34f0: 65 50 72 6f 63 65 73 73 20 24 64 65 76 69 63 65  eProcess $device
3500: 20 24 74 65 73 74 46 69 6c 65 4e 61 6d 65 20 74   $testFileName t
3510: 72 75 65 5d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23  rue]....  #..  #
3520: 20 4e 4f 54 45 3a 20 49 66 20 61 6e 20 6f 75 74   NOTE: If an out
3530: 70 75 74 20 66 69 6c 65 20 69 73 20 67 65 6e 65  put file is gene
3540: 72 61 74 65 64 20 62 79 20 74 68 65 20 72 65 6d  rated by the rem
3550: 6f 74 65 20 70 72 6f 63 65 73 73 2c 20 77 68 65  ote process, whe
3560: 72 65 20 73 68 6f 75 6c 64 0d 0a 20 20 23 20 20  re should..  #  
3570: 20 20 20 20 20 69 74 20 62 65 20 73 61 76 65 64       it be saved
3580: 20 6c 6f 63 61 6c 6c 79 3f 0d 0a 20 20 23 0d 0a   locally?..  #..
3590: 20 20 73 65 74 20 6f 75 74 70 75 74 46 69 6c 65    set outputFile
35a0: 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  Name [file join 
35b0: 24 6d 61 6e 61 67 65 64 5f 64 69 72 65 63 74 6f  $managed_directo
35c0: 72 79 20 6f 75 74 70 75 74 2e 74 78 74 5d 0d 0a  ry output.txt]..
35d0: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
35e0: 20 41 74 74 65 6d 70 74 20 74 6f 20 6f 62 74 61   Attempt to obta
35f0: 69 6e 20 74 68 65 20 6f 75 74 70 75 74 20 66 69  in the output fi
3600: 6c 65 20 70 72 6f 64 75 63 65 64 20 62 79 20 74  le produced by t
3610: 68 65 20 72 65 6d 6f 74 65 20 70 72 6f 63 65 73  he remote proces
3620: 73 2c 0d 0a 20 20 23 20 20 20 20 20 20 20 69 66  s,..  #       if
3630: 20 61 6e 79 2e 0d 0a 20 20 23 0d 0a 20 20 63 61   any...  #..  ca
3640: 74 63 68 20 7b 0d 0a 20 20 20 20 24 66 69 6c 65  tch {..    $file
3650: 44 65 70 6c 6f 79 65 72 20 52 65 63 65 69 76 65  Deployer Receive
3660: 46 69 6c 65 20 5b 61 70 70 65 6e 64 41 72 67 73  File [appendArgs
3670: 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 64 65 76   \..        $dev
3680: 69 63 65 5f 64 69 72 65 63 74 6f 72 79 20 5b 66  ice_directory [f
3690: 69 6c 65 20 74 61 69 6c 20 24 6f 75 74 70 75 74  ile tail $output
36a0: 46 69 6c 65 4e 61 6d 65 5d 5d 20 24 6f 75 74 70  FileName]] $outp
36b0: 75 74 46 69 6c 65 4e 61 6d 65 20 66 61 6c 73 65  utFileName false
36c0: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20  ..  }....  #..  
36d0: 23 20 4e 4f 54 45 3a 20 49 73 20 74 68 65 20 74  # NOTE: Is the t
36e0: 61 72 67 65 74 20 64 65 76 69 63 65 20 61 63 74  arget device act
36f0: 75 61 6c 6c 79 20 61 6e 20 65 6d 75 6c 61 74 6f  ually an emulato
3700: 72 20 72 75 6e 6e 69 6e 67 20 6f 6e 20 74 68 69  r running on thi
3710: 73 20 73 79 73 74 65 6d 3f 0d 0a 20 20 23 0d 0a  s system?..  #..
3720: 20 20 73 65 74 20 69 73 45 6d 75 6c 61 74 6f 72    set isEmulator
3730: 20 5b 24 64 65 76 69 63 65 20 49 73 45 6d 75 6c   [$device IsEmul
3740: 61 74 6f 72 5d 0d 0a 0d 0a 20 20 23 0d 0a 20 20  ator]....  #..  
3750: 23 20 4e 4f 54 45 3a 20 57 65 20 6e 6f 20 6c 6f  # NOTE: We no lo
3760: 6e 67 65 72 20 6e 65 65 64 20 74 6f 20 62 65 20  nger need to be 
3770: 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 74 68 65  connected to the
3780: 20 74 61 72 67 65 74 20 64 65 76 69 63 65 2e 0d   target device..
3790: 0a 20 20 23 0d 0a 20 20 24 64 65 76 69 63 65 20  .  #..  $device 
37a0: 44 69 73 63 6f 6e 6e 65 63 74 0d 0a 0d 0a 20 20  Disconnect....  
37b0: 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 41 6c 73  #..  # NOTE: Als
37c0: 6f 2c 20 69 66 20 74 68 65 20 64 65 76 69 63 65  o, if the device
37d0: 20 69 73 20 61 6e 20 65 6d 75 6c 61 74 6f 72 2c   is an emulator,
37e0: 20 61 74 74 65 6d 70 74 20 74 6f 20 73 68 75 74   attempt to shut
37f0: 64 6f 77 6e 20 74 68 65 20 70 72 6f 63 65 73 73  down the process
3800: 0d 0a 20 20 23 20 20 20 20 20 20 20 63 6f 6e 74  ..  #       cont
3810: 61 69 6e 69 6e 67 20 69 74 20 6e 6f 77 20 28 73  aining it now (s
3820: 69 6e 63 65 20 77 65 20 70 72 6f 62 61 62 6c 79  ince we probably
3830: 20 63 61 75 73 65 64 20 69 74 20 74 6f 20 73 74   caused it to st
3840: 61 72 74 29 2e 0d 0a 20 20 23 0d 0a 20 20 69 66  art)...  #..  if
3850: 20 7b 24 69 73 45 6d 75 6c 61 74 6f 72 7d 20 74   {$isEmulator} t
3860: 68 65 6e 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20  hen {..    #..  
3870: 20 20 23 20 4e 4f 54 45 3a 20 54 72 79 20 74 6f    # NOTE: Try to
3880: 20 66 69 6e 64 20 74 68 65 20 74 6f 70 2d 6c 65   find the top-le
3890: 76 65 6c 20 77 69 6e 64 6f 77 20 66 6f 72 20 74  vel window for t
38a0: 68 65 20 64 65 76 69 63 65 20 65 6d 75 6c 61 74  he device emulat
38b0: 6f 72 20 70 72 6f 63 65 73 73 0d 0a 20 20 20 20  or process..    
38c0: 23 20 20 20 20 20 20 20 62 61 73 65 64 20 6f 6e  #       based on
38d0: 20 74 68 65 20 22 4c 43 44 44 69 73 70 6c 61 79   the "LCDDisplay
38e0: 22 20 77 69 6e 64 6f 77 20 63 6c 61 73 73 20 6e  " window class n
38f0: 61 6d 65 2e 20 20 55 73 69 6e 67 20 74 68 69 73  ame.  Using this
3900: 20 6d 65 74 68 6f 64 0d 0a 20 20 20 20 23 20 20   method..    #  
3910: 20 20 20 20 20 6f 66 20 66 69 6e 64 69 6e 67 20       of finding 
3920: 74 68 65 20 74 61 72 67 65 74 20 77 69 6e 64 6f  the target windo
3930: 77 20 69 73 20 73 6f 6d 65 77 68 61 74 20 66 72  w is somewhat fr
3940: 61 67 69 6c 65 20 61 6e 64 20 6d 61 79 20 6e 6f  agile and may no
3950: 74 20 77 6f 72 6b 0d 0a 20 20 20 20 23 20 20 20  t work..    #   
3960: 20 20 20 20 72 65 6c 69 61 62 6c 79 20 69 6e 20      reliably in 
3970: 74 68 65 20 66 75 74 75 72 65 2e 0d 0a 20 20 20  the future...   
3980: 20 23 0d 0a 20 20 20 20 73 65 74 20 68 57 6e 64   #..    set hWnd
3990: 20 5b 6c 69 6e 64 65 78 20 5b 6c 69 6e 64 65 78   [lindex [lindex
39a0: 20 5b 69 6e 66 6f 20 77 69 6e 64 6f 77 73 20 4c   [info windows L
39b0: 43 44 44 69 73 70 6c 61 79 5d 20 30 5d 20 30 5d  CDDisplay] 0] 0]
39c0: 3b 20 23 20 46 49 58 4d 45 3a 20 3f 3f 3f 0d 0a  ; # FIXME: ???..
39d0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
39e0: 4f 54 45 3a 20 4d 61 6b 65 20 73 75 72 65 20 77  OTE: Make sure w
39f0: 65 20 66 6f 75 6e 64 20 69 74 20 62 65 66 6f 72  e found it befor
3a00: 65 20 74 72 79 69 6e 67 20 74 6f 20 6c 6f 6f 6b  e trying to look
3a10: 75 70 20 74 68 65 20 70 61 72 65 6e 74 20 70 72  up the parent pr
3a20: 6f 63 65 73 73 2e 0d 0a 20 20 20 20 23 0d 0a 20  ocess...    #.. 
3a30: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69     if {[string i
3a40: 73 20 69 6e 74 65 67 65 72 20 2d 73 74 72 69 63  s integer -stric
3a50: 74 20 24 68 57 6e 64 5d 20 26 26 20 24 68 57 6e  t $hWnd] && $hWn
3a60: 64 20 21 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  d != 0} then {..
3a70: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
3a80: 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74   NOTE: Attempt t
3a90: 6f 20 6c 6f 6f 6b 75 70 20 74 68 65 20 70 61 72  o lookup the par
3aa0: 65 6e 74 20 70 72 6f 63 65 73 73 20 66 6f 72 20  ent process for 
3ab0: 74 68 65 20 74 61 72 67 65 74 20 77 69 6e 64 6f  the target windo
3ac0: 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  w...      #..   
3ad0: 20 20 20 71 70 75 74 73 20 73 74 64 6f 75 74 20     qputs stdout 
3ae0: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 66 6f 75  [appendArgs "fou
3af0: 6e 64 20 64 65 76 69 63 65 20 65 6d 75 6c 61 74  nd device emulat
3b00: 6f 72 20 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65  or window handle
3b10: 20 22 20 24 68 57 6e 64 20 5c 0d 0a 20 20 20 20   " $hWnd \..    
3b20: 20 20 20 20 20 20 22 2c 20 6c 6f 6f 6b 69 6e 67        ", looking
3b30: 20 75 70 20 74 68 65 20 70 72 6f 63 65 73 73 20   up the process 
3b40: 49 64 2e 2e 2e 22 5d 0d 0a 0d 0a 20 20 20 20 20  Id..."]....     
3b50: 20 73 65 74 20 70 72 6f 63 65 73 73 49 64 20 30   set processId 0
3b60: 3b 20 73 65 74 20 74 68 72 65 61 64 49 64 20 30  ; set threadId 0
3b70: 3b 20 73 65 74 20 65 72 72 6f 72 20 6e 75 6c 6c  ; set error null
3b80: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6f  ....      if {[o
3b90: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c  bject invoke -fl
3ba0: 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c  ags +NonPublic \
3bb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 45 61 67 6c  ..          Eagl
3bc0: 65 2e 5f 43 6f 6d 70 6f 6e 65 6e 74 73 2e 50 72  e._Components.Pr
3bd0: 69 76 61 74 65 2e 57 69 6e 64 6f 77 4f 70 73 20  ivate.WindowOps 
3be0: 47 65 74 57 69 6e 64 6f 77 54 68 72 65 61 64 50  GetWindowThreadP
3bf0: 72 6f 63 65 73 73 49 64 20 5c 0d 0a 20 20 20 20  rocessId \..    
3c00: 20 20 20 20 20 20 5b 6f 62 6a 65 63 74 20 63 72        [object cr
3c10: 65 61 74 65 20 49 6e 74 50 74 72 20 24 68 57 6e  eate IntPtr $hWn
3c20: 64 5d 20 70 72 6f 63 65 73 73 49 64 20 74 68 72  d] processId thr
3c30: 65 61 64 49 64 20 65 72 72 6f 72 5d 20 65 71 20  eadId error] eq 
3c40: 22 4f 6b 22 20 26 26 20 5c 0d 0a 20 20 20 20 20  "Ok" && \..     
3c50: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 69 73 20       [string is 
3c60: 69 6e 74 65 67 65 72 20 2d 73 74 72 69 63 74 20  integer -strict 
3c70: 24 70 72 6f 63 65 73 73 49 64 5d 20 26 26 20 24  $processId] && $
3c80: 70 72 6f 63 65 73 73 49 64 20 21 3d 20 30 7d 20  processId != 0} 
3c90: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
3ca0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
3cb0: 45 3a 20 54 68 69 73 20 69 73 20 6e 6f 74 20 69  E: This is not i
3cc0: 64 65 61 6c 3b 20 68 6f 77 65 76 65 72 2c 20 69  deal; however, i
3cd0: 66 20 77 65 20 73 69 6d 70 6c 79 20 74 72 79 20  f we simply try 
3ce0: 74 6f 20 63 6c 6f 73 65 20 74 68 65 0d 0a 20 20  to close the..  
3cf0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 61        #       ta
3d00: 72 67 65 74 20 77 69 6e 64 6f 77 2c 20 69 74 20  rget window, it 
3d10: 77 69 6c 6c 20 70 72 6f 6d 70 74 20 74 6f 20 73  will prompt to s
3d20: 61 76 65 20 73 74 61 74 65 20 63 68 61 6e 67 65  ave state change
3d30: 73 20 61 6e 64 20 74 68 61 74 0d 0a 20 20 20 20  s and that..    
3d40: 20 20 20 20 23 20 20 20 20 20 20 20 72 65 71 75      #       requ
3d50: 69 72 65 73 20 75 73 65 72 20 69 6e 74 65 72 61  ires user intera
3d60: 63 74 69 6f 6e 2e 20 20 57 65 20 6e 65 76 65 72  ction.  We never
3d70: 20 77 61 6e 74 20 74 6f 20 73 61 76 65 20 74 68   want to save th
3d80: 65 20 73 74 61 74 65 3b 0d 0a 20 20 20 20 20 20  e state;..      
3d90: 20 20 23 20 20 20 20 20 20 20 74 68 65 72 65 66    #       theref
3da0: 6f 72 65 2c 20 6a 75 73 74 20 66 6f 72 63 69 62  ore, just forcib
3db0: 6c 79 20 6b 69 6c 6c 20 74 68 65 20 70 72 6f 63  ly kill the proc
3dc0: 65 73 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74  ess containing t
3dd0: 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  he..        #   
3de0: 20 20 20 20 65 6d 75 6c 61 74 6f 72 2e 0d 0a 20      emulator... 
3df0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
3e00: 20 20 71 70 75 74 73 20 73 74 64 6f 75 74 20 5b    qputs stdout [
3e10: 61 70 70 65 6e 64 41 72 67 73 20 22 66 6f 75 6e  appendArgs "foun
3e20: 64 20 64 65 76 69 63 65 20 65 6d 75 6c 61 74 6f  d device emulato
3e30: 72 20 70 72 6f 63 65 73 73 20 49 64 20 22 20 5c  r process Id " \
3e40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 70  ..            $p
3e50: 72 6f 63 65 73 73 49 64 20 22 2c 20 6b 69 6c 6c  rocessId ", kill
3e60: 69 6e 67 2e 2e 2e 22 5d 0d 0a 0d 0a 20 20 20 20  ing..."]....    
3e70: 20 20 20 20 6b 69 6c 6c 20 2d 66 6f 72 63 65 20      kill -force 
3e80: 24 70 72 6f 63 65 73 73 49 64 0d 0a 20 20 20 20  $processId..    
3e90: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d    }..    }..  }.
3ea0: 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45  ...  #..  # NOTE
3eb0: 3a 20 50 72 69 6e 74 20 74 68 65 20 6f 76 65 72  : Print the over
3ec0: 61 6c 6c 20 72 65 73 75 6c 74 20 6f 66 20 72 75  all result of ru
3ed0: 6e 6e 69 6e 67 20 74 68 65 20 74 65 73 74 20 61  nning the test a
3ee0: 70 70 6c 69 63 61 74 69 6f 6e 20 61 6e 64 20 65  pplication and e
3ef0: 78 69 74 0d 0a 20 20 23 20 20 20 20 20 20 20 75  xit..  #       u
3f00: 73 69 6e 67 20 74 68 65 20 65 78 69 74 20 63 6f  sing the exit co
3f10: 64 65 20 66 72 6f 6d 20 74 68 65 20 74 65 73 74  de from the test
3f20: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6f 6e 20   application on 
3f30: 74 68 65 20 74 61 72 67 65 74 20 64 65 76 69 63  the target devic
3f40: 65 2e 0d 0a 20 20 23 0d 0a 20 20 71 70 75 74 73  e...  #..  qputs
3f50: 20 73 74 64 6f 75 74 20 5b 65 78 70 72 20 7b 24   stdout [expr {$
3f60: 65 78 69 74 43 6f 64 65 20 3d 3d 20 30 20 3f 20  exitCode == 0 ? 
3f70: 22 53 55 43 43 45 53 53 22 20 3a 20 22 46 41 49  "SUCCESS" : "FAI
3f80: 4c 55 52 45 22 7d 5d 0d 0a 20 20 65 78 69 74 20  LURE"}]..  exit 
3f90: 24 65 78 69 74 43 6f 64 65 0d 0a 7d 20 65 6c 73  $exitCode..} els
3fa0: 65 20 7b 0d 0a 20 20 75 73 61 67 65 20 22 22 0d  e {..  usage "".
3fb0: 0a 7d 0d 0a                                      .}..