System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 0f504548c2b122d974a89ff323b9cccf53d6d437:


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 70 6c 61 74 66 6f 72 6d 2e 65  .#..# platform.e
0060: 61 67 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 45 78  agle --..#..# Ex
0070: 74 65 6e 73 69 62 6c 65 20 41 64 61 70 74 61 62  tensible Adaptab
0080: 6c 65 20 47 65 6e 65 72 61 6c 69 7a 65 64 20 4c  le Generalized L
0090: 6f 67 69 63 20 45 6e 67 69 6e 65 20 28 45 61 67  ogic Engine (Eag
00a0: 6c 65 29 0d 0a 23 20 45 61 67 6c 65 20 50 6c 61  le)..# Eagle Pla
00b0: 74 66 6f 72 6d 20 50 61 63 6b 61 67 65 20 46 69  tform Package Fi
00c0: 6c 65 0d 0a 23 0d 0a 23 20 43 6f 70 79 72 69 67  le..#..# Copyrig
00d0: 68 74 20 28 63 29 20 32 30 30 37 2d 32 30 31 32  ht (c) 2007-2012
00e0: 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 63 68 6b   by Joe Mistachk
00f0: 69 6e 2e 20 20 41 6c 6c 20 72 69 67 68 74 73 20  in.  All rights 
0100: 72 65 73 65 72 76 65 64 2e 0d 0a 23 0d 0a 23 20  reserved...#..# 
0110: 53 65 65 20 74 68 65 20 66 69 6c 65 20 22 6c 69  See the file "li
0120: 63 65 6e 73 65 2e 74 65 72 6d 73 22 20 66 6f 72  cense.terms" for
0130: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20   information on 
0140: 75 73 61 67 65 20 61 6e 64 20 72 65 64 69 73 74  usage and redist
0150: 72 69 62 75 74 69 6f 6e 20 6f 66 0d 0a 23 20 74  ribution of..# t
0160: 68 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 66 6f  his file, and fo
0170: 72 20 61 20 44 49 53 43 4c 41 49 4d 45 52 20 4f  r a DISCLAIMER O
0180: 46 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 45 53  F ALL WARRANTIES
0190: 2e 0d 0a 23 0d 0a 23 20 52 43 53 3a 20 40 28 23  ...#..# RCS: @(#
01a0: 29 20 24 49 64 3a 20 24 0d 0a 23 0d 0a 23 23 23  ) $Id: $..#..###
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 23 23 23 23 0d 0a 0d 0a  ############....
0200: 23 0d 0a 23 20 4e 4f 54 45 3a 20 55 73 65 20 6f  #..# NOTE: Use o
0210: 75 72 20 6f 77 6e 20 6e 61 6d 65 73 70 61 63 65  ur own namespace
0220: 20 68 65 72 65 20 62 65 63 61 75 73 65 20 65 76   here because ev
0230: 65 6e 20 74 68 6f 75 67 68 20 77 65 20 64 6f 20  en though we do 
0240: 6e 6f 74 20 64 69 72 65 63 74 6c 79 0d 0a 23 20  not directly..# 
0250: 20 20 20 20 20 20 73 75 70 70 6f 72 74 20 6e 61        support na
0260: 6d 65 73 70 61 63 65 73 20 6f 75 72 73 65 6c 76  mespaces ourselv
0270: 65 73 2c 20 77 65 20 64 6f 20 6e 6f 74 20 77 61  es, we do not wa
0280: 6e 74 20 74 6f 20 70 6f 6c 6c 75 74 65 20 74 68  nt to pollute th
0290: 65 20 67 6c 6f 62 61 6c 0d 0a 23 20 20 20 20 20  e global..#     
02a0: 20 20 6e 61 6d 65 73 70 61 63 65 20 69 66 20 74    namespace if t
02b0: 68 69 73 20 73 63 72 69 70 74 20 61 63 74 75 61  his script actua
02c0: 6c 6c 79 20 65 6e 64 73 20 75 70 20 62 65 69 6e  lly ends up bein
02d0: 67 20 65 76 61 6c 75 61 74 65 64 20 69 6e 20 54  g evaluated in T
02e0: 63 6c 2e 0d 0a 23 0d 0a 6e 61 6d 65 73 70 61 63  cl...#..namespac
02f0: 65 20 65 76 61 6c 20 3a 3a 45 61 67 6c 65 20 7b  e eval ::Eagle {
0300: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
0310: 20 54 68 69 73 20 69 73 20 74 68 65 20 70 72 6f   This is the pro
0320: 63 65 64 75 72 65 20 74 68 61 74 20 64 65 74 65  cedure that dete
0330: 63 74 73 20 77 68 65 74 68 65 72 20 6f 72 20 6e  cts whether or n
0340: 6f 74 20 77 65 20 61 72 65 20 72 75 6e 6e 69 6e  ot we are runnin
0350: 67 0d 0a 20 20 23 20 20 20 20 20 20 20 69 6e 20  g..  #       in 
0360: 45 61 67 6c 65 20 28 6f 74 68 65 72 77 69 73 65  Eagle (otherwise
0370: 2c 20 69 74 20 69 73 20 61 73 73 75 6d 65 64 20  , it is assumed 
0380: 74 68 61 74 20 77 65 20 61 72 65 20 72 75 6e 6e  that we are runn
0390: 69 6e 67 20 69 6e 20 76 61 6e 69 6c 6c 61 0d 0a  ing in vanilla..
03a0: 20 20 23 20 20 20 20 20 20 20 54 63 6c 29 2e 20    #       Tcl). 
03b0: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
03c0: 6d 75 73 74 20 77 6f 72 6b 20 63 6f 72 72 65 63  must work correc
03d0: 74 6c 79 20 69 6e 20 62 6f 74 68 20 54 63 6c 20  tly in both Tcl 
03e0: 61 6e 64 20 45 61 67 6c 65 0d 0a 20 20 23 20 20  and Eagle..  #  
03f0: 20 20 20 20 20 61 6e 64 20 6d 75 73 74 20 72 65       and must re
0400: 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20 6f 6e  turn non-zero on
0410: 6c 79 20 77 68 65 6e 20 72 75 6e 6e 69 6e 67 20  ly when running 
0420: 69 6e 20 45 61 67 6c 65 2e 20 20 54 68 65 20 73  in Eagle.  The s
0430: 61 6d 65 0d 0a 20 20 23 20 20 20 20 20 20 20 70  ame..  #       p
0440: 72 6f 63 65 64 75 72 65 20 69 73 20 61 6c 73 6f  rocedure is also
0450: 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20   defined in the 
0460: 22 69 6e 69 74 2e 65 61 67 6c 65 22 20 66 69 6c  "init.eagle" fil
0470: 65 2e 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20  e...  #..  proc 
0480: 69 73 45 61 67 6c 65 20 7b 7d 20 7b 0d 0a 20 20  isEagle {} {..  
0490: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
04a0: 20 4e 6f 74 68 69 6e 67 20 74 6f 6f 20 66 61 6e   Nothing too fan
04b0: 63 79 20 6f 72 20 65 78 70 65 6e 73 69 76 65 20  cy or expensive 
04c0: 73 68 6f 75 6c 64 20 62 65 20 64 6f 6e 65 20 68  should be done h
04d0: 65 72 65 2e 20 20 49 6e 20 74 68 65 6f 72 79 2c  ere.  In theory,
04e0: 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 75 73  ..    #       us
04f0: 65 20 6f 66 20 74 68 69 73 20 70 72 6f 63 65 64  e of this proced
0500: 75 72 65 20 73 68 6f 75 6c 64 20 62 65 20 72 61  ure should be ra
0510: 72 65 3b 20 68 6f 77 65 76 65 72 2c 20 69 6e 20  re; however, in 
0520: 70 72 61 63 74 69 63 65 2c 20 74 68 69 73 0d 0a  practice, this..
0530: 20 20 20 20 23 20 20 20 20 20 20 20 70 72 6f 63      #       proc
0540: 65 64 75 72 65 20 69 73 20 61 63 74 75 61 6c 6c  edure is actuall
0550: 79 20 75 73 65 64 20 71 75 69 74 65 20 61 20 62  y used quite a b
0560: 69 74 20 28 65 2e 67 2e 20 62 79 20 74 68 65 20  it (e.g. by the 
0570: 74 65 73 74 20 73 75 69 74 65 29 2e 0d 0a 20 20  test suite)...  
0580: 20 20 23 0d 0a 20 20 20 20 72 65 74 75 72 6e 20    #..    return 
0590: 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69  [expr {[info exi
05a0: 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f  sts ::tcl_platfo
05b0: 72 6d 28 65 6e 67 69 6e 65 29 5d 20 26 26 20 5c  rm(engine)] && \
05c0: 0d 0a 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e  ..        [strin
05d0: 67 20 63 6f 6d 70 61 72 65 20 2d 6e 6f 63 61 73  g compare -nocas
05e0: 65 20 65 61 67 6c 65 20 24 3a 3a 74 63 6c 5f 70  e eagle $::tcl_p
05f0: 6c 61 74 66 6f 72 6d 28 65 6e 67 69 6e 65 29 5d  latform(engine)]
0600: 20 3d 3d 20 30 7d 5d 0d 0a 20 20 7d 0d 0a 0c 0d   == 0}]..  }....
0610: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
0620: 54 68 69 73 20 69 73 20 74 68 65 20 70 72 6f 63  This is the proc
0630: 65 64 75 72 65 20 74 68 61 74 20 64 65 74 65 63  edure that detec
0640: 74 73 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f  ts whether or no
0650: 74 20 77 65 20 61 72 65 20 72 75 6e 6e 69 6e 67  t we are running
0660: 0d 0a 20 20 23 20 20 20 20 20 20 20 69 6e 20 45  ..  #       in E
0670: 61 67 6c 65 20 6f 6e 20 4d 6f 6e 6f 20 28 6f 74  agle on Mono (ot
0680: 68 65 72 77 69 73 65 2c 20 77 65 20 61 72 65 20  herwise, we are 
0690: 72 75 6e 6e 69 6e 67 20 69 6e 20 54 63 6c 20 6f  running in Tcl o
06a0: 72 20 69 6e 20 45 61 67 6c 65 20 6f 6e 0d 0a 20  r in Eagle on.. 
06b0: 20 23 20 20 20 20 20 20 20 74 68 65 20 2e 4e 45   #       the .NE
06c0: 54 20 46 72 61 6d 65 77 6f 72 6b 29 2e 20 20 54  T Framework).  T
06d0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 6d 75  his procedure mu
06e0: 73 74 20 66 75 6e 63 74 69 6f 6e 20 63 6f 72 72  st function corr
06f0: 65 63 74 6c 79 20 69 6e 0d 0a 20 20 23 20 20 20  ectly in..  #   
0700: 20 20 20 20 62 6f 74 68 20 54 63 6c 20 61 6e 64      both Tcl and
0710: 20 45 61 67 6c 65 20 61 6e 64 20 6d 75 73 74 20   Eagle and must 
0720: 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20  return non-zero 
0730: 6f 6e 6c 79 20 77 68 65 6e 20 72 75 6e 6e 69 6e  only when runnin
0740: 67 20 69 6e 0d 0a 20 20 23 20 20 20 20 20 20 20  g in..  #       
0750: 45 61 67 6c 65 20 6f 6e 20 4d 6f 6e 6f 2e 0d 0a  Eagle on Mono...
0760: 20 20 23 0d 0a 20 20 70 72 6f 63 20 69 73 4d 6f    #..  proc isMo
0770: 6e 6f 20 7b 7d 20 7b 0d 0a 20 20 20 20 23 0d 0a  no {} {..    #..
0780: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 74 68      # NOTE: Noth
0790: 69 6e 67 20 74 6f 6f 20 66 61 6e 63 79 20 6f 72  ing too fancy or
07a0: 20 65 78 70 65 6e 73 69 76 65 20 73 68 6f 75 6c   expensive shoul
07b0: 64 20 62 65 20 64 6f 6e 65 20 68 65 72 65 2e 20  d be done here. 
07c0: 20 49 6e 20 74 68 65 6f 72 79 2c 0d 0a 20 20 20   In theory,..   
07d0: 20 23 20 20 20 20 20 20 20 75 73 65 20 6f 66 20   #       use of 
07e0: 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73  this procedure s
07f0: 68 6f 75 6c 64 20 62 65 20 72 61 72 65 3b 20 68  hould be rare; h
0800: 6f 77 65 76 65 72 2c 20 69 6e 20 70 72 61 63 74  owever, in pract
0810: 69 63 65 2c 20 74 68 69 73 0d 0a 20 20 20 20 23  ice, this..    #
0820: 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65         procedure
0830: 20 69 73 20 61 63 74 75 61 6c 6c 79 20 75 73 65   is actually use
0840: 64 20 71 75 69 74 65 20 61 20 62 69 74 20 28 65  d quite a bit (e
0850: 2e 67 2e 20 62 79 20 74 68 65 20 74 65 73 74 20  .g. by the test 
0860: 73 75 69 74 65 29 2e 0d 0a 20 20 20 20 23 0d 0a  suite)...    #..
0870: 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72      return [expr
0880: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
0890: 3a 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28  :eagle_platform(
08a0: 72 75 6e 74 69 6d 65 29 5d 20 26 26 20 5c 0d 0a  runtime)] && \..
08b0: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20          [string 
08c0: 63 6f 6d 70 61 72 65 20 2d 6e 6f 63 61 73 65 20  compare -nocase 
08d0: 6d 6f 6e 6f 20 24 3a 3a 65 61 67 6c 65 5f 70 6c  mono $::eagle_pl
08e0: 61 74 66 6f 72 6d 28 72 75 6e 74 69 6d 65 29 5d  atform(runtime)]
08f0: 20 3d 3d 20 30 7d 5d 0d 0a 20 20 7d 0d 0a 0c 0d   == 0}]..  }....
0900: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
0910: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72  This procedure r
0920: 65 74 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20  eturns non-zero 
0930: 69 66 20 74 68 65 20 6c 6f 67 67 65 64 20 6f 6e  if the logged on
0940: 20 75 73 65 72 20 68 61 73 20 66 75 6c 6c 0d 0a   user has full..
0950: 20 20 23 20 20 20 20 20 20 20 61 64 6d 69 6e 69    #       admini
0960: 73 74 72 61 74 6f 72 20 72 69 67 68 74 73 20 6f  strator rights o
0970: 6e 20 74 68 69 73 20 6d 61 63 68 69 6e 65 2e 20  n this machine. 
0980: 20 43 75 72 72 65 6e 74 6c 79 2c 20 74 68 69 73   Currently, this
0990: 20 6f 6e 6c 79 20 77 6f 72 6b 73 0d 0a 20 20 23   only works..  #
09a0: 20 20 20 20 20 20 20 69 6e 20 45 61 67 6c 65 3b         in Eagle;
09b0: 20 68 6f 77 65 76 65 72 2c 20 69 74 20 6d 61 79   however, it may
09c0: 20 77 6f 72 6b 20 66 72 6f 6d 20 6e 61 74 69 76   work from nativ
09d0: 65 20 54 63 6c 20 69 6e 20 74 68 65 20 66 75 74  e Tcl in the fut
09e0: 75 72 65 2e 0d 0a 20 20 23 0d 0a 20 20 70 72 6f  ure...  #..  pro
09f0: 63 20 69 73 41 64 6d 69 6e 69 73 74 72 61 74 6f  c isAdministrato
0a00: 72 20 7b 7d 20 7b 0d 0a 20 20 20 20 72 65 74 75  r {} {..    retu
0a10: 72 6e 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20  rn [expr {[info 
0a20: 65 78 69 73 74 73 20 3a 3a 65 61 67 6c 65 5f 70  exists ::eagle_p
0a30: 6c 61 74 66 6f 72 6d 28 61 64 6d 69 6e 69 73 74  latform(administ
0a40: 72 61 74 6f 72 29 5d 20 26 26 20 5c 0d 0a 20 20  rator)] && \..  
0a50: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 69 73        [string is
0a60: 20 74 72 75 65 20 2d 73 74 72 69 63 74 20 24 3a   true -strict $:
0a70: 3a 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28  :eagle_platform(
0a80: 61 64 6d 69 6e 69 73 74 72 61 74 6f 72 29 5d 7d  administrator)]}
0a90: 5d 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a  ]..  }.....  #..
0aa0: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 69    # NOTE: This i
0ab0: 73 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20  s the procedure 
0ac0: 74 68 61 74 20 64 65 74 65 63 74 73 20 77 68 65  that detects whe
0ad0: 74 68 65 72 20 6f 72 20 6e 6f 74 20 77 65 20 61  ther or not we a
0ae0: 72 65 20 72 75 6e 6e 69 6e 67 0d 0a 20 20 23 20  re running..  # 
0af0: 20 20 20 20 20 20 6f 6e 20 57 69 6e 64 6f 77 73        on Windows
0b00: 20 28 6f 74 68 65 72 77 69 73 65 2c 20 69 74 20   (otherwise, it 
0b10: 69 73 20 61 73 73 75 6d 65 64 20 74 68 61 74 20  is assumed that 
0b20: 77 65 20 61 72 65 20 72 75 6e 6e 69 6e 67 20 6f  we are running o
0b30: 6e 20 73 6f 6d 65 0d 0a 20 20 23 20 20 20 20 20  n some..  #     
0b40: 20 20 66 6c 61 76 6f 72 20 6f 66 20 55 6e 69 78    flavor of Unix
0b50: 29 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64 75  ).  This procedu
0b60: 72 65 20 6d 75 73 74 20 66 75 6e 63 74 69 6f 6e  re must function
0b70: 20 63 6f 72 72 65 63 74 6c 79 20 69 6e 20 62 6f   correctly in bo
0b80: 74 68 0d 0a 20 20 23 20 20 20 20 20 20 20 54 63  th..  #       Tc
0b90: 6c 20 61 6e 64 20 45 61 67 6c 65 20 61 6e 64 20  l and Eagle and 
0ba0: 6d 75 73 74 20 72 65 74 75 72 6e 20 6e 6f 6e 2d  must return non-
0bb0: 7a 65 72 6f 20 6f 6e 6c 79 20 77 68 65 6e 20 6f  zero only when o
0bc0: 6e 20 57 69 6e 64 6f 77 73 2e 0d 0a 20 20 23 0d  n Windows...  #.
0bd0: 0a 20 20 70 72 6f 63 20 69 73 57 69 6e 64 6f 77  .  proc isWindow
0be0: 73 20 7b 7d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20  s {} {..    #.. 
0bf0: 20 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 74 68 69     # NOTE: Nothi
0c00: 6e 67 20 74 6f 6f 20 66 61 6e 63 79 20 6f 72 20  ng too fancy or 
0c10: 65 78 70 65 6e 73 69 76 65 20 73 68 6f 75 6c 64  expensive should
0c20: 20 62 65 20 64 6f 6e 65 20 68 65 72 65 2e 20 20   be done here.  
0c30: 49 6e 20 74 68 65 6f 72 79 2c 0d 0a 20 20 20 20  In theory,..    
0c40: 23 20 20 20 20 20 20 20 75 73 65 20 6f 66 20 74  #       use of t
0c50: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 68  his procedure sh
0c60: 6f 75 6c 64 20 62 65 20 72 61 72 65 3b 20 68 6f  ould be rare; ho
0c70: 77 65 76 65 72 2c 20 69 6e 20 70 72 61 63 74 69  wever, in practi
0c80: 63 65 2c 20 74 68 69 73 0d 0a 20 20 20 20 23 20  ce, this..    # 
0c90: 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20        procedure 
0ca0: 69 73 20 61 63 74 75 61 6c 6c 79 20 75 73 65 64  is actually used
0cb0: 20 71 75 69 74 65 20 61 20 62 69 74 20 28 65 2e   quite a bit (e.
0cc0: 67 2e 20 62 79 20 74 68 65 20 74 65 73 74 20 73  g. by the test s
0cd0: 75 69 74 65 29 2e 0d 0a 20 20 20 20 23 0d 0a 20  uite)...    #.. 
0ce0: 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20     return [expr 
0cf0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
0d00: 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61  tcl_platform(pla
0d10: 74 66 6f 72 6d 29 5d 20 26 26 20 5c 0d 0a 20 20  tform)] && \..  
0d20: 20 20 20 20 20 20 24 3a 3a 74 63 6c 5f 70 6c 61        $::tcl_pla
0d30: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20  tform(platform) 
0d40: 65 71 20 22 77 69 6e 64 6f 77 73 22 7d 5d 0d 0a  eq "windows"}]..
0d50: 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23    }.....  #..  #
0d60: 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63   NOTE: This proc
0d70: 65 64 75 72 65 20 73 68 6f 75 6c 64 20 72 65 74  edure should ret
0d80: 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66 20  urn non-zero if 
0d90: 61 6e 64 20 6f 6e 6c 79 20 69 66 20 6f 6e 6c 79  and only if only
0da0: 20 74 68 65 72 65 0d 0a 20 20 23 20 20 20 20 20   there..  #     
0db0: 20 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 61    is currently a
0dc0: 6e 20 69 6e 74 65 72 61 63 74 69 76 65 20 75 73  n interactive us
0dd0: 65 72 20 74 68 61 74 20 63 61 6e 20 72 65 73 70  er that can resp
0de0: 6f 6e 64 20 74 6f 20 70 72 6f 6d 70 74 73 20 61  ond to prompts a
0df0: 6e 64 0d 0a 20 20 23 20 20 20 20 20 20 20 6f 74  nd..  #       ot
0e00: 68 65 72 20 72 65 71 75 65 73 74 73 20 66 6f 72  her requests for
0e10: 20 69 6e 70 75 74 2e 0d 0a 20 20 23 0d 0a 20 20   input...  #..  
0e20: 70 72 6f 63 20 69 73 49 6e 74 65 72 61 63 74 69  proc isInteracti
0e30: 76 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 23 0d 0a  ve {} {..    #..
0e40: 20 20 20 20 23 20 54 4f 44 4f 3a 20 49 73 20 73      # TODO: Is s
0e50: 6f 6d 65 74 68 69 6e 67 20 6d 6f 72 65 20 63 6f  omething more co
0e60: 6d 70 6c 65 78 20 72 65 71 75 69 72 65 64 20 68  mplex required h
0e70: 65 72 65 3f 0d 0a 20 20 20 20 23 0d 0a 20 20 20  ere?..    #..   
0e80: 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 5b   return [expr {[
0e90: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 63  info exists ::tc
0ea0: 6c 5f 69 6e 74 65 72 61 63 74 69 76 65 5d 20 26  l_interactive] &
0eb0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 73 74  & \..        [st
0ec0: 72 69 6e 67 20 69 73 20 74 72 75 65 20 2d 73 74  ring is true -st
0ed0: 72 69 63 74 20 24 3a 3a 74 63 6c 5f 69 6e 74 65  rict $::tcl_inte
0ee0: 72 61 63 74 69 76 65 5d 7d 5d 0d 0a 20 20 7d 0d  ractive]}]..  }.
0ef0: 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54  ....  #..  # NOT
0f00: 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72  E: This procedur
0f10: 65 20 61 64 64 73 20 74 68 65 20 73 70 65 63 69  e adds the speci
0f20: 66 69 65 64 20 64 69 72 65 63 74 6f 72 79 20 74  fied directory t
0f30: 6f 20 74 68 65 20 50 41 54 48 2e 20 20 49 74 20  o the PATH.  It 
0f40: 69 73 0d 0a 20 20 23 20 20 20 20 20 20 20 64 65  is..  #       de
0f50: 73 69 67 6e 65 64 20 74 6f 20 77 6f 72 6b 20 6f  signed to work o
0f60: 6e 20 74 68 65 20 76 61 72 69 6f 75 73 20 66 6c  n the various fl
0f70: 61 76 6f 72 73 20 6f 66 20 57 69 6e 64 6f 77 73  avors of Windows
0f80: 20 61 6e 64 20 55 6e 69 78 2e 0d 0a 20 20 23 0d   and Unix...  #.
0f90: 0a 20 20 70 72 6f 63 20 61 64 64 54 6f 50 61 74  .  proc addToPat
0fa0: 68 20 7b 20 64 69 72 20 7d 20 7b 0d 0a 20 20 20  h { dir } {..   
0fb0: 20 67 6c 6f 62 61 6c 20 65 6e 76 0d 0a 20 20 20   global env..   
0fc0: 20 67 6c 6f 62 61 6c 20 74 63 6c 5f 70 6c 61 74   global tcl_plat
0fd0: 66 6f 72 6d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20  form....    #.. 
0fe0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20     # NOTE: This 
0ff0: 73 68 6f 75 6c 64 20 77 6f 72 6b 20 70 72 6f 70  should work prop
1000: 65 72 6c 79 20 69 6e 20 62 6f 74 68 20 54 63 6c  erly in both Tcl
1010: 20 61 6e 64 20 45 61 67 6c 65 2e 0d 0a 20 20 20   and Eagle...   
1020: 20 23 20 20 20 20 20 20 20 4e 6f 72 6d 61 6c 69   #       Normali
1030: 7a 65 20 74 6f 20 61 6e 20 6f 70 65 72 61 74 69  ze to an operati
1040: 6e 67 20 73 79 73 74 65 6d 20 6e 61 74 69 76 65  ng system native
1050: 20 70 61 74 68 2e 0d 0a 20 20 20 20 23 0d 0a 20   path...    #.. 
1060: 20 20 20 73 65 74 20 64 69 72 20 5b 66 69 6c 65     set dir [file
1070: 20 6e 61 74 69 76 65 6e 61 6d 65 20 24 64 69 72   nativename $dir
1080: 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  ]....    #..    
1090: 23 20 4e 4f 54 45 3a 20 4f 6e 20 57 69 6e 64 6f  # NOTE: On Windo
10a0: 77 73 2c 20 75 73 65 20 50 41 54 48 3b 20 6f 74  ws, use PATH; ot
10b0: 68 65 72 77 69 73 65 20 28 69 2e 65 2e 20 55 6e  herwise (i.e. Un
10c0: 69 78 29 2c 20 75 73 65 0d 0a 20 20 20 20 23 20  ix), use..    # 
10d0: 20 20 20 20 20 20 4c 44 5f 4c 49 42 52 41 52 59        LD_LIBRARY
10e0: 5f 50 41 54 48 2e 0d 0a 20 20 20 20 23 0d 0a 20  _PATH...    #.. 
10f0: 20 20 20 69 66 20 7b 5b 69 73 57 69 6e 64 6f 77     if {[isWindow
1100: 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  s]} then {..    
1110: 20 20 73 65 74 20 6e 61 6d 65 20 50 41 54 48 0d    set name PATH.
1120: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20  .    } else {.. 
1130: 20 20 20 20 20 73 65 74 20 6e 61 6d 65 20 4c 44       set name LD
1140: 5f 4c 49 42 52 41 52 59 5f 50 41 54 48 0d 0a 20  _LIBRARY_PATH.. 
1150: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20     }....    #.. 
1160: 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 6b 65 20     # NOTE: Make 
1170: 73 75 72 65 20 74 68 65 20 64 69 72 65 63 74 6f  sure the directo
1180: 72 79 20 69 73 20 6e 6f 74 20 61 6c 72 65 61 64  ry is not alread
1190: 79 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 23 20  y in the..    # 
11a0: 20 20 20 20 20 20 6c 6f 61 64 65 72 20 73 65 61        loader sea
11b0: 72 63 68 20 70 61 74 68 2e 0d 0a 20 20 20 20 23  rch path...    #
11c0: 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20  ..    if {[info 
11d0: 65 78 69 73 74 73 20 74 63 6c 5f 70 6c 61 74 66  exists tcl_platf
11e0: 6f 72 6d 28 70 61 74 68 53 65 70 61 72 61 74 6f  orm(pathSeparato
11f0: 72 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  r)]} then {..   
1200: 20 20 20 73 65 74 20 73 65 70 61 72 61 74 6f 72     set separator
1210: 20 24 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70   $tcl_platform(p
1220: 61 74 68 53 65 70 61 72 61 74 6f 72 29 0d 0a 20  athSeparator).. 
1230: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 73     } elseif {[is
1240: 57 69 6e 64 6f 77 73 5d 7d 20 74 68 65 6e 20 7b  Windows]} then {
1250: 0d 0a 20 20 20 20 20 20 73 65 74 20 73 65 70 61  ..      set sepa
1260: 72 61 74 6f 72 20 5c 3b 0d 0a 20 20 20 20 7d 20  rator \;..    } 
1270: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 73 65  else {..      se
1280: 74 20 73 65 70 61 72 61 74 6f 72 20 3a 0d 0a 20  t separator :.. 
1290: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20     }....    #.. 
12a0: 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20     # NOTE: Does 
12b0: 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 65 6e  the necessary en
12c0: 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62  vironment variab
12d0: 6c 65 20 65 78 69 73 74 3f 0d 0a 20 20 20 20 23  le exist?..    #
12e0: 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20  ..    if {[info 
12f0: 65 78 69 73 74 73 20 65 6e 76 28 24 6e 61 6d 65  exists env($name
1300: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  )]} then {..    
1310: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
1320: 45 3a 20 47 72 61 62 20 74 68 65 20 76 61 6c 75  E: Grab the valu
1330: 65 20 6f 66 20 74 68 65 20 65 6e 76 69 72 6f 6e  e of the environ
1340: 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 2e 0d 0a  ment variable...
1350: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73        #..      s
1360: 65 74 20 76 61 6c 75 65 20 24 65 6e 76 28 24 6e  et value $env($n
1370: 61 6d 65 29 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  ame)....      #.
1380: 0a 20 20 20 20 20 20 23 20 42 55 47 42 55 47 3a  .      # BUGBUG:
1390: 20 43 6f 6e 73 69 64 65 72 20 65 78 61 63 74 20   Consider exact 
13a0: 63 61 73 65 20 6f 6e 6c 79 20 66 6f 72 20 6e 6f  case only for no
13b0: 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  w...      #..   
13c0: 20 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20     if {[lsearch 
13d0: 2d 65 78 61 63 74 20 5b 73 70 6c 69 74 20 24 76  -exact [split $v
13e0: 61 6c 75 65 20 24 73 65 70 61 72 61 74 6f 72 5d  alue $separator]
13f0: 20 24 64 69 72 5d 20 3d 3d 20 2d 31 7d 20 74 68   $dir] == -1} th
1400: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
1410: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
1420: 20 41 70 70 65 6e 64 20 74 68 65 20 64 69 72 65   Append the dire
1430: 63 74 6f 72 79 20 74 6f 20 74 68 65 20 6c 6f 61  ctory to the loa
1440: 64 65 72 20 73 65 61 72 63 68 20 70 61 74 68 2e  der search path.
1450: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
1460: 20 20 54 68 69 73 20 61 6c 6c 6f 77 73 20 75 73    This allows us
1470: 20 74 6f 20 73 75 62 73 65 71 75 65 6e 74 6c 79   to subsequently
1480: 20 6c 6f 61 64 20 44 4c 4c 73 20 74 68 61 74 0d   load DLLs that.
1490: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
14a0: 20 69 6d 70 6c 69 63 69 74 6c 79 20 61 74 74 65   implicitly atte
14b0: 6d 70 74 20 74 6f 20 6c 6f 61 64 20 6f 74 68 65  mpt to load othe
14c0: 72 20 44 4c 4c 73 20 74 68 61 74 20 61 72 65 0d  r DLLs that are.
14d0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
14e0: 20 6e 6f 74 20 69 6e 20 74 68 65 20 61 70 70 6c   not in the appl
14f0: 69 63 61 74 69 6f 6e 20 64 69 72 65 63 74 6f 72  ication director
1500: 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  y...        #.. 
1510: 20 20 20 20 20 20 20 73 65 74 20 65 6e 76 28 24         set env($
1520: 6e 61 6d 65 29 20 5b 6a 6f 69 6e 20 5b 6c 69 73  name) [join [lis
1530: 74 20 24 76 61 6c 75 65 20 24 64 69 72 5d 20 24  t $value $dir] $
1540: 73 65 70 61 72 61 74 6f 72 5d 0d 0a 0d 0a 20 20  separator]....  
1550: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
1560: 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c 20 77 65   # NOTE: Yes, we
1570: 20 61 6c 74 65 72 65 64 20 74 68 65 20 73 65 61   altered the sea
1580: 72 63 68 20 70 61 74 68 2e 0d 0a 20 20 20 20 20  rch path...     
1590: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65     #..        re
15a0: 74 75 72 6e 20 74 72 75 65 0d 0a 20 20 20 20 20  turn true..     
15b0: 20 7d 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b   }..    } else {
15c0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
15d0: 20 23 20 4e 4f 54 45 3a 20 43 72 65 61 74 65 20   # NOTE: Create 
15e0: 74 68 65 20 6c 6f 61 64 65 72 20 73 65 61 72 63  the loader searc
15f0: 68 20 70 61 74 68 20 77 69 74 68 20 74 68 65 20  h path with the 
1600: 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20  directory...    
1610: 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 65    #..      set e
1620: 6e 76 28 24 6e 61 6d 65 29 20 24 64 69 72 0d 0a  nv($name) $dir..
1630: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
1640: 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c 20 77 65   # NOTE: Yes, we
1650: 20 63 72 65 61 74 65 64 20 74 68 65 20 73 65 61   created the sea
1660: 72 63 68 20 70 61 74 68 2e 0d 0a 20 20 20 20 20  rch path...     
1670: 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e   #..      return
1680: 20 74 72 75 65 0d 0a 20 20 20 20 7d 0d 0a 0d 0a   true..    }....
1690: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
16a0: 45 3a 20 4e 6f 2c 20 77 65 20 64 69 64 20 6e 6f  E: No, we did no
16b0: 74 20 61 6c 74 65 72 20 74 68 65 20 73 65 61 72  t alter the sear
16c0: 63 68 20 70 61 74 68 2e 0d 0a 20 20 20 20 23 0d  ch path...    #.
16d0: 0a 20 20 20 20 72 65 74 75 72 6e 20 66 61 6c 73  .    return fals
16e0: 65 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a  e..  }.....  #..
16f0: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70    # NOTE: This p
1700: 72 6f 63 65 64 75 72 65 20 72 65 6d 6f 76 65 73  rocedure removes
1710: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 64   the specified d
1720: 69 72 65 63 74 6f 72 79 20 66 72 6f 6d 20 74 68  irectory from th
1730: 65 20 50 41 54 48 2e 0d 0a 20 20 23 20 20 20 20  e PATH...  #    
1740: 20 20 20 49 74 20 69 73 20 64 65 73 69 67 6e 65     It is designe
1750: 64 20 74 6f 20 77 6f 72 6b 20 6f 6e 20 74 68 65  d to work on the
1760: 20 76 61 72 69 6f 75 73 20 66 6c 61 76 6f 72 73   various flavors
1770: 20 6f 66 20 57 69 6e 64 6f 77 73 20 61 6e 64 0d   of Windows and.
1780: 0a 20 20 23 20 20 20 20 20 20 20 55 6e 69 78 2e  .  #       Unix.
1790: 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 72 65  ..  #..  proc re
17a0: 6d 6f 76 65 46 72 6f 6d 50 61 74 68 20 7b 20 64  moveFromPath { d
17b0: 69 72 20 7d 20 7b 0d 0a 20 20 20 20 67 6c 6f 62  ir } {..    glob
17c0: 61 6c 20 65 6e 76 0d 0a 20 20 20 20 67 6c 6f 62  al env..    glob
17d0: 61 6c 20 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 0d  al tcl_platform.
17e0: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20  ...    #..    # 
17f0: 4e 4f 54 45 3a 20 54 68 69 73 20 73 68 6f 75 6c  NOTE: This shoul
1800: 64 20 77 6f 72 6b 20 70 72 6f 70 65 72 6c 79 20  d work properly 
1810: 69 6e 20 62 6f 74 68 20 54 63 6c 20 61 6e 64 20  in both Tcl and 
1820: 45 61 67 6c 65 2e 0d 0a 20 20 20 20 23 20 20 20  Eagle...    #   
1830: 20 20 20 20 4e 6f 72 6d 61 6c 69 7a 65 20 74 6f      Normalize to
1840: 20 61 6e 20 6f 70 65 72 61 74 69 6e 67 20 73 79   an operating sy
1850: 73 74 65 6d 20 6e 61 74 69 76 65 20 70 61 74 68  stem native path
1860: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65  ...    #..    se
1870: 74 20 64 69 72 20 5b 66 69 6c 65 20 6e 61 74 69  t dir [file nati
1880: 76 65 6e 61 6d 65 20 24 64 69 72 5d 0d 0a 0d 0a  vename $dir]....
1890: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
18a0: 45 3a 20 4f 6e 20 57 69 6e 64 6f 77 73 2c 20 75  E: On Windows, u
18b0: 73 65 20 50 41 54 48 3b 20 6f 74 68 65 72 77 69  se PATH; otherwi
18c0: 73 65 20 28 69 2e 65 2e 20 55 6e 69 78 29 2c 20  se (i.e. Unix), 
18d0: 75 73 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20  use..    #      
18e0: 20 4c 44 5f 4c 49 42 52 41 52 59 5f 50 41 54 48   LD_LIBRARY_PATH
18f0: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66  ...    #..    if
1900: 20 7b 5b 69 73 57 69 6e 64 6f 77 73 5d 7d 20 74   {[isWindows]} t
1910: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74  hen {..      set
1920: 20 6e 61 6d 65 20 50 41 54 48 0d 0a 20 20 20 20   name PATH..    
1930: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
1940: 73 65 74 20 6e 61 6d 65 20 4c 44 5f 4c 49 42 52  set name LD_LIBR
1950: 41 52 59 5f 50 41 54 48 0d 0a 20 20 20 20 7d 0d  ARY_PATH..    }.
1960: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20  ...    #..    # 
1970: 4e 4f 54 45 3a 20 4d 61 6b 65 20 73 75 72 65 20  NOTE: Make sure 
1980: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 69 73  the directory is
1990: 20 69 6e 20 74 68 65 20 6c 6f 61 64 65 72 20 73   in the loader s
19a0: 65 61 72 63 68 0d 0a 20 20 20 20 23 20 20 20 20  earch..    #    
19b0: 20 20 20 70 61 74 68 2e 0d 0a 20 20 20 20 23 0d     path...    #.
19c0: 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  .    if {[info e
19d0: 78 69 73 74 73 20 74 63 6c 5f 70 6c 61 74 66 6f  xists tcl_platfo
19e0: 72 6d 28 70 61 74 68 53 65 70 61 72 61 74 6f 72  rm(pathSeparator
19f0: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  )]} then {..    
1a00: 20 20 73 65 74 20 73 65 70 61 72 61 74 6f 72 20    set separator 
1a10: 24 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 61  $tcl_platform(pa
1a20: 74 68 53 65 70 61 72 61 74 6f 72 29 0d 0a 20 20  thSeparator)..  
1a30: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 73 57    } elseif {[isW
1a40: 69 6e 64 6f 77 73 5d 7d 20 74 68 65 6e 20 7b 0d  indows]} then {.
1a50: 0a 20 20 20 20 20 20 73 65 74 20 73 65 70 61 72  .      set separ
1a60: 61 74 6f 72 20 5c 3b 0d 0a 20 20 20 20 7d 20 65  ator \;..    } e
1a70: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 73 65 74  lse {..      set
1a80: 20 73 65 70 61 72 61 74 6f 72 20 3a 0d 0a 20 20   separator :..  
1a90: 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20    }....    #..  
1aa0: 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74    # NOTE: Does t
1ab0: 68 65 20 6e 65 63 65 73 73 61 72 79 20 65 6e 76  he necessary env
1ac0: 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c  ironment variabl
1ad0: 65 20 65 78 69 73 74 3f 0d 0a 20 20 20 20 23 0d  e exist?..    #.
1ae0: 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  .    if {[info e
1af0: 78 69 73 74 73 20 65 6e 76 28 24 6e 61 6d 65 29  xists env($name)
1b00: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
1b10: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
1b20: 3a 20 57 65 20 6e 65 65 64 20 74 6f 20 73 65 70  : We need to sep
1b30: 61 72 61 74 65 20 74 68 65 20 64 69 72 65 63 74  arate the direct
1b40: 6f 72 69 65 73 20 69 6e 20 74 68 65 20 70 61 74  ories in the pat
1b50: 68 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  h..      #      
1b60: 20 73 6f 20 74 68 61 74 20 77 65 20 63 61 6e 20   so that we can 
1b70: 73 65 6c 65 63 74 69 76 65 6c 79 20 72 65 6d 6f  selectively remo
1b80: 76 65 20 74 68 65 20 6f 6e 65 20 77 65 20 61 72  ve the one we ar
1b90: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  e..      #      
1ba0: 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 2e 0d 0a 20   looking for... 
1bb0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65       #..      se
1bc0: 74 20 64 69 72 73 20 5b 73 70 6c 69 74 20 24 65  t dirs [split $e
1bd0: 6e 76 28 24 6e 61 6d 65 29 20 24 73 65 70 61 72  nv($name) $separ
1be0: 61 74 6f 72 5d 0d 0a 0d 0a 20 20 20 20 20 20 23  ator]....      #
1bf0: 0d 0a 20 20 20 20 20 20 23 20 42 55 47 42 55 47  ..      # BUGBUG
1c00: 3a 20 43 6f 6e 73 69 64 65 72 20 65 78 61 63 74  : Consider exact
1c10: 20 63 61 73 65 20 6f 6e 6c 79 20 66 6f 72 20 6e   case only for n
1c20: 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  ow...      #..  
1c30: 20 20 20 20 73 65 74 20 69 6e 64 65 78 20 5b 6c      set index [l
1c40: 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 64  search -exact $d
1c50: 69 72 73 20 24 64 69 72 5d 0d 0a 0d 0a 20 20 20  irs $dir]....   
1c60: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
1c70: 54 45 3a 20 49 73 20 74 68 65 20 64 69 72 65 63  TE: Is the direc
1c80: 74 6f 72 79 20 69 6e 20 74 68 65 20 6c 6f 61 64  tory in the load
1c90: 65 72 20 73 65 61 72 63 68 20 70 61 74 68 3f 0d  er search path?.
1ca0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
1cb0: 69 66 20 7b 24 69 6e 64 65 78 20 21 3d 20 2d 31  if {$index != -1
1cc0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
1cd0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
1ce0: 4f 54 45 3a 20 52 65 6d 6f 76 65 20 74 68 65 20  OTE: Remove the 
1cf0: 64 69 72 65 63 74 6f 72 79 20 66 72 6f 6d 20 74  directory from t
1d00: 68 65 20 6c 6f 61 64 65 72 20 73 65 61 72 63 68  he loader search
1d10: 20 70 61 74 68 2e 0d 0a 20 20 20 20 20 20 20 20   path...        
1d20: 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 64  #..        set d
1d30: 69 72 73 20 5b 6c 72 65 70 6c 61 63 65 20 24 64  irs [lreplace $d
1d40: 69 72 73 20 24 69 6e 64 65 78 20 24 69 6e 64 65  irs $index $inde
1d50: 78 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d  x]....        #.
1d60: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
1d70: 20 52 65 70 6c 61 63 65 20 74 68 65 20 6f 72 69   Replace the ori
1d80: 67 69 6e 61 6c 20 6c 6f 61 64 65 72 20 73 65 61  ginal loader sea
1d90: 72 63 68 20 70 61 74 68 20 77 69 74 68 0d 0a 20  rch path with.. 
1da0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6f         #       o
1db0: 75 72 20 6d 6f 64 69 66 69 65 64 20 6f 6e 65 2e  ur modified one.
1dc0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
1dd0: 20 20 20 20 20 73 65 74 20 65 6e 76 28 24 6e 61       set env($na
1de0: 6d 65 29 20 5b 6a 6f 69 6e 20 24 64 69 72 73 20  me) [join $dirs 
1df0: 24 73 65 70 61 72 61 74 6f 72 5d 0d 0a 0d 0a 20  $separator].... 
1e00: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
1e10: 20 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c 20 77    # NOTE: Yes, w
1e20: 65 20 61 6c 74 65 72 65 64 20 74 68 65 20 73 65  e altered the se
1e30: 61 72 63 68 20 70 61 74 68 2e 0d 0a 20 20 20 20  arch path...    
1e40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72      #..        r
1e50: 65 74 75 72 6e 20 74 72 75 65 0d 0a 20 20 20 20  eturn true..    
1e60: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20    }..    }....  
1e70: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
1e80: 20 4e 6f 2c 20 77 65 20 64 69 64 20 6e 6f 74 20   No, we did not 
1e90: 61 6c 74 65 72 20 74 68 65 20 73 65 61 72 63 68  alter the search
1ea0: 20 70 61 74 68 2e 0d 0a 20 20 20 20 23 0d 0a 20   path...    #.. 
1eb0: 20 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 0d     return false.
1ec0: 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20  .  }.....  #..  
1ed0: 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f  # NOTE: This pro
1ee0: 63 65 64 75 72 65 20 72 65 74 75 72 6e 73 20 6e  cedure returns n
1ef0: 6f 6e 2d 7a 65 72 6f 20 69 66 20 74 68 65 20 73  on-zero if the s
1f00: 70 65 63 69 66 69 65 64 20 66 69 6c 65 20 6e 61  pecified file na
1f10: 6d 65 73 20 72 65 66 65 72 0d 0a 20 20 23 20 20  mes refer..  #  
1f20: 20 20 20 20 20 74 6f 20 74 68 65 20 73 61 6d 65       to the same
1f30: 20 66 69 6c 65 2c 20 75 73 69 6e 67 20 74 68 65   file, using the
1f40: 20 6d 6f 73 74 20 72 6f 62 75 73 74 20 6d 65 74   most robust met
1f50: 68 6f 64 20 61 76 61 69 6c 61 62 6c 65 20 66 6f  hod available fo
1f60: 72 20 74 68 65 0d 0a 20 20 23 20 20 20 20 20 20  r the..  #      
1f70: 20 73 63 72 69 70 74 20 65 6e 67 69 6e 65 20 61   script engine a
1f80: 6e 64 20 70 6c 61 74 66 6f 72 6d 2e 0d 0a 20 20  nd platform...  
1f90: 23 0d 0a 20 20 70 72 6f 63 20 69 73 53 61 6d 65  #..  proc isSame
1fa0: 46 69 6c 65 4e 61 6d 65 20 7b 20 66 69 6c 65 4e  FileName { fileN
1fb0: 61 6d 65 31 20 66 69 6c 65 4e 61 6d 65 32 20 7d  ame1 fileName2 }
1fc0: 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69 73 45   {..    if {[isE
1fd0: 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  agle]} then {.. 
1fe0: 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c       return [fil
1ff0: 65 20 73 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65  e same $fileName
2000: 31 20 24 66 69 6c 65 4e 61 6d 65 32 5d 0d 0a 20  1 $fileName2].. 
2010: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
2020: 20 20 20 69 66 20 7b 5b 69 73 57 69 6e 64 6f 77     if {[isWindow
2030: 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  s]} then {..    
2040: 20 20 20 20 72 65 74 75 72 6e 20 5b 73 74 72 69      return [stri
2050: 6e 67 20 65 71 75 61 6c 20 2d 6e 6f 63 61 73 65  ng equal -nocase
2060: 20 24 66 69 6c 65 4e 61 6d 65 31 20 24 66 69 6c   $fileName1 $fil
2070: 65 4e 61 6d 65 32 5d 0d 0a 20 20 20 20 20 20 7d  eName2]..      }
2080: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
2090: 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e 67 20   return [string 
20a0: 65 71 75 61 6c 20 24 66 69 6c 65 4e 61 6d 65 31  equal $fileName1
20b0: 20 24 66 69 6c 65 4e 61 6d 65 32 5d 0d 0a 20 20   $fileName2]..  
20c0: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
20d0: 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23 20 4e  }.....  #..  # N
20e0: 4f 54 45 3a 20 50 72 6f 76 69 64 65 20 74 68 65  OTE: Provide the
20f0: 20 45 61 67 6c 65 20 22 70 6c 61 74 66 6f 72 6d   Eagle "platform
2100: 22 20 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65  " package to the
2110: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20   interpreter... 
2120: 20 23 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 72   #..  package pr
2130: 6f 76 69 64 65 20 45 61 67 6c 65 2e 50 6c 61 74  ovide Eagle.Plat
2140: 66 6f 72 6d 20 5c 0d 0a 20 20 20 20 5b 65 78 70  form \..    [exp
2150: 72 20 7b 5b 69 73 45 61 67 6c 65 5d 20 3f 20 5b  r {[isEagle] ? [
2160: 69 6e 66 6f 20 65 6e 67 69 6e 65 20 50 61 74 63  info engine Patc
2170: 68 4c 65 76 65 6c 5d 20 3a 20 22 31 2e 30 22 7d  hLevel] : "1.0"}
2180: 5d 0d 0a 7d 0d 0a 0c                             ]..}...