System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 814d0a6d289bca2bcdab714ac55fa4bf96a60900:


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 6f 62 6a 65 63 74 2e 65 61 67  .#..# object.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 4f 62 6a 65 63  )..# Eagle Objec
00b0: 74 20 50 61 63 6b 61 67 65 20 46 69 6c 65 0d 0a  t 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 61 63 63 65  s procedure acce
0320: 70 74 73 20 74 77 6f 20 61 72 67 75 6d 65 6e 74  pts two argument
0330: 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65  s containing the
0340: 20 66 6c 61 67 20 73 74 72 69 6e 67 0d 0a 20 20   flag string..  
0350: 23 20 20 20 20 20 20 20 74 68 61 74 20 61 72 65  #       that are
0360: 20 62 61 73 65 64 20 6f 6e 20 61 6e 20 65 6e 75   based on an enu
0370: 6d 65 72 61 74 65 64 20 43 4c 52 20 74 79 70 65  merated CLR type
0380: 2e 20 20 46 6c 61 67 20 76 61 6c 75 65 73 20 74  .  Flag values t
0390: 68 61 74 20 61 72 65 0d 0a 20 20 23 20 20 20 20  hat are..  #    
03a0: 20 20 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20     contained in 
03b0: 74 68 65 73 65 20 74 77 6f 20 61 72 67 75 6d 65  these two argume
03c0: 6e 74 73 20 61 72 65 20 63 6f 6d 62 69 6e 65 64  nts are combined
03d0: 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20 61 73   and returned as
03e0: 0d 0a 20 20 23 20 20 20 20 20 20 20 74 68 65 20  ..  #       the 
03f0: 72 65 73 75 6c 74 2e 20 20 54 68 65 20 74 68 69  result.  The thi
0400: 72 64 20 66 6c 61 67 20 73 74 72 69 6e 67 20 61  rd flag string a
0410: 72 67 75 6d 65 6e 74 20 63 6f 6e 74 61 69 6e 73  rgument contains
0420: 20 74 68 65 20 66 6c 61 67 73 0d 0a 20 20 23 20   the flags..  # 
0430: 20 20 20 20 20 20 74 6f 20 65 78 63 6c 75 64 65        to exclude
0440: 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74   from the result
0450: 2e 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 63  ...  #..  proc c
0460: 6f 6d 62 69 6e 65 46 6c 61 67 73 20 7b 20 66 6c  ombineFlags { fl
0470: 61 67 73 31 20 66 6c 61 67 73 32 20 7b 66 6c 61  ags1 flags2 {fla
0480: 67 73 33 20 22 22 7d 20 7b 6e 6f 43 61 73 65 20  gs3 ""} {noCase 
0490: 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20  false} } {..    
04a0: 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 54  #..    # NOTE: T
04b0: 68 69 73 20 73 68 6f 75 6c 64 20 77 6f 72 6b 20  his should work 
04c0: 70 72 6f 70 65 72 6c 79 20 69 6e 20 62 6f 74 68  properly in both
04d0: 20 54 63 6c 20 61 6e 64 20 45 61 67 6c 65 2e 0d   Tcl and Eagle..
04e0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20  .    #..    set 
04f0: 72 65 73 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 20  result [list].. 
0500: 20 20 20 73 65 74 20 6e 6f 74 46 6c 61 67 73 20     set notFlags 
0510: 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20 20 20 69 66  [list]....    if
0520: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
0530: 20 24 66 6c 61 67 73 33 5d 20 3e 20 30 7d 20 74   $flags3] > 0} t
0540: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 66 6f 72  hen {..      for
0550: 65 61 63 68 20 66 6c 61 67 20 5b 73 70 6c 69 74  each flag [split
0560: 20 24 66 6c 61 67 73 33 20 22 2c 20 22 5d 20 7b   $flags3 ", "] {
0570: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 66 6c  ..        set fl
0580: 61 67 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  ag [string trim 
0590: 24 66 6c 61 67 5d 0d 0a 0d 0a 20 20 20 20 20 20  $flag]....      
05a0: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
05b0: 6e 67 74 68 20 24 66 6c 61 67 5d 20 3e 20 30 7d  ngth $flag] > 0}
05c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
05d0: 20 20 20 6c 61 70 70 65 6e 64 20 6e 6f 74 46 6c     lappend notFl
05e0: 61 67 73 20 24 66 6c 61 67 0d 0a 20 20 20 20 20  ags $flag..     
05f0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
0600: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 66 6f 72 65     }....    fore
0610: 61 63 68 20 66 6c 61 67 73 20 5b 6c 69 73 74 20  ach flags [list 
0620: 24 66 6c 61 67 73 31 20 24 66 6c 61 67 73 32 5d  $flags1 $flags2]
0630: 20 7b 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 63   {..      foreac
0640: 68 20 66 6c 61 67 20 5b 73 70 6c 69 74 20 24 66  h flag [split $f
0650: 6c 61 67 73 20 22 2c 20 22 5d 20 7b 0d 0a 20 20  lags ", "] {..  
0660: 20 20 20 20 20 20 73 65 74 20 66 6c 61 67 20 5b        set flag [
0670: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 66 6c 61  string trim $fla
0680: 67 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66  g]....        if
0690: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
06a0: 20 24 66 6c 61 67 5d 20 3e 20 30 7d 20 74 68 65   $flag] > 0} the
06b0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73  n {..          s
06c0: 65 74 20 61 64 64 46 6c 61 67 20 66 61 6c 73 65  et addFlag false
06d0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66  ....          if
06e0: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6e 6f 74 46   {[llength $notF
06f0: 6c 61 67 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20  lags] > 0} then 
0700: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73  {..            s
0710: 65 74 20 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74  et command [list
0720: 20 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 5d   lsearch -exact]
0730: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
0740: 69 66 20 7b 24 6e 6f 43 61 73 65 7d 20 74 68 65  if {$noCase} the
0750: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
0760: 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61     lappend comma
0770: 6e 64 20 2d 6e 6f 63 61 73 65 0d 0a 20 20 20 20  nd -nocase..    
0780: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....   
0790: 20 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64           lappend
07a0: 20 63 6f 6d 6d 61 6e 64 20 2d 2d 20 24 6e 6f 74   command -- $not
07b0: 46 6c 61 67 73 20 24 66 6c 61 67 0d 0a 0d 0a 20  Flags $flag.... 
07c0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b             if {[
07d0: 65 76 61 6c 20 24 63 6f 6d 6d 61 6e 64 5d 20 3d  eval $command] =
07e0: 3d 20 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  = -1} then {..  
07f0: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20              set 
0800: 61 64 64 46 6c 61 67 20 74 72 75 65 0d 0a 20 20  addFlag true..  
0810: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
0820: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
0830: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74  .            set
0840: 20 61 64 64 46 6c 61 67 20 74 72 75 65 0d 0a 20   addFlag true.. 
0850: 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20           }....  
0860: 20 20 20 20 20 20 20 20 69 66 20 7b 24 61 64 64          if {$add
0870: 46 6c 61 67 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  Flag} then {..  
0880: 20 20 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e            lappen
0890: 64 20 72 65 73 75 6c 74 20 24 66 6c 61 67 0d 0a  d result $flag..
08a0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
08b0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d       }..      }.
08c0: 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 72 65  .    }....    re
08d0: 74 75 72 6e 20 5b 6a 6f 69 6e 20 24 72 65 73 75  turn [join $resu
08e0: 6c 74 20 2c 5d 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20  lt ,]..  }..... 
08f0: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68   #..  # NOTE: Th
0900: 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74  is procedure ret
0910: 75 72 6e 73 20 74 68 65 20 74 79 70 65 20 6e 61  urns the type na
0920: 6d 65 20 6f 66 20 74 68 65 20 72 65 74 75 72 6e  me of the return
0930: 20 74 79 70 65 20 66 6f 72 20 74 68 65 0d 0a 20   type for the.. 
0940: 20 23 20 20 20 20 20 20 20 73 70 65 63 69 66 69   #       specifi
0950: 65 64 20 43 4c 52 20 6d 65 6d 62 65 72 2e 0d 0a  ed CLR member...
0960: 20 20 23 0d 0a 20 20 70 72 6f 63 20 67 65 74 52    #..  proc getR
0970: 65 74 75 72 6e 54 79 70 65 20 7b 20 6f 62 6a 65  eturnType { obje
0980: 63 74 20 6d 65 6d 62 65 72 20 7d 20 7b 0d 0a 20  ct member } {.. 
0990: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c     if {[string l
09a0: 65 6e 67 74 68 20 24 6f 62 6a 65 63 74 5d 20 3d  ength $object] =
09b0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
09c0: 20 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20 20     return ""..  
09d0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b    }....    if {[
09e0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6d  string length $m
09f0: 65 6d 62 65 72 5d 20 3d 3d 20 30 7d 20 74 68 65  ember] == 0} the
0a00: 6e 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75 72  n {..      retur
0a10: 6e 20 22 22 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20  n ""..    }.... 
0a20: 20 20 20 73 65 74 20 63 6f 64 65 20 5b 63 61 74     set code [cat
0a30: 63 68 20 7b 0d 0a 20 20 20 20 20 20 6f 62 6a 65  ch {..      obje
0a40: 63 74 20 66 6f 72 65 61 63 68 20 2d 61 6c 69 61  ct foreach -alia
0a50: 73 20 6d 65 6d 62 65 72 49 6e 66 6f 20 5c 0d 0a  s memberInfo \..
0a60: 20 20 20 20 20 20 20 20 20 20 5b 6f 62 6a 65 63            [objec
0a70: 74 20 69 6e 76 6f 6b 65 20 2d 6e 6f 69 6e 76 6f  t invoke -noinvo
0a80: 6b 65 20 24 6f 62 6a 65 63 74 20 24 6d 65 6d 62  ke $object $memb
0a90: 65 72 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  er] {..        #
0aa0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
0ab0: 3a 20 55 73 65 20 74 68 65 20 6d 65 6d 62 65 72  : Use the member
0ac0: 20 74 79 70 65 20 74 6f 20 64 65 74 65 72 6d 69   type to determi
0ad0: 6e 65 20 77 68 69 63 68 20 70 72 6f 70 65 72 74  ne which propert
0ae0: 79 20 63 6f 6e 74 61 69 6e 73 0d 0a 20 20 20 20  y contains..    
0af0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20      #       the 
0b00: 74 79 70 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  type information
0b10: 20 77 65 20 77 61 6e 74 20 74 6f 20 72 65 74 75   we want to retu
0b20: 72 6e 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  rn...        #..
0b30: 20 20 20 20 20 20 20 20 73 77 69 74 63 68 20 2d          switch -
0b40: 65 78 61 63 74 20 2d 2d 20 5b 24 6d 65 6d 62 65  exact -- [$membe
0b50: 72 49 6e 66 6f 20 4d 65 6d 62 65 72 54 79 70 65  rInfo MemberType
0b60: 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 46  ] {..          F
0b70: 69 65 6c 64 20 7b 0d 0a 20 20 20 20 20 20 20 20  ield {..        
0b80: 20 20 20 20 72 65 74 75 72 6e 20 5b 24 6d 65 6d      return [$mem
0b90: 62 65 72 49 6e 66 6f 20 46 69 65 6c 64 54 79 70  berInfo FieldTyp
0ba0: 65 2e 41 73 73 65 6d 62 6c 79 51 75 61 6c 69 66  e.AssemblyQualif
0bb0: 69 65 64 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20  iedName]..      
0bc0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
0bd0: 20 4d 65 74 68 6f 64 20 7b 0d 0a 20 20 20 20 20   Method {..     
0be0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 24         return [$
0bf0: 6d 65 6d 62 65 72 49 6e 66 6f 20 52 65 74 75 72  memberInfo Retur
0c00: 6e 54 79 70 65 2e 41 73 73 65 6d 62 6c 79 51 75  nType.AssemblyQu
0c10: 61 6c 69 66 69 65 64 4e 61 6d 65 5d 0d 0a 20 20  alifiedName]..  
0c20: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
0c30: 20 20 20 20 20 50 72 6f 70 65 72 74 79 20 7b 0d       Property {.
0c40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
0c50: 75 72 6e 20 5b 24 6d 65 6d 62 65 72 49 6e 66 6f  urn [$memberInfo
0c60: 20 50 72 6f 70 65 72 74 79 54 79 70 65 2e 41 73   PropertyType.As
0c70: 73 65 6d 62 6c 79 51 75 61 6c 69 66 69 65 64 4e  semblyQualifiedN
0c80: 61 6d 65 5d 0d 0a 20 20 20 20 20 20 20 20 20 20  ame]..          
0c90: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 64 65 66  }..          def
0ca0: 61 75 6c 74 20 7b 0d 0a 20 20 20 20 20 20 20 20  ault {..        
0cb0: 20 20 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20      return "".. 
0cc0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
0cd0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
0ce0: 20 20 20 20 7d 20 72 65 73 75 6c 74 5d 0d 0a 0d      } result]...
0cf0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f  .    #..    # NO
0d00: 54 45 3a 20 49 66 20 6e 6f 20 65 72 72 6f 72 20  TE: If no error 
0d10: 77 61 73 20 72 61 69 73 65 64 20 61 62 6f 76 65  was raised above
0d20: 2c 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73  , return the res
0d30: 75 6c 74 3b 20 6f 74 68 65 72 77 69 73 65 2c 0d  ult; otherwise,.
0d40: 0a 20 20 20 20 23 20 20 20 20 20 20 20 72 65 74  .    #       ret
0d50: 75 72 6e 20 61 6e 20 65 6d 70 74 79 20 73 74 72  urn an empty str
0d60: 69 6e 67 20 74 6f 20 69 6e 64 69 63 61 74 65 20  ing to indicate 
0d70: 61 20 67 65 6e 65 72 61 6c 20 66 61 69 6c 75 72  a general failur
0d80: 65 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 72  e...    #..    r
0d90: 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 24 63 6f  eturn [expr {$co
0da0: 64 65 20 3d 3d 20 32 20 3f 20 24 72 65 73 75 6c  de == 2 ? $resul
0db0: 74 20 3a 20 22 22 7d 5d 0d 0a 20 20 7d 0d 0a 0c  t : ""}]..  }...
0dc0: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
0dd0: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
0de0: 72 65 74 75 72 6e 73 20 74 68 65 20 64 65 66 61  returns the defa
0df0: 75 6c 74 20 76 61 6c 75 65 20 66 6f 72 20 74 68  ult value for th
0e00: 65 20 73 70 65 63 69 66 69 65 64 20 43 4c 52 20  e specified CLR 
0e10: 74 79 70 65 2e 0d 0a 20 20 23 0d 0a 20 20 70 72  type...  #..  pr
0e20: 6f 63 20 67 65 74 44 65 66 61 75 6c 74 56 61 6c  oc getDefaultVal
0e30: 75 65 20 7b 20 74 79 70 65 4e 61 6d 65 20 7d 20  ue { typeName } 
0e40: 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e  {..    if {[llen
0e50: 67 74 68 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e  gth [info comman
0e60: 64 73 20 6f 62 6a 65 63 74 5d 5d 20 3d 3d 20 30  ds object]] == 0
0e70: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
0e80: 72 65 74 75 72 6e 20 22 22 0d 0a 20 20 20 20 7d  return ""..    }
0e90: 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b 73 74 72  ....    if {[str
0ea0: 69 6e 67 20 6c 65 6e 67 74 68 20 24 74 79 70 65  ing length $type
0eb0: 4e 61 6d 65 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  Name] == 0} then
0ec0: 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e   {..      return
0ed0: 20 22 22 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20   ""..    }....  
0ee0: 20 20 73 65 74 20 74 79 70 65 20 5b 6f 62 6a 65    set type [obje
0ef0: 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74  ct invoke -creat
0f00: 65 20 2d 61 6c 69 61 73 20 55 74 69 6c 69 74 79  e -alias Utility
0f10: 20 47 65 74 54 79 70 65 20 24 74 79 70 65 4e 61   GetType $typeNa
0f20: 6d 65 5d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b  me]....    if {[
0f30: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 74  string length $t
0f40: 79 70 65 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20  ype] == 0} then 
0f50: 7b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  {..      return 
0f60: 22 22 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ""..    }....   
0f70: 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 5b   return [expr {[
0f80: 24 74 79 70 65 20 49 73 56 61 6c 75 65 54 79 70  $type IsValueTyp
0f90: 65 5d 20 3f 20 30 20 3a 20 22 6e 75 6c 6c 22 7d  e] ? 0 : "null"}
0fa0: 5d 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a  ]..  }.....  #..
0fb0: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70    # NOTE: This p
0fc0: 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 6e 73  rocedure returns
0fd0: 20 61 20 73 74 72 69 6e 67 20 6f 62 74 61 69 6e   a string obtain
0fe0: 65 64 20 62 79 20 75 73 69 6e 67 20 74 68 65 20  ed by using the 
0ff0: 73 70 65 63 69 66 69 65 64 0d 0a 20 20 23 20 20  specified..  #  
1000: 20 20 20 20 20 76 61 6c 75 65 20 61 73 20 61 6e       value as an
1010: 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68   opaque object h
1020: 61 6e 64 6c 65 20 2d 4f 52 2d 20 61 20 64 65 66  andle -OR- a def
1030: 61 75 6c 74 20 76 61 6c 75 65 20 28 65 2e 67 2e  ault value (e.g.
1040: 20 61 6e 0d 0a 20 20 23 20 20 20 20 20 20 20 65   an..  #       e
1050: 6d 70 74 79 20 73 74 72 69 6e 67 29 20 69 66 20  mpty string) if 
1060: 74 68 65 20 76 61 6c 75 65 20 69 73 20 6e 6f 74  the value is not
1070: 20 61 20 76 61 6c 69 64 20 6f 70 61 71 75 65 20   a valid opaque 
1080: 6f 62 6a 65 63 74 20 68 61 6e 64 6c 65 2e 0d 0a  object handle...
1090: 20 20 23 0d 0a 20 20 70 72 6f 63 20 67 65 74 53    #..  proc getS
10a0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 65 63 74 48  tringFromObjectH
10b0: 61 6e 64 6c 65 20 7b 20 76 61 6c 75 65 20 7b 64  andle { value {d
10c0: 65 66 61 75 6c 74 20 22 22 7d 20 7d 20 7b 0d 0a  efault ""} } {..
10d0: 20 20 20 20 69 66 20 7b 5b 69 73 4e 6f 6e 4e 75      if {[isNonNu
10e0: 6c 6c 4f 62 6a 65 63 74 48 61 6e 64 6c 65 20 24  llObjectHandle $
10f0: 76 61 6c 75 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a  value]} then {..
1100: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6f 62        return [ob
1110: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 24 76 61 6c  ject invoke $val
1120: 75 65 20 54 6f 53 74 72 69 6e 67 5d 0d 0a 20 20  ue ToString]..  
1130: 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 5b    }....    if {[
1140: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64  string length $d
1150: 65 66 61 75 6c 74 5d 20 3e 20 30 7d 20 74 68 65  efault] > 0} the
1160: 6e 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75 72  n {..      retur
1170: 6e 20 24 64 65 66 61 75 6c 74 0d 0a 20 20 20 20  n $default..    
1180: 7d 0d 0a 0d 0a 20 20 20 20 72 65 74 75 72 6e 20  }....    return 
1190: 24 76 61 6c 75 65 0d 0a 20 20 7d 0d 0a 0c 0d 0a  $value..  }.....
11a0: 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54    #..  # NOTE: T
11b0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65  his procedure re
11c0: 74 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20 69  turns non-zero i
11d0: 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20  f the specified 
11e0: 76 61 6c 75 65 20 63 61 6e 20 62 65 20 75 73 65  value can be use
11f0: 64 0d 0a 20 20 23 20 20 20 20 20 20 20 61 73 20  d..  #       as 
1200: 61 6e 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74  an opaque object
1210: 20 68 61 6e 64 6c 65 2e 0d 0a 20 20 23 0d 0a 20   handle...  #.. 
1220: 20 70 72 6f 63 20 69 73 4f 62 6a 65 63 74 48 61   proc isObjectHa
1230: 6e 64 6c 65 20 7b 20 76 61 6c 75 65 20 7d 20 7b  ndle { value } {
1240: 0d 0a 20 20 20 20 73 65 74 20 70 61 74 74 65 72  ..    set patter
1250: 6e 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c  n [string map [l
1260: 69 73 74 20 5c 5c 20 5c 5c 5c 5c 20 5c 5b 20 5c  ist \\ \\\\ \[ \
1270: 5c 5c 5b 20 5c 5d 20 5c 5c 5c 5d 5d 20 24 76 61  \\[ \] \\\]] $va
1280: 6c 75 65 5d 0d 0a 20 20 20 20 73 65 74 20 6f 62  lue]..    set ob
1290: 6a 65 63 74 73 20 5b 69 6e 66 6f 20 6f 62 6a 65  jects [info obje
12a0: 63 74 73 20 24 70 61 74 74 65 72 6e 5d 0d 0a 0d  cts $pattern]...
12b0: 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74  .    if {[llengt
12c0: 68 20 24 6f 62 6a 65 63 74 73 5d 20 3d 3d 20 31  h $objects] == 1
12d0: 20 26 26 20 5b 6c 69 6e 64 65 78 20 24 6f 62 6a   && [lindex $obj
12e0: 65 63 74 73 20 30 5d 20 65 71 20 24 76 61 6c 75  ects 0] eq $valu
12f0: 65 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  e} then {..     
1300: 20 72 65 74 75 72 6e 20 74 72 75 65 0d 0a 20 20   return true..  
1310: 20 20 7d 0d 0a 0d 0a 20 20 20 20 72 65 74 75 72    }....    retur
1320: 6e 20 66 61 6c 73 65 0d 0a 20 20 7d 0d 0a 0c 0d  n false..  }....
1330: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
1340: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72  This procedure r
1350: 65 74 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20  eturns non-zero 
1360: 69 66 20 74 68 65 20 73 70 65 63 69 66 69 65 64  if the specified
1370: 20 76 61 6c 75 65 20 63 61 6e 20 62 65 20 75 73   value can be us
1380: 65 64 0d 0a 20 20 23 20 20 20 20 20 20 20 61 73  ed..  #       as
1390: 20 61 6e 20 6f 70 61 71 75 65 20 6f 62 6a 65 63   an opaque objec
13a0: 74 20 68 61 6e 64 6c 65 20 2d 41 4e 44 2d 20 74  t handle -AND- t
13b0: 68 65 20 76 61 6c 75 65 20 64 6f 65 73 20 6e 6f  he value does no
13c0: 74 20 72 65 70 72 65 73 65 6e 74 20 61 20 6e 75  t represent a nu
13d0: 6c 6c 0d 0a 20 20 23 20 20 20 20 20 20 20 76 61  ll..  #       va
13e0: 6c 75 65 2e 0d 0a 20 20 23 0d 0a 20 20 70 72 6f  lue...  #..  pro
13f0: 63 20 69 73 4e 6f 6e 4e 75 6c 6c 4f 62 6a 65 63  c isNonNullObjec
1400: 74 48 61 6e 64 6c 65 20 7b 20 76 61 6c 75 65 20  tHandle { value 
1410: 7d 20 7b 0d 0a 20 20 20 20 67 6c 6f 62 61 6c 20  } {..    global 
1420: 6e 75 6c 6c 0d 0a 20 20 20 20 72 65 74 75 72 6e  null..    return
1430: 20 5b 65 78 70 72 20 7b 5b 69 73 4f 62 6a 65 63   [expr {[isObjec
1440: 74 48 61 6e 64 6c 65 20 24 76 61 6c 75 65 5d 20  tHandle $value] 
1450: 26 26 20 24 76 61 6c 75 65 20 6e 65 20 24 6e 75  && $value ne $nu
1460: 6c 6c 7d 5d 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20  ll}]..  }.....  
1470: 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69  #..  # NOTE: Thi
1480: 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75  s procedure retu
1490: 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20  rns non-zero if 
14a0: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6e 61  the specified na
14b0: 6d 65 20 72 65 70 72 65 73 65 6e 74 73 0d 0a 20  me represents.. 
14c0: 20 23 20 20 20 20 20 20 20 61 20 76 61 6c 69 64   #       a valid
14d0: 20 43 4c 52 20 74 79 70 65 20 6e 61 6d 65 2e 0d   CLR type name..
14e0: 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 69 73 4d  .  #..  proc isM
14f0: 61 6e 61 67 65 64 54 79 70 65 20 7b 20 6e 61 6d  anagedType { nam
1500: 65 20 7d 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b  e } {..    if {[
1510: 6c 6c 65 6e 67 74 68 20 5b 69 6e 66 6f 20 63 6f  llength [info co
1520: 6d 6d 61 6e 64 73 20 6f 62 6a 65 63 74 5d 5d 20  mmands object]] 
1530: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  > 0} then {..   
1540: 20 20 20 69 66 20 7b 21 5b 69 73 4f 62 6a 65 63     if {![isObjec
1550: 74 48 61 6e 64 6c 65 20 24 6e 61 6d 65 5d 7d 20  tHandle $name]} 
1560: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
1570: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20  if {[catch {..  
1580: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 6d          object m
1590: 65 6d 62 65 72 73 20 2d 6d 61 74 63 68 6e 61 6d  embers -matchnam
15a0: 65 6f 6e 6c 79 20 2d 6e 61 6d 65 6f 6e 6c 79 20  eonly -nameonly 
15b0: 2d 70 61 74 74 65 72 6e 20 45 71 75 61 6c 73 20  -pattern Equals 
15c0: 24 6e 61 6d 65 0d 0a 20 20 20 20 20 20 20 20 7d  $name..        }
15d0: 20 72 65 73 75 6c 74 5d 20 3d 3d 20 30 20 26 26   result] == 0 &&
15e0: 20 24 72 65 73 75 6c 74 20 65 71 20 22 45 71 75   $result eq "Equ
15f0: 61 6c 73 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  als"} then {..  
1600: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 74          return t
1610: 72 75 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  rue..        }..
1620: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
1630: 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 66 61 6c  ..    return fal
1640: 73 65 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d  se..  }.....  #.
1650: 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20  .  # NOTE: This 
1660: 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 6e  procedure return
1670: 73 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20 74 68  s non-zero if th
1680: 65 20 73 70 65 63 69 66 69 65 64 20 6e 61 6d 65  e specified name
1690: 20 69 73 20 75 73 61 62 6c 65 0d 0a 20 20 23 20   is usable..  # 
16a0: 20 20 20 20 20 20 61 73 20 61 20 43 4c 52 20 74        as a CLR t
16b0: 79 70 65 20 6e 61 6d 65 2e 0d 0a 20 20 23 0d 0a  ype name...  #..
16c0: 20 20 70 72 6f 63 20 63 61 6e 47 65 74 4d 61 6e    proc canGetMan
16d0: 61 67 65 64 54 79 70 65 20 7b 20 6e 61 6d 65 20  agedType { name 
16e0: 7b 76 61 72 4e 61 6d 65 20 22 22 7d 20 7d 20 7b  {varName ""} } {
16f0: 0d 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67  ..    if {[lleng
1700: 74 68 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64  th [info command
1710: 73 20 6f 62 6a 65 63 74 5d 5d 20 3e 20 30 7d 20  s object]] > 0} 
1720: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 69 66  then {..      if
1730: 20 7b 21 5b 69 73 4f 62 6a 65 63 74 48 61 6e 64   {![isObjectHand
1740: 6c 65 20 24 6e 61 6d 65 5d 7d 20 74 68 65 6e 20  le $name]} then 
1750: 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63  {..        set c
1760: 75 6c 74 75 72 65 49 6e 66 6f 20 5b 6f 62 6a 65  ultureInfo [obje
1770: 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70  ct invoke Interp
1780: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20  reter.GetActive 
1790: 43 75 6c 74 75 72 65 49 6e 66 6f 5d 0d 0a 20 20  CultureInfo]..  
17a0: 20 20 20 20 20 20 73 65 74 20 74 79 70 65 20 6e        set type n
17b0: 75 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73  ull....        s
17c0: 65 74 20 63 6f 64 65 20 5b 6f 62 6a 65 63 74 20  et code [object 
17d0: 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74 65 20 2d  invoke -create -
17e0: 61 6c 69 61 73 20 2d 66 6c 61 67 73 20 2b 4e 6f  alias -flags +No
17f0: 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20  nPublic \..     
1800: 20 20 20 20 20 20 20 56 61 6c 75 65 20 47 65 74         Value Get
1810: 54 79 70 65 20 22 22 20 24 6e 61 6d 65 20 6e 75  Type "" $name nu
1820: 6c 6c 20 6e 75 6c 6c 20 4e 6f 6e 65 20 24 63 75  ll null None $cu
1830: 6c 74 75 72 65 49 6e 66 6f 20 74 79 70 65 5d 0d  ltureInfo type].
1840: 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  ...        if {[
1850: 24 63 6f 64 65 20 54 6f 53 74 72 69 6e 67 5d 20  $code ToString] 
1860: 65 71 20 22 4f 6b 22 7d 20 74 68 65 6e 20 7b 0d  eq "Ok"} then {.
1870: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b  .          if {[
1880: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 76  string length $v
1890: 61 72 4e 61 6d 65 5d 20 3e 20 30 7d 20 74 68 65  arName] > 0} the
18a0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
18b0: 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d   upvar 1 $varNam
18c0: 65 20 74 79 70 65 4e 61 6d 65 0d 0a 20 20 20 20  e typeName..    
18d0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
18e0: 20 20 20 20 20 73 65 74 20 74 79 70 65 4e 61 6d       set typeNam
18f0: 65 20 5b 24 74 79 70 65 20 41 73 73 65 6d 62 6c  e [$type Assembl
1900: 79 51 75 61 6c 69 66 69 65 64 4e 61 6d 65 5d 0d  yQualifiedName].
1910: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  ...          if 
1920: 7b 5b 69 73 4d 61 6e 61 67 65 64 54 79 70 65 20  {[isManagedType 
1930: 24 74 79 70 65 4e 61 6d 65 5d 7d 20 74 68 65 6e  $typeName]} then
1940: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
1950: 72 65 74 75 72 6e 20 74 72 75 65 0d 0a 20 20 20  return true..   
1960: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
1970: 20 20 7d 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 66 61 6c 73 65 0d 0a 20 20 7d 0d 0a 0c 0d  n false..  }....
19a0: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
19b0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 65  This procedure e
19c0: 76 61 6c 75 61 74 65 73 20 61 20 73 63 72 69 70  valuates a scrip
19d0: 74 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79  t asynchronously
19e0: 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c 79 0d   and optionally.
19f0: 0a 20 20 23 20 20 20 20 20 20 20 6e 6f 74 69 66  .  #       notif
1a00: 69 65 73 20 61 6e 6f 74 68 65 72 20 73 63 72 69  ies another scri
1a10: 70 74 20 75 70 6f 6e 20 69 74 73 20 63 6f 6d 70  pt upon its comp
1a20: 6c 65 74 69 6f 6e 2e 20 20 54 68 65 20 66 69 72  letion.  The fir
1a30: 73 74 20 61 72 67 75 6d 65 6e 74 0d 0a 20 20 23  st argument..  #
1a40: 20 20 20 20 20 20 20 69 73 20 74 68 65 20 6e 6f         is the no
1a50: 74 69 66 69 63 61 74 69 6f 6e 20 73 63 72 69 70  tification scrip
1a60: 74 3b 20 69 66 20 61 6e 20 65 6d 70 74 79 20 73  t; if an empty s
1a70: 74 72 69 6e 67 2c 20 74 68 65 72 65 20 77 69 6c  tring, there wil
1a80: 6c 20 62 65 20 6e 6f 0d 0a 20 20 23 20 20 20 20  l be no..  #    
1a90: 20 20 20 6e 6f 74 69 66 69 63 61 74 69 6f 6e 20     notification 
1aa0: 77 68 65 6e 20 61 73 79 6e 63 68 72 6f 6e 6f 75  when asynchronou
1ab0: 73 20 73 63 72 69 70 74 20 65 76 61 6c 75 61 74  s script evaluat
1ac0: 69 6f 6e 20 69 73 20 63 6f 6d 70 6c 65 74 65 64  ion is completed
1ad0: 2e 0d 0a 20 20 23 20 20 20 20 20 20 20 49 66 20  ...  #       If 
1ae0: 74 68 65 72 65 20 69 73 20 65 78 61 63 74 6c 79  there is exactly
1af0: 20 6f 6e 65 20 6d 6f 72 65 20 61 72 67 75 6d 65   one more argume
1b00: 6e 74 2c 20 69 74 20 69 73 20 65 76 61 6c 75 61  nt, it is evalua
1b10: 74 65 64 20 76 65 72 62 61 74 69 6d 3b 0d 0a 20  ted verbatim;.. 
1b20: 20 23 20 20 20 20 20 20 20 6f 74 68 65 72 77 69   #       otherwi
1b30: 73 65 2c 20 61 6c 6c 20 72 65 6d 61 69 6e 69 6e  se, all remainin
1b40: 67 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20  g arguments are 
1b50: 63 6f 6e 63 61 74 65 6e 61 74 65 64 20 76 69 61  concatenated via
1b60: 20 5b 63 6f 6e 63 61 74 5d 0d 0a 20 20 23 20 20   [concat]..  #  
1b70: 20 20 20 20 20 61 6e 64 20 65 76 61 6c 75 61 74       and evaluat
1b80: 65 64 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 6c  ed asynchronousl
1b90: 79 2e 20 20 49 66 20 74 68 65 20 73 63 72 69 70  y.  If the scrip
1ba0: 74 20 63 61 6e 6e 6f 74 20 62 65 20 73 75 62 6d  t cannot be subm
1bb0: 69 74 74 65 64 0d 0a 20 20 23 20 20 20 20 20 20  itted..  #      
1bc0: 20 66 6f 72 20 61 73 79 6e 63 68 72 6f 6e 6f 75   for asynchronou
1bd0: 73 20 65 76 61 6c 75 61 74 69 6f 6e 2c 20 61 20  s evaluation, a 
1be0: 73 63 72 69 70 74 20 65 72 72 6f 72 20 77 69 6c  script error wil
1bf0: 6c 20 62 65 20 72 61 69 73 65 64 2e 0d 0a 20 20  l be raised...  
1c00: 23 0d 0a 20 20 70 72 6f 63 20 65 76 61 6c 41 73  #..  proc evalAs
1c10: 79 6e 63 20 7b 20 64 6f 6e 65 53 63 72 69 70 74  ync { doneScript
1c20: 20 61 72 67 73 20 7d 20 7b 0d 0a 20 20 20 20 23   args } {..    #
1c30: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68  ..    # NOTE: Th
1c40: 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 71  is procedure req
1c50: 75 69 72 65 73 20 74 68 65 20 5b 6f 62 6a 65 63  uires the [objec
1c60: 74 5d 20 63 6f 6d 6d 61 6e 64 20 69 6e 20 6f 72  t] command in or
1c70: 64 65 72 20 74 6f 20 77 6f 72 6b 2e 0d 0a 20 20  der to work...  
1c80: 20 20 23 20 20 20 20 20 20 20 49 66 20 69 74 20    #       If it 
1c90: 69 73 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65  is not available
1ca0: 2c 20 62 61 69 6c 20 6f 75 74 20 6e 6f 77 2e 0d  , bail out now..
1cb0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b  .    #..    if {
1cc0: 5b 6c 6c 65 6e 67 74 68 20 5b 69 6e 66 6f 20 63  [llength [info c
1cd0: 6f 6d 6d 61 6e 64 73 20 6f 62 6a 65 63 74 5d 5d  ommands object]]
1ce0: 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20   == 0} then {.. 
1cf0: 20 20 20 20 20 65 72 72 6f 72 20 22 63 61 6e 6e       error "cann
1d00: 6f 74 20 65 76 61 6c 20 61 73 79 6e 63 3a 20 6d  ot eval async: m
1d10: 69 73 73 69 6e 67 20 5c 5b 6f 62 6a 65 63 74 5c  issing \[object\
1d20: 5d 20 63 6f 6d 6d 61 6e 64 22 0d 0a 20 20 20 20  ] command"..    
1d30: 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  }....    #..    
1d40: 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 63  # NOTE: If the c
1d50: 6f 72 65 20 6c 69 62 72 61 72 79 20 77 61 73 20  ore library was 
1d60: 6e 6f 74 20 63 6f 6d 70 69 6c 65 64 20 77 69 74  not compiled wit
1d70: 68 20 74 68 72 65 61 64 2d 73 61 66 65 74 79 20  h thread-safety 
1d80: 65 6e 61 62 6c 65 64 2c 0d 0a 20 20 20 20 23 20  enabled,..    # 
1d90: 20 20 20 20 20 20 74 68 69 73 20 70 72 6f 63 65        this proce
1da0: 64 75 72 65 20 63 61 6e 6e 6f 74 20 62 65 20 75  dure cannot be u
1db0: 73 65 64 20 62 65 63 61 75 73 65 20 69 74 20 63  sed because it c
1dc0: 6f 75 6c 64 20 63 6f 72 72 75 70 74 20 74 68 65  ould corrupt the
1dd0: 20 73 74 61 74 65 0d 0a 20 20 20 20 23 20 20 20   state..    #   
1de0: 20 20 20 20 6f 66 20 74 68 65 20 69 6e 74 65 72      of the inter
1df0: 70 72 65 74 65 72 2e 0d 0a 20 20 20 20 23 0d 0a  preter...    #..
1e00: 20 20 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68      if {[lsearch
1e10: 20 2d 65 78 61 63 74 20 2d 2d 20 5c 0d 0a 20 20   -exact -- \..  
1e20: 20 20 20 20 20 20 24 3a 3a 65 61 67 6c 65 5f 70        $::eagle_p
1e30: 6c 61 74 66 6f 72 6d 28 63 6f 6d 70 69 6c 65 4f  latform(compileO
1e40: 70 74 69 6f 6e 73 29 20 54 48 52 45 41 44 49 4e  ptions) THREADIN
1e50: 47 5d 20 3d 3d 20 2d 31 7d 20 74 68 65 6e 20 7b  G] == -1} then {
1e60: 0d 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22 63  ..      error "c
1e70: 61 6e 6e 6f 74 20 65 76 61 6c 20 61 73 79 6e 63  annot eval async
1e80: 3a 20 6c 69 62 72 61 72 79 20 6d 69 73 73 69 6e  : library missin
1e90: 67 20 54 48 52 45 41 44 49 4e 47 20 63 6f 6d 70  g THREADING comp
1ea0: 69 6c 65 2d 6f 70 74 69 6f 6e 22 0d 0a 20 20 20  ile-option"..   
1eb0: 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20   }....    #..   
1ec0: 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 72   # NOTE: If ther
1ed0: 65 20 69 73 20 6d 6f 72 65 20 74 68 61 6e 20 6f  e is more than o
1ee0: 6e 65 20 73 63 72 69 70 74 20 6f 70 74 69 6f 6e  ne script option
1ef0: 61 6c 20 61 72 67 75 6d 65 6e 74 2c 20 75 73 65  al argument, use
1f00: 20 5b 63 6f 6e 63 61 74 5d 0d 0a 20 20 20 20 23   [concat]..    #
1f10: 20 20 20 20 20 20 20 74 6f 20 62 75 69 6c 64 20         to build 
1f20: 75 70 20 74 68 65 20 66 69 6e 61 6c 20 73 63 72  up the final scr
1f30: 69 70 74 3b 20 6f 74 68 65 72 77 69 73 65 2c 20  ipt; otherwise, 
1f40: 75 73 65 20 74 68 65 20 73 69 6e 67 6c 65 20 61  use the single a
1f50: 72 67 75 6d 65 6e 74 0d 0a 20 20 20 20 23 20 20  rgument..    #  
1f60: 20 20 20 20 20 76 65 72 62 61 74 69 6d 2e 20 20       verbatim.  
1f70: 54 68 69 73 20 6d 69 72 72 6f 72 73 20 74 68 65  This mirrors the
1f80: 20 62 65 68 61 76 69 6f 72 20 6f 66 20 5b 65 76   behavior of [ev
1f90: 61 6c 5d 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20  al]...    #..   
1fa0: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61   if {[llength $a
1fb0: 72 67 73 5d 20 3e 20 31 7d 20 74 68 65 6e 20 7b  rgs] > 1} then {
1fc0: 0d 0a 20 20 20 20 20 20 73 65 74 20 61 73 79 6e  ..      set asyn
1fd0: 63 53 63 72 69 70 74 20 5b 63 6f 6e 63 61 74 20  cScript [concat 
1fe0: 24 61 72 67 73 5d 0d 0a 20 20 20 20 7d 20 65 6c  $args]..    } el
1ff0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20  se {..      set 
2000: 61 73 79 6e 63 53 63 72 69 70 74 20 5b 6c 69 6e  asyncScript [lin
2010: 64 65 78 20 24 61 72 67 73 20 30 5d 0d 0a 20 20  dex $args 0]..  
2020: 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20    }....    #..  
2030: 20 20 23 20 4e 4f 54 45 3a 20 49 73 20 74 68 65    # NOTE: Is the
2040: 72 65 20 61 20 73 63 72 69 70 74 20 74 6f 20 62  re a script to b
2050: 65 20 65 76 61 6c 75 61 74 65 64 20 77 68 65 6e  e evaluated when
2060: 20 74 68 65 20 61 73 79 6e 63 68 72 6f 6e 6f 75   the asynchronou
2070: 73 20 73 63 72 69 70 74 0d 0a 20 20 20 20 23 20  s script..    # 
2080: 20 20 20 20 20 20 65 76 61 6c 75 61 74 69 6f 6e        evaluation
2090: 20 69 73 20 63 6f 6d 70 6c 65 74 65 3f 20 20 49   is complete?  I
20a0: 66 20 73 6f 2c 20 62 75 69 6c 64 20 61 6e 20 61  f so, build an a
20b0: 6e 6f 6e 79 6d 6f 75 73 20 70 72 6f 63 65 64 75  nonymous procedu
20c0: 72 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20  re..    #       
20d0: 74 68 61 74 20 77 72 61 70 73 20 69 74 3b 20 6f  that wraps it; o
20e0: 74 68 65 72 77 69 73 65 2c 20 73 65 74 20 74 68  therwise, set th
20f0: 65 20 63 61 6c 6c 62 61 63 6b 20 61 72 67 75 6d  e callback argum
2100: 65 6e 74 20 74 6f 20 6e 75 6c 6c 2c 20 73 6f 0d  ent to null, so.
2110: 0a 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65  .    #       the
2120: 20 63 6f 72 65 20 6d 61 72 73 68 61 6c 6c 65 72   core marshaller
2130: 20 77 69 6c 6c 20 68 61 6e 64 6c 65 20 74 68 65   will handle the
2140: 20 6c 61 63 6b 20 6f 66 20 61 20 63 61 6c 6c 62   lack of a callb
2150: 61 63 6b 20 63 6f 72 72 65 63 74 6c 79 2e 0d 0a  ack correctly...
2160: 20 20 20 20 23 20 20 20 20 20 20 20 54 68 65 20      #       The 
2170: 63 6f 6e 74 65 78 74 20 61 72 67 75 6d 65 6e 74  context argument
2180: 20 77 69 6c 6c 20 62 65 20 61 64 64 65 64 20 74   will be added t
2190: 6f 20 74 68 69 73 20 73 63 72 69 70 74 20 70 72  o this script pr
21a0: 69 6f 72 20 74 6f 20 69 74 0d 0a 20 20 20 20 23  ior to it..    #
21b0: 20 20 20 20 20 20 20 62 65 69 6e 67 20 65 76 61         being eva
21c0: 6c 75 61 74 65 64 3b 20 68 6f 77 65 76 65 72 2c  luated; however,
21d0: 20 69 74 20 69 73 20 6e 6f 74 20 61 63 74 75 61   it is not actua
21e0: 6c 6c 79 20 75 73 65 64 20 62 79 20 74 68 69 73  lly used by this
21f0: 20 73 63 72 69 70 74 2e 0d 0a 20 20 20 20 23 20   script...    # 
2200: 20 20 20 20 20 20 54 68 65 20 2d 69 64 65 6e 74        The -ident
2210: 69 66 69 65 72 20 6f 70 74 69 6f 6e 20 69 73 20  ifier option is 
2220: 4e 4f 54 20 61 63 74 75 61 6c 6c 79 20 70 72 6f  NOT actually pro
2230: 63 65 73 73 65 64 20 62 79 20 74 68 65 20 6c 69  cessed by the li
2240: 62 72 61 72 79 3b 0d 0a 20 20 20 20 23 20 20 20  brary;..    #   
2250: 20 20 20 20 68 6f 77 65 76 65 72 2c 20 69 74 20      however, it 
2260: 69 73 20 6e 65 63 65 73 73 61 72 79 20 68 65 72  is necessary her
2270: 65 20 74 6f 20 61 76 6f 69 64 20 68 61 76 69 6e  e to avoid havin
2280: 67 20 6d 75 6c 74 69 70 6c 65 20 63 61 6c 6c 73  g multiple calls
2290: 20 74 6f 0d 0a 20 20 20 20 23 20 20 20 20 20 20   to..    #      
22a0: 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   this procedure 
22b0: 63 6f 6c 6c 69 64 65 20 77 69 74 68 20 65 61 63  collide with eac
22c0: 68 20 6f 74 68 65 72 20 77 68 65 6e 20 61 74 74  h other when att
22d0: 65 6d 70 74 69 6e 67 20 74 6f 20 72 65 6d 6f 76  empting to remov
22e0: 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 74  e..    #       t
22f0: 68 65 69 72 20 63 61 6c 6c 62 61 63 6b 73 20 64  heir callbacks d
2300: 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 2e 0d 0a  uring cleanup...
2310: 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 5b      #..    if {[
2320: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64  string length $d
2330: 6f 6e 65 53 63 72 69 70 74 5d 20 3e 20 30 7d 20  oneScript] > 0} 
2340: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 23 0d  then {..      #.
2350: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49  .      # NOTE: I
2360: 66 20 74 68 65 20 63 6f 72 65 20 6c 69 62 72 61  f the core libra
2370: 72 79 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20  ry was compiled 
2380: 77 69 74 68 6f 75 74 20 64 79 6e 61 6d 69 63 20  without dynamic 
2390: 64 65 6c 65 67 61 74 65 73 2c 0d 0a 20 20 20 20  delegates,..    
23a0: 20 20 23 20 20 20 20 20 20 20 74 68 69 73 20 70    #       this p
23b0: 72 6f 63 65 64 75 72 65 20 63 61 6e 6e 6f 74 20  rocedure cannot 
23c0: 62 65 20 75 73 65 64 20 77 68 65 6e 20 74 68 65  be used when the
23d0: 72 65 20 69 73 20 61 20 63 61 6c 6c 62 61 63 6b  re is a callback
23e0: 2c 20 64 75 65 0d 0a 20 20 20 20 20 20 23 20 20  , due..      #  
23f0: 20 20 20 20 20 74 6f 20 74 68 65 20 41 73 79 6e       to the Asyn
2400: 63 68 72 6f 6e 6f 75 73 43 61 6c 6c 62 61 63 6b  chronousCallback
2410: 20 64 65 6c 65 67 61 74 65 20 74 79 70 65 20 62   delegate type b
2420: 65 69 6e 67 20 75 6e 73 75 70 70 6f 72 74 65 64  eing unsupported
2430: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
2440: 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d    if {[lsearch -
2450: 65 78 61 63 74 20 2d 2d 20 5c 0d 0a 20 20 20 20  exact -- \..    
2460: 20 20 20 20 20 20 24 3a 3a 65 61 67 6c 65 5f 70        $::eagle_p
2470: 6c 61 74 66 6f 72 6d 28 63 6f 6d 70 69 6c 65 4f  latform(compileO
2480: 70 74 69 6f 6e 73 29 20 45 4d 49 54 5d 20 3d 3d  ptions) EMIT] ==
2490: 20 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20   -1} then {..   
24a0: 20 20 20 20 20 65 72 72 6f 72 20 22 63 61 6e 6e       error "cann
24b0: 6f 74 20 65 76 61 6c 20 61 73 79 6e 63 3a 20 6c  ot eval async: l
24c0: 69 62 72 61 72 79 20 6d 69 73 73 69 6e 67 20 45  ibrary missing E
24d0: 4d 49 54 20 63 6f 6d 70 69 6c 65 2d 6f 70 74 69  MIT compile-opti
24e0: 6f 6e 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  on"..      }....
24f0: 20 20 20 20 20 20 73 65 74 20 63 61 6c 6c 62 61        set callba
2500: 63 6b 20 5b 6c 69 73 74 20 2d 69 64 65 6e 74 69  ck [list -identi
2510: 66 69 65 72 20 5b 65 78 70 72 20 7b 72 61 6e 64  fier [expr {rand
2520: 6f 6d 28 29 7d 5d 20 2d 63 61 6c 6c 62 61 63 6b  om()}] -callback
2530: 66 6c 61 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  flags \..       
2540: 20 20 20 7b 2b 52 65 73 65 74 43 61 6e 63 65 6c     {+ResetCancel
2550: 20 46 69 72 65 41 6e 64 46 6f 72 67 65 74 7d 20   FireAndForget} 
2560: 2d 2d 20 61 70 70 6c 79 20 5b 6c 69 73 74 20 5b  -- apply [list [
2570: 6c 69 73 74 20 73 63 72 69 70 74 20 63 6f 6e 74  list script cont
2580: 65 78 74 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20  ext] \..        
2590: 20 20 7b 75 70 6c 65 76 65 6c 20 31 20 24 73 63    {uplevel 1 $sc
25a0: 72 69 70 74 7d 5d 20 24 64 6f 6e 65 53 63 72 69  ript}] $doneScri
25b0: 70 74 5d 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20  pt]..    } else 
25c0: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 63 61 6c  {..      set cal
25d0: 6c 62 61 63 6b 20 6e 75 6c 6c 0d 0a 20 20 20 20  lback null..    
25e0: 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  }....    #..    
25f0: 23 20 4e 4f 54 45 3a 20 49 6e 69 74 69 61 6c 69  # NOTE: Initiali
2600: 7a 65 20 74 68 65 20 6c 6f 63 61 6c 20 76 61 72  ze the local var
2610: 69 61 62 6c 65 20 74 68 61 74 20 77 69 6c 6c 20  iable that will 
2620: 62 65 20 75 73 65 64 20 74 6f 20 72 65 63 65 69  be used to recei
2630: 76 65 20 74 68 65 0d 0a 20 20 20 20 23 20 20 20  ve the..    #   
2640: 20 20 20 20 73 63 72 69 70 74 20 65 72 72 6f 72      script error
2650: 2c 20 69 66 20 61 6e 79 2e 0d 0a 20 20 20 20 23  , if any...    #
2660: 0d 0a 20 20 20 20 73 65 74 20 65 72 72 6f 72 20  ..    set error 
2670: 6e 75 6c 6c 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20  null....    #.. 
2680: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d     # NOTE: Attem
2690: 70 74 20 74 6f 20 73 75 62 6d 69 74 20 74 68 65  pt to submit the
26a0: 20 73 63 72 69 70 74 20 66 6f 72 20 61 73 79 6e   script for asyn
26b0: 63 68 6f 6e 6f 75 73 20 65 76 61 6c 75 61 74 69  chonous evaluati
26c0: 6f 6e 2e 20 20 55 73 65 0d 0a 20 20 20 20 23 20  on.  Use..    # 
26d0: 20 20 20 20 20 20 74 68 65 20 64 79 6e 61 6d 69        the dynami
26e0: 63 20 63 61 6c 6c 62 61 63 6b 20 6d 65 63 68 61  c callback mecha
26f0: 6e 69 73 6d 20 77 69 74 68 20 74 68 65 20 61 6e  nism with the an
2700: 6f 6e 79 6d 6f 75 73 20 70 72 6f 63 65 64 75 72  onymous procedur
2710: 65 20 77 65 0d 0a 20 20 20 20 23 20 20 20 20 20  e we..    #     
2720: 20 20 63 6f 6e 73 74 72 75 63 74 65 64 20 61 62    constructed ab
2730: 6f 76 65 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20  ove...    #..   
2740: 20 73 65 74 20 63 6f 64 65 20 5b 6f 62 6a 65 63   set code [objec
2750: 74 20 69 6e 76 6f 6b 65 20 2d 76 65 72 62 6f 73  t invoke -verbos
2760: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 2d 6d 61  e \..        -ma
2770: 72 73 68 61 6c 66 6c 61 67 73 20 2b 44 79 6e 61  rshalflags +Dyna
2780: 6d 69 63 43 61 6c 6c 62 61 63 6b 20 2d 2d 20 49  micCallback -- I
2790: 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 63  nterpreter.GetAc
27a0: 74 69 76 65 20 5c 0d 0a 20 20 20 20 20 20 20 20  tive \..        
27b0: 45 76 61 6c 75 61 74 65 53 63 72 69 70 74 20 24  EvaluateScript $
27c0: 61 73 79 6e 63 53 63 72 69 70 74 20 24 63 61 6c  asyncScript $cal
27d0: 6c 62 61 63 6b 20 6e 75 6c 6c 20 65 72 72 6f 72  lback null error
27e0: 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  ]....    #..    
27f0: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 74 68  # NOTE: Check th
2800: 65 20 72 65 74 75 72 6e 20 63 6f 64 65 2c 20 77  e return code, w
2810: 68 69 63 68 20 6f 6e 6c 79 20 69 6e 64 69 63 61  hich only indica
2820: 74 65 73 20 69 66 20 74 68 65 20 73 63 72 69 70  tes if the scrip
2830: 74 20 77 61 73 0d 0a 20 20 20 20 23 20 20 20 20  t was..    #    
2840: 20 20 20 61 63 74 75 61 6c 6c 79 20 73 75 62 6d     actually subm
2850: 69 74 74 65 64 20 66 6f 72 20 61 73 79 6e 63 68  itted for asynch
2860: 72 6f 6e 6f 75 73 20 65 76 61 6c 75 61 74 69 6f  ronous evaluatio
2870: 6e 2c 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 0d  n, to make sure.
2880: 0a 20 20 20 20 23 20 20 20 20 20 20 20 69 74 20  .    #       it 
2890: 77 61 73 20 73 75 63 63 65 73 73 66 75 6c 2e 20  was successful. 
28a0: 20 49 66 20 6e 6f 74 2c 20 72 61 69 73 65 20 61   If not, raise a
28b0: 20 73 63 72 69 70 74 20 65 72 72 6f 72 2e 0d 0a   script error...
28c0: 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 24      #..    if {$
28d0: 63 6f 64 65 20 6e 65 20 22 4f 6b 22 7d 20 74 68  code ne "Ok"} th
28e0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 65 72 72 6f  en {..      erro
28f0: 72 20 5b 67 65 74 53 74 72 69 6e 67 46 72 6f 6d  r [getStringFrom
2900: 4f 62 6a 65 63 74 48 61 6e 64 6c 65 20 24 65 72  ObjectHandle $er
2910: 72 6f 72 5d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20  ror]..    }.... 
2920: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
2930: 3a 20 55 70 6f 6e 20 73 75 63 63 65 73 73 2c 20  : Upon success, 
2940: 72 65 74 75 72 6e 20 61 6e 20 65 6d 70 74 79 20  return an empty 
2950: 73 74 72 69 6e 67 2e 20 20 54 68 65 20 61 63 74  string.  The act
2960: 75 61 6c 20 73 63 72 69 70 74 20 72 65 73 75 6c  ual script resul
2970: 74 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 77  t..    #       w
2980: 69 6c 6c 20 62 65 20 73 65 6e 74 20 74 6f 20 74  ill be sent to t
2990: 68 65 20 63 61 6c 6c 62 61 63 6b 20 73 63 72 69  he callback scri
29a0: 70 74 2c 20 69 66 20 61 6e 79 2e 0d 0a 20 20 20  pt, if any...   
29b0: 20 23 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 22   #..    return "
29c0: 22 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a  "..  }.....  #..
29d0: 20 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 69 64    # NOTE: Provid
29e0: 65 20 74 68 65 20 45 61 67 6c 65 20 22 6f 62 6a  e the Eagle "obj
29f0: 65 63 74 22 20 70 61 63 6b 61 67 65 20 74 6f 20  ect" package to 
2a00: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e  the interpreter.
2a10: 0d 0a 20 20 23 0d 0a 20 20 70 61 63 6b 61 67 65  ..  #..  package
2a20: 20 70 72 6f 76 69 64 65 20 45 61 67 6c 65 2e 4f   provide Eagle.O
2a30: 62 6a 65 63 74 20 5c 0d 0a 20 20 20 20 5b 65 78  bject \..    [ex
2a40: 70 72 20 7b 5b 69 73 45 61 67 6c 65 5d 20 3f 20  pr {[isEagle] ? 
2a50: 5b 69 6e 66 6f 20 65 6e 67 69 6e 65 20 50 61 74  [info engine Pat
2a60: 63 68 4c 65 76 65 6c 5d 20 3a 20 22 31 2e 30 22  chLevel] : "1.0"
2a70: 7d 5d 0d 0a 7d 0d 0a 0c                          }]..}...