System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact a37e5b2dda542ecc3b7a5892b326f9cddaedcd36:


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 69 2e  agle on Mono (i.
0680: 65 2e 20 6f 74 68 65 72 77 69 73 65 2c 20 77 65  e. otherwise, we
0690: 20 61 72 65 20 72 75 6e 6e 69 6e 67 20 69 6e 20   are running in 
06a0: 54 63 6c 20 6f 72 20 69 6e 20 45 61 67 6c 65 0d  Tcl or in Eagle.
06b0: 0a 20 20 23 20 20 20 20 20 20 20 6f 6e 20 74 68  .  #       on th
06c0: 65 20 2e 4e 45 54 20 46 72 61 6d 65 77 6f 72 6b  e .NET Framework
06d0: 20 6f 72 20 2e 4e 45 54 20 43 6f 72 65 29 2e 20   or .NET Core). 
06e0: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
06f0: 6d 75 73 74 20 66 75 6e 63 74 69 6f 6e 0d 0a 20  must function.. 
0700: 20 23 20 20 20 20 20 20 20 63 6f 72 72 65 63 74   #       correct
0710: 6c 79 20 69 6e 20 62 6f 74 68 20 54 63 6c 20 61  ly in both Tcl a
0720: 6e 64 20 45 61 67 6c 65 20 61 6e 64 20 6d 75 73  nd Eagle and mus
0730: 74 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72  t return non-zer
0740: 6f 20 6f 6e 6c 79 20 77 68 65 6e 0d 0a 20 20 23  o only when..  #
0750: 20 20 20 20 20 20 20 72 75 6e 6e 69 6e 67 20 69         running i
0760: 6e 20 45 61 67 6c 65 20 6f 6e 20 4d 6f 6e 6f 2e  n Eagle on Mono.
0770: 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 69 73  ..  #..  proc is
0780: 4d 6f 6e 6f 20 7b 7d 20 7b 0d 0a 20 20 20 20 23  Mono {} {..    #
0790: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e 6f  ..    # NOTE: No
07a0: 74 68 69 6e 67 20 74 6f 6f 20 66 61 6e 63 79 20  thing too fancy 
07b0: 6f 72 20 65 78 70 65 6e 73 69 76 65 20 73 68 6f  or expensive sho
07c0: 75 6c 64 20 62 65 20 64 6f 6e 65 20 68 65 72 65  uld be done here
07d0: 2e 20 20 49 6e 20 74 68 65 6f 72 79 2c 0d 0a 20  .  In theory,.. 
07e0: 20 20 20 23 20 20 20 20 20 20 20 75 73 65 20 6f     #       use o
07f0: 66 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65  f this procedure
0800: 20 73 68 6f 75 6c 64 20 62 65 20 72 61 72 65 3b   should be rare;
0810: 20 68 6f 77 65 76 65 72 2c 20 69 6e 20 70 72 61   however, in pra
0820: 63 74 69 63 65 2c 20 74 68 69 73 0d 0a 20 20 20  ctice, this..   
0830: 20 23 20 20 20 20 20 20 20 70 72 6f 63 65 64 75   #       procedu
0840: 72 65 20 69 73 20 61 63 74 75 61 6c 6c 79 20 75  re is actually u
0850: 73 65 64 20 71 75 69 74 65 20 61 20 62 69 74 20  sed quite a bit 
0860: 28 65 2e 67 2e 20 62 79 20 74 68 65 20 74 65 73  (e.g. by the tes
0870: 74 20 73 75 69 74 65 29 2e 0d 0a 20 20 20 20 23  t suite)...    #
0880: 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78  ..    return [ex
0890: 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  pr {[info exists
08a0: 20 3a 3a 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72   ::eagle_platfor
08b0: 6d 28 72 75 6e 74 69 6d 65 29 5d 20 26 26 20 5c  m(runtime)] && \
08c0: 0d 0a 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e  ..        [strin
08d0: 67 20 63 6f 6d 70 61 72 65 20 2d 6e 6f 63 61 73  g compare -nocas
08e0: 65 20 6d 6f 6e 6f 20 24 3a 3a 65 61 67 6c 65 5f  e mono $::eagle_
08f0: 70 6c 61 74 66 6f 72 6d 28 72 75 6e 74 69 6d 65  platform(runtime
0900: 29 5d 20 3d 3d 20 30 7d 5d 0d 0a 20 20 7d 0d 0a  )] == 0}]..  }..
0910: 0c 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45  ...  #..  # NOTE
0920: 3a 20 54 68 69 73 20 69 73 20 74 68 65 20 70 72  : This is the pr
0930: 6f 63 65 64 75 72 65 20 74 68 61 74 20 64 65 74  ocedure that det
0940: 65 63 74 73 20 77 68 65 74 68 65 72 20 6f 72 20  ects whether or 
0950: 6e 6f 74 20 77 65 20 61 72 65 20 72 75 6e 6e 69  not we are runni
0960: 6e 67 0d 0a 20 20 23 20 20 20 20 20 20 20 69 6e  ng..  #       in
0970: 20 45 61 67 6c 65 20 6f 6e 20 2e 4e 45 54 20 43   Eagle on .NET C
0980: 6f 72 65 20 28 69 2e 65 2e 20 6f 74 68 65 72 77  ore (i.e. otherw
0990: 69 73 65 2c 20 77 65 20 61 72 65 20 72 75 6e 6e  ise, we are runn
09a0: 69 6e 67 20 69 6e 20 54 63 6c 20 6f 72 20 69 6e  ing in Tcl or in
09b0: 0d 0a 20 20 23 20 20 20 20 20 20 20 45 61 67 6c  ..  #       Eagl
09c0: 65 20 6f 6e 20 74 68 65 20 2e 4e 45 54 20 46 72  e on the .NET Fr
09d0: 61 6d 65 77 6f 72 6b 20 6f 72 20 4d 6f 6e 6f 29  amework or Mono)
09e0: 2e 20 20 54 68 69 73 20 70 72 6f 63 65 64 75 72  .  This procedur
09f0: 65 20 6d 75 73 74 20 66 75 6e 63 74 69 6f 6e 0d  e must function.
0a00: 0a 20 20 23 20 20 20 20 20 20 20 63 6f 72 72 65  .  #       corre
0a10: 63 74 6c 79 20 69 6e 20 62 6f 74 68 20 54 63 6c  ctly in both Tcl
0a20: 20 61 6e 64 20 45 61 67 6c 65 20 61 6e 64 20 6d   and Eagle and m
0a30: 75 73 74 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a  ust return non-z
0a40: 65 72 6f 20 6f 6e 6c 79 20 77 68 65 6e 0d 0a 20  ero only when.. 
0a50: 20 23 20 20 20 20 20 20 20 72 75 6e 6e 69 6e 67   #       running
0a60: 20 69 6e 20 45 61 67 6c 65 20 6f 6e 20 2e 4e 45   in Eagle on .NE
0a70: 54 20 43 6f 72 65 2e 0d 0a 20 20 23 0d 0a 20 20  T Core...  #..  
0a80: 70 72 6f 63 20 69 73 44 6f 74 4e 65 74 43 6f 72  proc isDotNetCor
0a90: 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20  e {} {..    #.. 
0aa0: 20 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 74 68 69     # NOTE: Nothi
0ab0: 6e 67 20 74 6f 6f 20 66 61 6e 63 79 20 6f 72 20  ng too fancy or 
0ac0: 65 78 70 65 6e 73 69 76 65 20 73 68 6f 75 6c 64  expensive should
0ad0: 20 62 65 20 64 6f 6e 65 20 68 65 72 65 2e 20 20   be done here.  
0ae0: 49 6e 20 74 68 65 6f 72 79 2c 0d 0a 20 20 20 20  In theory,..    
0af0: 23 20 20 20 20 20 20 20 75 73 65 20 6f 66 20 74  #       use of t
0b00: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 68  his procedure sh
0b10: 6f 75 6c 64 20 62 65 20 72 61 72 65 3b 20 68 6f  ould be rare; ho
0b20: 77 65 76 65 72 2c 20 69 6e 20 70 72 61 63 74 69  wever, in practi
0b30: 63 65 2c 20 74 68 69 73 0d 0a 20 20 20 20 23 20  ce, this..    # 
0b40: 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20        procedure 
0b50: 69 73 20 61 63 74 75 61 6c 6c 79 20 75 73 65 64  is actually used
0b60: 20 71 75 69 74 65 20 61 20 62 69 74 20 28 65 2e   quite a bit (e.
0b70: 67 2e 20 62 79 20 74 68 65 20 74 65 73 74 20 73  g. by the test s
0b80: 75 69 74 65 29 2e 0d 0a 20 20 20 20 23 0d 0a 20  uite)...    #.. 
0b90: 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20     return [expr 
0ba0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
0bb0: 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 72  eagle_platform(r
0bc0: 75 6e 74 69 6d 65 29 5d 20 26 26 20 5c 0d 0a 20  untime)] && \.. 
0bd0: 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 63         [string c
0be0: 6f 6d 70 61 72 65 20 2d 6e 6f 63 61 73 65 20 22  ompare -nocase "
0bf0: 2e 6e 65 74 20 63 6f 72 65 22 20 24 3a 3a 65 61  .net core" $::ea
0c00: 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 72 75 6e  gle_platform(run
0c10: 74 69 6d 65 29 5d 20 3d 3d 20 30 7d 5d 0d 0a 20  time)] == 0}].. 
0c20: 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20 23 20   }.....  #..  # 
0c30: 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65  NOTE: This proce
0c40: 64 75 72 65 20 72 65 74 75 72 6e 73 20 6e 6f 6e  dure returns non
0c50: 2d 7a 65 72 6f 20 69 66 20 74 68 65 20 6c 6f 67  -zero if the log
0c60: 67 65 64 20 6f 6e 20 75 73 65 72 20 68 61 73 20  ged on user has 
0c70: 66 75 6c 6c 0d 0a 20 20 23 20 20 20 20 20 20 20  full..  #       
0c80: 61 64 6d 69 6e 69 73 74 72 61 74 6f 72 20 72 69  administrator ri
0c90: 67 68 74 73 20 6f 6e 20 74 68 69 73 20 6d 61 63  ghts on this mac
0ca0: 68 69 6e 65 2e 20 20 43 75 72 72 65 6e 74 6c 79  hine.  Currently
0cb0: 2c 20 74 68 69 73 20 6f 6e 6c 79 20 77 6f 72 6b  , this only work
0cc0: 73 0d 0a 20 20 23 20 20 20 20 20 20 20 69 6e 20  s..  #       in 
0cd0: 45 61 67 6c 65 3b 20 68 6f 77 65 76 65 72 2c 20  Eagle; however, 
0ce0: 69 74 20 6d 61 79 20 77 6f 72 6b 20 66 72 6f 6d  it may work from
0cf0: 20 6e 61 74 69 76 65 20 54 63 6c 20 69 6e 20 74   native Tcl in t
0d00: 68 65 20 66 75 74 75 72 65 2e 0d 0a 20 20 23 0d  he future...  #.
0d10: 0a 20 20 70 72 6f 63 20 69 73 41 64 6d 69 6e 69  .  proc isAdmini
0d20: 73 74 72 61 74 6f 72 20 7b 7d 20 7b 0d 0a 20 20  strator {} {..  
0d30: 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b    return [expr {
0d40: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 65  [info exists ::e
0d50: 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 61 64  agle_platform(ad
0d60: 6d 69 6e 69 73 74 72 61 74 6f 72 29 5d 20 26 26  ministrator)] &&
0d70: 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 73 74 72   \..        [str
0d80: 69 6e 67 20 69 73 20 74 72 75 65 20 2d 73 74 72  ing is true -str
0d90: 69 63 74 20 24 3a 3a 65 61 67 6c 65 5f 70 6c 61  ict $::eagle_pla
0da0: 74 66 6f 72 6d 28 61 64 6d 69 6e 69 73 74 72 61  tform(administra
0db0: 74 6f 72 29 5d 7d 5d 0d 0a 20 20 7d 0d 0a 0c 0d  tor)]}]..  }....
0dc0: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
0dd0: 54 68 69 73 20 69 73 20 74 68 65 20 70 72 6f 63  This is the proc
0de0: 65 64 75 72 65 20 74 68 61 74 20 64 65 74 65 63  edure that detec
0df0: 74 73 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f  ts whether or no
0e00: 74 20 77 65 20 61 72 65 20 72 75 6e 6e 69 6e 67  t we are running
0e10: 0d 0a 20 20 23 20 20 20 20 20 20 20 6f 6e 20 57  ..  #       on W
0e20: 69 6e 64 6f 77 73 20 28 6f 74 68 65 72 77 69 73  indows (otherwis
0e30: 65 2c 20 69 74 20 69 73 20 61 73 73 75 6d 65 64  e, it is assumed
0e40: 20 74 68 61 74 20 77 65 20 61 72 65 20 72 75 6e   that we are run
0e50: 6e 69 6e 67 20 6f 6e 20 73 6f 6d 65 0d 0a 20 20  ning on some..  
0e60: 23 20 20 20 20 20 20 20 66 6c 61 76 6f 72 20 6f  #       flavor o
0e70: 66 20 55 6e 69 78 29 2e 20 20 54 68 69 73 20 70  f Unix).  This p
0e80: 72 6f 63 65 64 75 72 65 20 6d 75 73 74 20 66 75  rocedure must fu
0e90: 6e 63 74 69 6f 6e 20 63 6f 72 72 65 63 74 6c 79  nction correctly
0ea0: 20 69 6e 20 62 6f 74 68 0d 0a 20 20 23 20 20 20   in both..  #   
0eb0: 20 20 20 20 54 63 6c 20 61 6e 64 20 45 61 67 6c      Tcl and Eagl
0ec0: 65 20 61 6e 64 20 6d 75 73 74 20 72 65 74 75 72  e and must retur
0ed0: 6e 20 6e 6f 6e 2d 7a 65 72 6f 20 6f 6e 6c 79 20  n non-zero only 
0ee0: 77 68 65 6e 20 6f 6e 20 57 69 6e 64 6f 77 73 2e  when on Windows.
0ef0: 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 69 73  ..  #..  proc is
0f00: 57 69 6e 64 6f 77 73 20 7b 7d 20 7b 0d 0a 20 20  Windows {} {..  
0f10: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
0f20: 20 4e 6f 74 68 69 6e 67 20 74 6f 6f 20 66 61 6e   Nothing too fan
0f30: 63 79 20 6f 72 20 65 78 70 65 6e 73 69 76 65 20  cy or expensive 
0f40: 73 68 6f 75 6c 64 20 62 65 20 64 6f 6e 65 20 68  should be done h
0f50: 65 72 65 2e 20 20 49 6e 20 74 68 65 6f 72 79 2c  ere.  In theory,
0f60: 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 75 73  ..    #       us
0f70: 65 20 6f 66 20 74 68 69 73 20 70 72 6f 63 65 64  e of this proced
0f80: 75 72 65 20 73 68 6f 75 6c 64 20 62 65 20 72 61  ure should be ra
0f90: 72 65 3b 20 68 6f 77 65 76 65 72 2c 20 69 6e 20  re; however, in 
0fa0: 70 72 61 63 74 69 63 65 2c 20 74 68 69 73 0d 0a  practice, this..
0fb0: 20 20 20 20 23 20 20 20 20 20 20 20 70 72 6f 63      #       proc
0fc0: 65 64 75 72 65 20 69 73 20 61 63 74 75 61 6c 6c  edure is actuall
0fd0: 79 20 75 73 65 64 20 71 75 69 74 65 20 61 20 62  y used quite a b
0fe0: 69 74 20 28 65 2e 67 2e 20 62 79 20 74 68 65 20  it (e.g. by the 
0ff0: 74 65 73 74 20 73 75 69 74 65 29 2e 0d 0a 20 20  test suite)...  
1000: 20 20 23 0d 0a 20 20 20 20 72 65 74 75 72 6e 20    #..    return 
1010: 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69  [expr {[info exi
1020: 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f  sts ::tcl_platfo
1030: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 5d 20 26 26  rm(platform)] &&
1040: 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 3a 3a 74   \..        $::t
1050: 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74  cl_platform(plat
1060: 66 6f 72 6d 29 20 65 71 20 22 77 69 6e 64 6f 77  form) eq "window
1070: 73 22 7d 5d 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20  s"}]..  }.....  
1080: 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69  #..  # NOTE: Thi
1090: 73 20 70 72 6f 63 65 64 75 72 65 20 73 68 6f 75  s procedure shou
10a0: 6c 64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65  ld return non-ze
10b0: 72 6f 20 69 66 20 61 6e 64 20 6f 6e 6c 79 20 69  ro if and only i
10c0: 66 20 6f 6e 6c 79 20 74 68 65 72 65 0d 0a 20 20  f only there..  
10d0: 23 20 20 20 20 20 20 20 69 73 20 63 75 72 72 65  #       is curre
10e0: 6e 74 6c 79 20 61 6e 20 69 6e 74 65 72 61 63 74  ntly an interact
10f0: 69 76 65 20 75 73 65 72 20 74 68 61 74 20 63 61  ive user that ca
1100: 6e 20 72 65 73 70 6f 6e 64 20 74 6f 20 70 72 6f  n respond to pro
1110: 6d 70 74 73 20 61 6e 64 0d 0a 20 20 23 20 20 20  mpts and..  #   
1120: 20 20 20 20 6f 74 68 65 72 20 72 65 71 75 65 73      other reques
1130: 74 73 20 66 6f 72 20 69 6e 70 75 74 2e 0d 0a 20  ts for input... 
1140: 20 23 0d 0a 20 20 70 72 6f 63 20 69 73 49 6e 74   #..  proc isInt
1150: 65 72 61 63 74 69 76 65 20 7b 7d 20 7b 0d 0a 20  eractive {} {.. 
1160: 20 20 20 23 0d 0a 20 20 20 20 23 20 54 4f 44 4f     #..    # TODO
1170: 3a 20 49 73 20 73 6f 6d 65 74 68 69 6e 67 20 6d  : Is something m
1180: 6f 72 65 20 63 6f 6d 70 6c 65 78 20 72 65 71 75  ore complex requ
1190: 69 72 65 64 20 68 65 72 65 3f 0d 0a 20 20 20 20  ired here?..    
11a0: 23 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 5b 65  #..    return [e
11b0: 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  xpr {[info exist
11c0: 73 20 3a 3a 74 63 6c 5f 69 6e 74 65 72 61 63 74  s ::tcl_interact
11d0: 69 76 65 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20  ive] && \..     
11e0: 20 20 20 5b 73 74 72 69 6e 67 20 69 73 20 74 72     [string is tr
11f0: 75 65 20 2d 73 74 72 69 63 74 20 24 3a 3a 74 63  ue -strict $::tc
1200: 6c 5f 69 6e 74 65 72 61 63 74 69 76 65 5d 7d 5d  l_interactive]}]
1210: 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20  ..  }.....  #.. 
1220: 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72   # NOTE: This pr
1230: 6f 63 65 64 75 72 65 20 61 64 64 73 20 74 68 65  ocedure adds the
1240: 20 73 70 65 63 69 66 69 65 64 20 64 69 72 65 63   specified direc
1250: 74 6f 72 79 20 74 6f 20 74 68 65 20 50 41 54 48  tory to the PATH
1260: 2e 20 20 49 74 20 69 73 0d 0a 20 20 23 20 20 20  .  It is..  #   
1270: 20 20 20 20 64 65 73 69 67 6e 65 64 20 74 6f 20      designed to 
1280: 77 6f 72 6b 20 6f 6e 20 74 68 65 20 76 61 72 69  work on the vari
1290: 6f 75 73 20 66 6c 61 76 6f 72 73 20 6f 66 20 57  ous flavors of W
12a0: 69 6e 64 6f 77 73 20 61 6e 64 20 55 6e 69 78 2e  indows and Unix.
12b0: 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 61 64  ..  #..  proc ad
12c0: 64 54 6f 50 61 74 68 20 7b 20 64 69 72 20 7d 20  dToPath { dir } 
12d0: 7b 0d 0a 20 20 20 20 67 6c 6f 62 61 6c 20 65 6e  {..    global en
12e0: 76 0d 0a 20 20 20 20 67 6c 6f 62 61 6c 20 74 63  v..    global tc
12f0: 6c 5f 70 6c 61 74 66 6f 72 6d 0d 0a 0d 0a 20 20  l_platform....  
1300: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
1310: 20 54 68 69 73 20 73 68 6f 75 6c 64 20 77 6f 72   This should wor
1320: 6b 20 70 72 6f 70 65 72 6c 79 20 69 6e 20 62 6f  k properly in bo
1330: 74 68 20 54 63 6c 20 61 6e 64 20 45 61 67 6c 65  th Tcl and Eagle
1340: 2e 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 4e  ...    #       N
1350: 6f 72 6d 61 6c 69 7a 65 20 74 6f 20 61 6e 20 6f  ormalize to an o
1360: 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 20  perating system 
1370: 6e 61 74 69 76 65 20 70 61 74 68 2e 0d 0a 20 20  native path...  
1380: 20 20 23 0d 0a 20 20 20 20 73 65 74 20 64 69 72    #..    set dir
1390: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d   [file nativenam
13a0: 65 20 24 64 69 72 5d 0d 0a 0d 0a 20 20 20 20 23  e $dir]....    #
13b0: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 4f 6e  ..    # NOTE: On
13c0: 20 57 69 6e 64 6f 77 73 2c 20 75 73 65 20 50 41   Windows, use PA
13d0: 54 48 3b 20 6f 74 68 65 72 77 69 73 65 20 28 69  TH; otherwise (i
13e0: 2e 65 2e 20 55 6e 69 78 29 2c 20 75 73 65 0d 0a  .e. Unix), use..
13f0: 20 20 20 20 23 20 20 20 20 20 20 20 4c 44 5f 4c      #       LD_L
1400: 49 42 52 41 52 59 5f 50 41 54 48 2e 0d 0a 20 20  IBRARY_PATH...  
1410: 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 5b 69 73    #..    if {[is
1420: 57 69 6e 64 6f 77 73 5d 7d 20 74 68 65 6e 20 7b  Windows]} then {
1430: 0d 0a 20 20 20 20 20 20 73 65 74 20 6e 61 6d 65  ..      set name
1440: 20 50 41 54 48 0d 0a 20 20 20 20 7d 20 65 6c 73   PATH..    } els
1450: 65 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 6e  e {..      set n
1460: 61 6d 65 20 4c 44 5f 4c 49 42 52 41 52 59 5f 50  ame LD_LIBRARY_P
1470: 41 54 48 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20  ATH..    }....  
1480: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
1490: 20 4d 61 6b 65 20 73 75 72 65 20 74 68 65 20 64   Make sure the d
14a0: 69 72 65 63 74 6f 72 79 20 69 73 20 6e 6f 74 20  irectory is not 
14b0: 61 6c 72 65 61 64 79 20 69 6e 20 74 68 65 0d 0a  already in the..
14c0: 20 20 20 20 23 20 20 20 20 20 20 20 6c 6f 61 64      #       load
14d0: 65 72 20 73 65 61 72 63 68 20 70 61 74 68 2e 0d  er search path..
14e0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b  .    #..    if {
14f0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 74 63 6c  [info exists tcl
1500: 5f 70 6c 61 74 66 6f 72 6d 28 70 61 74 68 53 65  _platform(pathSe
1510: 70 61 72 61 74 6f 72 29 5d 7d 20 74 68 65 6e 20  parator)]} then 
1520: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 73 65 70  {..      set sep
1530: 61 72 61 74 6f 72 20 24 74 63 6c 5f 70 6c 61 74  arator $tcl_plat
1540: 66 6f 72 6d 28 70 61 74 68 53 65 70 61 72 61 74  form(pathSeparat
1550: 6f 72 29 0d 0a 20 20 20 20 7d 20 65 6c 73 65 69  or)..    } elsei
1560: 66 20 7b 5b 69 73 57 69 6e 64 6f 77 73 5d 7d 20  f {[isWindows]} 
1570: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65  then {..      se
1580: 74 20 73 65 70 61 72 61 74 6f 72 20 5c 3b 0d 0a  t separator \;..
1590: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
15a0: 20 20 20 20 73 65 74 20 73 65 70 61 72 61 74 6f      set separato
15b0: 72 20 3a 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20  r :..    }....  
15c0: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
15d0: 20 44 6f 65 73 20 74 68 65 20 6e 65 63 65 73 73   Does the necess
15e0: 61 72 79 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20  ary environment 
15f0: 76 61 72 69 61 62 6c 65 20 65 78 69 73 74 3f 0d  variable exist?.
1600: 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b  .    #..    if {
1610: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 6e 76  [info exists env
1620: 28 24 6e 61 6d 65 29 5d 7d 20 74 68 65 6e 20 7b  ($name)]} then {
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 47 72 61 62 20 74 68   # NOTE: Grab th
1650: 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 65  e value of the e
1660: 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61  nvironment varia
1670: 62 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ble...      #.. 
1680: 20 20 20 20 20 73 65 74 20 76 61 6c 75 65 20 24       set value $
1690: 65 6e 76 28 24 6e 61 6d 65 29 0d 0a 0d 0a 20 20  env($name)....  
16a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 42      #..      # B
16b0: 55 47 42 55 47 3a 20 43 6f 6e 73 69 64 65 72 20  UGBUG: Consider 
16c0: 65 78 61 63 74 20 63 61 73 65 20 6f 6e 6c 79 20  exact case only 
16d0: 66 6f 72 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20  for now...      
16e0: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 73  #..      if {[ls
16f0: 65 61 72 63 68 20 2d 65 78 61 63 74 20 5b 73 70  earch -exact [sp
1700: 6c 69 74 20 24 76 61 6c 75 65 20 24 73 65 70 61  lit $value $sepa
1710: 72 61 74 6f 72 5d 20 24 64 69 72 5d 20 3d 3d 20  rator] $dir] == 
1720: 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  -1} then {..    
1730: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
1740: 20 4e 4f 54 45 3a 20 41 70 70 65 6e 64 20 74 68   NOTE: Append th
1750: 65 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 74  e directory to t
1760: 68 65 20 6c 6f 61 64 65 72 20 73 65 61 72 63 68  he loader search
1770: 20 70 61 74 68 2e 0d 0a 20 20 20 20 20 20 20 20   path...        
1780: 23 20 20 20 20 20 20 20 54 68 69 73 20 61 6c 6c  #       This all
1790: 6f 77 73 20 75 73 20 74 6f 20 73 75 62 73 65 71  ows us to subseq
17a0: 75 65 6e 74 6c 79 20 6c 6f 61 64 20 44 4c 4c 73  uently load DLLs
17b0: 20 74 68 61 74 0d 0a 20 20 20 20 20 20 20 20 23   that..        #
17c0: 20 20 20 20 20 20 20 69 6d 70 6c 69 63 69 74 6c         implicitl
17d0: 79 20 61 74 74 65 6d 70 74 20 74 6f 20 6c 6f 61  y attempt to loa
17e0: 64 20 6f 74 68 65 72 20 44 4c 4c 73 20 74 68 61  d other DLLs tha
17f0: 74 20 61 72 65 0d 0a 20 20 20 20 20 20 20 20 23  t are..        #
1800: 20 20 20 20 20 20 20 6e 6f 74 20 69 6e 20 74 68         not in th
1810: 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 69  e application di
1820: 72 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20 20 20  rectory...      
1830: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74    #..        set
1840: 20 65 6e 76 28 24 6e 61 6d 65 29 20 5b 6a 6f 69   env($name) [joi
1850: 6e 20 5b 6c 69 73 74 20 24 76 61 6c 75 65 20 24  n [list $value $
1860: 64 69 72 5d 20 24 73 65 70 61 72 61 74 6f 72 5d  dir] $separator]
1870: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
1880: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 59         # NOTE: Y
1890: 65 73 2c 20 77 65 20 61 6c 74 65 72 65 64 20 74  es, we altered t
18a0: 68 65 20 73 65 61 72 63 68 20 70 61 74 68 2e 0d  he search path..
18b0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
18c0: 20 20 20 20 72 65 74 75 72 6e 20 74 72 75 65 0d      return true.
18d0: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 20  .      }..    } 
18e0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 23 0d  else {..      #.
18f0: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43  .      # NOTE: C
1900: 72 65 61 74 65 20 74 68 65 20 6c 6f 61 64 65 72  reate the loader
1910: 20 73 65 61 72 63 68 20 70 61 74 68 20 77 69 74   search path wit
1920: 68 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 2e  h the directory.
1930: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
1940: 20 73 65 74 20 65 6e 76 28 24 6e 61 6d 65 29 20   set env($name) 
1950: 24 64 69 72 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  $dir....      #.
1960: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 59  .      # NOTE: Y
1970: 65 73 2c 20 77 65 20 63 72 65 61 74 65 64 20 74  es, we created t
1980: 68 65 20 73 65 61 72 63 68 20 70 61 74 68 2e 0d  he search path..
1990: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
19a0: 72 65 74 75 72 6e 20 74 72 75 65 0d 0a 20 20 20  return true..   
19b0: 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20   }....    #..   
19c0: 20 23 20 4e 4f 54 45 3a 20 4e 6f 2c 20 77 65 20   # NOTE: No, we 
19d0: 64 69 64 20 6e 6f 74 20 61 6c 74 65 72 20 74 68  did not alter th
19e0: 65 20 73 65 61 72 63 68 20 70 61 74 68 2e 0d 0a  e search path...
19f0: 20 20 20 20 23 0d 0a 20 20 20 20 72 65 74 75 72      #..    retur
1a00: 6e 20 66 61 6c 73 65 0d 0a 20 20 7d 0d 0a 0c 0d  n false..  }....
1a10: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
1a20: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72  This procedure r
1a30: 65 6d 6f 76 65 73 20 74 68 65 20 73 70 65 63 69  emoves the speci
1a40: 66 69 65 64 20 64 69 72 65 63 74 6f 72 79 20 66  fied directory f
1a50: 72 6f 6d 20 74 68 65 20 50 41 54 48 2e 0d 0a 20  rom the PATH... 
1a60: 20 23 20 20 20 20 20 20 20 49 74 20 69 73 20 64   #       It is d
1a70: 65 73 69 67 6e 65 64 20 74 6f 20 77 6f 72 6b 20  esigned to work 
1a80: 6f 6e 20 74 68 65 20 76 61 72 69 6f 75 73 20 66  on the various f
1a90: 6c 61 76 6f 72 73 20 6f 66 20 57 69 6e 64 6f 77  lavors of Window
1aa0: 73 20 61 6e 64 0d 0a 20 20 23 20 20 20 20 20 20  s and..  #      
1ab0: 20 55 6e 69 78 2e 0d 0a 20 20 23 0d 0a 20 20 70   Unix...  #..  p
1ac0: 72 6f 63 20 72 65 6d 6f 76 65 46 72 6f 6d 50 61  roc removeFromPa
1ad0: 74 68 20 7b 20 64 69 72 20 7d 20 7b 0d 0a 20 20  th { dir } {..  
1ae0: 20 20 67 6c 6f 62 61 6c 20 65 6e 76 0d 0a 20 20    global env..  
1af0: 20 20 67 6c 6f 62 61 6c 20 74 63 6c 5f 70 6c 61    global tcl_pla
1b00: 74 66 6f 72 6d 0d 0a 0d 0a 20 20 20 20 23 0d 0a  tform....    #..
1b10: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73      # NOTE: This
1b20: 20 73 68 6f 75 6c 64 20 77 6f 72 6b 20 70 72 6f   should work pro
1b30: 70 65 72 6c 79 20 69 6e 20 62 6f 74 68 20 54 63  perly in both Tc
1b40: 6c 20 61 6e 64 20 45 61 67 6c 65 2e 0d 0a 20 20  l and Eagle...  
1b50: 20 20 23 20 20 20 20 20 20 20 4e 6f 72 6d 61 6c    #       Normal
1b60: 69 7a 65 20 74 6f 20 61 6e 20 6f 70 65 72 61 74  ize to an operat
1b70: 69 6e 67 20 73 79 73 74 65 6d 20 6e 61 74 69 76  ing system nativ
1b80: 65 20 70 61 74 68 2e 0d 0a 20 20 20 20 23 0d 0a  e path...    #..
1b90: 20 20 20 20 73 65 74 20 64 69 72 20 5b 66 69 6c      set dir [fil
1ba0: 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 24 64 69  e nativename $di
1bb0: 72 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20  r]....    #..   
1bc0: 20 23 20 4e 4f 54 45 3a 20 4f 6e 20 57 69 6e 64   # NOTE: On Wind
1bd0: 6f 77 73 2c 20 75 73 65 20 50 41 54 48 3b 20 6f  ows, use PATH; o
1be0: 74 68 65 72 77 69 73 65 20 28 69 2e 65 2e 20 55  therwise (i.e. U
1bf0: 6e 69 78 29 2c 20 75 73 65 0d 0a 20 20 20 20 23  nix), use..    #
1c00: 20 20 20 20 20 20 20 4c 44 5f 4c 49 42 52 41 52         LD_LIBRAR
1c10: 59 5f 50 41 54 48 2e 0d 0a 20 20 20 20 23 0d 0a  Y_PATH...    #..
1c20: 20 20 20 20 69 66 20 7b 5b 69 73 57 69 6e 64 6f      if {[isWindo
1c30: 77 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ws]} then {..   
1c40: 20 20 20 73 65 74 20 6e 61 6d 65 20 50 41 54 48     set name PATH
1c50: 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a  ..    } else {..
1c60: 20 20 20 20 20 20 73 65 74 20 6e 61 6d 65 20 4c        set name L
1c70: 44 5f 4c 49 42 52 41 52 59 5f 50 41 54 48 0d 0a  D_LIBRARY_PATH..
1c80: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a      }....    #..
1c90: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 6b 65      # NOTE: Make
1ca0: 20 73 75 72 65 20 74 68 65 20 64 69 72 65 63 74   sure the direct
1cb0: 6f 72 79 20 69 73 20 69 6e 20 74 68 65 20 6c 6f  ory is in the lo
1cc0: 61 64 65 72 20 73 65 61 72 63 68 0d 0a 20 20 20  ader search..   
1cd0: 20 23 20 20 20 20 20 20 20 70 61 74 68 2e 0d 0a   #       path...
1ce0: 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 5b      #..    if {[
1cf0: 69 6e 66 6f 20 65 78 69 73 74 73 20 74 63 6c 5f  info exists tcl_
1d00: 70 6c 61 74 66 6f 72 6d 28 70 61 74 68 53 65 70  platform(pathSep
1d10: 61 72 61 74 6f 72 29 5d 7d 20 74 68 65 6e 20 7b  arator)]} then {
1d20: 0d 0a 20 20 20 20 20 20 73 65 74 20 73 65 70 61  ..      set sepa
1d30: 72 61 74 6f 72 20 24 74 63 6c 5f 70 6c 61 74 66  rator $tcl_platf
1d40: 6f 72 6d 28 70 61 74 68 53 65 70 61 72 61 74 6f  orm(pathSeparato
1d50: 72 29 0d 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  r)..    } elseif
1d60: 20 7b 5b 69 73 57 69 6e 64 6f 77 73 5d 7d 20 74   {[isWindows]} t
1d70: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74  hen {..      set
1d80: 20 73 65 70 61 72 61 74 6f 72 20 5c 3b 0d 0a 20   separator \;.. 
1d90: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
1da0: 20 20 20 73 65 74 20 73 65 70 61 72 61 74 6f 72     set separator
1db0: 20 3a 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20   :..    }....   
1dc0: 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20   #..    # NOTE: 
1dd0: 44 6f 65 73 20 74 68 65 20 6e 65 63 65 73 73 61  Does the necessa
1de0: 72 79 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76  ry environment v
1df0: 61 72 69 61 62 6c 65 20 65 78 69 73 74 3f 0d 0a  ariable exist?..
1e00: 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 5b      #..    if {[
1e10: 69 6e 66 6f 20 65 78 69 73 74 73 20 65 6e 76 28  info exists env(
1e20: 24 6e 61 6d 65 29 5d 7d 20 74 68 65 6e 20 7b 0d  $name)]} then {.
1e30: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
1e40: 23 20 4e 4f 54 45 3a 20 57 65 20 6e 65 65 64 20  # NOTE: We need 
1e50: 74 6f 20 73 65 70 61 72 61 74 65 20 74 68 65 20  to separate the 
1e60: 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e 20 74  directories in t
1e70: 68 65 20 70 61 74 68 0d 0a 20 20 20 20 20 20 23  he path..      #
1e80: 20 20 20 20 20 20 20 73 6f 20 74 68 61 74 20 77         so that w
1e90: 65 20 63 61 6e 20 73 65 6c 65 63 74 69 76 65 6c  e can selectivel
1ea0: 79 20 72 65 6d 6f 76 65 20 74 68 65 20 6f 6e 65  y remove the one
1eb0: 20 77 65 20 61 72 65 0d 0a 20 20 20 20 20 20 23   we are..      #
1ec0: 20 20 20 20 20 20 20 6c 6f 6f 6b 69 6e 67 20 66         looking f
1ed0: 6f 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  or...      #..  
1ee0: 20 20 20 20 73 65 74 20 64 69 72 73 20 5b 73 70      set dirs [sp
1ef0: 6c 69 74 20 24 65 6e 76 28 24 6e 61 6d 65 29 20  lit $env($name) 
1f00: 24 73 65 70 61 72 61 74 6f 72 5d 0d 0a 0d 0a 20  $separator].... 
1f10: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
1f20: 42 55 47 42 55 47 3a 20 43 6f 6e 73 69 64 65 72  BUGBUG: Consider
1f30: 20 65 78 61 63 74 20 63 61 73 65 20 6f 6e 6c 79   exact case only
1f40: 20 66 6f 72 20 6e 6f 77 2e 0d 0a 20 20 20 20 20   for now...     
1f50: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 69 6e   #..      set in
1f60: 64 65 78 20 5b 6c 73 65 61 72 63 68 20 2d 65 78  dex [lsearch -ex
1f70: 61 63 74 20 24 64 69 72 73 20 24 64 69 72 5d 0d  act $dirs $dir].
1f80: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
1f90: 20 20 23 20 4e 4f 54 45 3a 20 49 73 20 74 68 65    # NOTE: Is the
1fa0: 20 64 69 72 65 63 74 6f 72 79 20 69 6e 20 74 68   directory in th
1fb0: 65 20 6c 6f 61 64 65 72 20 73 65 61 72 63 68 20  e loader search 
1fc0: 70 61 74 68 3f 0d 0a 20 20 20 20 20 20 23 0d 0a  path?..      #..
1fd0: 20 20 20 20 20 20 69 66 20 7b 24 69 6e 64 65 78        if {$index
1fe0: 20 21 3d 20 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a   != -1} then {..
1ff0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
2000: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 6d 6f 76     # NOTE: Remov
2010: 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20  e the directory 
2020: 66 72 6f 6d 20 74 68 65 20 6c 6f 61 64 65 72 20  from the loader 
2030: 73 65 61 72 63 68 20 70 61 74 68 2e 0d 0a 20 20  search path...  
2040: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
2050: 20 73 65 74 20 64 69 72 73 20 5b 6c 72 65 70 6c   set dirs [lrepl
2060: 61 63 65 20 24 64 69 72 73 20 24 69 6e 64 65 78  ace $dirs $index
2070: 20 24 69 6e 64 65 78 5d 0d 0a 0d 0a 20 20 20 20   $index]....    
2080: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
2090: 20 4e 4f 54 45 3a 20 52 65 70 6c 61 63 65 20 74   NOTE: Replace t
20a0: 68 65 20 6f 72 69 67 69 6e 61 6c 20 6c 6f 61 64  he original load
20b0: 65 72 20 73 65 61 72 63 68 20 70 61 74 68 20 77  er search path w
20c0: 69 74 68 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ith..        #  
20d0: 20 20 20 20 20 6f 75 72 20 6d 6f 64 69 66 69 65       our modifie
20e0: 64 20 6f 6e 65 2e 0d 0a 20 20 20 20 20 20 20 20  d one...        
20f0: 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 65  #..        set e
2100: 6e 76 28 24 6e 61 6d 65 29 20 5b 6a 6f 69 6e 20  nv($name) [join 
2110: 24 64 69 72 73 20 24 73 65 70 61 72 61 74 6f 72  $dirs $separator
2120: 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  ]....        #..
2130: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE: 
2140: 59 65 73 2c 20 77 65 20 61 6c 74 65 72 65 64 20  Yes, we altered 
2150: 74 68 65 20 73 65 61 72 63 68 20 70 61 74 68 2e  the search path.
2160: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
2170: 20 20 20 20 20 72 65 74 75 72 6e 20 74 72 75 65       return true
2180: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
2190: 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23  ....    #..    #
21a0: 20 4e 4f 54 45 3a 20 4e 6f 2c 20 77 65 20 64 69   NOTE: No, we di
21b0: 64 20 6e 6f 74 20 61 6c 74 65 72 20 74 68 65 20  d not alter the 
21c0: 73 65 61 72 63 68 20 70 61 74 68 2e 0d 0a 20 20  search path...  
21d0: 20 20 23 0d 0a 20 20 20 20 72 65 74 75 72 6e 20    #..    return 
21e0: 66 61 6c 73 65 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20  false..  }..... 
21f0: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68   #..  # NOTE: Th
2200: 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74  is procedure ret
2210: 75 72 6e 73 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66  urns non-zero if
2220: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 66   the specified f
2230: 69 6c 65 20 6e 61 6d 65 73 20 72 65 66 65 72 0d  ile names refer.
2240: 0a 20 20 23 20 20 20 20 20 20 20 74 6f 20 74 68  .  #       to th
2250: 65 20 73 61 6d 65 20 66 69 6c 65 2c 20 75 73 69  e same file, usi
2260: 6e 67 20 74 68 65 20 6d 6f 73 74 20 72 6f 62 75  ng the most robu
2270: 73 74 20 6d 65 74 68 6f 64 20 61 76 61 69 6c 61  st method availa
2280: 62 6c 65 20 66 6f 72 20 74 68 65 0d 0a 20 20 23  ble for the..  #
2290: 20 20 20 20 20 20 20 73 63 72 69 70 74 20 65 6e         script en
22a0: 67 69 6e 65 20 61 6e 64 20 70 6c 61 74 66 6f 72  gine and platfor
22b0: 6d 2e 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20  m...  #..  proc 
22c0: 69 73 53 61 6d 65 46 69 6c 65 4e 61 6d 65 20 7b  isSameFileName {
22d0: 20 66 69 6c 65 4e 61 6d 65 31 20 66 69 6c 65 4e   fileName1 fileN
22e0: 61 6d 65 32 20 7d 20 7b 0d 0a 20 20 20 20 69 66  ame2 } {..    if
22f0: 20 7b 5b 69 73 45 61 67 6c 65 5d 7d 20 74 68 65   {[isEagle]} the
2300: 6e 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75 72  n {..      retur
2310: 6e 20 5b 66 69 6c 65 20 73 61 6d 65 20 24 66 69  n [file same $fi
2320: 6c 65 4e 61 6d 65 31 20 24 66 69 6c 65 4e 61 6d  leName1 $fileNam
2330: 65 32 5d 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20  e2]..    } else 
2340: 7b 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 73  {..      if {[is
2350: 57 69 6e 64 6f 77 73 5d 7d 20 74 68 65 6e 20 7b  Windows]} then {
2360: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
2370: 20 5b 73 74 72 69 6e 67 20 65 71 75 61 6c 20 2d   [string equal -
2380: 6e 6f 63 61 73 65 20 24 66 69 6c 65 4e 61 6d 65  nocase $fileName
2390: 31 20 24 66 69 6c 65 4e 61 6d 65 32 5d 0d 0a 20  1 $fileName2].. 
23a0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
23b0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 73         return [s
23c0: 74 72 69 6e 67 20 65 71 75 61 6c 20 24 66 69 6c  tring equal $fil
23d0: 65 4e 61 6d 65 31 20 24 66 69 6c 65 4e 61 6d 65  eName1 $fileName
23e0: 32 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20  2]..      }..   
23f0: 20 7d 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d   }..  }.....  #.
2400: 0a 20 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 69  .  # NOTE: Provi
2410: 64 65 20 74 68 65 20 45 61 67 6c 65 20 22 70 6c  de the Eagle "pl
2420: 61 74 66 6f 72 6d 22 20 70 61 63 6b 61 67 65 20  atform" package 
2430: 74 6f 20 74 68 65 20 69 6e 74 65 72 70 72 65 74  to the interpret
2440: 65 72 2e 0d 0a 20 20 23 0d 0a 20 20 70 61 63 6b  er...  #..  pack
2450: 61 67 65 20 70 72 6f 76 69 64 65 20 45 61 67 6c  age provide Eagl
2460: 65 2e 50 6c 61 74 66 6f 72 6d 20 5c 0d 0a 20 20  e.Platform \..  
2470: 20 20 5b 65 78 70 72 20 7b 5b 69 73 45 61 67 6c    [expr {[isEagl
2480: 65 5d 20 3f 20 5b 69 6e 66 6f 20 65 6e 67 69 6e  e] ? [info engin
2490: 65 20 50 61 74 63 68 4c 65 76 65 6c 5d 20 3a 20  e PatchLevel] : 
24a0: 22 31 2e 30 22 7d 5d 0d 0a 7d 0d 0a 0c           "1.0"}]..}...