System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 916cf65d5e82a9f47ea2a37d0fb206ea0ddbd254:


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 63 73 68 61 72 70 2e 65 61 67  .#..# csharp.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 45 78 74 65  le --..#..# Exte
0070: 6e 73 69 62 6c 65 20 41 64 61 70 74 61 62 6c 65  nsible Adaptable
0080: 20 47 65 6e 65 72 61 6c 69 7a 65 64 20 4c 6f 67   Generalized Log
0090: 69 63 20 45 6e 67 69 6e 65 20 28 45 61 67 6c 65  ic Engine (Eagle
00a0: 29 0d 0a 23 20 45 61 67 6c 65 20 43 53 68 61 72  )..# Eagle CShar
00b0: 70 20 50 61 63 6b 61 67 65 20 46 69 6c 65 0d 0a  p Package File..
00c0: 23 0d 0a 23 20 43 6f 70 79 72 69 67 68 74 20 28  #..# Copyright (
00d0: 63 29 20 32 30 30 37 2d 32 30 31 32 20 62 79 20  c) 2007-2012 by 
00e0: 4a 6f 65 20 4d 69 73 74 61 63 68 6b 69 6e 2e 20  Joe Mistachkin. 
00f0: 20 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65   All rights rese
0100: 72 76 65 64 2e 0d 0a 23 0d 0a 23 20 53 65 65 20  rved...#..# See 
0110: 74 68 65 20 66 69 6c 65 20 22 6c 69 63 65 6e 73  the file "licens
0120: 65 2e 74 65 72 6d 73 22 20 66 6f 72 20 69 6e 66  e.terms" for inf
0130: 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 75 73 61 67  ormation on usag
0140: 65 20 61 6e 64 20 72 65 64 69 73 74 72 69 62 75  e and redistribu
0150: 74 69 6f 6e 20 6f 66 0d 0a 23 20 74 68 69 73 20  tion of..# this 
0160: 66 69 6c 65 2c 20 61 6e 64 20 66 6f 72 20 61 20  file, and for a 
0170: 44 49 53 43 4c 41 49 4d 45 52 20 4f 46 20 41 4c  DISCLAIMER OF AL
0180: 4c 20 57 41 52 52 41 4e 54 49 45 53 2e 0d 0a 23  L WARRANTIES...#
0190: 0d 0a 23 20 52 43 53 3a 20 40 28 23 29 20 24 49  ..# RCS: @(#) $I
01a0: 64 3a 20 24 0d 0a 23 0d 0a 23 23 23 23 23 23 23  d: $..#..#######
01b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01f0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 23 0d 0a 23  ########....#..#
0200: 20 4e 4f 54 45 3a 20 55 73 65 20 6f 75 72 20 6f   NOTE: Use our o
0210: 77 6e 20 6e 61 6d 65 73 70 61 63 65 20 68 65 72  wn namespace her
0220: 65 20 62 65 63 61 75 73 65 20 65 76 65 6e 20 74  e because even t
0230: 68 6f 75 67 68 20 77 65 20 64 6f 20 6e 6f 74 20  hough we do not 
0240: 64 69 72 65 63 74 6c 79 0d 0a 23 20 20 20 20 20  directly..#     
0250: 20 20 73 75 70 70 6f 72 74 20 6e 61 6d 65 73 70    support namesp
0260: 61 63 65 73 20 6f 75 72 73 65 6c 76 65 73 2c 20  aces ourselves, 
0270: 77 65 20 64 6f 20 6e 6f 74 20 77 61 6e 74 20 74  we do not want t
0280: 6f 20 70 6f 6c 6c 75 74 65 20 74 68 65 20 67 6c  o pollute the gl
0290: 6f 62 61 6c 0d 0a 23 20 20 20 20 20 20 20 6e 61  obal..#       na
02a0: 6d 65 73 70 61 63 65 20 69 66 20 74 68 69 73 20  mespace if this 
02b0: 73 63 72 69 70 74 20 61 63 74 75 61 6c 6c 79 20  script actually 
02c0: 65 6e 64 73 20 75 70 20 62 65 69 6e 67 20 65 76  ends up being ev
02d0: 61 6c 75 61 74 65 64 20 69 6e 20 54 63 6c 2e 0d  aluated in Tcl..
02e0: 0a 23 0d 0a 6e 61 6d 65 73 70 61 63 65 20 65 76  .#..namespace ev
02f0: 61 6c 20 3a 3a 45 61 67 6c 65 20 7b 0d 0a 20 20  al ::Eagle {..  
0300: 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69  #..  # NOTE: Thi
0310: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 75  s procedure is u
0320: 73 65 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65  sed to determine
0330: 20 74 68 65 20 66 75 6c 6c 79 20 71 75 61 6c 69   the fully quali
0340: 66 69 65 64 20 70 61 74 68 20 74 6f 20 74 68 65  fied path to the
0350: 0d 0a 20 20 23 20 20 20 20 20 20 20 2e 4e 45 54  ..  #       .NET
0360: 20 43 6f 72 65 20 53 44 4b 2e 20 20 41 6e 20 65   Core SDK.  An e
0370: 6d 70 74 79 20 73 74 72 69 6e 67 20 77 69 6c 6c  mpty string will
0380: 20 62 65 20 72 65 74 75 72 6e 65 64 20 74 6f 20   be returned to 
0390: 69 6e 64 69 63 61 74 65 20 61 6e 0d 0a 20 20 23  indicate an..  #
03a0: 20 20 20 20 20 20 20 65 72 72 6f 72 2e 20 20 54         error.  T
03b0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 68  his procedure sh
03c0: 6f 75 6c 64 20 6e 6f 74 20 72 61 69 73 65 20 73  ould not raise s
03d0: 63 72 69 70 74 20 65 72 72 6f 72 73 2e 0d 0a 20  cript errors... 
03e0: 20 23 0d 0a 20 20 70 72 6f 63 20 67 65 74 44 6f   #..  proc getDo
03f0: 74 4e 65 74 43 6f 72 65 53 64 6b 50 61 74 68 20  tNetCoreSdkPath 
0400: 7b 7d 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 63  {} {..    if {[c
0410: 61 74 63 68 20 7b 65 78 65 63 20 2d 2d 20 64 6f  atch {exec -- do
0420: 74 6e 65 74 20 2d 2d 69 6e 66 6f 7d 20 69 6e 66  tnet --info} inf
0430: 6f 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d  o] == 0} then {.
0440: 0a 20 20 20 20 20 20 73 65 74 20 69 6e 66 6f 20  .      set info 
0450: 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73  [string map [lis
0460: 74 20 5c 72 5c 6e 20 5c 6e 5d 20 24 69 6e 66 6f  t \r\n \n] $info
0470: 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b  ]....      if {[
0480: 72 65 67 65 78 70 20 2d 6c 69 6e 65 20 2d 2d 20  regexp -line -- 
0490: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 5e 5c  \..          {^\
04a0: 73 2a 42 61 73 65 20 50 61 74 68 3a 5c 73 2b 28  s*Base Path:\s+(
04b0: 5b 5e 5c 6e 5d 2b 29 24 7d 20 24 69 6e 66 6f 20  [^\n]+)$} $info 
04c0: 64 75 6d 6d 79 20 70 61 74 68 5d 7d 20 74 68 65  dummy path]} the
04d0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74  n {..        ret
04e0: 75 72 6e 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c  urn [file normal
04f0: 69 7a 65 20 24 70 61 74 68 5d 0d 0a 20 20 20 20  ize $path]..    
0500: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20    }..    }....  
0510: 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20 20 7d    return ""..  }
0520: 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f  .....  #..  # NO
0530: 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75  TE: This procedu
0540: 72 65 20 69 73 20 75 73 65 64 20 74 6f 20 64 65  re is used to de
0550: 74 65 72 6d 69 6e 65 20 74 68 65 20 66 75 6c 6c  termine the full
0560: 79 20 71 75 61 6c 69 66 69 65 64 20 70 61 74 68  y qualified path
0570: 20 74 6f 20 74 68 65 0d 0a 20 20 23 20 20 20 20   to the..  #    
0580: 20 20 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e     directory con
0590: 74 61 69 6e 69 6e 67 20 74 68 65 20 72 65 66 65  taining the refe
05a0: 72 65 6e 63 65 20 61 73 73 65 6d 62 6c 69 65 73  rence assemblies
05b0: 20 66 6f 72 20 74 68 65 20 2e 4e 45 54 20 53 74   for the .NET St
05c0: 61 6e 64 61 72 64 0d 0a 20 20 23 20 20 20 20 20  andard..  #     
05d0: 20 20 32 2e 30 2e 20 20 41 6e 20 65 6d 70 74 79    2.0.  An empty
05e0: 20 73 74 72 69 6e 67 20 77 69 6c 6c 20 62 65 20   string will be 
05f0: 72 65 74 75 72 6e 65 64 20 74 6f 20 69 6e 64 69  returned to indi
0600: 63 61 74 65 20 61 6e 20 65 72 72 6f 72 2e 20 20  cate an error.  
0610: 54 68 69 73 0d 0a 20 20 23 20 20 20 20 20 20 20  This..  #       
0620: 70 72 6f 63 65 64 75 72 65 20 73 68 6f 75 6c 64  procedure should
0630: 20 6e 6f 74 20 72 61 69 73 65 20 73 63 72 69 70   not raise scrip
0640: 74 20 65 72 72 6f 72 73 2e 0d 0a 20 20 23 0d 0a  t errors...  #..
0650: 20 20 70 72 6f 63 20 67 65 74 44 6f 74 4e 65 74    proc getDotNet
0660: 53 74 61 6e 64 61 72 64 52 65 66 65 72 65 6e 63  StandardReferenc
0670: 65 50 61 74 68 20 7b 0d 0a 20 20 20 20 20 20 20  ePath {..       
0680: 20 20 20 7b 70 61 63 6b 61 67 65 56 65 72 73 69     {packageVersi
0690: 6f 6e 20 22 22 7d 20 7b 73 74 61 6e 64 61 72 64  on ""} {standard
06a0: 56 65 72 73 69 6f 6e 20 6e 65 74 73 74 61 6e 64  Version netstand
06b0: 61 72 64 32 2e 30 7d 20 7d 20 7b 0d 0a 20 20 20  ard2.0} } {..   
06c0: 20 73 65 74 20 70 61 74 68 20 5b 67 65 74 44 6f   set path [getDo
06d0: 74 4e 65 74 43 6f 72 65 53 64 6b 50 61 74 68 5d  tNetCoreSdkPath]
06e0: 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b 73 74 72  ....    if {[str
06f0: 69 6e 67 20 6c 65 6e 67 74 68 20 24 70 61 74 68  ing length $path
0700: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {.. 
0710: 20 20 20 20 20 73 65 74 20 6c 69 62 72 61 72 79       set library
0720: 44 69 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20  Directory [file 
0730: 6e 6f 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65 20  normalize [file 
0740: 6a 6f 69 6e 20 5c 0d 0a 20 20 20 20 20 20 20 20  join \..        
0750: 20 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20    [file dirname 
0760: 24 70 61 74 68 5d 20 4e 75 47 65 74 46 61 6c 6c  $path] NuGetFall
0770: 62 61 63 6b 46 6f 6c 64 65 72 20 6e 65 74 73 74  backFolder netst
0780: 61 6e 64 61 72 64 2e 6c 69 62 72 61 72 79 5d 5d  andard.library]]
0790: 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 62 75  ....      set bu
07a0: 69 6c 64 52 65 66 65 72 65 6e 63 65 53 75 62 44  ildReferenceSubD
07b0: 69 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20 6a  irectory [file j
07c0: 6f 69 6e 20 62 75 69 6c 64 20 24 73 74 61 6e 64  oin build $stand
07d0: 61 72 64 56 65 72 73 69 6f 6e 20 72 65 66 5d 0d  ardVersion ref].
07e0: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74  ...      if {[st
07f0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 70 61 63  ring length $pac
0800: 6b 61 67 65 56 65 72 73 69 6f 6e 5d 20 3e 20 30  kageVersion] > 0
0810: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
0820: 20 20 73 65 74 20 61 73 73 65 6d 62 6c 79 44 69    set assemblyDi
0830: 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20 6e 6f  rectory [file no
0840: 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65 20 6a 6f  rmalize [file jo
0850: 69 6e 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  in \..          
0860: 20 20 24 6c 69 62 72 61 72 79 44 69 72 65 63 74    $libraryDirect
0870: 6f 72 79 20 24 70 61 63 6b 61 67 65 56 65 72 73  ory $packageVers
0880: 69 6f 6e 20 24 62 75 69 6c 64 52 65 66 65 72 65  ion $buildRefere
0890: 6e 63 65 53 75 62 44 69 72 65 63 74 6f 72 79 5d  nceSubDirectory]
08a0: 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20  ]....        if 
08b0: 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 61  {[file exists $a
08c0: 73 73 65 6d 62 6c 79 44 69 72 65 63 74 6f 72 79  ssemblyDirectory
08d0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
08e0: 20 20 20 20 20 72 65 74 75 72 6e 20 24 61 73 73       return $ass
08f0: 65 6d 62 6c 79 44 69 72 65 63 74 6f 72 79 0d 0a  emblyDirectory..
0900: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
0910: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
0920: 20 20 20 73 65 74 20 67 6c 6f 62 50 61 74 68 50     set globPathP
0930: 61 74 74 65 72 6e 20 5b 66 69 6c 65 20 6a 6f 69  attern [file joi
0940: 6e 20 24 6c 69 62 72 61 72 79 44 69 72 65 63 74  n $libraryDirect
0950: 6f 72 79 20 2a 5d 0d 0a 0d 0a 20 20 20 20 20 20  ory *]....      
0960: 20 20 73 65 74 20 6d 61 79 62 65 56 65 72 73 69    set maybeVersi
0970: 6f 6e 73 20 5b 6c 73 6f 72 74 20 2d 64 65 63 72  ons [lsort -decr
0980: 65 61 73 69 6e 67 20 2d 63 6f 6d 6d 61 6e 64 20  easing -command 
0990: 5b 6c 69 73 74 20 70 61 63 6b 61 67 65 20 76 73  [list package vs
09a0: 6f 72 74 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20  ort] \..        
09b0: 20 20 20 20 5b 6c 6d 61 70 20 64 69 72 65 63 74      [lmap direct
09c0: 6f 72 79 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d  ory [glob -nocom
09d0: 70 6c 61 69 6e 20 2d 74 79 70 65 73 20 7b 64 7d  plain -types {d}
09e0: 20 24 67 6c 6f 62 50 61 74 68 50 61 74 74 65 72   $globPathPatter
09f0: 6e 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  n] \..          
0a00: 20 20 7b 20 66 69 6c 65 20 74 61 69 6c 20 24 64    { file tail $d
0a10: 69 72 65 63 74 6f 72 79 20 7d 5d 5d 0d 0a 0d 0a  irectory }]]....
0a20: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
0a30: 6d 61 79 62 65 56 65 72 73 69 6f 6e 20 24 6d 61  maybeVersion $ma
0a40: 79 62 65 56 65 72 73 69 6f 6e 73 20 7b 0d 0a 20  ybeVersions {.. 
0a50: 20 20 20 20 20 20 20 20 20 73 65 74 20 61 73 73           set ass
0a60: 65 6d 62 6c 79 44 69 72 65 63 74 6f 72 79 20 5b  emblyDirectory [
0a70: 66 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 20 5b  file normalize [
0a80: 66 69 6c 65 20 6a 6f 69 6e 20 5c 0d 0a 20 20 20  file join \..   
0a90: 20 20 20 20 20 20 20 20 20 20 20 24 6c 69 62 72             $libr
0aa0: 61 72 79 44 69 72 65 63 74 6f 72 79 20 24 6d 61  aryDirectory $ma
0ab0: 79 62 65 56 65 72 73 69 6f 6e 20 24 62 75 69 6c  ybeVersion $buil
0ac0: 64 52 65 66 65 72 65 6e 63 65 53 75 62 44 69 72  dReferenceSubDir
0ad0: 65 63 74 6f 72 79 5d 5d 0d 0a 0d 0a 20 20 20 20  ectory]]....    
0ae0: 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20        if {[file 
0af0: 65 78 69 73 74 73 20 24 61 73 73 65 6d 62 6c 79  exists $assembly
0b00: 44 69 72 65 63 74 6f 72 79 5d 7d 20 74 68 65 6e  Directory]} then
0b10: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
0b20: 72 65 74 75 72 6e 20 24 61 73 73 65 6d 62 6c 79  return $assembly
0b30: 44 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20  Directory..     
0b40: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
0b50: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  }..      }..    
0b60: 7d 0d 0a 0d 0a 20 20 20 20 72 65 74 75 72 6e 20  }....    return 
0b70: 22 22 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d  ""..  }.....  #.
0b80: 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20  .  # NOTE: This 
0b90: 70 72 6f 63 65 64 75 72 65 20 69 73 20 75 73 65  procedure is use
0ba0: 64 20 74 6f 20 6f 62 74 61 69 6e 20 61 20 74 65  d to obtain a te
0bb0: 73 74 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 75  st program for u
0bc0: 73 65 20 77 69 74 68 20 74 68 65 0d 0a 20 20 23  se with the..  #
0bd0: 20 20 20 20 20 20 20 43 23 20 63 6f 6d 70 69 6c         C# compil
0be0: 65 72 2e 20 20 55 70 6f 6e 20 73 75 63 63 65 73  er.  Upon succes
0bf0: 73 2c 20 74 68 65 20 72 65 74 75 72 6e 20 76 61  s, the return va
0c00: 6c 75 65 20 77 69 6c 6c 20 62 65 20 61 20 6c 69  lue will be a li
0c10: 73 74 20 77 69 74 68 0d 0a 20 20 23 20 20 20 20  st with..  #    
0c20: 20 20 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2e     two elements.
0c30: 20 20 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d    The first elem
0c40: 65 6e 74 20 77 69 6c 6c 20 62 65 20 74 68 65 20  ent will be the 
0c50: 6e 61 6d 65 20 6f 66 20 74 68 65 20 43 23 20 63  name of the C# c
0c60: 6c 61 73 73 0d 0a 20 20 23 20 20 20 20 20 20 20  lass..  #       
0c70: 74 6f 20 62 65 20 63 6f 6d 70 69 6c 65 64 2e 20  to be compiled. 
0c80: 20 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d   The second elem
0c90: 65 6e 74 20 77 69 6c 6c 20 62 65 20 74 68 65 20  ent will be the 
0ca0: 43 23 20 70 72 6f 67 72 61 6d 20 74 65 78 74 2e  C# program text.
0cb0: 0d 0a 20 20 23 20 20 20 20 20 20 20 55 70 6f 6e  ..  #       Upon
0cc0: 20 66 61 69 6c 75 72 65 2c 20 74 68 65 20 72 65   failure, the re
0cd0: 74 75 72 6e 20 76 61 6c 75 65 20 77 69 6c 6c 20  turn value will 
0ce0: 62 65 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74  be an empty list
0cf0: 2e 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 67  ...  #..  proc g
0d00: 65 74 43 53 68 61 72 70 54 65 73 74 50 72 6f 67  etCSharpTestProg
0d10: 72 61 6d 20 7b 20 7b 6e 61 6d 65 20 22 22 7d 20  ram { {name ""} 
0d20: 7d 20 7b 0d 0a 20 20 20 20 73 65 74 20 70 72 65  } {..    set pre
0d30: 66 69 78 20 54 65 73 74 0d 0a 20 20 20 20 73 65  fix Test..    se
0d40: 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76  t id [object inv
0d50: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e  oke Interpreter.
0d60: 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64  GetActive NextId
0d70: 5d 0d 0a 0d 0a 20 20 20 20 73 65 74 20 63 6c 61  ]....    set cla
0d80: 73 73 4e 61 6d 65 20 5b 61 70 70 65 6e 64 41 72  ssName [appendAr
0d90: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 70  gs \..        $p
0da0: 72 65 66 69 78 20 4e 61 6d 65 73 70 61 63 65 20  refix Namespace 
0db0: 24 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f  $id [object invo
0dc0: 6b 65 20 54 79 70 65 20 44 65 6c 69 6d 69 74 65  ke Type Delimite
0dd0: 72 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 70  r] \..        $p
0de0: 72 65 66 69 78 20 43 6c 61 73 73 20 24 69 64 5d  refix Class $id]
0df0: 0d 0a 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 5b  ....    return [
0e00: 6c 69 73 74 20 24 63 6c 61 73 73 4e 61 6d 65 20  list $className 
0e10: 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 20 20  [subst {..      
0e20: 75 73 69 6e 67 20 53 79 73 74 65 6d 3b 0d 0a 0d  using System;...
0e30: 0a 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63 65  .      namespace
0e40: 20 24 7b 70 72 65 66 69 78 7d 4e 61 6d 65 73 70   ${prefix}Namesp
0e50: 61 63 65 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20  ace${id}..      
0e60: 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69  {..        publi
0e70: 63 20 73 74 61 74 69 63 20 63 6c 61 73 73 20 24  c static class $
0e80: 7b 70 72 65 66 69 78 7d 43 6c 61 73 73 24 7b 69  {prefix}Class${i
0e90: 64 7d 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20  d}..        {.. 
0ea0: 20 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20           public 
0eb0: 73 74 61 74 69 63 20 49 6e 74 33 32 20 4d 61 69  static Int32 Mai
0ec0: 6e 28 53 74 72 69 6e 67 5c 5b 5c 5d 20 61 72 67  n(String\[\] arg
0ed0: 73 29 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d  s)..          {.
0ee0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
0ef0: 75 72 6e 20 30 3b 0d 0a 20 20 20 20 20 20 20 20  urn 0;..        
0f00: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a    }..        }..
0f10: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 5d 5d        }..    }]]
0f20: 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20  ..  }.....  #.. 
0f30: 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72   # NOTE: This pr
0f40: 6f 63 65 64 75 72 65 20 69 73 20 75 73 65 64 20  ocedure is used 
0f50: 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 77 68 65  to determine whe
0f60: 74 68 65 72 20 74 68 65 20 43 23 20 63 6f 6d 70  ther the C# comp
0f70: 69 6c 65 72 20 61 70 70 65 61 72 73 0d 0a 20 20  iler appears..  
0f80: 23 20 20 20 20 20 20 20 74 6f 20 77 6f 72 6b 20  #       to work 
0f90: 77 68 65 6e 20 69 6e 76 6f 6b 65 64 20 76 69 61  when invoked via
0fa0: 20 74 68 65 20 69 6e 74 65 72 66 61 63 65 73 20   the interfaces 
0fb0: 64 65 66 69 6e 65 64 20 69 6e 20 74 68 69 73 20  defined in this 
0fc0: 73 63 72 69 70 74 20 66 69 6c 65 2e 0d 0a 20 20  script file...  
0fd0: 23 20 20 20 20 20 20 20 4e 6f 6e 2d 7a 65 72 6f  #       Non-zero
0fe0: 20 69 73 20 72 65 74 75 72 6e 65 64 20 74 6f 20   is returned to 
0ff0: 69 6e 64 69 63 61 74 65 20 73 75 63 63 65 73 73  indicate success
1000: 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72  .  This procedur
1010: 65 20 73 68 6f 75 6c 64 20 6e 6f 74 0d 0a 20 20  e should not..  
1020: 23 20 20 20 20 20 20 20 72 61 69 73 65 20 73 63  #       raise sc
1030: 72 69 70 74 20 65 72 72 6f 72 73 2e 0d 0a 20 20  ript errors...  
1040: 23 0d 0a 20 20 70 72 6f 63 20 64 6f 65 73 43 6f  #..  proc doesCo
1050: 6d 70 69 6c 65 43 53 68 61 72 70 57 6f 72 6b 20  mpileCSharpWork 
1060: 7b 20 7b 6e 61 6d 65 20 22 22 7d 20 7b 65 72 72  { {name ""} {err
1070: 6f 72 73 56 61 72 4e 61 6d 65 20 22 22 7d 20 7d  orsVarName ""} }
1080: 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 73 74 72   {..    if {[str
1090: 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 72 72 6f  ing length $erro
10a0: 72 73 56 61 72 4e 61 6d 65 5d 20 3e 20 30 7d 20  rsVarName] > 0} 
10b0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 75 70  then {..      up
10c0: 76 61 72 20 31 20 24 65 72 72 6f 72 73 56 61 72  var 1 $errorsVar
10d0: 4e 61 6d 65 20 65 72 72 6f 72 73 0d 0a 20 20 20  Name errors..   
10e0: 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b 63   }....    if {[c
10f0: 61 74 63 68 20 7b 67 65 74 43 53 68 61 72 70 54  atch {getCSharpT
1100: 65 73 74 50 72 6f 67 72 61 6d 20 24 6e 61 6d 65  estProgram $name
1110: 7d 20 70 72 6f 67 72 61 6d 5d 7d 20 74 68 65 6e  } program]} then
1120: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 65 72   {..      set er
1130: 72 6f 72 73 20 5b 6c 69 73 74 20 5b 61 70 70 65  rors [list [appe
1140: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
1150: 20 20 20 20 22 63 61 75 67 68 74 20 65 72 72 6f      "caught erro
1160: 72 20 77 68 69 6c 65 20 67 65 74 74 69 6e 67 20  r while getting 
1170: 5c 22 22 20 24 6e 61 6d 65 20 22 5c 22 20 74 65  \"" $name "\" te
1180: 73 74 20 70 72 6f 67 72 61 6d 3a 20 22 20 5c 0d  st program: " \.
1190: 0a 20 20 20 20 20 20 20 20 20 20 24 70 72 6f 67  .          $prog
11a0: 72 61 6d 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 72  ram]]....      r
11b0: 65 74 75 72 6e 20 66 61 6c 73 65 0d 0a 20 20 20  eturn false..   
11c0: 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b 6c   }....    if {[l
11d0: 6c 65 6e 67 74 68 20 24 70 72 6f 67 72 61 6d 5d  length $program]
11e0: 20 3c 20 32 7d 20 74 68 65 6e 20 7b 0d 0a 20 20   < 2} then {..  
11f0: 20 20 20 20 73 65 74 20 65 72 72 6f 72 73 20 5b      set errors [
1200: 6c 69 73 74 20 5b 61 70 70 65 6e 64 41 72 67 73  list [appendArgs
1210: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 63   \..          "c
1220: 6f 6d 6d 61 6e 64 20 5c 5b 67 65 74 43 53 68 61  ommand \[getCSha
1230: 72 70 54 65 73 74 50 72 6f 67 72 61 6d 5c 5d 20  rpTestProgram\] 
1240: 72 65 74 75 72 6e 65 64 20 6d 61 6c 66 6f 72 6d  returned malform
1250: 65 64 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20  ed \"" \..      
1260: 20 20 20 20 24 6e 61 6d 65 20 22 5c 22 20 74 65      $name "\" te
1270: 73 74 20 70 72 6f 67 72 61 6d 3a 20 22 20 24 70  st program: " $p
1280: 72 6f 67 72 61 6d 5d 5d 0d 0a 0d 0a 20 20 20 20  rogram]]....    
1290: 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 0d 0a    return false..
12a0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 75 6e 73      }....    uns
12b0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
12c0: 65 73 75 6c 74 73 20 6c 6f 63 61 6c 5f 65 72 72  esults local_err
12d0: 6f 72 73 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b  ors....    if {[
12e0: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 63  catch {..      c
12f0: 6f 6d 70 69 6c 65 43 53 68 61 72 70 20 5b 6c 69  ompileCSharp [li
1300: 6e 64 65 78 20 24 70 72 6f 67 72 61 6d 20 31 5d  ndex $program 1]
1310: 20 74 72 75 65 20 74 72 75 65 20 74 72 75 65 20   true true true 
1320: 72 65 73 75 6c 74 73 20 6c 6f 63 61 6c 5f 65 72  results local_er
1330: 72 6f 72 73 0d 0a 20 20 20 20 7d 20 63 6f 64 65  rors..    } code
1340: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
1350: 20 73 65 74 20 65 72 72 6f 72 73 20 5b 6c 69 73   set errors [lis
1360: 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  t [appendArgs \.
1370: 0a 20 20 20 20 20 20 20 20 20 20 22 63 61 75 67  .          "caug
1380: 68 74 20 65 72 72 6f 72 20 77 68 69 6c 65 20 63  ht error while c
1390: 6f 6d 70 69 6c 69 6e 67 20 5c 22 22 20 24 6e 61  ompiling \"" $na
13a0: 6d 65 20 22 5c 22 20 74 65 73 74 20 70 72 6f 67  me "\" test prog
13b0: 72 61 6d 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20  ram: " \..      
13c0: 20 20 20 20 24 63 6f 64 65 5d 5d 0d 0a 0d 0a 20      $code]].... 
13d0: 20 20 20 20 20 72 65 74 75 72 6e 20 66 61 6c 73       return fals
13e0: 65 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  e..    }....    
13f0: 69 66 20 7b 24 63 6f 64 65 20 6e 65 20 22 4f 6b  if {$code ne "Ok
1400: 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  "} then {..     
1410: 20 73 65 74 20 65 72 72 6f 72 73 20 5b 6c 69 73   set errors [lis
1420: 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  t [appendArgs \.
1430: 0a 20 20 20 20 20 20 20 20 20 20 22 65 72 72 6f  .          "erro
1440: 72 73 20 66 72 6f 6d 20 63 6f 6d 70 69 6c 61 74  rs from compilat
1450: 69 6f 6e 20 6f 66 20 5c 22 22 20 24 6e 61 6d 65  ion of \"" $name
1460: 20 22 5c 22 20 74 65 73 74 20 70 72 6f 67 72 61   "\" test progra
1470: 6d 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20  m: " \..        
1480: 20 20 24 6c 6f 63 61 6c 5f 65 72 72 6f 72 73 5d    $local_errors]
1490: 5d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72  ]....      retur
14a0: 6e 20 66 61 6c 73 65 0d 0a 20 20 20 20 7d 0d 0a  n false..    }..
14b0: 0d 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68  ..    if {[catch
14c0: 20 7b 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63 74   {..      object
14d0: 20 69 6e 76 6f 6b 65 20 5b 6c 69 6e 64 65 78 20   invoke [lindex 
14e0: 24 70 72 6f 67 72 61 6d 20 30 5d 20 4d 61 69 6e  $program 0] Main
14f0: 20 6e 75 6c 6c 0d 0a 20 20 20 20 7d 20 65 78 69   null..    } exi
1500: 74 43 6f 64 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a  tCode]} then {..
1510: 20 20 20 20 20 20 73 65 74 20 65 72 72 6f 72 73        set errors
1520: 20 5b 6c 69 73 74 20 5b 61 70 70 65 6e 64 41 72   [list [appendAr
1530: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..          
1540: 22 63 61 75 67 68 74 20 65 72 72 6f 72 20 77 68  "caught error wh
1550: 69 6c 65 20 65 78 65 63 75 74 69 6e 67 20 5c 22  ile executing \"
1560: 22 20 24 6e 61 6d 65 20 22 5c 22 20 74 65 73 74  " $name "\" test
1570: 20 70 72 6f 67 72 61 6d 3a 20 22 20 5c 0d 0a 20   program: " \.. 
1580: 20 20 20 20 20 20 20 20 20 24 65 78 69 74 43 6f           $exitCo
1590: 64 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 72 65  de]]....      re
15a0: 74 75 72 6e 20 66 61 6c 73 65 0d 0a 20 20 20 20  turn false..    
15b0: 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 24 65 78  }....    if {$ex
15c0: 69 74 43 6f 64 65 20 6e 65 20 22 30 22 7d 20 74  itCode ne "0"} t
15d0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74  hen {..      set
15e0: 20 65 72 72 6f 72 73 20 5b 6c 69 73 74 20 5b 61   errors [list [a
15f0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
1600: 20 20 20 20 20 20 20 22 62 61 64 20 65 78 69 74         "bad exit
1610: 20 63 6f 64 65 20 66 72 6f 6d 20 5c 22 22 20 24   code from \"" $
1620: 6e 61 6d 65 20 22 5c 22 20 74 65 73 74 20 70 72  name "\" test pr
1630: 6f 67 72 61 6d 3a 20 22 20 5c 0d 0a 20 20 20 20  ogram: " \..    
1640: 20 20 20 20 20 20 24 65 78 69 74 43 6f 64 65 5d        $exitCode]
1650: 5d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72  ]....      retur
1660: 6e 20 66 61 6c 73 65 0d 0a 20 20 20 20 7d 0d 0a  n false..    }..
1670: 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 74 72 75  ..    return tru
1680: 65 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a  e..  }.....  #..
1690: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70    # NOTE: This p
16a0: 72 6f 63 65 64 75 72 65 20 69 73 20 75 73 65 64  rocedure is used
16b0: 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68   to determine th
16c0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 61  e command line a
16d0: 72 67 75 6d 65 6e 74 73 20 74 68 61 74 0d 0a 20  rguments that.. 
16e0: 20 23 20 20 20 20 20 20 20 61 72 65 20 72 65 71   #       are req
16f0: 75 69 72 65 64 20 74 6f 20 69 6e 76 6f 6b 65 20  uired to invoke 
1700: 74 68 65 20 2e 4e 45 54 20 43 6f 72 65 20 53 44  the .NET Core SD
1710: 4b 20 63 6f 6d 70 69 6c 65 72 20 66 6f 72 20 43  K compiler for C
1720: 23 2e 20 20 41 6e 20 65 6d 70 74 79 0d 0a 20 20  #.  An empty..  
1730: 23 20 20 20 20 20 20 20 6c 69 73 74 20 77 69 6c  #       list wil
1740: 6c 20 62 65 20 72 65 74 75 72 6e 65 64 20 69 66  l be returned if
1750: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 63   the arguments c
1760: 61 6e 6e 6f 74 20 62 65 20 64 65 74 65 72 6d 69  annot be determi
1770: 6e 65 64 20 66 6f 72 20 73 6f 6d 65 0d 0a 20 20  ned for some..  
1780: 23 20 20 20 20 20 20 20 72 65 61 73 6f 6e 20 2d  #       reason -
1790: 4f 52 2d 20 74 68 65 20 43 23 20 63 6f 6d 70 69  OR- the C# compi
17a0: 6c 65 72 20 63 61 6e 6e 6f 74 20 62 65 20 66 6f  ler cannot be fo
17b0: 75 6e 64 2e 20 20 54 68 69 73 20 70 72 6f 63 65  und.  This proce
17c0: 64 75 72 65 20 73 68 6f 75 6c 64 0d 0a 20 20 23  dure should..  #
17d0: 20 20 20 20 20 20 20 6e 6f 74 20 72 61 69 73 65         not raise
17e0: 20 73 63 72 69 70 74 20 65 72 72 6f 72 73 2e 0d   script errors..
17f0: 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 67 65 74  .  #..  proc get
1800: 44 6f 74 4e 65 74 43 6f 72 65 43 53 68 61 72 70  DotNetCoreCSharp
1810: 43 6f 6d 6d 61 6e 64 41 72 67 73 20 7b 7d 20 7b  CommandArgs {} {
1820: 0d 0a 20 20 20 20 73 65 74 20 70 61 74 68 20 5b  ..    set path [
1830: 67 65 74 44 6f 74 4e 65 74 43 6f 72 65 53 64 6b  getDotNetCoreSdk
1840: 50 61 74 68 5d 0d 0a 0d 0a 20 20 20 20 69 66 20  Path]....    if 
1850: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
1860: 24 70 61 74 68 5d 20 3e 20 30 7d 20 74 68 65 6e  $path] > 0} then
1870: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 63 6f   {..      set co
1880: 6d 70 69 6c 65 72 46 69 6c 65 4e 61 6d 65 20 5b  mpilerFileName [
1890: 66 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 20 5b  file normalize [
18a0: 66 69 6c 65 20 6a 6f 69 6e 20 5c 0d 0a 20 20 20  file join \..   
18b0: 20 20 20 20 20 20 20 24 70 61 74 68 20 52 6f 73         $path Ros
18c0: 6c 79 6e 20 62 69 6e 63 6f 72 65 20 63 73 63 2e  lyn bincore csc.
18d0: 64 6c 6c 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 69  dll]]....      i
18e0: 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20  f {[file exists 
18f0: 24 63 6f 6d 70 69 6c 65 72 46 69 6c 65 4e 61 6d  $compilerFileNam
1900: 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  e]} then {..    
1910: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74      return [list
1920: 20 64 6f 74 6e 65 74 20 65 78 65 63 20 5b 61 70   dotnet exec [ap
1930: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20  pendArgs \..    
1940: 20 20 20 20 20 20 20 20 5c 22 20 5b 66 69 6c 65          \" [file
1950: 20 6e 61 74 69 76 65 6e 61 6d 65 20 24 63 6f 6d   nativename $com
1960: 70 69 6c 65 72 46 69 6c 65 4e 61 6d 65 5d 20 5c  pilerFileName] \
1970: 22 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20  "]]..      }..  
1980: 20 20 7d 0d 0a 0d 0a 20 20 20 20 72 65 74 75 72    }....    retur
1990: 6e 20 5b 6c 69 73 74 5d 0d 0a 20 20 7d 0d 0a 0c  n [list]..  }...
19a0: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
19b0: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
19c0: 69 73 20 75 73 65 64 20 74 6f 20 66 6f 72 6d 61  is used to forma
19d0: 74 20 61 6e 20 6f 70 74 69 6f 6e 20 74 6f 20 74  t an option to t
19e0: 68 65 20 43 23 20 63 6f 6d 70 69 6c 65 72 2e 20  he C# compiler. 
19f0: 20 49 74 0d 0a 20 20 23 20 20 20 20 20 20 20 6d   It..  #       m
1a00: 61 79 20 68 61 76 65 20 61 20 6e 61 6d 65 20 61  ay have a name a
1a10: 6e 64 2f 6f 72 20 61 20 76 61 6c 75 65 2e 20 20  nd/or a value.  
1a20: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73  This procedure s
1a30: 68 6f 75 6c 64 20 6e 6f 74 20 72 61 69 73 65 0d  hould not raise.
1a40: 0a 20 20 23 20 20 20 20 20 20 20 73 63 72 69 70  .  #       scrip
1a50: 74 20 65 72 72 6f 72 73 2e 0d 0a 20 20 23 0d 0a  t errors...  #..
1a60: 20 20 70 72 6f 63 20 66 6f 72 6d 61 74 43 6f 6d    proc formatCom
1a70: 70 69 6c 65 72 41 72 67 75 6d 65 6e 74 20 7b 20  pilerArgument { 
1a80: 6e 61 6d 65 20 76 61 6c 75 65 20 7d 20 7b 0d 0a  name value } {..
1a90: 20 20 20 20 73 65 74 20 77 72 61 70 20 22 22 0d      set wrap "".
1aa0: 0a 0d 0a 20 20 20 20 69 66 20 7b 5b 72 65 67 65  ...    if {[rege
1ab0: 78 70 20 2d 2d 20 7b 5c 73 7d 20 24 6e 61 6d 65  xp -- {\s} $name
1ac0: 5d 20 7c 7c 20 5b 72 65 67 65 78 70 20 2d 2d 20  ] || [regexp -- 
1ad0: 7b 5c 73 7d 20 24 76 61 6c 75 65 5d 7d 20 74 68  {\s} $value]} th
1ae0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20  en {..      set 
1af0: 77 72 61 70 20 5c 22 0d 0a 20 20 20 20 7d 0d 0a  wrap \"..    }..
1b00: 0d 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e  ..    if {[strin
1b10: 67 20 6c 65 6e 67 74 68 20 24 6e 61 6d 65 5d 20  g length $name] 
1b20: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  > 0} then {..   
1b30: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c     if {[string l
1b40: 65 6e 67 74 68 20 24 76 61 6c 75 65 5d 20 3e 20  ength $value] > 
1b50: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
1b60: 20 20 20 72 65 74 75 72 6e 20 5b 61 70 70 65 6e     return [appen
1b70: 64 41 72 67 73 20 24 77 72 61 70 20 24 6e 61 6d  dArgs $wrap $nam
1b80: 65 20 3a 20 24 76 61 6c 75 65 20 24 77 72 61 70  e : $value $wrap
1b90: 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20  ]..      } else 
1ba0: 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  {..        retur
1bb0: 6e 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 77  n [appendArgs $w
1bc0: 72 61 70 20 24 6e 61 6d 65 20 24 77 72 61 70 5d  rap $name $wrap]
1bd0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
1be0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 69   else {..      i
1bf0: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
1c00: 68 20 24 76 61 6c 75 65 5d 20 3e 20 30 7d 20 74  h $value] > 0} t
1c10: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 72  hen {..        r
1c20: 65 74 75 72 6e 20 5b 61 70 70 65 6e 64 41 72 67  eturn [appendArg
1c30: 73 20 24 77 72 61 70 20 24 76 61 6c 75 65 20 24  s $wrap $value $
1c40: 77 72 61 70 5d 0d 0a 20 20 20 20 20 20 7d 20 65  wrap]..      } e
1c50: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 72  lse {..        r
1c60: 65 74 75 72 6e 20 22 22 0d 0a 20 20 20 20 20 20  eturn ""..      
1c70: 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0c  }..    }..  }...
1c80: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
1c90: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
1ca0: 69 73 20 75 73 65 64 20 74 6f 20 74 72 61 6e 73  is used to trans
1cb0: 6c 61 74 65 20 61 20 6e 61 6d 65 2f 76 61 6c 75  late a name/valu
1cc0: 65 20 70 61 69 72 20 69 6e 74 6f 20 7a 65 72 6f  e pair into zero
1cd0: 20 6f 72 0d 0a 20 20 23 20 20 20 20 20 20 20 6d   or..  #       m
1ce0: 6f 72 65 20 6f 70 74 69 6f 6e 73 20 74 6f 20 74  ore options to t
1cf0: 68 65 20 43 23 20 63 6f 6d 70 69 6c 65 72 2e 20  he C# compiler. 
1d00: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
1d10: 73 68 6f 75 6c 64 20 6e 6f 74 20 72 61 69 73 65  should not raise
1d20: 0d 0a 20 20 23 20 20 20 20 20 20 20 73 63 72 69  ..  #       scri
1d30: 70 74 20 65 72 72 6f 72 73 2e 0d 0a 20 20 23 0d  pt errors...  #.
1d40: 0a 20 20 70 72 6f 63 20 63 6f 6d 70 69 6c 65 72  .  proc compiler
1d50: 50 61 72 61 6d 65 74 65 72 54 6f 41 72 67 75 6d  ParameterToArgum
1d60: 65 6e 74 73 20 7b 0d 0a 20 20 20 20 20 20 20 20  ents {..        
1d70: 20 20 6e 61 6d 65 20 7b 76 61 6c 75 65 20 22 22    name {value ""
1d80: 7d 20 7b 6f 75 74 70 75 74 41 73 73 65 6d 62 6c  } {outputAssembl
1d90: 79 56 61 72 4e 61 6d 65 20 22 22 7d 20 7d 20 7b  yVarName ""} } {
1da0: 0d 0a 20 20 20 20 73 77 69 74 63 68 20 2d 65 78  ..    switch -ex
1db0: 61 63 74 20 2d 6e 6f 63 61 73 65 20 2d 2d 20 24  act -nocase -- $
1dc0: 6e 61 6d 65 20 7b 0d 0a 20 20 20 20 20 20 57 61  name {..      Wa
1dd0: 72 6e 69 6e 67 4c 65 76 65 6c 20 7b 0d 0a 20 20  rningLevel {..  
1de0: 20 20 20 20 20 20 73 65 74 20 6e 61 6d 65 20 2d        set name -
1df0: 77 61 72 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 20  warn..      }.. 
1e00: 20 20 20 20 20 54 72 65 61 74 57 61 72 6e 69 6e       TreatWarnin
1e10: 67 73 41 73 45 72 72 6f 72 73 20 7b 0d 0a 20 20  gsAsErrors {..  
1e20: 20 20 20 20 20 20 73 65 74 20 6e 61 6d 65 20 2d        set name -
1e30: 77 61 72 6e 61 73 65 72 72 6f 72 0d 0a 20 20 20  warnaserror..   
1e40: 20 20 20 7d 0d 0a 20 20 20 20 20 20 4f 75 74 70     }..      Outp
1e50: 75 74 41 73 73 65 6d 62 6c 79 20 7b 0d 0a 20 20  utAssembly {..  
1e60: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
1e70: 67 20 6c 65 6e 67 74 68 20 24 6f 75 74 70 75 74  g length $output
1e80: 41 73 73 65 6d 62 6c 79 56 61 72 4e 61 6d 65 5d  AssemblyVarName]
1e90: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20   > 0} then {..  
1ea0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
1eb0: 20 20 20 20 20 23 20 48 41 43 4b 3a 20 54 68 69       # HACK: Thi
1ec0: 73 20 63 6f 6d 70 69 6c 65 72 20 70 61 72 61 6d  s compiler param
1ed0: 65 74 65 72 20 69 73 20 68 61 6e 64 6c 65 64 20  eter is handled 
1ee0: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 3b 20 68  by our caller; h
1ef0: 6f 77 65 76 65 72 2c 0d 0a 20 20 20 20 20 20 20  owever,..       
1f00: 20 20 20 23 20 20 20 20 20 20 20 77 65 20 77 61     #       we wa
1f10: 6e 74 20 74 6f 20 68 6f 6e 6f 72 20 74 68 65 20  nt to honor the 
1f20: 76 61 6c 75 65 20 73 70 65 63 69 66 69 65 64 20  value specified 
1f30: 76 69 61 20 74 68 65 20 4f 75 74 70 75 74 41 73  via the OutputAs
1f40: 73 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 20 20  sembly..        
1f50: 20 20 23 20 20 20 20 20 20 20 70 72 6f 70 65 72    #       proper
1f60: 74 79 2e 20 20 54 68 65 72 65 66 6f 72 65 2c 20  ty.  Therefore, 
1f70: 72 65 73 65 74 20 74 68 65 20 73 70 65 63 69 66  reset the specif
1f80: 69 65 64 20 76 61 72 69 61 62 6c 65 20 66 72 6f  ied variable fro
1f90: 6d 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 20  m the..         
1fa0: 20 23 20 20 20 20 20 20 20 63 61 6c 6c 65 72 20   #       caller 
1fb0: 74 6f 20 74 68 65 20 6e 65 77 20 76 61 6c 75 65  to the new value
1fc0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
1fd0: 20 20 20 20 20 20 20 20 20 20 75 70 76 61 72 20            upvar 
1fe0: 31 20 24 6f 75 74 70 75 74 41 73 73 65 6d 62 6c  1 $outputAssembl
1ff0: 79 56 61 72 4e 61 6d 65 20 6f 75 74 70 75 74 41  yVarName outputA
2000: 73 73 65 6d 62 6c 79 0d 0a 0d 0a 20 20 20 20 20  ssembly....     
2010: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
2020: 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68    # NOTE: Use th
2030: 65 20 66 69 6c 65 20 6e 61 6d 65 20 76 61 6c 75  e file name valu
2040: 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74  e specified by t
2050: 68 65 20 63 61 6c 6c 65 72 20 76 65 72 62 61 74  he caller verbat
2060: 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  im...          #
2070: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  ..          set 
2080: 6f 75 74 70 75 74 41 73 73 65 6d 62 6c 79 20 24  outputAssembly $
2090: 76 61 6c 75 65 0d 0a 0d 0a 20 20 20 20 20 20 20  value....       
20a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
20b0: 23 20 48 41 43 4b 3a 20 41 6c 73 6f 2c 20 6d 61  # HACK: Also, ma
20c0: 6b 65 20 73 75 72 65 20 74 68 61 74 20 77 65 20  ke sure that we 
20d0: 64 6f 20 6e 6f 74 20 68 61 6e 64 6c 65 20 74 68  do not handle th
20e0: 69 73 20 70 61 72 61 6d 65 74 65 72 20 61 67 61  is parameter aga
20f0: 69 6e 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 23  in,..          #
2100: 20 20 20 20 20 20 20 62 65 6c 6f 77 2e 0d 0a 20         below... 
2110: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
2120: 20 20 20 20 20 20 73 65 74 20 6e 61 6d 65 20 22        set name "
2130: 22 3b 20 73 65 74 20 76 61 6c 75 65 20 22 22 0d  "; set value "".
2140: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20  .        } else 
2150: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  {..          #..
2160: 20 20 20 20 20 20 20 20 20 20 23 20 42 55 47 42            # BUGB
2170: 55 47 3a 20 54 72 61 6e 73 6c 61 74 65 20 74 68  UG: Translate th
2180: 65 20 63 6f 6d 70 69 6c 65 72 20 70 61 72 61 6d  e compiler param
2190: 65 74 65 72 3b 20 68 6f 77 65 76 65 72 2c 20 74  eter; however, t
21a0: 68 69 73 20 6d 61 79 20 6e 6f 74 0d 0a 20 20 20  his may not..   
21b0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20         #        
21c0: 20 61 63 74 75 61 6c 6c 79 20 77 6f 72 6b 2c 20   actually work, 
21d0: 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 68 6f 77  depending on how
21e0: 20 6f 75 72 20 63 61 6c 6c 65 72 20 68 61 6e 64   our caller hand
21f0: 6c 65 73 20 69 74 73 0d 0a 20 20 20 20 20 20 20  les its..       
2200: 20 20 20 23 20 20 20 20 20 20 20 20 20 6f 75 74     #         out
2210: 70 75 74 20 61 73 73 65 6d 62 6c 79 20 66 69 6c  put assembly fil
2220: 65 20 6e 61 6d 65 2e 20 20 41 74 20 74 68 65 20  e name.  At the 
2230: 74 69 6d 65 20 74 68 69 73 20 62 6c 6f 63 6b 20  time this block 
2240: 77 61 73 0d 0a 20 20 20 20 20 20 20 20 20 20 23  was..          #
2250: 20 20 20 20 20 20 20 20 20 6f 72 69 67 69 6e 61           origina
2260: 6c 6c 79 20 77 72 69 74 74 65 6e 20 28 32 30 31  lly written (201
2270: 38 2d 30 34 2d 30 39 29 2c 20 74 68 65 20 6f 6e  8-04-09), the on
2280: 6c 79 20 63 61 6c 6c 65 72 20 28 69 2e 65 2e 0d  ly caller (i.e..
2290: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20  .          #    
22a0: 20 20 20 20 20 5b 63 6f 6d 70 69 6c 65 56 69 61       [compileVia
22b0: 44 6f 74 4e 65 74 43 6f 72 65 43 53 68 61 72 70  DotNetCoreCSharp
22c0: 5d 29 20 61 6c 77 61 79 73 20 70 61 73 73 65 64  ]) always passed
22d0: 20 74 68 65 20 6f 75 74 70 75 74 0d 0a 20 20 20   the output..   
22e0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20         #        
22f0: 20 61 73 73 65 6d 62 6c 79 20 76 61 72 69 61 62   assembly variab
2300: 6c 65 20 6e 61 6d 65 2c 20 6d 61 6b 69 6e 67 20  le name, making 
2310: 74 68 69 73 20 61 20 6e 6f 6e 2d 69 73 73 75 65  this a non-issue
2320: 2e 20 20 54 68 69 73 0d 0a 20 20 20 20 20 20 20  .  This..       
2330: 20 20 20 23 20 20 20 20 20 20 20 20 20 63 6f 6e     #         con
2340: 76 65 6e 74 69 6f 6e 20 73 68 6f 75 6c 64 20 61  vention should a
2350: 6c 73 6f 20 62 65 20 66 6f 6c 6c 6f 77 65 64 20  lso be followed 
2360: 62 79 20 66 75 74 75 72 65 20 63 61 6c 6c 65 72  by future caller
2370: 73 20 6f 66 0d 0a 20 20 20 20 20 20 20 20 20 20  s of..          
2380: 23 20 20 20 20 20 20 20 20 20 74 68 69 73 20 70  #         this p
2390: 72 6f 63 65 64 75 72 65 2e 0d 0a 20 20 20 20 20  rocedure...     
23a0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
23b0: 20 20 73 65 74 20 6e 61 6d 65 20 2d 6f 75 74 0d    set name -out.
23c0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
23d0: 20 20 7d 0d 0a 20 20 20 20 20 20 52 65 66 65 72    }..      Refer
23e0: 65 6e 63 65 64 41 73 73 65 6d 62 6c 69 65 73 2e  encedAssemblies.
23f0: 41 64 64 20 7b 0d 0a 20 20 20 20 20 20 20 20 73  Add {..        s
2400: 65 74 20 6e 61 6d 65 20 2d 72 65 66 65 72 65 6e  et name -referen
2410: 63 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66  ce....        if
2420: 20 7b 5b 66 69 6c 65 20 70 61 74 68 74 79 70 65   {[file pathtype
2430: 20 24 76 61 6c 75 65 5d 20 6e 65 20 22 61 62 73   $value] ne "abs
2440: 6f 6c 75 74 65 22 7d 20 74 68 65 6e 20 7b 0d 0a  olute"} then {..
2450: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 76 61            set va
2460: 6c 75 65 20 5b 66 69 6c 65 20 6e 61 74 69 76 65  lue [file native
2470: 6e 61 6d 65 20 5b 66 69 6c 65 20 6e 6f 72 6d 61  name [file norma
2480: 6c 69 7a 65 20 5c 0d 0a 20 20 20 20 20 20 20 20  lize \..        
2490: 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e        [file join
24a0: 20 5b 67 65 74 44 6f 74 4e 65 74 53 74 61 6e 64   [getDotNetStand
24b0: 61 72 64 52 65 66 65 72 65 6e 63 65 50 61 74 68  ardReferencePath
24c0: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ] \..           
24d0: 20 20 20 24 76 61 6c 75 65 5d 5d 5d 0d 0a 20 20     $value]]]..  
24e0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
24f0: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 73  ..    }....    s
2500: 65 74 20 66 6f 72 6d 61 74 74 65 64 20 5b 66 6f  et formatted [fo
2510: 72 6d 61 74 43 6f 6d 70 69 6c 65 72 41 72 67 75  rmatCompilerArgu
2520: 6d 65 6e 74 20 24 6e 61 6d 65 20 24 76 61 6c 75  ment $name $valu
2530: 65 5d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b 73  e]....    if {[s
2540: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 66 6f  tring length $fo
2550: 72 6d 61 74 74 65 64 5d 20 3e 20 30 7d 20 74 68  rmatted] > 0} th
2560: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75  en {..      retu
2570: 72 6e 20 5b 6c 69 73 74 20 24 66 6f 72 6d 61 74  rn [list $format
2580: 74 65 64 5d 0d 0a 20 20 20 20 7d 20 65 6c 73 65  ted]..    } else
2590: 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e   {..      return
25a0: 20 5b 6c 69 73 74 5d 0d 0a 20 20 20 20 7d 0d 0a   [list]..    }..
25b0: 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23    }.....  #..  #
25c0: 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63   NOTE: This proc
25d0: 65 64 75 72 65 20 69 73 20 75 73 65 64 20 74 6f  edure is used to
25e0: 20 6f 62 74 61 69 6e 20 74 68 65 20 62 61 73 65   obtain the base
25f0: 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 6f 70   command line op
2600: 74 69 6f 6e 73 20 66 6f 72 0d 0a 20 20 23 20 20  tions for..  #  
2610: 20 20 20 20 20 74 68 65 20 43 23 20 63 6f 6d 70       the C# comp
2620: 69 6c 65 72 2c 20 69 6e 63 6c 75 64 69 6e 67 20  iler, including 
2630: 74 68 6f 73 65 20 74 68 61 74 20 6d 61 79 20 62  those that may b
2640: 65 20 65 6e 61 62 6c 65 64 20 62 79 20 64 65 66  e enabled by def
2650: 61 75 6c 74 2e 0d 0a 20 20 23 20 20 20 20 20 20  ault...  #      
2660: 20 41 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67   An empty string
2670: 20 6d 61 79 20 62 65 20 72 65 74 75 72 6e 65 64   may be returned
2680: 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72  .  This procedur
2690: 65 20 73 68 6f 75 6c 64 20 6e 6f 74 20 72 61 69  e should not rai
26a0: 73 65 0d 0a 20 20 23 20 20 20 20 20 20 20 73 63  se..  #       sc
26b0: 72 69 70 74 20 65 72 72 6f 72 73 2e 0d 0a 20 20  ript errors...  
26c0: 23 0d 0a 20 20 70 72 6f 63 20 67 65 74 43 53 68  #..  proc getCSh
26d0: 61 72 70 43 6f 6d 70 69 6c 65 72 4f 70 74 69 6f  arpCompilerOptio
26e0: 6e 73 20 7b 20 70 61 72 61 6d 65 74 65 72 73 20  ns { parameters 
26f0: 6c 69 62 72 61 72 79 20 63 73 68 61 72 70 20 70  library csharp p
2700: 72 65 66 69 78 20 7d 20 7b 0d 0a 20 20 20 20 23  refix } {..    #
2710: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61  ..    # NOTE: Ma
2720: 6b 65 20 73 75 72 65 20 74 68 61 74 20 74 68 65  ke sure that the
2730: 20 22 73 74 61 6e 64 61 72 64 22 20 70 72 65 70   "standard" prep
2740: 72 6f 63 65 73 73 6f 72 20 64 65 66 69 6e 65 73  rocessor defines
2750: 20 6d 61 74 63 68 20 74 68 6f 73 65 0d 0a 20 20   match those..  
2760: 20 20 23 20 20 20 20 20 20 20 66 6f 72 20 74 68    #       for th
2770: 65 20 70 6c 61 74 66 6f 72 6d 20 28 69 2e 65 2e  e platform (i.e.
2780: 20 74 68 65 20 6f 6e 65 73 20 75 73 65 64 20 74   the ones used t
2790: 6f 20 63 6f 6d 70 69 6c 65 20 74 68 65 20 45 61  o compile the Ea
27a0: 67 6c 65 20 63 6f 72 65 0d 0a 20 20 20 20 23 20  gle core..    # 
27b0: 20 20 20 20 20 20 6c 69 62 72 61 72 79 20 61 73        library as
27c0: 73 65 6d 62 6c 79 29 2e 20 20 54 68 69 73 20 63  sembly).  This c
27d0: 61 6c 6c 65 72 20 6d 61 79 20 64 69 73 61 62 6c  aller may disabl
27e0: 65 20 74 68 69 73 20 68 61 6e 64 6c 69 6e 67 2e  e this handling.
27f0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20  ..    #..    if 
2800: 7b 24 6c 69 62 72 61 72 79 7d 20 74 68 65 6e 20  {$library} then 
2810: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 6c 69 62  {..      set lib
2820: 72 61 72 79 4f 70 74 69 6f 6e 73 20 5b 65 78 70  raryOptions [exp
2830: 72 20 7b 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  r { \..         
2840: 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a   [info exists ::
2850: 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 63  eagle_platform(c
2860: 6f 6d 70 69 6c 65 4f 70 74 69 6f 6e 73 29 5d 20  ompileOptions)] 
2870: 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 24  ? \..          $
2880: 3a 3a 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d  ::eagle_platform
2890: 28 63 6f 6d 70 69 6c 65 4f 70 74 69 6f 6e 73 29  (compileOptions)
28a0: 20 3a 20 5b 6c 69 73 74 5d 20 5c 0d 0a 20 20 20   : [list] \..   
28b0: 20 20 20 7d 5d 0d 0a 20 20 20 20 7d 20 65 6c 73     }]..    } els
28c0: 65 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 6c  e {..      set l
28d0: 69 62 72 61 72 79 4f 70 74 69 6f 6e 73 20 5b 6c  ibraryOptions [l
28e0: 69 73 74 5d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20  ist]..    }.... 
28f0: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
2900: 3a 20 50 65 72 6d 69 74 20 65 78 74 72 61 20 43  : Permit extra C
2910: 23 20 63 6f 6d 70 69 6c 65 72 20 6f 70 74 69 6f  # compiler optio
2920: 6e 73 20 74 6f 20 62 65 20 70 61 73 73 65 64 20  ns to be passed 
2930: 76 69 61 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a  via the global..
2940: 20 20 20 20 23 20 20 20 20 20 20 20 61 72 72 61      #       arra
2950: 79 20 65 6c 65 6d 65 6e 74 20 22 63 73 68 61 72  y element "cshar
2960: 70 4f 70 74 69 6f 6e 73 22 2c 20 69 66 20 69 74  pOptions", if it
2970: 20 65 78 69 73 74 73 2e 20 20 54 68 69 73 20 63   exists.  This c
2980: 61 6c 6c 65 72 20 6d 61 79 0d 0a 20 20 20 20 23  aller may..    #
2990: 20 20 20 20 20 20 20 64 69 73 61 62 6c 65 20 74         disable t
29a0: 68 69 73 20 68 61 6e 64 6c 69 6e 67 2e 0d 0a 20  his handling... 
29b0: 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 24 63     #..    if {$c
29c0: 73 68 61 72 70 7d 20 74 68 65 6e 20 7b 0d 0a 20  sharp} then {.. 
29d0: 20 20 20 20 20 73 65 74 20 63 73 68 61 72 70 4f       set csharpO
29e0: 70 74 69 6f 6e 73 20 5b 65 78 70 72 20 7b 20 5c  ptions [expr { \
29f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 69 6e 66  ..          [inf
2a00: 6f 20 65 78 69 73 74 73 20 3a 3a 65 61 67 6c 65  o exists ::eagle
2a10: 5f 70 6c 61 74 66 6f 72 6d 28 63 73 68 61 72 70  _platform(csharp
2a20: 4f 70 74 69 6f 6e 73 29 5d 20 3f 20 5c 0d 0a 20  Options)] ? \.. 
2a30: 20 20 20 20 20 20 20 20 20 24 3a 3a 65 61 67 6c           $::eagl
2a40: 65 5f 70 6c 61 74 66 6f 72 6d 28 63 73 68 61 72  e_platform(cshar
2a50: 70 4f 70 74 69 6f 6e 73 29 20 3a 20 5b 6c 69 73  pOptions) : [lis
2a60: 74 5d 20 5c 0d 0a 20 20 20 20 20 20 7d 5d 0d 0a  t] \..      }]..
2a70: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
2a80: 20 20 20 20 73 65 74 20 63 73 68 61 72 70 4f 70      set csharpOp
2a90: 74 69 6f 6e 73 20 5b 6c 69 73 74 5d 0d 0a 20 20  tions [list]..  
2aa0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20    }....    #..  
2ab0: 20 20 23 20 4e 4f 54 45 3a 20 53 74 61 72 74 20    # NOTE: Start 
2ac0: 6f 75 74 20 77 69 74 68 20 6e 6f 20 63 6f 6d 70  out with no comp
2ad0: 69 6c 65 72 20 6f 70 74 69 6f 6e 73 2e 0d 0a 20  iler options... 
2ae0: 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20 72 65     #..    set re
2af0: 73 75 6c 74 20 22 22 0d 0a 0d 0a 20 20 20 20 23  sult ""....    #
2b00: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 47 72  ..    # NOTE: Gr
2b10: 61 62 20 74 68 65 20 65 78 69 73 74 69 6e 67 20  ab the existing 
2b20: 63 6f 6d 70 69 6c 65 72 20 6f 70 74 69 6f 6e 73  compiler options
2b30: 2c 20 69 66 20 61 6e 79 2e 20 20 54 68 69 73 20  , if any.  This 
2b40: 63 61 6c 6c 65 72 20 6d 61 79 0d 0a 20 20 20 20  caller may..    
2b50: 23 20 20 20 20 20 20 20 64 69 73 61 62 6c 65 20  #       disable 
2b60: 74 68 69 73 20 68 61 6e 64 6c 69 6e 67 20 28 65  this handling (e
2b70: 2e 67 2e 20 62 79 20 73 70 65 63 69 66 79 69 6e  .g. by specifyin
2b80: 67 20 61 6e 20 69 6e 76 61 6c 69 64 20 6f 70 61  g an invalid opa
2b90: 71 75 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20  que..    #      
2ba0: 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c 65 20 66   object handle f
2bb0: 6f 72 20 74 68 65 20 22 70 61 72 61 6d 65 74 65  or the "paramete
2bc0: 72 73 22 20 61 72 67 75 6d 65 6e 74 29 2e 0d 0a  rs" argument)...
2bd0: 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 5b      #..    if {[
2be0: 69 73 4e 6f 6e 4e 75 6c 6c 4f 62 6a 65 63 74 48  isNonNullObjectH
2bf0: 61 6e 64 6c 65 20 24 70 61 72 61 6d 65 74 65 72  andle $parameter
2c00: 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  s]} then {..    
2c10: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
2c20: 6e 67 74 68 20 24 72 65 73 75 6c 74 5d 20 3e 20  ngth $result] > 
2c30: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
2c40: 20 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74     append result
2c50: 20 22 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d   " "..      }...
2c60: 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 72 65  .      append re
2c70: 73 75 6c 74 20 5b 24 70 61 72 61 6d 65 74 65 72  sult [$parameter
2c80: 73 20 43 6f 6d 70 69 6c 65 72 4f 70 74 69 6f 6e  s CompilerOption
2c90: 73 5d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  s]..    }....   
2ca0: 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20   #..    # NOTE: 
2cb0: 41 72 65 20 74 68 65 72 65 20 61 6e 79 20 45 61  Are there any Ea
2cc0: 67 6c 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79  gle core library
2cd0: 20 6f 70 74 69 6f 6e 73 20 74 6f 20 63 68 65 63   options to chec
2ce0: 6b 3f 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 69  k?..    #..    i
2cf0: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6c 69 62  f {[llength $lib
2d00: 72 61 72 79 4f 70 74 69 6f 6e 73 5d 20 3e 20 30  raryOptions] > 0
2d10: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
2d20: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
2d30: 20 57 61 73 20 74 68 65 20 45 61 67 6c 65 20 63   Was the Eagle c
2d40: 6f 72 65 20 6c 69 62 72 61 72 79 20 62 75 69 6c  ore library buil
2d50: 74 20 69 6e 20 74 68 65 20 44 65 62 75 67 20 63  t in the Debug c
2d60: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 3f 0d 0a 20  onfiguration?.. 
2d70: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
2d80: 20 7b 22 44 45 42 55 47 22 20 69 6e 20 24 6c 69   {"DEBUG" in $li
2d90: 62 72 61 72 79 4f 70 74 69 6f 6e 73 7d 20 74 68  braryOptions} th
2da0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  en {..        if
2db0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
2dc0: 20 24 72 65 73 75 6c 74 5d 20 3e 20 30 7d 20 74   $result] > 0} t
2dd0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
2de0: 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 22   append result "
2df0: 20 22 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d   "..        }...
2e00: 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20  .        append 
2e10: 72 65 73 75 6c 74 20 24 70 72 65 66 69 78 20 64  result $prefix d
2e20: 65 66 69 6e 65 3a 44 45 42 55 47 0d 0a 20 20 20  efine:DEBUG..   
2e30: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d     }....      #.
2e40: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57  .      # NOTE: W
2e50: 61 73 20 74 68 65 20 45 61 67 6c 65 20 63 6f 72  as the Eagle cor
2e60: 65 20 6c 69 62 72 61 72 79 20 62 75 69 6c 74 20  e library built 
2e70: 77 69 74 68 20 74 72 61 63 69 6e 67 20 65 6e 61  with tracing ena
2e80: 62 6c 65 64 20 28 69 2e 65 2e 0d 0a 20 20 20 20  bled (i.e...    
2e90: 20 20 23 20 20 20 20 20 20 20 74 68 69 73 20 61    #       this a
2ea0: 6c 6c 6f 77 73 20 66 6f 72 20 75 73 65 20 6f 66  llows for use of
2eb0: 20 53 79 73 74 65 6d 2e 44 69 61 67 6e 6f 73 74   System.Diagnost
2ec0: 69 63 73 2e 54 72 61 63 65 2c 20 65 74 63 29 3f  ics.Trace, etc)?
2ed0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
2ee0: 20 69 66 20 7b 22 54 52 41 43 45 22 20 69 6e 20   if {"TRACE" in 
2ef0: 24 6c 69 62 72 61 72 79 4f 70 74 69 6f 6e 73 7d  $libraryOptions}
2f00: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
2f10: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
2f20: 67 74 68 20 24 72 65 73 75 6c 74 5d 20 3e 20 30  gth $result] > 0
2f30: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
2f40: 20 20 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c      append resul
2f50: 74 20 22 20 22 0d 0a 20 20 20 20 20 20 20 20 7d  t " "..        }
2f60: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65  ....        appe
2f70: 6e 64 20 72 65 73 75 6c 74 20 24 70 72 65 66 69  nd result $prefi
2f80: 78 20 64 65 66 69 6e 65 3a 54 52 41 43 45 0d 0a  x define:TRACE..
2f90: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
2fa0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
2fb0: 4f 54 45 3a 20 41 72 65 20 74 68 65 72 65 20 61  OTE: Are there a
2fc0: 6e 79 20 65 78 74 72 61 20 43 23 20 63 6f 6d 70  ny extra C# comp
2fd0: 69 6c 65 72 20 6f 70 74 69 6f 6e 73 20 74 6f 20  iler options to 
2fe0: 61 64 64 3f 0d 0a 20 20 20 20 23 0d 0a 20 20 20  add?..    #..   
2ff0: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63   if {[llength $c
3000: 73 68 61 72 70 4f 70 74 69 6f 6e 73 5d 20 3e 20  sharpOptions] > 
3010: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
3020: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
3030: 3a 20 41 70 70 65 6e 64 20 74 68 65 20 63 6f 6e  : Append the con
3040: 66 69 67 75 72 65 64 20 65 78 74 72 61 20 43 23  figured extra C#
3050: 20 63 6f 6d 70 69 6c 65 72 20 6f 70 74 69 6f 6e   compiler option
3060: 73 20 63 6f 6e 66 69 67 75 72 65 64 0d 0a 20 20  s configured..  
3070: 20 20 20 20 23 20 20 20 20 20 20 20 76 69 61 20      #       via 
3080: 74 68 65 20 67 6c 6f 62 61 6c 20 61 72 72 61 79  the global array
3090: 20 65 6c 65 6d 65 6e 74 20 22 63 73 68 61 72 70   element "csharp
30a0: 4f 70 74 69 6f 6e 73 22 2c 20 69 66 20 61 6e 79  Options", if any
30b0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
30c0: 20 20 66 6f 72 65 61 63 68 20 63 73 68 61 72 70    foreach csharp
30d0: 4f 70 74 69 6f 6e 20 24 63 73 68 61 72 70 4f 70  Option $csharpOp
30e0: 74 69 6f 6e 73 20 7b 0d 0a 20 20 20 20 20 20 20  tions {..       
30f0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
3100: 67 74 68 20 24 72 65 73 75 6c 74 5d 20 3e 20 30  gth $result] > 0
3110: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
3120: 20 20 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c      append resul
3130: 74 20 22 20 22 0d 0a 20 20 20 20 20 20 20 20 7d  t " "..        }
3140: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65  ....        appe
3150: 6e 64 20 72 65 73 75 6c 74 20 24 63 73 68 61 72  nd result $cshar
3160: 70 4f 70 74 69 6f 6e 0d 0a 20 20 20 20 20 20 7d  pOption..      }
3170: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 72  ..    }....    r
3180: 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20  eturn $result.. 
3190: 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23 20   }.....  #..  # 
31a0: 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65  NOTE: This proce
31b0: 64 75 72 65 20 69 73 20 75 73 65 64 20 74 6f 20  dure is used to 
31c0: 65 73 63 61 70 65 20 61 6c 6c 20 63 68 61 72 61  escape all chara
31d0: 63 74 65 72 73 20 69 6e 20 74 68 65 20 73 70 65  cters in the spe
31e0: 63 69 66 69 65 64 0d 0a 20 20 23 20 20 20 20 20  cified..  #     
31f0: 20 20 73 74 72 69 6e 67 20 66 6f 72 20 75 73 65    string for use
3200: 20 69 6e 73 69 64 65 20 6f 66 20 61 20 72 65 67   inside of a reg
3210: 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 2e  ular expression.
3220: 20 20 41 6e 20 65 6d 70 74 79 20 73 74 72 69 6e    An empty strin
3230: 67 0d 0a 20 20 23 20 20 20 20 20 20 20 6d 61 79  g..  #       may
3240: 20 62 65 20 72 65 74 75 72 6e 65 64 2e 20 20 54   be returned.  T
3250: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 68  his procedure sh
3260: 6f 75 6c 64 20 6e 6f 74 20 72 61 69 73 65 20 73  ould not raise s
3270: 63 72 69 70 74 20 65 72 72 6f 72 73 2e 0d 0a 20  cript errors... 
3280: 20 23 0d 0a 20 20 70 72 6f 63 20 72 65 67 65 78   #..  proc regex
3290: 70 45 73 63 61 70 65 41 6c 6c 20 7b 20 76 61 6c  pEscapeAll { val
32a0: 75 65 20 7d 20 7b 0d 0a 20 20 20 20 73 65 74 20  ue } {..    set 
32b0: 72 65 73 75 6c 74 20 22 22 0d 0a 0d 0a 20 20 20  result ""....   
32c0: 20 66 6f 72 65 61 63 68 20 63 68 61 72 20 5b 73   foreach char [s
32d0: 70 6c 69 74 20 24 76 61 6c 75 65 20 22 22 5d 20  plit $value ""] 
32e0: 7b 0d 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20  {..      append 
32f0: 72 65 73 75 6c 74 20 5c 5c 75 20 5b 66 6f 72 6d  result \\u [form
3300: 61 74 20 25 30 34 58 20 5b 73 74 72 69 6e 67 20  at %04X [string 
3310: 6f 72 64 69 6e 61 6c 20 24 63 68 61 72 20 30 5d  ordinal $char 0]
3320: 5d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  ]..    }....    
3330: 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a  return $result..
3340: 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23    }.....  #..  #
3350: 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63   NOTE: This proc
3360: 65 64 75 72 65 20 69 73 20 75 73 65 64 20 74 6f  edure is used to
3370: 20 65 78 65 63 75 74 65 20 74 68 65 20 43 23 20   execute the C# 
3380: 63 6f 6d 70 69 6c 65 72 20 61 6e 64 20 72 65 74  compiler and ret
3390: 75 72 6e 73 20 69 74 73 0d 0a 20 20 23 20 20 20  urns its..  #   
33a0: 20 20 20 20 70 6c 61 74 66 6f 72 6d 20 6e 6f 72      platform nor
33b0: 6d 61 6c 69 7a 65 64 20 72 65 73 75 6c 74 73 2e  malized results.
33c0: 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 72 75  ..  #..  proc ru
33d0: 6e 44 6f 74 4e 65 74 43 53 68 61 72 70 43 6f 6d  nDotNetCSharpCom
33e0: 6d 61 6e 64 20 7b 20 63 6f 6d 6d 61 6e 64 20 7d  mand { command }
33f0: 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23   {..    #..    #
3400: 20 4e 4f 54 45 3a 20 45 76 61 6c 75 61 74 65 20   NOTE: Evaluate 
3410: 74 68 65 20 5b 65 78 65 63 5d 20 63 6f 6d 6d 61  the [exec] comma
3420: 6e 64 20 63 6f 6e 73 74 72 75 63 74 65 64 20 62  nd constructed b
3430: 79 20 6f 75 72 20 63 61 6c 6c 65 72 2c 20 69 6e  y our caller, in
3440: 20 74 68 65 69 72 0d 0a 20 20 20 20 23 20 20 20   their..    #   
3450: 20 20 20 20 63 6f 6e 74 65 78 74 2c 20 61 6e 64      context, and
3460: 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75   return the resu
3470: 6c 74 73 2c 20 77 69 74 68 20 6c 69 6e 65 2d 65  lts, with line-e
3480: 6e 64 69 6e 67 73 20 6e 6f 72 6d 61 6c 69 7a 65  ndings normalize
3490: 64 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 72  d...    #..    r
34a0: 65 74 75 72 6e 20 5b 73 74 72 69 6e 67 20 6d 61  eturn [string ma
34b0: 70 20 5b 6c 69 73 74 20 5c 72 5c 6e 20 5c 6e 5d  p [list \r\n \n]
34c0: 20 5b 75 70 6c 65 76 65 6c 20 31 20 24 63 6f 6d   [uplevel 1 $com
34d0: 6d 61 6e 64 5d 5d 0d 0a 20 20 7d 0d 0a 0c 0d 0a  mand]]..  }.....
34e0: 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54    #..  # NOTE: T
34f0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73  his procedure is
3500: 20 75 73 65 64 20 74 6f 20 65 78 74 72 61 63 74   used to extract
3510: 20 74 68 65 20 43 23 20 63 6f 6d 70 69 6c 65 72   the C# compiler
3520: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 0d   error messages.
3530: 0a 20 20 23 20 20 20 20 20 20 20 66 72 6f 6d 20  .  #       from 
3540: 69 74 73 20 72 65 73 75 6c 74 73 2e 20 20 41 6e  its results.  An
3550: 20 65 6d 70 74 79 20 6c 69 73 74 20 77 69 6c 6c   empty list will
3560: 20 62 65 20 72 65 74 75 72 6e 65 64 20 69 66 20   be returned if 
3570: 74 68 65 20 65 72 72 6f 72 73 0d 0a 20 20 23 20  the errors..  # 
3580: 20 20 20 20 20 20 63 61 6e 6e 6f 74 20 62 65 20        cannot be 
3590: 64 65 74 65 72 6d 69 6e 65 64 20 66 6f 72 20 73  determined for s
35a0: 6f 6d 65 20 72 65 61 73 6f 6e 2e 20 20 54 68 69  ome reason.  Thi
35b0: 73 20 70 72 6f 63 65 64 75 72 65 20 73 68 6f 75  s procedure shou
35c0: 6c 64 20 6e 6f 74 0d 0a 20 20 23 20 20 20 20 20  ld not..  #     
35d0: 20 20 72 61 69 73 65 20 73 63 72 69 70 74 20 65    raise script e
35e0: 72 72 6f 72 73 2e 0d 0a 20 20 23 0d 0a 20 20 70  rrors...  #..  p
35f0: 72 6f 63 20 65 78 74 72 61 63 74 43 53 68 61 72  roc extractCShar
3600: 70 45 72 72 6f 72 73 20 7b 20 66 69 6c 65 4e 61  pErrors { fileNa
3610: 6d 65 20 72 65 73 75 6c 74 73 20 7d 20 7b 0d 0a  me results } {..
3620: 20 20 20 20 73 65 74 20 6c 69 73 74 20 5b 6c 69      set list [li
3630: 73 74 5d 0d 0a 0d 0a 20 20 20 20 66 6f 72 65 61  st]....    forea
3640: 63 68 20 7b 64 75 6d 6d 79 20 6d 61 74 63 68 7d  ch {dummy match}
3650: 20 5b 72 65 67 65 78 70 20 2d 61 6c 6c 20 2d 6c   [regexp -all -l
3660: 69 6e 65 20 2d 69 6e 6c 69 6e 65 20 2d 2d 20 5c  ine -inline -- \
3670: 0d 0a 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e  ..        [appen
3680: 64 41 72 67 73 20 28 5e 28 3f 3a 20 5b 72 65 67  dArgs (^(?: [reg
3690: 65 78 70 45 73 63 61 70 65 41 6c 6c 20 24 66 69  expEscapeAll $fi
36a0: 6c 65 4e 61 6d 65 5d 20 5c 0d 0a 20 20 20 20 20  leName] \..     
36b0: 20 20 20 7b 5c 28 5c 64 2b 2c 5c 64 2b 5c 29 3a     {\(\d+,\d+\):
36c0: 20 29 3f 65 72 72 6f 72 20 43 53 5c 64 7b 34 7d   )?error CS\d{4}
36d0: 3a 20 5b 5e 5c 6e 5d 2b 24 29 7d 5d 20 24 72 65  : [^\n]+$)}] $re
36e0: 73 75 6c 74 73 5d 20 7b 0d 0a 20 20 20 20 20 20  sults] {..      
36f0: 6c 61 70 70 65 6e 64 20 6c 69 73 74 20 24 6d 61  lappend list $ma
3700: 74 63 68 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20  tch..    }....  
3710: 20 20 72 65 74 75 72 6e 20 24 6c 69 73 74 0d 0a    return $list..
3720: 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23    }.....  #..  #
3730: 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63   NOTE: This proc
3740: 65 64 75 72 65 20 69 73 20 75 73 65 64 20 74 6f  edure is used to
3750: 20 65 78 74 72 61 63 74 20 74 68 65 20 43 23 20   extract the C# 
3760: 63 6f 6d 70 69 6c 65 72 20 77 61 72 6e 69 6e 67  compiler warning
3770: 20 6d 65 73 73 61 67 65 73 0d 0a 20 20 23 20 20   messages..  #  
3780: 20 20 20 20 20 66 72 6f 6d 20 69 74 73 20 72 65       from its re
3790: 73 75 6c 74 73 2e 20 20 41 6e 20 65 6d 70 74 79  sults.  An empty
37a0: 20 6c 69 73 74 20 77 69 6c 6c 20 62 65 20 72 65   list will be re
37b0: 74 75 72 6e 65 64 20 69 66 20 74 68 65 20 77 61  turned if the wa
37c0: 72 6e 69 6e 67 73 0d 0a 20 20 23 20 20 20 20 20  rnings..  #     
37d0: 20 20 63 61 6e 6e 6f 74 20 62 65 20 64 65 74 65    cannot be dete
37e0: 72 6d 69 6e 65 64 20 66 6f 72 20 73 6f 6d 65 20  rmined for some 
37f0: 72 65 61 73 6f 6e 2e 20 20 54 68 69 73 20 70 72  reason.  This pr
3800: 6f 63 65 64 75 72 65 20 73 68 6f 75 6c 64 20 6e  ocedure should n
3810: 6f 74 0d 0a 20 20 23 20 20 20 20 20 20 20 72 61  ot..  #       ra
3820: 69 73 65 20 73 63 72 69 70 74 20 65 72 72 6f 72  ise script error
3830: 73 2e 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20  s...  #..  proc 
3840: 65 78 74 72 61 63 74 43 53 68 61 72 70 57 61 72  extractCSharpWar
3850: 6e 69 6e 67 73 20 7b 20 66 69 6c 65 4e 61 6d 65  nings { fileName
3860: 20 72 65 73 75 6c 74 73 20 7d 20 7b 0d 0a 20 20   results } {..  
3870: 20 20 73 65 74 20 6c 69 73 74 20 5b 6c 69 73 74    set list [list
3880: 5d 0d 0a 0d 0a 20 20 20 20 66 6f 72 65 61 63 68  ]....    foreach
3890: 20 7b 64 75 6d 6d 79 20 6d 61 74 63 68 7d 20 5b   {dummy match} [
38a0: 72 65 67 65 78 70 20 2d 61 6c 6c 20 2d 6c 69 6e  regexp -all -lin
38b0: 65 20 2d 69 6e 6c 69 6e 65 20 2d 2d 20 5c 0d 0a  e -inline -- \..
38c0: 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e 64 41          [appendA
38d0: 72 67 73 20 28 5e 28 3f 3a 20 5b 72 65 67 65 78  rgs (^(?: [regex
38e0: 70 45 73 63 61 70 65 41 6c 6c 20 24 66 69 6c 65  pEscapeAll $file
38f0: 4e 61 6d 65 5d 20 5c 0d 0a 20 20 20 20 20 20 20  Name] \..       
3900: 20 7b 5c 28 5c 64 2b 2c 5c 64 2b 5c 29 3a 20 29   {\(\d+,\d+\): )
3910: 3f 77 61 72 6e 69 6e 67 20 43 53 5c 64 7b 34 7d  ?warning CS\d{4}
3920: 3a 20 5b 5e 5c 6e 5d 2b 24 29 7d 5d 20 24 72 65  : [^\n]+$)}] $re
3930: 73 75 6c 74 73 5d 20 7b 0d 0a 20 20 20 20 20 20  sults] {..      
3940: 6c 61 70 70 65 6e 64 20 6c 69 73 74 20 24 6d 61  lappend list $ma
3950: 74 63 68 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20  tch..    }....  
3960: 20 20 72 65 74 75 72 6e 20 24 6c 69 73 74 0d 0a    return $list..
3970: 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23    }.....  #..  #
3980: 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63   NOTE: This proc
3990: 65 64 75 72 65 20 69 73 20 75 73 65 64 20 74 6f  edure is used to
39a0: 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 63 6f 6d   dynamically com
39b0: 70 69 6c 65 20 61 72 62 69 74 72 61 72 79 20 43  pile arbitrary C
39c0: 23 20 63 6f 64 65 0d 0a 20 20 23 20 20 20 20 20  # code..  #     
39d0: 20 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 61 20    from within a 
39e0: 73 63 72 69 70 74 20 75 73 69 6e 67 20 74 68 65  script using the
39f0: 20 43 53 68 61 72 70 43 6f 64 65 50 72 6f 76 69   CSharpCodeProvi
3a00: 64 65 72 20 63 6c 61 73 73 20 70 72 65 73 65 6e  der class presen
3a10: 74 0d 0a 20 20 23 20 20 20 20 20 20 20 69 6e 20  t..  #       in 
3a20: 74 68 65 20 64 65 73 6b 74 6f 70 20 2e 4e 45 54  the desktop .NET
3a30: 20 46 72 61 6d 65 77 6f 72 6b 2e 20 20 49 74 20   Framework.  It 
3a40: 6d 61 79 20 77 6f 72 6b 20 6f 6e 20 73 6f 6d 65  may work on some
3a50: 20 76 65 72 73 69 6f 6e 73 20 6f 66 0d 0a 20 20   versions of..  
3a60: 23 20 20 20 20 20 20 20 4d 6f 6e 6f 20 61 73 20  #       Mono as 
3a70: 77 65 6c 6c 2e 20 20 54 68 69 73 20 70 72 6f 63  well.  This proc
3a80: 65 64 75 72 65 20 77 61 73 20 6f 72 69 67 69 6e  edure was origin
3a90: 61 6c 6c 79 20 64 65 73 69 67 6e 65 64 20 74 6f  ally designed to
3aa0: 20 62 65 20 75 73 65 64 0d 0a 20 20 23 20 20 20   be used..  #   
3ab0: 20 20 20 20 62 79 20 74 68 65 20 74 65 73 74 20      by the test 
3ac0: 73 75 69 74 65 3b 20 68 6f 77 65 76 65 72 2c 20  suite; however, 
3ad0: 69 74 20 63 61 6e 20 62 65 20 71 75 69 74 65 20  it can be quite 
3ae0: 75 73 65 66 75 6c 20 69 6e 20 6e 6f 6e 2d 74 65  useful in non-te
3af0: 73 74 0d 0a 20 20 23 20 20 20 20 20 20 20 73 63  st..  #       sc
3b00: 72 69 70 74 73 20 61 73 20 77 65 6c 6c 2e 0d 0a  ripts as well...
3b10: 20 20 23 0d 0a 20 20 70 72 6f 63 20 63 6f 6d 70    #..  proc comp
3b20: 69 6c 65 56 69 61 43 53 68 61 72 70 43 6f 64 65  ileViaCSharpCode
3b30: 50 72 6f 76 69 64 65 72 20 7b 0d 0a 20 20 20 20  Provider {..    
3b40: 20 20 20 20 20 20 73 74 72 69 6e 67 20 6d 65 6d        string mem
3b50: 6f 72 79 20 73 79 6d 62 6f 6c 73 20 73 74 72 69  ory symbols stri
3b60: 63 74 20 72 65 73 75 6c 74 73 56 61 72 4e 61 6d  ct resultsVarNam
3b70: 65 20 65 72 72 6f 72 73 56 61 72 4e 61 6d 65 20  e errorsVarName 
3b80: 61 72 67 73 20 7d 20 7b 0d 0a 20 20 20 20 23 0d  args } {..    #.
3b90: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65  .    # NOTE: The
3ba0: 20 5b 6f 62 6a 65 63 74 5d 20 63 6f 6d 6d 61 6e   [object] comman
3bb0: 64 20 69 73 20 72 65 71 75 69 72 65 64 20 62 79  d is required by
3bc0: 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 2e   this procedure.
3bd0: 20 20 49 66 20 69 74 0d 0a 20 20 20 20 23 20 20    If it..    #  
3be0: 20 20 20 20 20 69 73 20 6e 6f 74 20 61 76 61 69       is not avai
3bf0: 6c 61 62 6c 65 2c 20 62 61 69 6c 20 6f 75 74 20  lable, bail out 
3c00: 6e 6f 77 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20  now...    #..   
3c10: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 5b 69   if {[llength [i
3c20: 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 6f 62 6a  nfo commands obj
3c30: 65 63 74 5d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  ect]] == 0} then
3c40: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
3c50: 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 63 61     # NOTE: We ca
3c60: 6e 6e 6f 74 20 65 76 65 6e 20 61 74 74 65 6d 70  nnot even attemp
3c70: 74 20 74 6f 20 63 6f 6d 70 69 6c 65 20 61 6e 79  t to compile any
3c80: 74 68 69 6e 67 2c 20 66 61 69 6c 2e 0d 0a 20 20  thing, fail...  
3c90: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74      #..      set
3ca0: 20 63 6f 64 65 20 45 72 72 6f 72 0d 0a 0d 0a 20   code Error.... 
3cb0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
3cc0: 4e 4f 54 45 3a 20 50 72 65 70 61 72 65 20 74 6f  NOTE: Prepare to
3cd0: 20 74 72 61 6e 73 66 65 72 20 65 72 72 6f 72 20   transfer error 
3ce0: 6d 65 73 73 61 67 65 73 20 74 6f 20 74 68 65 20  messages to the 
3cf0: 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23  caller...      #
3d00: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72  ..      if {[str
3d10: 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 72 72 6f  ing length $erro
3d20: 72 73 56 61 72 4e 61 6d 65 5d 20 3e 20 30 7d 20  rsVarName] > 0} 
3d30: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
3d40: 75 70 76 61 72 20 31 20 24 65 72 72 6f 72 73 56  upvar 1 $errorsV
3d50: 61 72 4e 61 6d 65 20 6c 6f 63 61 6c 5f 65 72 72  arName local_err
3d60: 6f 72 73 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  ors..      }....
3d70: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
3d80: 20 4e 4f 54 45 3a 20 41 70 70 65 6e 64 20 74 6f   NOTE: Append to
3d90: 20 74 68 65 20 6c 69 73 74 20 6f 66 20 65 72 72   the list of err
3da0: 6f 72 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ors...      #.. 
3db0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 6c 6f 63       lappend loc
3dc0: 61 6c 5f 65 72 72 6f 72 73 20 22 63 61 6e 6e 6f  al_errors "canno
3dd0: 74 20 63 6f 6d 70 69 6c 65 2c 20 6d 69 73 73 69  t compile, missi
3de0: 6e 67 20 5c 22 6f 62 6a 65 63 74 5c 22 20 63 6f  ng \"object\" co
3df0: 6d 6d 61 6e 64 22 0d 0a 0d 0a 20 20 20 20 20 20  mmand"....      
3e00: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
3e10: 20 52 65 74 75 72 6e 20 74 68 65 20 6f 76 65 72   Return the over
3e20: 61 6c 6c 20 72 65 73 75 6c 74 20 74 6f 20 74 68  all result to th
3e30: 65 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20  e caller...     
3e40: 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e   #..      return
3e50: 20 24 63 6f 64 65 0d 0a 20 20 20 20 7d 0d 0a 0d   $code..    }...
3e60: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f  .    #..    # NO
3e70: 54 45 3a 20 43 72 65 61 74 65 20 74 68 65 20 43  TE: Create the C
3e80: 23 20 63 6f 64 65 20 70 72 6f 76 69 64 65 72 20  # code provider 
3e90: 6f 62 6a 65 63 74 20 28 69 2e 65 2e 20 74 68 65  object (i.e. the
3ea0: 20 63 6f 6d 70 69 6c 65 72 29 2e 0d 0a 20 20 20   compiler)...   
3eb0: 20 23 0d 0a 20 20 20 20 73 65 74 20 70 72 6f 76   #..    set prov
3ec0: 69 64 65 72 20 5b 6f 62 6a 65 63 74 20 63 72 65  ider [object cre
3ed0: 61 74 65 20 2d 61 6c 69 61 73 20 4d 69 63 72 6f  ate -alias Micro
3ee0: 73 6f 66 74 2e 43 53 68 61 72 70 2e 43 53 68 61  soft.CSharp.CSha
3ef0: 72 70 43 6f 64 65 50 72 6f 76 69 64 65 72 5d 0d  rpCodeProvider].
3f00: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20  ...    #..    # 
3f10: 4e 4f 54 45 3a 20 43 72 65 61 74 65 20 74 68 65  NOTE: Create the
3f20: 20 6f 62 6a 65 63 74 20 74 68 61 74 20 70 72 6f   object that pro
3f30: 76 69 64 65 73 20 76 61 72 69 6f 75 73 20 70 61  vides various pa
3f40: 72 61 6d 65 74 65 72 73 20 74 6f 20 74 68 65 20  rameters to the 
3f50: 43 23 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20  C#..    #       
3f60: 63 6f 64 65 20 70 72 6f 76 69 64 65 72 20 28 69  code provider (i
3f70: 2e 65 2e 20 74 68 65 20 63 6f 6d 70 69 6c 65 72  .e. the compiler
3f80: 20 6f 70 74 69 6f 6e 73 29 2e 0d 0a 20 20 20 20   options)...    
3f90: 23 0d 0a 20 20 20 20 73 65 74 20 70 61 72 61 6d  #..    set param
3fa0: 65 74 65 72 73 20 5b 6f 62 6a 65 63 74 20 63 72  eters [object cr
3fb0: 65 61 74 65 20 2d 61 6c 69 61 73 20 5c 0d 0a 20  eate -alias \.. 
3fc0: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 43 6f         System.Co
3fd0: 64 65 44 6f 6d 2e 43 6f 6d 70 69 6c 65 72 2e 43  deDom.Compiler.C
3fe0: 6f 6d 70 69 6c 65 72 50 61 72 61 6d 65 74 65 72  ompilerParameter
3ff0: 73 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20  s]....    #..   
4000: 20 23 20 4e 4f 54 45 3a 20 44 6f 20 77 65 20 6e   # NOTE: Do we n
4010: 6f 74 20 77 61 6e 74 20 74 6f 20 70 65 72 73 69  ot want to persi
4020: 73 74 20 74 68 65 20 67 65 6e 65 72 61 74 65 64  st the generated
4030: 20 61 73 73 65 6d 62 6c 79 20 74 6f 20 64 69 73   assembly to dis
4040: 6b 3f 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73  k?..    #..    s
4050: 65 74 20 6f 75 74 70 75 74 46 69 6c 65 4e 61 6d  et outputFileNam
4060: 65 20 22 22 0d 0a 0d 0a 20 20 20 20 69 66 20 7b  e ""....    if {
4070: 24 6d 65 6d 6f 72 79 7d 20 74 68 65 6e 20 7b 0d  $memory} then {.
4080: 0a 20 20 20 20 20 20 24 70 61 72 61 6d 65 74 65  .      $paramete
4090: 72 73 20 47 65 6e 65 72 61 74 65 49 6e 4d 65 6d  rs GenerateInMem
40a0: 6f 72 79 20 74 72 75 65 0d 0a 20 20 20 20 7d 20  ory true..    } 
40b0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 24 70  else {..      $p
40c0: 61 72 61 6d 65 74 65 72 73 20 4f 75 74 70 75 74  arameters Output
40d0: 41 73 73 65 6d 62 6c 79 20 5b 73 65 74 20 6f 75  Assembly [set ou
40e0: 74 70 75 74 46 69 6c 65 4e 61 6d 65 20 5b 61 70  tputFileName [ap
40f0: 70 65 6e 64 41 72 67 73 20 5b 73 65 74 20 5c 0d  pendArgs [set \.
4100: 0a 20 20 20 20 20 20 20 20 20 20 74 65 6d 70 4e  .          tempN
4110: 61 6d 65 28 31 29 20 5b 66 69 6c 65 20 74 65 6d  ame(1) [file tem
4120: 70 6e 61 6d 65 5d 5d 20 2e 64 6c 6c 5d 5d 0d 0a  pname]] .dll]]..
4130: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a      }....    #..
4140: 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20      # NOTE: Use 
4150: 61 20 74 72 79 2f 66 69 6e 61 6c 6c 79 20 62 6c  a try/finally bl
4160: 6f 63 6b 20 74 6f 20 63 6c 65 61 6e 75 70 20 74  ock to cleanup t
4170: 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 73 2e 0d  emporary files..
4180: 0a 20 20 20 20 23 0d 0a 20 20 20 20 74 72 79 20  .    #..    try 
4190: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  {..      #..    
41a0: 20 20 23 20 4e 4f 54 45 3a 20 44 6f 20 77 65 20    # NOTE: Do we 
41b0: 77 61 6e 74 20 73 79 6d 62 6f 6c 73 20 74 6f 20  want symbols to 
41c0: 62 65 20 67 65 6e 65 72 61 74 65 64 20 66 6f 72  be generated for
41d0: 20 74 68 65 20 67 65 6e 65 72 61 74 65 64 20 61   the generated a
41e0: 73 73 65 6d 62 6c 79 3f 0d 0a 20 20 20 20 20 20  ssembly?..      
41f0: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 73 79  #..      if {$sy
4200: 6d 62 6f 6c 73 7d 20 74 68 65 6e 20 7b 0d 0a 20  mbols} then {.. 
4210: 20 20 20 20 20 20 20 24 70 61 72 61 6d 65 74 65         $paramete
4220: 72 73 20 49 6e 63 6c 75 64 65 44 65 62 75 67 49  rs IncludeDebugI
4230: 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 72 75 65 0d  nformation true.
4240: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
4250: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
4260: 45 3a 20 53 74 61 72 74 20 6f 75 74 20 74 68 65  E: Start out the
4270: 20 63 6f 6d 70 69 6c 65 72 20 6f 70 74 69 6f 6e   compiler option
4280: 73 20 77 69 74 68 20 74 68 65 20 70 72 65 2d 65  s with the pre-e
4290: 78 69 73 74 69 6e 67 20 64 65 66 61 75 6c 74 73  xisting defaults
42a0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
42b0: 66 6f 72 20 74 68 65 20 63 6f 6d 70 69 6c 65 72  for the compiler
42c0: 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 6f   followed by tho
42d0: 73 65 20 6e 65 63 65 73 73 61 72 79 20 66 6f 72  se necessary for
42e0: 20 74 68 65 20 70 6c 61 74 66 6f 72 6d 2e 0d 0a   the platform...
42f0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 24        #..      $
4300: 70 61 72 61 6d 65 74 65 72 73 20 43 6f 6d 70 69  parameters Compi
4310: 6c 65 72 4f 70 74 69 6f 6e 73 20 5c 0d 0a 20 20  lerOptions \..  
4320: 20 20 20 20 20 20 20 20 5b 67 65 74 43 53 68 61          [getCSha
4330: 72 70 43 6f 6d 70 69 6c 65 72 4f 70 74 69 6f 6e  rpCompilerOption
4340: 73 20 24 70 61 72 61 6d 65 74 65 72 73 20 74 72  s $parameters tr
4350: 75 65 20 74 72 75 65 20 2f 5d 0d 0a 0d 0a 20 20  ue true /]....  
4360: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
4370: 4f 54 45 3a 20 50 72 6f 63 65 73 73 20 65 78 74  OTE: Process ext
4380: 72 61 20 63 6f 6d 70 69 6c 65 72 20 73 65 74 74  ra compiler sett
4390: 69 6e 67 73 20 74 68 65 20 63 61 6c 6c 65 72 20  ings the caller 
43a0: 6d 61 79 20 68 61 76 65 20 70 72 6f 76 69 64 65  may have provide
43b0: 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  d...      #..   
43c0: 20 20 20 66 6f 72 65 61 63 68 20 7b 6e 61 6d 65     foreach {name
43d0: 20 76 61 6c 75 65 7d 20 24 61 72 67 73 20 7b 0d   value} $args {.
43e0: 0a 20 20 20 20 20 20 20 20 24 70 61 72 61 6d 65  .        $parame
43f0: 74 65 72 73 20 2d 6e 6f 63 61 73 65 20 24 6e 61  ters -nocase $na
4400: 6d 65 20 24 76 61 6c 75 65 0d 0a 20 20 20 20 20  me $value..     
4410: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20   }....      #.. 
4420: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 50 72 65       # NOTE: Pre
4430: 70 61 72 65 20 74 6f 20 74 72 61 6e 73 66 65 72  pare to transfer
4440: 20 74 68 65 20 6f 62 6a 65 63 74 20 72 65 66 65   the object refe
4450: 72 65 6e 63 65 20 74 6f 20 74 68 65 20 63 61 6c  rence to the cal
4460: 6c 65 72 2e 20 20 57 65 0d 0a 20 20 20 20 20 20  ler.  We..      
4470: 23 20 20 20 20 20 20 20 6d 75 73 74 20 75 73 65  #       must use
4480: 20 5b 75 70 76 61 72 5d 20 68 65 72 65 20 62 65   [upvar] here be
4490: 63 61 75 73 65 20 6f 74 68 65 72 77 69 73 65 20  cause otherwise 
44a0: 74 68 65 20 6f 62 6a 65 63 74 20 69 73 20 6c 6f  the object is lo
44b0: 73 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  st..      #     
44c0: 20 20 77 68 65 6e 20 74 68 65 20 70 72 6f 63 65    when the proce
44d0: 64 75 72 65 20 63 61 6c 6c 20 66 72 61 6d 65 20  dure call frame 
44e0: 69 73 20 63 6c 65 61 6e 65 64 20 75 70 2e 0d 0a  is cleaned up...
44f0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
4500: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
4510: 68 20 24 72 65 73 75 6c 74 73 56 61 72 4e 61 6d  h $resultsVarNam
4520: 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  e] > 0} then {..
4530: 20 20 20 20 20 20 20 20 75 70 76 61 72 20 31 20          upvar 1 
4540: 24 72 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 20  $resultsVarName 
4550: 72 65 73 75 6c 74 73 0d 0a 20 20 20 20 20 20 7d  results..      }
4560: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
4570: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d     # NOTE: Attem
4580: 70 74 20 74 6f 20 63 6f 6d 70 69 6c 65 20 74 68  pt to compile th
4590: 65 20 73 70 65 63 69 66 69 65 64 20 73 74 72 69  e specified stri
45a0: 6e 67 20 61 73 20 43 23 20 61 6e 64 20 63 61 70  ng as C# and cap
45b0: 74 75 72 65 20 74 68 65 0d 0a 20 20 20 20 20 20  ture the..      
45c0: 23 20 20 20 20 20 20 20 72 65 73 75 6c 74 73 20  #       results 
45d0: 69 6e 74 6f 20 74 68 65 20 76 61 72 69 61 62 6c  into the variabl
45e0: 65 20 70 72 6f 76 69 64 65 64 20 62 79 20 74 68  e provided by th
45f0: 65 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20  e caller...     
4600: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65   #..      set re
4610: 73 75 6c 74 73 20 5b 24 70 72 6f 76 69 64 65 72  sults [$provider
4620: 20 2d 61 6c 69 61 73 20 43 6f 6d 70 69 6c 65 41   -alias CompileA
4630: 73 73 65 6d 62 6c 79 46 72 6f 6d 53 6f 75 72 63  ssemblyFromSourc
4640: 65 20 24 70 61 72 61 6d 65 74 65 72 73 20 5c 0d  e $parameters \.
4650: 0a 20 20 20 20 20 20 20 20 20 20 24 73 74 72 69  .          $stri
4660: 6e 67 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a  ng]....      #..
4670: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65        # NOTE: We
4680: 20 6e 6f 20 6c 6f 6e 67 65 72 20 6e 65 65 64 20   no longer need 
4690: 74 68 65 20 43 23 20 63 6f 64 65 20 70 72 6f 76  the C# code prov
46a0: 69 64 65 72 20 6f 62 6a 65 63 74 20 28 69 2e 65  ider object (i.e
46b0: 2e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20  . the..      #  
46c0: 20 20 20 20 20 63 6f 6d 70 69 6c 65 72 29 3b 20       compiler); 
46d0: 74 68 65 72 65 66 6f 72 65 2c 20 64 69 73 70 6f  therefore, dispo
46e0: 73 65 20 69 74 20 6e 6f 77 2e 0d 0a 20 20 20 20  se it now...    
46f0: 20 20 23 0d 0a 20 20 20 20 20 20 75 6e 73 65 74    #..      unset
4700: 20 70 72 6f 76 69 64 65 72 3b 20 23 20 64 69 73   provider; # dis
4710: 70 6f 73 65 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  pose....      #.
4720: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46  .      # NOTE: F
4730: 65 74 63 68 20 74 68 65 20 63 6f 6c 6c 65 63 74  etch the collect
4740: 69 6f 6e 20 6f 66 20 63 6f 6d 70 69 6c 65 72 20  ion of compiler 
4750: 65 72 72 6f 72 73 20 28 77 68 69 63 68 20 6d 61  errors (which ma
4760: 79 20 62 65 20 65 6d 70 74 79 29 2e 0d 0a 20 20  y be empty)...  
4770: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74      #..      set
4780: 20 65 72 72 6f 72 73 20 5b 24 72 65 73 75 6c 74   errors [$result
4790: 73 20 2d 61 6c 69 61 73 20 45 72 72 6f 72 73 5d  s -alias Errors]
47a0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
47b0: 20 20 20 23 20 4e 4f 54 45 3a 20 49 74 20 69 73     # NOTE: It is
47c0: 20 61 73 73 75 6d 65 64 20 74 68 61 74 20 6e 6f   assumed that no
47d0: 20 61 73 73 65 6d 62 6c 79 20 77 61 73 20 67 65   assembly was ge
47e0: 6e 65 72 61 74 65 64 20 69 66 20 74 68 65 72 65  nerated if there
47f0: 20 77 65 72 65 0d 0a 20 20 20 20 20 20 23 20 20   were..      #  
4800: 20 20 20 20 20 61 6e 79 20 63 6f 6d 70 69 6c 65       any compile
4810: 72 20 65 72 72 6f 72 73 2e 20 20 49 67 6e 6f 72  r errors.  Ignor
4820: 65 20 61 6c 6c 20 63 6f 6d 70 69 6c 65 72 20 77  e all compiler w
4830: 61 72 6e 69 6e 67 73 20 75 6e 6c 65 73 73 0d 0a  arnings unless..
4840: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 77 65        #       we
4850: 20 61 72 65 20 69 6e 20 73 74 72 69 63 74 20 6d   are in strict m
4860: 6f 64 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ode...      #.. 
4870: 20 20 20 20 20 69 66 20 7b 5b 24 65 72 72 6f 72       if {[$error
4880: 73 20 48 61 73 45 72 72 6f 72 73 5d 20 7c 7c 20  s HasErrors] || 
4890: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 28 24 73  \..          ($s
48a0: 74 72 69 63 74 20 26 26 20 5b 24 65 72 72 6f 72  trict && [$error
48b0: 73 20 48 61 73 57 61 72 6e 69 6e 67 73 5d 29 7d  s HasWarnings])}
48c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
48d0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
48e0: 54 45 3a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20  TE: Compilation 
48f0: 6f 66 20 74 68 65 20 61 73 73 65 6d 62 6c 79 20  of the assembly 
4900: 66 61 69 6c 65 64 2e 0d 0a 20 20 20 20 20 20 20  failed...       
4910: 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20   #..        set 
4920: 63 6f 64 65 20 45 72 72 6f 72 0d 0a 0d 0a 20 20  code Error....  
4930: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
4940: 20 23 20 4e 4f 54 45 3a 20 50 72 65 70 61 72 65   # NOTE: Prepare
4950: 20 74 6f 20 74 72 61 6e 73 66 65 72 20 65 72 72   to transfer err
4960: 6f 72 20 6d 65 73 73 61 67 65 73 20 74 6f 20 74  or messages to t
4970: 68 65 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20  he caller...    
4980: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69      #..        i
4990: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
49a0: 68 20 24 65 72 72 6f 72 73 56 61 72 4e 61 6d 65  h $errorsVarName
49b0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {.. 
49c0: 20 20 20 20 20 20 20 20 20 75 70 76 61 72 20 31           upvar 1
49d0: 20 24 65 72 72 6f 72 73 56 61 72 4e 61 6d 65 20   $errorsVarName 
49e0: 6c 6f 63 61 6c 5f 65 72 72 6f 72 73 0d 0a 20 20  local_errors..  
49f0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
4a00: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
4a10: 4e 4f 54 45 3a 20 47 72 61 62 20 65 61 63 68 20  NOTE: Grab each 
4a20: 65 72 72 6f 72 20 6f 62 6a 65 63 74 20 61 6e 64  error object and
4a30: 20 61 70 70 65 6e 64 20 74 68 65 20 73 74 72 69   append the stri
4a40: 6e 67 20 69 74 73 65 6c 66 20 74 6f 0d 0a 20 20  ng itself to..  
4a50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68        #       th
4a60: 65 20 6f 76 65 72 61 6c 6c 20 6c 69 73 74 20 6f  e overall list o
4a70: 66 20 65 72 72 6f 72 73 2e 0d 0a 20 20 20 20 20  f errors...     
4a80: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 66 6f     #..        fo
4a90: 72 20 7b 73 65 74 20 69 6e 64 65 78 20 30 7d 20  r {set index 0} 
4aa0: 7b 24 69 6e 64 65 78 20 3c 20 5b 24 65 72 72 6f  {$index < [$erro
4ab0: 72 73 20 43 6f 75 6e 74 5d 7d 20 7b 69 6e 63 72  rs Count]} {incr
4ac0: 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20   index} {..     
4ad0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
4ae0: 20 20 23 20 4e 4f 54 45 3a 20 47 65 74 20 74 68    # NOTE: Get th
4af0: 65 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72  e compiler error
4b00: 20 6f 62 6a 65 63 74 20 61 74 20 74 68 69 73 20   object at this 
4b10: 69 6e 64 65 78 2e 0d 0a 20 20 20 20 20 20 20 20  index...        
4b20: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73    #..          s
4b30: 65 74 20 65 72 72 6f 72 20 5b 24 65 72 72 6f 72  et error [$error
4b40: 73 20 2d 61 6c 69 61 73 20 49 74 65 6d 20 24 69  s -alias Item $i
4b50: 6e 64 65 78 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  ndex]....       
4b60: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
4b70: 23 20 4e 4f 54 45 3a 20 43 6f 6e 76 65 72 74 20  # NOTE: Convert 
4b80: 69 74 20 74 6f 20 61 20 73 74 72 69 6e 67 20 61  it to a string a
4b90: 6e 64 20 61 70 70 65 6e 64 20 69 74 20 74 6f 20  nd append it to 
4ba0: 74 68 65 20 6c 69 73 74 20 6f 66 0d 0a 20 20 20  the list of..   
4bb0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65         #       e
4bc0: 72 72 6f 72 73 2e 0d 0a 20 20 20 20 20 20 20 20  rrors...        
4bd0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 6c    #..          l
4be0: 61 70 70 65 6e 64 20 6c 6f 63 61 6c 5f 65 72 72  append local_err
4bf0: 6f 72 73 20 5b 24 65 72 72 6f 72 20 54 6f 53 74  ors [$error ToSt
4c00: 72 69 6e 67 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  ring]....       
4c10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
4c20: 23 20 4e 4f 54 45 3a 20 53 69 6e 63 65 20 74 68  # NOTE: Since th
4c30: 65 20 65 72 72 6f 72 20 69 74 73 65 6c 66 20 69  e error itself i
4c40: 73 20 61 63 74 75 61 6c 6c 79 20 61 6e 20 6f 62  s actually an ob
4c50: 6a 65 63 74 2c 20 77 65 20 6d 75 73 74 0d 0a 20  ject, we must.. 
4c60: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20           #      
4c70: 20 64 69 73 70 6f 73 65 20 69 74 2e 0d 0a 20 20   dispose it...  
4c80: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
4c90: 20 20 20 20 20 75 6e 73 65 74 20 65 72 72 6f 72       unset error
4ca0: 3b 20 23 20 64 69 73 70 6f 73 65 0d 0a 20 20 20  ; # dispose..   
4cb0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20       }..      } 
4cc0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
4cd0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
4ce0: 45 3a 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 6f  E: Compilation o
4cf0: 66 20 74 68 65 20 61 73 73 65 6d 62 6c 79 20 73  f the assembly s
4d00: 75 63 63 65 65 64 65 64 2e 0d 0a 20 20 20 20 20  ucceeded...     
4d10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65     #..        se
4d20: 74 20 63 6f 64 65 20 4f 6b 0d 0a 20 20 20 20 20  t code Ok..     
4d30: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20   }....      #.. 
4d40: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20       # NOTE: We 
4d50: 6e 6f 20 6c 6f 6e 67 65 72 20 6e 65 65 64 20 74  no longer need t
4d60: 68 65 20 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f  he compiler erro
4d70: 72 73 20 63 6f 6c 6c 65 63 74 69 6f 6e 3b 20 74  rs collection; t
4d80: 68 65 72 65 66 6f 72 65 2c 0d 0a 20 20 20 20 20  herefore,..     
4d90: 20 23 20 20 20 20 20 20 20 64 69 73 70 6f 73 65   #       dispose
4da0: 20 69 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20   it now...      
4db0: 23 0d 0a 20 20 20 20 20 20 75 6e 73 65 74 20 65  #..      unset e
4dc0: 72 72 6f 72 73 3b 20 23 20 64 69 73 70 6f 73 65  rrors; # dispose
4dd0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
4de0: 20 20 20 23 20 48 41 43 4b 3a 20 2a 42 52 45 41     # HACK: *BREA
4df0: 4b 49 4e 47 20 43 48 41 4e 47 45 2a 20 49 66 20  KING CHANGE* If 
4e00: 74 68 65 72 65 20 69 73 20 61 6e 20 6f 75 74 70  there is an outp
4e10: 75 74 20 66 69 6c 65 20 6e 61 6d 65 2c 20 72 65  ut file name, re
4e20: 74 75 72 6e 20 69 74 0d 0a 20 20 20 20 20 20 23  turn it..      #
4e30: 20 20 20 20 20 20 20 61 73 20 77 65 6c 6c 3b 20         as well; 
4e40: 6f 74 68 65 72 77 69 73 65 2c 20 6a 75 73 74 20  otherwise, just 
4e50: 72 65 74 75 72 6e 20 73 75 63 63 65 73 73 2e 0d  return success..
4e60: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
4e70: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
4e80: 74 68 20 24 6f 75 74 70 75 74 46 69 6c 65 4e 61  th $outputFileNa
4e90: 6d 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  me] > 0} then {.
4ea0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
4eb0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75      # NOTE: Retu
4ec0: 72 6e 20 61 20 74 77 6f 20 65 6c 65 6d 65 6e 74  rn a two element
4ed0: 20 6c 69 73 74 3a 20 74 68 65 20 66 69 72 73 74   list: the first
4ee0: 20 65 6c 65 6d 65 6e 74 20 69 73 20 74 68 65 20   element is the 
4ef0: 6f 76 65 72 61 6c 6c 0d 0a 20 20 20 20 20 20 20  overall..       
4f00: 20 23 20 20 20 20 20 20 20 72 65 73 75 6c 74 20   #       result 
4f10: 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 65  and the second e
4f20: 6c 65 6d 65 6e 74 20 69 73 20 74 68 65 20 6f 75  lement is the ou
4f30: 74 70 75 74 20 66 69 6c 65 20 6e 61 6d 65 2e 0d  tput file name..
4f40: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
4f50: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74      return [list
4f60: 20 24 63 6f 64 65 20 24 6f 75 74 70 75 74 46 69   $code $outputFi
4f70: 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d  leName]..      }
4f80: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
4f90: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
4fa0: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6f  TE: Return the o
4fb0: 76 65 72 61 6c 6c 20 72 65 73 75 6c 74 20 74 6f  verall result to
4fc0: 20 74 68 65 20 63 61 6c 6c 65 72 2e 0d 0a 20 20   the caller...  
4fd0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
4fe0: 20 72 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a 20   return $code.. 
4ff0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 20 66 69       }..    } fi
5000: 6e 61 6c 6c 79 20 7b 0d 0a 20 20 20 20 20 20 23  nally {..      #
5010: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
5020: 4d 61 6b 65 20 73 75 72 65 20 74 68 65 20 64 75  Make sure the du
5030: 6d 6d 79 20 74 65 6d 70 6f 72 61 72 79 20 66 69  mmy temporary fi
5040: 6c 65 73 20 61 72 65 20 63 6c 65 61 6e 65 64 20  les are cleaned 
5050: 75 70 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  up...      #..  
5060: 20 20 20 20 69 66 20 7b 5b 61 72 72 61 79 20 65      if {[array e
5070: 78 69 73 74 73 20 74 65 6d 70 4e 61 6d 65 5d 7d  xists tempName]}
5080: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
5090: 20 66 6f 72 65 61 63 68 20 74 65 6d 70 46 69 6c   foreach tempFil
50a0: 65 4e 61 6d 65 20 5b 61 72 72 61 79 20 76 61 6c  eName [array val
50b0: 75 65 73 20 74 65 6d 70 4e 61 6d 65 5d 20 7b 0d  ues tempName] {.
50c0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b  .          if {[
50d0: 66 69 6c 65 20 65 78 69 73 74 73 20 24 74 65 6d  file exists $tem
50e0: 70 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e  pFileName]} then
50f0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
5100: 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65  catch {file dele
5110: 74 65 20 24 74 65 6d 70 46 69 6c 65 4e 61 6d 65  te $tempFileName
5120: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  }..          }..
5130: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
5140: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a   }..    }..  }..
5150: 0c 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45  ...  #..  # NOTE
5160: 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65  : This procedure
5170: 20 69 73 20 75 73 65 64 20 74 6f 20 64 79 6e 61   is used to dyna
5180: 6d 69 63 61 6c 6c 79 20 63 6f 6d 70 69 6c 65 20  mically compile 
5190: 61 72 62 69 74 72 61 72 79 20 43 23 20 63 6f 64  arbitrary C# cod
51a0: 65 0d 0a 20 20 23 20 20 20 20 20 20 20 66 72 6f  e..  #       fro
51b0: 6d 20 77 69 74 68 69 6e 20 61 20 73 63 72 69 70  m within a scrip
51c0: 74 20 75 73 69 6e 67 20 74 68 65 20 63 6f 6d 6d  t using the comm
51d0: 61 6e 64 20 6c 69 6e 65 20 43 23 20 63 6f 6d 70  and line C# comp
51e0: 69 6c 65 72 20 70 72 6f 76 69 64 65 64 0d 0a 20  iler provided.. 
51f0: 20 23 20 20 20 20 20 20 20 62 79 20 74 68 65 20   #       by the 
5200: 2e 4e 45 54 20 43 6f 72 65 20 53 44 4b 2e 20 20  .NET Core SDK.  
5210: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 77  This procedure w
5220: 61 73 20 6f 72 69 67 69 6e 61 6c 6c 79 20 64 65  as originally de
5230: 73 69 67 6e 65 64 20 74 6f 0d 0a 20 20 23 20 20  signed to..  #  
5240: 20 20 20 20 20 62 65 20 75 73 65 64 20 62 79 20       be used by 
5250: 74 68 65 20 74 65 73 74 20 73 75 69 74 65 3b 20  the test suite; 
5260: 68 6f 77 65 76 65 72 2c 20 69 74 20 63 61 6e 20  however, it can 
5270: 62 65 20 71 75 69 74 65 20 75 73 65 66 75 6c 20  be quite useful 
5280: 69 6e 0d 0a 20 20 23 20 20 20 20 20 20 20 6e 6f  in..  #       no
5290: 6e 2d 74 65 73 74 20 73 63 72 69 70 74 73 20 61  n-test scripts a
52a0: 73 20 77 65 6c 6c 2e 0d 0a 20 20 23 0d 0a 20 20  s well...  #..  
52b0: 70 72 6f 63 20 63 6f 6d 70 69 6c 65 56 69 61 44  proc compileViaD
52c0: 6f 74 4e 65 74 43 6f 72 65 43 53 68 61 72 70 20  otNetCoreCSharp 
52d0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 74 72  {..          str
52e0: 69 6e 67 20 6d 65 6d 6f 72 79 20 73 79 6d 62 6f  ing memory symbo
52f0: 6c 73 20 73 74 72 69 63 74 20 72 65 73 75 6c 74  ls strict result
5300: 73 56 61 72 4e 61 6d 65 20 65 72 72 6f 72 73 56  sVarName errorsV
5310: 61 72 4e 61 6d 65 20 61 72 67 73 20 7d 20 7b 0d  arName args } {.
5320: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f  .    #..    # NO
5330: 54 45 3a 20 47 65 74 20 74 68 65 20 69 6e 69 74  TE: Get the init
5340: 69 61 6c 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65  ial command line
5350: 20 61 72 67 75 6d 65 6e 74 73 20 6e 65 65 64 65   arguments neede
5360: 64 20 74 6f 20 69 6e 76 6f 6b 65 20 74 68 65 20  d to invoke the 
5370: 43 23 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20  C#..    #       
5380: 63 6f 6d 70 69 6c 65 72 20 6f 6e 20 2e 4e 45 54  compiler on .NET
5390: 20 43 6f 72 65 2e 20 20 49 66 20 74 68 69 73 20   Core.  If this 
53a0: 65 6e 64 73 20 75 70 20 62 65 69 6e 67 20 69 6e  ends up being in
53b0: 76 61 6c 69 64 2c 20 6e 6f 74 68 69 6e 67 0d 0a  valid, nothing..
53c0: 20 20 20 20 23 20 20 20 20 20 20 20 65 6c 73 65      #       else
53d0: 20 63 61 6e 20 62 65 20 64 6f 6e 65 2e 0d 0a 20   can be done... 
53e0: 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20 63 6f     #..    set co
53f0: 6d 6d 61 6e 64 20 5b 67 65 74 44 6f 74 4e 65 74  mmand [getDotNet
5400: 43 6f 72 65 43 53 68 61 72 70 43 6f 6d 6d 61 6e  CoreCSharpComman
5410: 64 41 72 67 73 5d 0d 0a 0d 0a 20 20 20 20 69 66  dArgs]....    if
5420: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 6f 6d 6d   {[llength $comm
5430: 61 6e 64 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20  and] == 0} then 
5440: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  {..      #..    
5450: 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 63 61 6e    # NOTE: We can
5460: 6e 6f 74 20 65 76 65 6e 20 61 74 74 65 6d 70 74  not even attempt
5470: 20 74 6f 20 63 6f 6d 70 69 6c 65 20 61 6e 79 74   to compile anyt
5480: 68 69 6e 67 2c 20 66 61 69 6c 2e 0d 0a 20 20 20  hing, fail...   
5490: 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20     #..      set 
54a0: 63 6f 64 65 20 45 72 72 6f 72 0d 0a 0d 0a 20 20  code Error....  
54b0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
54c0: 4f 54 45 3a 20 50 72 65 70 61 72 65 20 74 6f 20  OTE: Prepare to 
54d0: 74 72 61 6e 73 66 65 72 20 65 72 72 6f 72 20 6d  transfer error m
54e0: 65 73 73 61 67 65 73 20 74 6f 20 74 68 65 20 63  essages to the c
54f0: 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d  aller...      #.
5500: 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69  .      if {[stri
5510: 6e 67 20 6c 65 6e 67 74 68 20 24 65 72 72 6f 72  ng length $error
5520: 73 56 61 72 4e 61 6d 65 5d 20 3e 20 30 7d 20 74  sVarName] > 0} t
5530: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 75  hen {..        u
5540: 70 76 61 72 20 31 20 24 65 72 72 6f 72 73 56 61  pvar 1 $errorsVa
5550: 72 4e 61 6d 65 20 6c 6f 63 61 6c 5f 65 72 72 6f  rName local_erro
5560: 72 73 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  rs..      }.... 
5570: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
5580: 4e 4f 54 45 3a 20 41 70 70 65 6e 64 20 74 6f 20  NOTE: Append to 
5590: 74 68 65 20 6c 69 73 74 20 6f 66 20 65 72 72 6f  the list of erro
55a0: 72 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  rs...      #..  
55b0: 20 20 20 20 6c 61 70 70 65 6e 64 20 6c 6f 63 61      lappend loca
55c0: 6c 5f 65 72 72 6f 72 73 20 22 63 61 6e 6e 6f 74  l_errors "cannot
55d0: 20 63 6f 6d 70 69 6c 65 2c 20 43 23 20 63 6f 6d   compile, C# com
55e0: 70 69 6c 65 72 20 77 61 73 20 6e 6f 74 20 66 6f  piler was not fo
55f0: 75 6e 64 22 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  und"....      #.
5600: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52  .      # NOTE: R
5610: 65 74 75 72 6e 20 74 68 65 20 6f 76 65 72 61 6c  eturn the overal
5620: 6c 20 72 65 73 75 6c 74 20 74 6f 20 74 68 65 20  l result to the 
5630: 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23  caller...      #
5640: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24  ..      return $
5650: 63 6f 64 65 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20  code..    }.... 
5660: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
5670: 3a 20 49 6e 73 65 72 74 20 74 68 65 20 5b 65 78  : Insert the [ex
5680: 65 63 5d 20 63 6f 6d 6d 61 6e 64 20 62 65 66 6f  ec] command befo
5690: 72 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c  re the command l
56a0: 69 6e 65 20 61 72 67 75 6d 65 6e 74 73 2e 0d 0a  ine arguments...
56b0: 20 20 20 20 23 20 20 20 20 20 20 20 54 68 65 20      #       The 
56c0: 2d 73 75 63 63 65 73 73 20 6f 70 74 69 6f 6e 20  -success option 
56d0: 69 73 20 6e 6f 74 20 75 73 65 64 20 68 65 72 65  is not used here
56e0: 20 62 65 63 61 75 73 65 20 77 65 20 77 61 6e 74   because we want
56f0: 20 74 6f 20 68 61 6e 64 6c 65 0d 0a 20 20 20 20   to handle..    
5700: 23 20 20 20 20 20 20 20 65 72 72 6f 72 73 20 28  #       errors (
5710: 6f 6e 6c 79 29 20 62 79 20 70 72 6f 63 65 73 73  only) by process
5720: 69 6e 67 20 74 68 65 20 63 6f 6d 70 69 6c 65 72  ing the compiler
5730: 20 6f 75 74 70 75 74 2e 0d 0a 20 20 20 20 23 0d   output...    #.
5740: 0a 20 20 20 20 73 65 74 20 63 6f 6d 6d 61 6e 64  .    set command
5750: 20 5b 6c 69 6e 73 65 72 74 20 24 63 6f 6d 6d 61   [linsert $comma
5760: 6e 64 20 30 20 65 78 65 63 20 2d 2d 5d 0d 0a 0d  nd 0 exec --]...
5770: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f  .    #..    # NO
5780: 54 45 3a 20 53 74 61 72 74 20 6f 75 74 20 74 68  TE: Start out th
5790: 65 20 63 6f 6d 70 69 6c 65 72 20 6f 70 74 69 6f  e compiler optio
57a0: 6e 73 20 77 69 74 68 20 74 68 65 20 70 72 65 2d  ns with the pre-
57b0: 65 78 69 73 74 69 6e 67 20 64 65 66 61 75 6c 74  existing default
57c0: 73 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 66  s..    #       f
57d0: 6f 72 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20  or the compiler 
57e0: 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 6f 73  followed by thos
57f0: 65 20 6e 65 63 65 73 73 61 72 79 20 66 6f 72 20  e necessary for 
5800: 74 68 65 20 70 6c 61 74 66 6f 72 6d 2e 0d 0a 20  the platform... 
5810: 20 20 20 23 0d 0a 20 20 20 20 61 70 70 65 6e 64     #..    append
5820: 20 63 6f 6d 6d 61 6e 64 20 22 20 22 20 5b 67 65   command " " [ge
5830: 74 43 53 68 61 72 70 43 6f 6d 70 69 6c 65 72 4f  tCSharpCompilerO
5840: 70 74 69 6f 6e 73 20 22 22 20 74 72 75 65 20 74  ptions "" true t
5850: 72 75 65 20 2d 5d 0d 0a 0d 0a 20 20 20 20 23 0d  rue -]....    #.
5860: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 6c  .    # NOTE: All
5870: 6f 63 61 74 65 20 61 20 63 6f 75 70 6c 65 20 74  ocate a couple t
5880: 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 6e 61  emporary file na
5890: 6d 65 73 2c 20 6f 6e 65 20 74 6f 20 68 6f 6c 64  mes, one to hold
58a0: 20 74 68 65 20 73 6f 75 72 63 65 0d 0a 20 20 20   the source..   
58b0: 20 23 20 20 20 20 20 20 20 63 6f 64 65 20 74 6f   #       code to
58c0: 20 63 6f 6d 70 69 6c 65 20 61 6e 64 20 6f 6e 65   compile and one
58d0: 20 74 6f 20 68 6f 6c 64 20 74 68 65 20 67 65 6e   to hold the gen
58e0: 65 72 61 74 65 64 20 61 73 73 65 6d 62 6c 79 2e  erated assembly.
58f0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65 74  ..    #..    set
5900: 20 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20   sourceFileName 
5910: 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 73 65 74  [appendArgs [set
5920: 20 74 65 6d 70 4e 61 6d 65 28 31 29 20 5b 66 69   tempName(1) [fi
5930: 6c 65 20 74 65 6d 70 6e 61 6d 65 5d 5d 20 2e 63  le tempname]] .c
5940: 73 5d 0d 0a 20 20 20 20 73 65 74 20 6f 75 74 70  s]..    set outp
5950: 75 74 46 69 6c 65 4e 61 6d 65 20 5b 61 70 70 65  utFileName [appe
5960: 6e 64 41 72 67 73 20 5b 73 65 74 20 74 65 6d 70  ndArgs [set temp
5970: 4e 61 6d 65 28 32 29 20 5b 66 69 6c 65 20 74 65  Name(2) [file te
5980: 6d 70 6e 61 6d 65 5d 5d 20 2e 64 6c 6c 5d 0d 0a  mpname]] .dll]..
5990: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
59a0: 4f 54 45 3a 20 55 73 65 20 61 20 74 72 79 2f 66  OTE: Use a try/f
59b0: 69 6e 61 6c 6c 79 20 62 6c 6f 63 6b 20 74 6f 20  inally block to 
59c0: 63 6c 65 61 6e 75 70 20 74 65 6d 70 6f 72 61 72  cleanup temporar
59d0: 79 20 66 69 6c 65 73 2e 0d 0a 20 20 20 20 23 0d  y files...    #.
59e0: 0a 20 20 20 20 74 72 79 20 7b 0d 0a 20 20 20 20  .    try {..    
59f0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
5a00: 45 3a 20 50 72 6f 63 65 73 73 20 65 78 74 72 61  E: Process extra
5a10: 20 63 6f 6d 70 69 6c 65 72 20 73 65 74 74 69 6e   compiler settin
5a20: 67 73 20 74 68 65 20 63 61 6c 6c 65 72 20 6d 61  gs the caller ma
5a30: 79 20 68 61 76 65 20 70 72 6f 76 69 64 65 64 2e  y have provided.
5a40: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
5a50: 20 66 6f 72 65 61 63 68 20 7b 6e 61 6d 65 20 76   foreach {name v
5a60: 61 6c 75 65 7d 20 24 61 72 67 73 20 7b 0d 0a 20  alue} $args {.. 
5a70: 20 20 20 20 20 20 20 73 65 74 20 6e 61 6d 65 56         set nameV
5a80: 61 6c 75 65 41 72 67 75 6d 65 6e 74 73 20 5c 0d  alueArguments \.
5a90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 6f  .            [co
5aa0: 6d 70 69 6c 65 72 50 61 72 61 6d 65 74 65 72 54  mpilerParameterT
5ab0: 6f 41 72 67 75 6d 65 6e 74 73 20 24 6e 61 6d 65  oArguments $name
5ac0: 20 24 76 61 6c 75 65 20 6f 75 74 70 75 74 46 69   $value outputFi
5ad0: 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20  leName]....     
5ae0: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20     if {[llength 
5af0: 24 6e 61 6d 65 56 61 6c 75 65 41 72 67 75 6d 65  $nameValueArgume
5b00: 6e 74 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b  nts] > 0} then {
5b10: 0d 0a 20 20 20 20 20 20 20 20 20 20 65 76 61 6c  ..          eval
5b20: 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64   lappend command
5b30: 20 24 6e 61 6d 65 56 61 6c 75 65 41 72 67 75 6d   $nameValueArgum
5b40: 65 6e 74 73 0d 0a 20 20 20 20 20 20 20 20 7d 0d  ents..        }.
5b50: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
5b60: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
5b70: 45 3a 20 4d 61 6b 65 20 74 68 65 20 63 6f 6d 70  E: Make the comp
5b80: 69 6c 65 72 20 6f 75 74 70 75 74 20 61 20 6c 69  iler output a li
5b90: 74 74 6c 65 20 71 75 69 65 74 65 72 2e 20 20 54  ttle quieter.  T
5ba0: 68 69 73 20 69 73 20 6e 65 65 64 65 64 0d 0a 20  his is needed.. 
5bb0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 6f 20       #       to 
5bc0: 6d 61 69 6e 74 61 69 6e 20 63 6f 6d 70 61 74 69  maintain compati
5bd0: 62 69 6c 69 74 79 20 77 69 74 68 20 74 68 65 20  bility with the 
5be0: 72 65 73 75 6c 74 73 20 67 65 6e 65 72 61 74 65  results generate
5bf0: 64 20 62 79 20 74 68 65 0d 0a 20 20 20 20 20 20  d by the..      
5c00: 23 20 20 20 20 20 20 20 5b 63 6f 6d 70 69 6c 65  #       [compile
5c10: 56 69 61 43 53 68 61 72 70 43 6f 64 65 50 72 6f  ViaCSharpCodePro
5c20: 76 69 64 65 72 5d 20 70 72 6f 63 65 64 75 72 65  vider] procedure
5c30: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
5c40: 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e    lappend comman
5c50: 64 20 2d 6e 6f 6c 6f 67 6f 0d 0a 0d 0a 20 20 20  d -nologo....   
5c60: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
5c70: 54 45 3a 20 41 6c 77 61 79 73 20 62 75 69 6c 64  TE: Always build
5c80: 20 61 73 20 61 20 6c 69 62 72 61 72 79 20 73 6f   as a library so
5c90: 20 74 68 61 74 20 77 65 20 64 6f 20 6e 6f 74 20   that we do not 
5ca0: 72 65 71 75 69 72 65 20 61 20 73 74 61 74 69 63  require a static
5cb0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
5cc0: 4d 61 69 6e 20 6d 65 74 68 6f 64 2e 0d 0a 20 20  Main method...  
5cd0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 6c 61 70      #..      lap
5ce0: 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 20 2d 74 61  pend command -ta
5cf0: 72 67 65 74 3a 6c 69 62 72 61 72 79 0d 0a 0d 0a  rget:library....
5d00: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
5d10: 20 4e 4f 54 45 3a 20 49 66 20 73 79 6d 62 6f 6c   NOTE: If symbol
5d20: 73 20 61 72 65 20 65 6e 61 62 6c 65 64 2c 20 61  s are enabled, a
5d30: 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79  dd the necessary
5d40: 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 0d 0a 20   command line.. 
5d50: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 72 67       #       arg
5d60: 75 6d 65 6e 74 2e 0d 0a 20 20 20 20 20 20 23 0d  ument...      #.
5d70: 0a 20 20 20 20 20 20 69 66 20 7b 24 73 79 6d 62  .      if {$symb
5d80: 6f 6c 73 7d 20 74 68 65 6e 20 7b 6c 61 70 70 65  ols} then {lappe
5d90: 6e 64 20 63 6f 6d 6d 61 6e 64 20 2d 64 65 62 75  nd command -debu
5da0: 67 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  g}....      #.. 
5db0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 73 20       # NOTE: As 
5dc0: 6f 66 20 74 68 69 73 20 77 72 69 74 69 6e 67 20  of this writing 
5dd0: 28 32 30 31 38 2d 30 34 2d 30 36 29 2c 20 74 68  (2018-04-06), th
5de0: 65 20 63 75 72 72 65 6e 74 20 76 65 72 73 69 6f  e current versio
5df0: 6e 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20  n of the..      
5e00: 23 20 20 20 20 20 20 20 2e 4e 45 54 20 43 6f 72  #       .NET Cor
5e10: 65 20 53 44 4b 20 28 32 2e 31 2e 31 30 31 29 20  e SDK (2.1.101) 
5e20: 75 73 65 73 20 74 68 65 20 22 6e 65 74 73 74 61  uses the "netsta
5e30: 6e 64 61 72 64 2e 64 6c 6c 22 20 61 73 73 65 6d  ndard.dll" assem
5e40: 62 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20  bly..      #    
5e50: 20 20 20 74 6f 20 65 6e 61 62 6c 65 20 75 73 65     to enable use
5e60: 20 6f 66 20 74 68 65 20 2e 4e 45 54 20 53 74 61   of the .NET Sta
5e70: 6e 64 61 72 64 20 32 2e 30 20 6c 69 62 72 61 72  ndard 2.0 librar
5e80: 79 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  y...      #..   
5e90: 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61     lappend comma
5ea0: 6e 64 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  nd [appendArgs \
5eb0: 22 2d 72 65 66 65 72 65 6e 63 65 3a 20 5b 66 69  "-reference: [fi
5ec0: 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5c 0d  le nativename \.
5ed0: 0a 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65  .          [file
5ee0: 20 6e 6f 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65   normalize [file
5ef0: 20 6a 6f 69 6e 20 5b 67 65 74 44 6f 74 4e 65 74   join [getDotNet
5f00: 53 74 61 6e 64 61 72 64 52 65 66 65 72 65 6e 63  StandardReferenc
5f10: 65 50 61 74 68 5d 20 5c 0d 0a 20 20 20 20 20 20  ePath] \..      
5f20: 20 20 20 20 6e 65 74 73 74 61 6e 64 61 72 64 2e      netstandard.
5f30: 64 6c 6c 5d 5d 5d 20 5c 22 5d 0d 0a 0d 0a 20 20  dll]]] \"]....  
5f40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
5f50: 4f 54 45 3a 20 53 65 74 20 74 68 65 20 6f 75 74  OTE: Set the out
5f60: 70 75 74 20 61 73 73 65 6d 62 6c 79 20 66 69 6c  put assembly fil
5f70: 65 20 6e 61 6d 65 20 74 6f 20 74 68 65 20 74 65  e name to the te
5f80: 6d 70 6f 72 61 72 79 20 6f 75 74 70 75 74 0d 0a  mporary output..
5f90: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 66 69        #       fi
5fa0: 6c 65 20 6e 61 6d 65 20 77 65 20 6f 62 74 61 69  le name we obtai
5fb0: 6e 65 64 20 66 72 6f 6d 20 5b 66 69 6c 65 20 74  ned from [file t
5fc0: 65 6d 70 6e 61 6d 65 5d 20 61 62 6f 76 65 2e 0d  empname] above..
5fd0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
5fe0: 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 20  lappend command 
5ff0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 22 2d 6f  [appendArgs \"-o
6000: 75 74 3a 20 5b 66 69 6c 65 20 6e 61 74 69 76 65  ut: [file native
6010: 6e 61 6d 65 20 5b 66 69 6c 65 20 5c 0d 0a 20 20  name [file \..  
6020: 20 20 20 20 20 20 20 20 6e 6f 72 6d 61 6c 69 7a          normaliz
6030: 65 20 24 6f 75 74 70 75 74 46 69 6c 65 4e 61 6d  e $outputFileNam
6040: 65 5d 5d 20 5c 22 5d 0d 0a 0d 0a 20 20 20 20 20  e]] \"]....     
6050: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
6060: 3a 20 53 65 74 20 74 68 65 20 73 6f 75 72 63 65  : Set the source
6070: 20 63 6f 64 65 20 66 69 6c 65 20 6e 61 6d 65 20   code file name 
6080: 74 6f 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79  to the temporary
6090: 20 73 6f 75 72 63 65 20 63 6f 64 65 0d 0a 20 20   source code..  
60a0: 20 20 20 20 23 20 20 20 20 20 20 20 66 69 6c 65      #       file
60b0: 20 6e 61 6d 65 20 77 65 20 6f 62 74 61 69 6e 65   name we obtaine
60c0: 64 20 66 72 6f 6d 20 5b 66 69 6c 65 20 74 65 6d  d from [file tem
60d0: 70 6e 61 6d 65 5d 20 61 62 6f 76 65 2e 0d 0a 20  pname] above... 
60e0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 6c 61       #..      la
60f0: 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 20 5b 61  ppend command [a
6100: 70 70 65 6e 64 41 72 67 73 20 5c 22 20 5b 66 69  ppendArgs \" [fi
6110: 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5b 66  le nativename [f
6120: 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 20 5c 0d  ile normalize \.
6130: 0a 20 20 20 20 20 20 20 20 20 20 24 73 6f 75 72  .          $sour
6140: 63 65 46 69 6c 65 4e 61 6d 65 5d 5d 20 5c 22 5d  ceFileName]] \"]
6150: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
6160: 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 72 73 74     # NOTE: First
6170: 2c 20 77 72 69 74 65 20 74 68 65 20 73 70 65 63  , write the spec
6180: 69 66 69 65 64 20 73 74 72 69 6e 67 20 28 63 6f  ified string (co
6190: 6e 74 61 69 6e 69 6e 67 20 43 23 20 63 6f 64 65  ntaining C# code
61a0: 29 20 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20  ) to..      #   
61b0: 20 20 20 20 74 68 65 20 74 65 6d 70 6f 72 61 72      the temporar
61c0: 79 20 73 6f 75 72 63 65 20 63 6f 64 65 20 66 69  y source code fi
61d0: 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  le...      #..  
61e0: 20 20 20 20 77 72 69 74 65 46 69 6c 65 20 24 73      writeFile $s
61f0: 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 24 73  ourceFileName $s
6200: 74 72 69 6e 67 0d 0a 0d 0a 20 20 20 20 20 20 23  tring....      #
6210: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
6220: 41 74 74 65 6d 70 74 20 74 6f 20 63 6f 6d 70 69  Attempt to compi
6230: 6c 65 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79  le the temporary
6240: 20 66 69 6c 65 20 61 73 20 43 23 20 61 6e 64 20   file as C# and 
6250: 63 61 70 74 75 72 65 20 74 68 65 0d 0a 20 20 20  capture the..   
6260: 20 20 20 23 20 20 20 20 20 20 20 72 65 73 75 6c     #       resul
6270: 74 73 20 69 6e 74 6f 20 74 68 65 20 76 61 72 69  ts into the vari
6280: 61 62 6c 65 20 70 72 6f 76 69 64 65 64 20 62 79  able provided by
6290: 20 74 68 65 20 63 61 6c 6c 65 72 2e 20 20 53 69   the caller.  Si
62a0: 6e 63 65 20 74 68 65 0d 0a 20 20 20 20 20 20 23  nce the..      #
62b0: 20 20 20 20 20 20 20 72 65 73 75 6c 74 73 20 61         results a
62c0: 72 65 20 74 65 78 74 2c 20 6e 6f 72 6d 61 6c 69  re text, normali
62d0: 7a 65 20 6c 69 6e 65 20 65 6e 64 69 6e 67 73 20  ze line endings 
62e0: 62 65 66 6f 72 65 20 65 78 74 72 61 63 74 69 6e  before extractin
62f0: 67 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  g..      #      
6300: 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 65 72   the compiler er
6310: 72 6f 72 73 20 61 6e 64 2f 6f 72 20 77 61 72 6e  rors and/or warn
6320: 69 6e 67 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  ings...      #..
6330: 20 20 20 20 20 20 73 65 74 20 6c 6f 63 61 6c 5f        set local_
6340: 72 65 73 75 6c 74 73 20 5b 72 75 6e 44 6f 74 4e  results [runDotN
6350: 65 74 43 53 68 61 72 70 43 6f 6d 6d 61 6e 64 20  etCSharpCommand 
6360: 24 63 6f 6d 6d 61 6e 64 5d 0d 0a 0d 0a 20 20 20  $command]....   
6370: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
6380: 54 45 3a 20 45 78 74 72 61 63 74 20 74 68 65 20  TE: Extract the 
6390: 63 6f 6d 70 69 6c 65 72 20 65 72 72 6f 72 73 20  compiler errors 
63a0: 28 77 68 69 63 68 20 6d 61 79 20 62 65 20 65 6d  (which may be em
63b0: 70 74 79 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  pty)...      #..
63c0: 20 20 20 20 20 20 73 65 74 20 65 72 72 6f 72 73        set errors
63d0: 20 5b 65 78 74 72 61 63 74 43 53 68 61 72 70 45   [extractCSharpE
63e0: 72 72 6f 72 73 20 24 73 6f 75 72 63 65 46 69 6c  rrors $sourceFil
63f0: 65 4e 61 6d 65 20 24 6c 6f 63 61 6c 5f 72 65 73  eName $local_res
6400: 75 6c 74 73 5d 0d 0a 0d 0a 20 20 20 20 20 20 23  ults]....      #
6410: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
6420: 45 78 74 72 61 63 74 20 74 68 65 20 63 6f 6d 70  Extract the comp
6430: 69 6c 65 72 20 77 61 72 6e 69 6e 67 73 20 28 77  iler warnings (w
6440: 68 69 63 68 20 6d 61 79 20 62 65 20 65 6d 70 74  hich may be empt
6450: 79 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  y)...      #..  
6460: 20 20 20 20 73 65 74 20 77 61 72 6e 69 6e 67 73      set warnings
6470: 20 5b 65 78 74 72 61 63 74 43 53 68 61 72 70 57   [extractCSharpW
6480: 61 72 6e 69 6e 67 73 20 24 73 6f 75 72 63 65 46  arnings $sourceF
6490: 69 6c 65 4e 61 6d 65 20 24 6c 6f 63 61 6c 5f 72  ileName $local_r
64a0: 65 73 75 6c 74 73 5d 0d 0a 0d 0a 20 20 20 20 20  esults]....     
64b0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
64c0: 3a 20 50 72 65 70 61 72 65 20 74 6f 20 74 72 61  : Prepare to tra
64d0: 6e 73 66 65 72 20 74 68 65 20 22 72 65 73 75 6c  nsfer the "resul
64e0: 74 73 22 20 74 6f 20 74 68 65 20 63 61 6c 6c 65  ts" to the calle
64f0: 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  r...      #..   
6500: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c     if {[string l
6510: 65 6e 67 74 68 20 24 72 65 73 75 6c 74 73 56 61  ength $resultsVa
6520: 72 4e 61 6d 65 5d 20 3e 20 30 7d 20 74 68 65 6e  rName] > 0} then
6530: 20 7b 0d 0a 20 20 20 20 20 20 20 20 75 70 76 61   {..        upva
6540: 72 20 31 20 24 72 65 73 75 6c 74 73 56 61 72 4e  r 1 $resultsVarN
6550: 61 6d 65 20 72 65 73 75 6c 74 73 0d 0a 20 20 20  ame results..   
6560: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d     }....      #.
6570: 0a 20 20 20 20 20 20 23 20 48 41 43 4b 3a 20 46  .      # HACK: F
6580: 6f 72 20 62 61 63 6b 77 61 72 64 20 63 6f 6d 70  or backward comp
6590: 61 74 69 62 69 6c 69 74 79 20 77 69 74 68 20 74  atibility with t
65a0: 68 65 20 72 65 73 75 6c 74 73 20 67 65 6e 65 72  he results gener
65b0: 61 74 65 64 20 62 79 0d 0a 20 20 20 20 20 20 23  ated by..      #
65c0: 20 20 20 20 20 20 20 74 68 65 20 5b 63 6f 6d 70         the [comp
65d0: 69 6c 65 56 69 61 43 53 68 61 72 70 43 6f 64 65  ileViaCSharpCode
65e0: 50 72 6f 76 69 64 65 72 5d 20 70 72 6f 63 65 64  Provider] proced
65f0: 75 72 65 2c 20 77 65 20 6d 75 73 74 20 6e 6f 77  ure, we must now
6600: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
6610: 73 65 74 20 74 68 65 20 72 65 73 75 6c 74 73 20  set the results 
6620: 74 6f 20 61 6e 20 6f 62 76 69 6f 75 73 6c 79 20  to an obviously 
6630: 66 61 6b 65 20 6f 70 61 71 75 65 20 6f 62 6a 65  fake opaque obje
6640: 63 74 20 68 61 6e 64 6c 65 0d 0a 20 20 20 20 20  ct handle..     
6650: 20 23 20 20 20 20 20 20 20 74 68 61 74 20 73 74   #       that st
6660: 69 6c 6c 20 6d 61 74 63 68 65 73 20 74 68 65 20  ill matches the 
6670: 6e 6f 72 6d 61 6c 20 70 61 74 74 65 72 6e 2e 0d  normal pattern..
6680: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
6690: 73 65 74 20 72 65 73 75 6c 74 73 20 53 79 73 74  set results Syst
66a0: 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69  em#CodeDom#Compi
66b0: 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75  ler#CompilerResu
66c0: 6c 74 73 23 30 0d 0a 0d 0a 20 20 20 20 20 20 23  lts#0....      #
66d0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
66e0: 49 74 20 69 73 20 61 73 73 75 6d 65 64 20 74 68  It is assumed th
66f0: 61 74 20 6e 6f 20 61 73 73 65 6d 62 6c 79 20 77  at no assembly w
6700: 61 73 20 67 65 6e 65 72 61 74 65 64 20 69 66 20  as generated if 
6710: 74 68 65 72 65 20 77 65 72 65 0d 0a 20 20 20 20  there were..    
6720: 20 20 23 20 20 20 20 20 20 20 61 6e 79 20 63 6f    #       any co
6730: 6d 70 69 6c 65 72 20 65 72 72 6f 72 73 2e 20 20  mpiler errors.  
6740: 49 67 6e 6f 72 65 20 61 6c 6c 20 63 6f 6d 70 69  Ignore all compi
6750: 6c 65 72 20 77 61 72 6e 69 6e 67 73 20 75 6e 6c  ler warnings unl
6760: 65 73 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ess..      #    
6770: 20 20 20 77 65 20 61 72 65 20 69 6e 20 73 74 72     we are in str
6780: 69 63 74 20 6d 6f 64 65 2e 0d 0a 20 20 20 20 20  ict mode...     
6790: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c   #..      if {[l
67a0: 6c 65 6e 67 74 68 20 24 65 72 72 6f 72 73 5d 20  length $errors] 
67b0: 3e 20 30 20 7c 7c 20 5c 0d 0a 20 20 20 20 20 20  > 0 || \..      
67c0: 20 20 20 20 28 24 73 74 72 69 63 74 20 26 26 20      ($strict && 
67d0: 5b 6c 6c 65 6e 67 74 68 20 24 77 61 72 6e 69 6e  [llength $warnin
67e0: 67 73 5d 20 3e 20 30 29 7d 20 74 68 65 6e 20 7b  gs] > 0)} then {
67f0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
6800: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 6f 6d       # NOTE: Com
6810: 70 69 6c 61 74 69 6f 6e 20 6f 66 20 74 68 65 20  pilation of the 
6820: 61 73 73 65 6d 62 6c 79 20 66 61 69 6c 65 64 2e  assembly failed.
6830: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
6840: 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 45 72       set code Er
6850: 72 6f 72 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23  ror....        #
6860: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
6870: 3a 20 50 72 65 70 61 72 65 20 74 6f 20 74 72 61  : Prepare to tra
6880: 6e 73 66 65 72 20 65 72 72 6f 72 20 6d 65 73 73  nsfer error mess
6890: 61 67 65 73 20 74 6f 20 74 68 65 20 63 61 6c 6c  ages to the call
68a0: 65 72 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  er...        #..
68b0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72          if {[str
68c0: 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 72 72 6f  ing length $erro
68d0: 72 73 56 61 72 4e 61 6d 65 5d 20 3e 20 30 7d 20  rsVarName] > 0} 
68e0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
68f0: 20 20 75 70 76 61 72 20 31 20 24 65 72 72 6f 72    upvar 1 $error
6900: 73 56 61 72 4e 61 6d 65 20 6c 6f 63 61 6c 5f 65  sVarName local_e
6910: 72 72 6f 72 73 0d 0a 20 20 20 20 20 20 20 20 7d  rrors..        }
6920: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
6930: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49         # NOTE: I
6940: 66 20 74 68 65 72 65 20 61 72 65 20 63 6f 6d 70  f there are comp
6950: 69 6c 65 72 20 65 72 72 6f 72 73 2c 20 61 64 64  iler errors, add
6960: 20 74 68 65 6d 20 74 6f 20 74 68 65 20 6c 69 73   them to the lis
6970: 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20  t now...        
6980: 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  #..        if {[
6990: 6c 6c 65 6e 67 74 68 20 24 65 72 72 6f 72 73 5d  llength $errors]
69a0: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20   > 0} then {..  
69b0: 20 20 20 20 20 20 20 20 65 76 61 6c 20 6c 61 70          eval lap
69c0: 70 65 6e 64 20 6c 6f 63 61 6c 5f 65 72 72 6f 72  pend local_error
69d0: 73 20 24 65 72 72 6f 72 73 0d 0a 20 20 20 20 20  s $errors..     
69e0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
69f0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
6a00: 45 3a 20 49 66 20 74 68 65 72 65 20 61 72 65 20  E: If there are 
6a10: 63 6f 6d 70 69 6c 65 72 20 77 61 72 6e 69 6e 67  compiler warning
6a20: 73 2c 20 61 64 64 20 74 68 65 6d 20 74 6f 20 74  s, add them to t
6a30: 68 65 20 6c 69 73 74 20 6e 6f 77 2e 0d 0a 20 20  he list now...  
6a40: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
6a50: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 77   if {[llength $w
6a60: 61 72 6e 69 6e 67 73 5d 20 3e 20 30 7d 20 74 68  arnings] > 0} th
6a70: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
6a80: 65 76 61 6c 20 6c 61 70 70 65 6e 64 20 6c 6f 63  eval lappend loc
6a90: 61 6c 5f 65 72 72 6f 72 73 20 24 77 61 72 6e 69  al_errors $warni
6aa0: 6e 67 73 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  ngs..        }..
6ab0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
6ac0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
6ad0: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68     # NOTE: If th
6ae0: 65 20 67 65 6e 65 72 61 74 65 64 20 61 73 73 65  e generated asse
6af0: 6d 62 6c 79 20 77 61 73 20 73 75 70 70 6f 73 65  mbly was suppose
6b00: 64 20 74 6f 20 62 65 20 6c 6f 61 64 65 64 20 69  d to be loaded i
6b10: 6e 74 6f 0d 0a 20 20 20 20 20 20 20 20 23 20 20  nto..        #  
6b20: 20 20 20 20 20 6d 65 6d 6f 72 79 2c 20 74 72 79       memory, try
6b30: 20 74 6f 20 64 6f 20 74 68 61 74 20 6e 6f 77 2e   to do that now.
6b40: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
6b50: 20 20 20 20 20 69 66 20 7b 24 6d 65 6d 6f 72 79       if {$memory
6b60: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
6b70: 20 20 20 20 6f 62 6a 65 63 74 20 6c 6f 61 64 20      object load 
6b80: 2d 6c 6f 61 64 74 79 70 65 20 46 69 6c 65 20 24  -loadtype File $
6b90: 6f 75 74 70 75 74 46 69 6c 65 4e 61 6d 65 0d 0a  outputFileName..
6ba0: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....   
6bb0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
6bc0: 23 20 4e 4f 54 45 3a 20 43 6f 6d 70 69 6c 61 74  # NOTE: Compilat
6bd0: 69 6f 6e 20 6f 66 20 74 68 65 20 61 73 73 65 6d  ion of the assem
6be0: 62 6c 79 20 73 75 63 63 65 65 64 65 64 2e 0d 0a  bly succeeded...
6bf0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
6c00: 20 20 20 73 65 74 20 63 6f 64 65 20 4f 6b 0d 0a     set code Ok..
6c10: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 20 66        }..    } f
6c20: 69 6e 61 6c 6c 79 20 7b 0d 0a 20 20 20 20 20 20  inally {..      
6c30: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
6c40: 20 44 65 6c 65 74 65 20 74 68 65 20 74 65 6d 70   Delete the temp
6c50: 6f 72 61 72 79 20 66 69 6c 65 20 6e 61 6d 65 20  orary file name 
6c60: 75 73 65 64 20 74 6f 20 68 6f 6c 64 20 74 68 65  used to hold the
6c70: 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 0d 0a 20   source code... 
6c80: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
6c90: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
6ca0: 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65   $sourceFileName
6cb0: 5d 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20 20  ] > 0 && \..    
6cc0: 20 20 20 20 20 20 5b 66 69 6c 65 20 65 78 69 73        [file exis
6cd0: 74 73 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61  ts $sourceFileNa
6ce0: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  me]} then {..   
6cf0: 20 20 20 20 20 63 61 74 63 68 20 7b 66 69 6c 65       catch {file
6d00: 20 64 65 6c 65 74 65 20 24 73 6f 75 72 63 65 46   delete $sourceF
6d10: 69 6c 65 4e 61 6d 65 7d 0d 0a 20 20 20 20 20 20  ileName}..      
6d20: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  }....      #..  
6d30: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 6b 65      # NOTE: Make
6d40: 20 73 75 72 65 20 74 68 65 20 64 75 6d 6d 79 20   sure the dummy 
6d50: 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 73 20  temporary files 
6d60: 61 72 65 20 63 6c 65 61 6e 65 64 20 75 70 2e 0d  are cleaned up..
6d70: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
6d80: 69 66 20 7b 5b 61 72 72 61 79 20 65 78 69 73 74  if {[array exist
6d90: 73 20 74 65 6d 70 4e 61 6d 65 5d 7d 20 74 68 65  s tempName]} the
6da0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 66 6f 72  n {..        for
6db0: 65 61 63 68 20 74 65 6d 70 46 69 6c 65 4e 61 6d  each tempFileNam
6dc0: 65 20 5b 61 72 72 61 79 20 76 61 6c 75 65 73 20  e [array values 
6dd0: 74 65 6d 70 4e 61 6d 65 5d 20 7b 0d 0a 20 20 20  tempName] {..   
6de0: 20 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c 65         if {[file
6df0: 20 65 78 69 73 74 73 20 24 74 65 6d 70 46 69 6c   exists $tempFil
6e00: 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a  eName]} then {..
6e10: 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 63              catc
6e20: 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 24  h {file delete $
6e30: 74 65 6d 70 46 69 6c 65 4e 61 6d 65 7d 0d 0a 20  tempFileName}.. 
6e40: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
6e50: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
6e60: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a      }....    #..
6e70: 20 20 20 20 23 20 48 41 43 4b 3a 20 2a 42 52 45      # HACK: *BRE
6e80: 41 4b 49 4e 47 20 43 48 41 4e 47 45 2a 20 49 66  AKING CHANGE* If
6e90: 20 74 68 65 72 65 20 69 73 20 61 6e 20 6f 75 74   there is an out
6ea0: 70 75 74 20 66 69 6c 65 20 6e 61 6d 65 2c 20 72  put file name, r
6eb0: 65 74 75 72 6e 20 69 74 0d 0a 20 20 20 20 23 20  eturn it..    # 
6ec0: 20 20 20 20 20 20 61 73 20 77 65 6c 6c 3b 20 6f        as well; o
6ed0: 74 68 65 72 77 69 73 65 2c 20 6a 75 73 74 20 72  therwise, just r
6ee0: 65 74 75 72 6e 20 73 75 63 63 65 73 73 2e 0d 0a  eturn success...
6ef0: 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 21      #..    if {!
6f00: 24 6d 65 6d 6f 72 79 20 26 26 20 5b 73 74 72 69  $memory && [stri
6f10: 6e 67 20 6c 65 6e 67 74 68 20 24 6f 75 74 70 75  ng length $outpu
6f20: 74 46 69 6c 65 4e 61 6d 65 5d 20 3e 20 30 7d 20  tFileName] > 0} 
6f30: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 23 0d  then {..      #.
6f40: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52  .      # NOTE: R
6f50: 65 74 75 72 6e 20 61 20 74 77 6f 20 65 6c 65 6d  eturn a two elem
6f60: 65 6e 74 20 6c 69 73 74 3a 20 74 68 65 20 66 69  ent list: the fi
6f70: 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 74  rst element is t
6f80: 68 65 20 6f 76 65 72 61 6c 6c 0d 0a 20 20 20 20  he overall..    
6f90: 20 20 23 20 20 20 20 20 20 20 72 65 73 75 6c 74    #       result
6fa0: 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20   and the second 
6fb0: 65 6c 65 6d 65 6e 74 20 69 73 20 74 68 65 20 6f  element is the o
6fc0: 75 74 70 75 74 20 66 69 6c 65 20 6e 61 6d 65 2e  utput file name.
6fd0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
6fe0: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 24 63   return [list $c
6ff0: 6f 64 65 20 24 6f 75 74 70 75 74 46 69 6c 65 4e  ode $outputFileN
7000: 61 6d 65 5d 0d 0a 20 20 20 20 7d 20 65 6c 73 65  ame]..    } else
7010: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
7020: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72     # NOTE: Retur
7030: 6e 20 74 68 65 20 6f 76 65 72 61 6c 6c 20 72 65  n the overall re
7040: 73 75 6c 74 20 74 6f 20 74 68 65 20 63 61 6c 6c  sult to the call
7050: 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  er...      #..  
7060: 20 20 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65      return $code
7070: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0c 0d  ..    }..  }....
7080: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
7090: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69  This procedure i
70a0: 73 20 75 73 65 64 20 74 6f 20 64 79 6e 61 6d 69  s used to dynami
70b0: 63 61 6c 6c 79 20 63 6f 6d 70 69 6c 65 20 61 72  cally compile ar
70c0: 62 69 74 72 61 72 79 20 43 23 20 63 6f 64 65 0d  bitrary C# code.
70d0: 0a 20 20 23 20 20 20 20 20 20 20 66 72 6f 6d 20  .  #       from 
70e0: 77 69 74 68 69 6e 20 61 20 73 63 72 69 70 74 2e  within a script.
70f0: 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65    This procedure
7100: 20 77 61 73 20 6f 72 69 67 69 6e 61 6c 6c 79 20   was originally 
7110: 64 65 73 69 67 6e 65 64 20 74 6f 0d 0a 20 20 23  designed to..  #
7120: 20 20 20 20 20 20 20 62 65 20 75 73 65 64 20 62         be used b
7130: 79 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65  y the test suite
7140: 3b 20 68 6f 77 65 76 65 72 2c 20 69 74 20 63 61  ; however, it ca
7150: 6e 20 62 65 20 71 75 69 74 65 20 75 73 65 66 75  n be quite usefu
7160: 6c 20 69 6e 0d 0a 20 20 23 20 20 20 20 20 20 20  l in..  #       
7170: 6e 6f 6e 2d 74 65 73 74 20 73 63 72 69 70 74 73  non-test scripts
7180: 20 61 73 20 77 65 6c 6c 2e 0d 0a 20 20 23 0d 0a   as well...  #..
7190: 20 20 70 72 6f 63 20 63 6f 6d 70 69 6c 65 43 53    proc compileCS
71a0: 68 61 72 70 20 7b 0d 0a 20 20 20 20 20 20 20 20  harp {..        
71b0: 20 20 73 74 72 69 6e 67 20 6d 65 6d 6f 72 79 20    string memory 
71c0: 73 79 6d 62 6f 6c 73 20 73 74 72 69 63 74 20 72  symbols strict r
71d0: 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 20 65 72  esultsVarName er
71e0: 72 6f 72 73 56 61 72 4e 61 6d 65 20 61 72 67 73  rorsVarName args
71f0: 20 7d 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69   } {..    if {[i
7200: 73 44 6f 74 4e 65 74 43 6f 72 65 5d 7d 20 74 68  sDotNetCore]} th
7210: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75  en {..      retu
7220: 72 6e 20 5b 75 70 6c 65 76 65 6c 20 31 20 5b 6c  rn [uplevel 1 [l
7230: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  ist \..         
7240: 20 63 6f 6d 70 69 6c 65 56 69 61 44 6f 74 4e 65   compileViaDotNe
7250: 74 43 6f 72 65 43 53 68 61 72 70 20 24 73 74 72  tCoreCSharp $str
7260: 69 6e 67 20 24 6d 65 6d 6f 72 79 20 24 73 79 6d  ing $memory $sym
7270: 62 6f 6c 73 20 24 73 74 72 69 63 74 20 5c 0d 0a  bols $strict \..
7280: 20 20 20 20 20 20 20 20 20 20 24 72 65 73 75 6c            $resul
7290: 74 73 56 61 72 4e 61 6d 65 20 24 65 72 72 6f 72  tsVarName $error
72a0: 73 56 61 72 4e 61 6d 65 5d 20 24 61 72 67 73 5d  sVarName] $args]
72b0: 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a  ..    } else {..
72c0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 75 70        return [up
72d0: 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20 5c 0d  level 1 [list \.
72e0: 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 69  .          compi
72f0: 6c 65 56 69 61 43 53 68 61 72 70 43 6f 64 65 50  leViaCSharpCodeP
7300: 72 6f 76 69 64 65 72 20 24 73 74 72 69 6e 67 20  rovider $string 
7310: 24 6d 65 6d 6f 72 79 20 24 73 79 6d 62 6f 6c 73  $memory $symbols
7320: 20 24 73 74 72 69 63 74 20 5c 0d 0a 20 20 20 20   $strict \..    
7330: 20 20 20 20 20 20 24 72 65 73 75 6c 74 73 56 61        $resultsVa
7340: 72 4e 61 6d 65 20 24 65 72 72 6f 72 73 56 61 72  rName $errorsVar
7350: 4e 61 6d 65 5d 20 24 61 72 67 73 5d 0d 0a 20 20  Name] $args]..  
7360: 20 20 7d 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23    }..  }.....  #
7370: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76  ..  # NOTE: Prov
7380: 69 64 65 20 74 68 65 20 45 61 67 6c 65 20 22 43  ide the Eagle "C
7390: 23 22 20 70 61 63 6b 61 67 65 20 74 6f 20 74 68  #" package to th
73a0: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a  e interpreter...
73b0: 20 20 23 0d 0a 20 20 70 61 63 6b 61 67 65 20 70    #..  package p
73c0: 72 6f 76 69 64 65 20 45 61 67 6c 65 2e 43 53 68  rovide Eagle.CSh
73d0: 61 72 70 20 5c 0d 0a 20 20 20 20 5b 65 78 70 72  arp \..    [expr
73e0: 20 7b 5b 69 73 45 61 67 6c 65 5d 20 3f 20 5b 69   {[isEagle] ? [i
73f0: 6e 66 6f 20 65 6e 67 69 6e 65 20 50 61 74 63 68  nfo engine Patch
7400: 4c 65 76 65 6c 5d 20 3a 20 22 31 2e 30 22 7d 5d  Level] : "1.0"}]
7410: 0d 0a 7d 0d 0a 0c                                ..}...