System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact dd8443e036c580645dd74ee61358e1d286974197:


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 73 68 65 6c 6c 2e 65 61 67 6c  .#..# shell.eagl
0060: 65 20 2d 2d 0d 0a 23 0d 0a 23 20 45 78 74 65 6e  e --..#..# Exten
0070: 73 69 62 6c 65 20 41 64 61 70 74 61 62 6c 65 20  sible Adaptable 
0080: 47 65 6e 65 72 61 6c 69 7a 65 64 20 4c 6f 67 69  Generalized Logi
0090: 63 20 45 6e 67 69 6e 65 20 28 45 61 67 6c 65 29  c Engine (Eagle)
00a0: 0d 0a 23 20 45 61 67 6c 65 20 53 68 65 6c 6c 20  ..# Eagle Shell 
00b0: 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 46  Initialization F
00c0: 69 6c 65 0d 0a 23 0d 0a 23 20 43 6f 70 79 72 69  ile..#..# Copyri
00d0: 67 68 74 20 28 63 29 20 32 30 30 37 2d 32 30 31  ght (c) 2007-201
00e0: 32 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 63 68  2 by Joe Mistach
00f0: 6b 69 6e 2e 20 20 41 6c 6c 20 72 69 67 68 74 73  kin.  All rights
0100: 20 72 65 73 65 72 76 65 64 2e 0d 0a 23 0d 0a 23   reserved...#..#
0110: 20 53 65 65 20 74 68 65 20 66 69 6c 65 20 22 6c   See the file "l
0120: 69 63 65 6e 73 65 2e 74 65 72 6d 73 22 20 66 6f  icense.terms" fo
0130: 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e  r information on
0140: 20 75 73 61 67 65 20 61 6e 64 20 72 65 64 69 73   usage and redis
0150: 74 72 69 62 75 74 69 6f 6e 20 6f 66 0d 0a 23 20  tribution of..# 
0160: 74 68 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 66  this file, and f
0170: 6f 72 20 61 20 44 49 53 43 4c 41 49 4d 45 52 20  or a DISCLAIMER 
0180: 4f 46 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 45  OF ALL WARRANTIE
0190: 53 2e 0d 0a 23 0d 0a 23 20 52 43 53 3a 20 40 28  S...#..# RCS: @(
01a0: 23 29 20 24 49 64 3a 20 24 0d 0a 23 0d 0a 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 23 0d 0a 0d  #############...
0200: 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 55 73 65 20  .#..# NOTE: Use 
0210: 6f 75 72 20 6f 77 6e 20 6e 61 6d 65 73 70 61 63  our own namespac
0220: 65 20 68 65 72 65 20 62 65 63 61 75 73 65 20 65  e here because e
0230: 76 65 6e 20 74 68 6f 75 67 68 20 77 65 20 64 6f  ven though we do
0240: 20 6e 6f 74 20 64 69 72 65 63 74 6c 79 0d 0a 23   not directly..#
0250: 20 20 20 20 20 20 20 73 75 70 70 6f 72 74 20 6e         support n
0260: 61 6d 65 73 70 61 63 65 73 20 6f 75 72 73 65 6c  amespaces oursel
0270: 76 65 73 2c 20 77 65 20 64 6f 20 6e 6f 74 20 77  ves, we do not w
0280: 61 6e 74 20 74 6f 20 70 6f 6c 6c 75 74 65 20 74  ant to pollute t
0290: 68 65 20 67 6c 6f 62 61 6c 0d 0a 23 20 20 20 20  he global..#    
02a0: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 69 66 20     namespace if 
02b0: 74 68 69 73 20 73 63 72 69 70 74 20 61 63 74 75  this script actu
02c0: 61 6c 6c 79 20 65 6e 64 73 20 75 70 20 62 65 69  ally ends up bei
02d0: 6e 67 20 65 76 61 6c 75 61 74 65 64 20 69 6e 20  ng evaluated in 
02e0: 54 63 6c 2e 0d 0a 23 0d 0a 6e 61 6d 65 73 70 61  Tcl...#..namespa
02f0: 63 65 20 65 76 61 6c 20 3a 3a 45 61 67 6c 65 20  ce eval ::Eagle 
0300: 7b 0d 0a 20 20 69 66 20 7b 5b 69 73 45 61 67 6c  {..  if {[isEagl
0310: 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  e]} then {..    
0320: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0350: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0360: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 20  ###########..   
0370: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23   ###############
0380: 23 23 23 23 23 23 23 23 23 23 23 23 23 20 42 45  ############# BE
0390: 47 49 4e 20 45 61 67 6c 65 20 4f 4e 4c 59 20 23  GIN Eagle ONLY #
03a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
03b0: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20  ############..  
03c0: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
03d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
03e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
03f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0400: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
0410: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f  .    #..    # NO
0420: 54 45 3a 20 43 6f 6d 6d 61 6e 64 73 20 73 70 65  TE: Commands spe
0430: 63 69 66 69 63 20 74 6f 20 69 6e 69 74 69 61 6c  cific to initial
0440: 69 7a 69 6e 67 20 74 68 65 20 45 61 67 6c 65 20  izing the Eagle 
0450: 69 6e 74 65 72 61 63 74 69 76 65 20 73 68 65 6c  interactive shel
0460: 6c 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 65  l..    #       e
0470: 6e 76 69 72 6f 6e 6d 65 6e 74 20 73 68 6f 75 6c  nvironment shoul
0480: 64 20 62 65 20 70 6c 61 63 65 64 20 68 65 72 65  d be placed here
0490: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 70 72  ...    #..    pr
04a0: 6f 63 20 68 65 6c 70 20 7b 20 61 72 67 73 20 7d  oc help { args }
04b0: 20 7b 0d 0a 20 20 20 20 20 20 23 20 3c 68 65 6c   {..      # <hel
04c0: 70 3e 0d 0a 20 20 20 20 20 20 23 20 44 69 73 70  p>..      # Disp
04d0: 6c 61 79 73 20 69 6e 74 65 72 61 63 74 69 76 65  lays interactive
04e0: 20 63 6f 6d 6d 61 6e 64 20 68 65 6c 70 20 75 73   command help us
04f0: 69 6e 67 20 74 68 65 20 69 6e 74 65 72 61 63 74  ing the interact
0500: 69 76 65 20 22 23 68 65 6c 70 22 0d 0a 20 20 20  ive "#help"..   
0510: 20 20 20 23 20 63 6f 6d 6d 61 6e 64 2e 0d 0a 20     # command... 
0520: 20 20 20 20 20 23 20 3c 2f 68 65 6c 70 3e 0d 0a       # </help>..
0530: 0d 0a 20 20 20 20 20 20 68 6f 73 74 20 72 65 73  ..      host res
0540: 75 6c 74 20 42 72 65 61 6b 20 5b 61 70 70 65 6e  ult Break [appen
0550: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
0560: 20 20 20 22 5c 6e 46 6f 72 20 69 6e 74 65 72 61     "\nFor intera
0570: 63 74 69 76 65 20 68 65 6c 70 20 70 6c 65 61 73  ctive help pleas
0580: 65 20 75 73 65 3a 20 23 68 65 6c 70 20 22 20 24  e use: #help " $
0590: 61 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  args \..        
05a0: 20 20 22 5c 6e 46 6f 72 20 63 6f 6d 6d 65 72 63    "\nFor commerc
05b0: 69 61 6c 20 73 75 70 70 6f 72 74 2c 20 70 6c 65  ial support, ple
05c0: 61 73 65 20 75 73 65 3a 20 23 73 75 70 70 6f 72  ase use: #suppor
05d0: 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 63  t\n"]....      c
05e0: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..        
05f0: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e  object invoke In
0600: 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74  terpreter.GetAct
0610: 69 76 65 20 48 6f 73 74 2e 57 72 69 74 65 4c 69  ive Host.WriteLi
0620: 6e 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  ne \..          
0630: 20 20 22 5c 6e 50 6c 65 61 73 65 20 70 72 65 73    "\nPlease pres
0640: 73 20 61 6e 79 20 6b 65 79 20 74 6f 20 63 6f 6e  s any key to con
0650: 74 69 6e 75 65 2e 2e 2e 5c 6e 22 0d 0a 0d 0a 20  tinue...\n".... 
0660: 20 20 20 20 20 20 20 73 65 74 20 6b 65 79 20 6e         set key n
0670: 75 6c 6c 3b 20 6f 62 6a 65 63 74 20 69 6e 76 6f  ull; object invo
0680: 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e 47  ke Interpreter.G
0690: 65 74 41 63 74 69 76 65 20 5c 0d 0a 20 20 20 20  etActive \..    
06a0: 20 20 20 20 20 20 20 20 48 6f 73 74 2e 52 65 61          Host.Rea
06b0: 64 4b 65 79 20 74 72 75 65 20 6b 65 79 0d 0a 20  dKey true key.. 
06c0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
06d0: 65 76 61 6c 20 6c 61 70 70 65 6e 64 20 63 6f 6d  eval lappend com
06e0: 6d 61 6e 64 20 23 68 65 6c 70 20 24 61 72 67 73  mand #help $args
06f0: 3b 20 64 65 62 75 67 20 69 63 6f 6d 6d 61 6e 64  ; debug icommand
0700: 20 24 63 6f 6d 6d 61 6e 64 0d 0a 20 20 20 20 7d   $command..    }
0710: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 23 73  .....    proc #s
0720: 75 70 70 6f 72 74 20 7b 7d 20 7b 0d 0a 20 20 20  upport {} {..   
0730: 20 20 20 23 20 3c 68 65 6c 70 3e 0d 0a 20 20 20     # <help>..   
0740: 20 20 20 23 20 53 68 6f 77 73 20 74 68 65 20 72     # Shows the r
0750: 65 71 75 69 72 65 6d 65 6e 74 73 20 66 6f 72 20  equirements for 
0760: 6f 62 74 61 69 6e 69 6e 67 20 63 6f 6d 6d 65 72  obtaining commer
0770: 63 69 61 6c 20 73 75 70 70 6f 72 74 20 61 6e 64  cial support and
0780: 2f 6f 72 0d 0a 20 20 20 20 20 20 23 20 72 65 64  /or..      # red
0790: 69 72 65 63 74 73 20 74 6f 20 74 68 65 20 61 70  irects to the ap
07a0: 70 72 6f 70 72 69 61 74 65 20 77 65 62 20 73 69  propriate web si
07b0: 74 65 20 75 73 69 6e 67 20 74 68 65 20 64 65 66  te using the def
07c0: 61 75 6c 74 20 62 72 6f 77 73 65 72 2e 0d 0a 20  ault browser... 
07d0: 20 20 20 20 20 23 20 3c 2f 68 65 6c 70 3e 0d 0a       # </help>..
07e0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74  ..      if {[cat
07f0: 63 68 20 7b 70 61 63 6b 61 67 65 20 72 65 71 75  ch {package requ
0800: 69 72 65 20 4c 69 63 65 6e 73 69 6e 67 2e 43 6f  ire Licensing.Co
0810: 72 65 7d 20 65 72 72 6f 72 28 31 29 5d 20 3d 3d  re} error(1)] ==
0820: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
0830: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
0840: 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 63   NOTE: Use the c
0850: 6f 6d 6d 61 6e 64 20 70 72 6f 76 69 64 65 64 20  ommand provided 
0860: 62 79 20 74 68 65 20 22 43 6f 72 65 22 20 70 6c  by the "Core" pl
0870: 75 67 69 6e 20 74 6f 20 6f 62 74 61 69 6e 0d 0a  ugin to obtain..
0880: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
0890: 74 68 65 20 73 75 70 70 6f 72 74 20 55 52 49 2e  the support URI.
08a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
08b0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20       if {[catch 
08c0: 7b 73 65 74 20 75 72 69 20 5b 73 75 70 70 6f 72  {set uri [suppor
08d0: 74 5d 7d 20 65 72 72 6f 72 28 32 29 5d 20 3d 3d  t]} error(2)] ==
08e0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
08f0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
0900: 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 6b 65 20     # NOTE: Make 
0910: 73 75 72 65 20 74 68 65 20 55 52 49 20 69 73 20  sure the URI is 
0920: 61 63 74 75 61 6c 6c 79 20 76 61 6c 69 64 2e 0d  actually valid..
0930: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20  .          #..  
0940: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72          if {[str
0950: 69 6e 67 20 6c 65 6e 67 74 68 20 24 75 72 69 5d  ing length $uri]
0960: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20   > 0} then {..  
0970: 20 20 20 20 20 20 20 20 20 20 65 78 65 63 20 2d            exec -
0980: 73 68 65 6c 6c 20 24 75 72 69 20 26 3b 20 72 65  shell $uri &; re
0990: 74 75 72 6e 0d 0a 20 20 20 20 20 20 20 20 20 20  turn..          
09a0: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
09b0: 20 20 20 20 20 20 73 65 74 20 65 72 72 6f 72 28        set error(
09c0: 33 29 20 22 69 6e 76 61 6c 69 64 20 73 75 70 70  3) "invalid supp
09d0: 6f 72 74 20 55 52 49 20 77 61 73 20 72 65 74 75  ort URI was retu
09e0: 72 6e 65 64 22 0d 0a 20 20 20 20 20 20 20 20 20  rned"..         
09f0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20   }..        }.. 
0a00: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
0a10: 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69  set fileName [fi
0a20: 6c 65 20 74 65 6d 70 6e 61 6d 65 5d 3b 20 73 65  le tempname]; se
0a30: 74 20 66 69 6c 65 44 61 74 61 20 22 22 0d 0a 0d  t fileData ""...
0a40: 0a 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 76  .      foreach v
0a50: 61 72 4e 61 6d 65 20 5b 6c 73 6f 72 74 20 5b 69  arName [lsort [i
0a60: 6e 66 6f 20 76 61 72 73 5d 5d 20 7b 0d 0a 20 20  nfo vars]] {..  
0a70: 20 20 20 20 20 20 69 66 20 7b 24 76 61 72 4e 61        if {$varNa
0a80: 6d 65 20 69 6e 20 5b 6c 69 73 74 20 66 69 6c 65  me in [list file
0a90: 44 61 74 61 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  Data]} then {.. 
0aa0: 20 20 20 20 20 20 20 20 20 63 6f 6e 74 69 6e 75           continu
0ab0: 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a  e..        }....
0ac0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 61 72 72          if {[arr
0ad0: 61 79 20 65 78 69 73 74 73 20 24 76 61 72 4e 61  ay exists $varNa
0ae0: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  me]} then {..   
0af0: 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 66 69         append fi
0b00: 6c 65 44 61 74 61 20 5b 61 70 70 65 6e 64 41 72  leData [appendAr
0b10: 67 73 20 5c 6e 20 5c 0d 0a 20 20 20 20 20 20 20  gs \n \..       
0b20: 20 20 20 20 20 20 20 5b 6c 69 73 74 20 61 72 72         [list arr
0b30: 61 79 20 73 65 74 20 24 76 61 72 4e 61 6d 65 20  ay set $varName 
0b40: 5b 61 72 72 61 79 20 67 65 74 20 24 76 61 72 4e  [array get $varN
0b50: 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20 20 20 20 20  ame]]]..        
0b60: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
0b70: 20 20 20 20 61 70 70 65 6e 64 20 66 69 6c 65 44      append fileD
0b80: 61 74 61 20 5b 61 70 70 65 6e 64 41 72 67 73 20  ata [appendArgs 
0b90: 5c 6e 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  \n \..          
0ba0: 20 20 20 20 5b 6c 69 73 74 20 73 65 74 20 24 76      [list set $v
0bb0: 61 72 4e 61 6d 65 20 5b 73 65 74 20 24 76 61 72  arName [set $var
0bc0: 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20 20 20 20  Name]]]..       
0bd0: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20   }..      }.... 
0be0: 20 20 20 20 20 61 70 70 65 6e 64 20 66 69 6c 65       append file
0bf0: 44 61 74 61 20 5c 6e 3b 20 77 72 69 74 65 46 69  Data \n; writeFi
0c00: 6c 65 20 24 66 69 6c 65 4e 61 6d 65 20 24 66 69  le $fileName $fi
0c10: 6c 65 44 61 74 61 0d 0a 20 20 20 20 20 20 73 65  leData..      se
0c20: 74 20 3a 3a 65 61 67 6c 65 5f 73 68 65 6c 6c 28  t ::eagle_shell(
0c30: 65 72 72 6f 72 46 69 6c 65 4e 61 6d 65 29 20 24  errorFileName) $
0c40: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20  fileName....    
0c50: 20 20 65 72 72 6f 72 20 5b 61 70 70 65 6e 64 41    error [appendA
0c60: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
0c70: 20 22 5c 6e 5c 6e 49 6e 20 6f 72 64 65 72 20 74   "\n\nIn order t
0c80: 6f 20 6f 62 74 61 69 6e 20 63 6f 6d 6d 65 72 63  o obtain commerc
0c90: 69 61 6c 20 73 75 70 70 6f 72 74 2c 20 61 74 20  ial support, at 
0ca0: 6c 65 61 73 74 20 22 20 5c 0d 0a 20 20 20 20 20  least " \..     
0cb0: 20 20 20 20 20 22 6f 6e 65 20 6f 66 20 74 68 65       "one of the
0cc0: 5c 6e 66 6f 6c 6c 6f 77 69 6e 67 20 72 65 71 75  \nfollowing requ
0cd0: 69 72 65 6d 65 6e 74 73 20 6d 75 73 74 20 62 65  irements must be
0ce0: 20 6d 65 74 3a 5c 6e 5c 6e 22 20 5c 0d 0a 20 20   met:\n\n" \..  
0cf0: 20 20 20 20 20 20 20 20 22 5c 74 31 2e 20 56 61          "\t1. Va
0d00: 6c 69 64 2c 20 6e 6f 6e 2d 65 78 70 69 72 65 64  lid, non-expired
0d10: 20 63 6f 6d 6d 65 72 63 69 61 6c 20 6c 69 63 65   commercial lice
0d20: 6e 73 65 20 61 67 72 65 65 6d 65 6e 74 5c 6e 22  nse agreement\n"
0d30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 5c   \..          "\
0d40: 74 20 20 20 66 6f 72 20 45 61 67 6c 65 20 45 6e  t   for Eagle En
0d50: 74 65 72 70 72 69 73 65 20 45 64 69 74 69 6f 6e  terprise Edition
0d60: 2e 5c 6e 5c 6e 22 20 5c 0d 0a 20 20 20 20 20 20  .\n\n" \..      
0d70: 20 20 20 20 22 5c 74 32 2e 20 56 61 6c 69 64 2c      "\t2. Valid,
0d80: 20 6e 6f 6e 2d 65 78 70 69 72 65 64 20 63 6f 6d   non-expired com
0d90: 6d 65 72 63 69 61 6c 20 73 75 70 70 6f 72 74 20  mercial support 
0da0: 63 6f 6e 74 72 61 63 74 5c 6e 22 20 5c 0d 0a 20  contract\n" \.. 
0db0: 20 20 20 20 20 20 20 20 20 22 5c 74 20 20 20 66           "\t   f
0dc0: 6f 72 20 45 61 67 6c 65 20 53 74 61 6e 64 61 72  or Eagle Standar
0dd0: 64 20 45 64 69 74 69 6f 6e 2e 5c 6e 5c 6e 22 20  d Edition.\n\n" 
0de0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 54 68  \..          "Th
0df0: 65 20 6f 72 69 67 69 6e 61 6c 20 65 72 72 6f 72  e original error
0e00: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 61 73   information was
0e10: 20 73 61 76 65 64 20 74 6f 20 74 68 65 20 66 69   saved to the fi
0e20: 6c 65 3a 5c 6e 5c 6e 22 20 5c 0d 0a 20 20 20 20  le:\n\n" \..    
0e30: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 72 65        [string re
0e40: 70 65 61 74 20 2d 20 36 30 5d 20 5c 6e 20 24 66  peat - 60] \n $f
0e50: 69 6c 65 4e 61 6d 65 20 5c 6e 20 5b 73 74 72 69  ileName \n [stri
0e60: 6e 67 20 72 65 70 65 61 74 20 2d 20 36 30 5d 20  ng repeat - 60] 
0e70: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 5c 6e  \..          "\n
0e80: 5c 6e 50 6c 65 61 73 65 20 70 72 6f 76 69 64 65  \nPlease provide
0e90: 20 74 68 69 73 20 66 69 6c 65 20 77 68 65 6e 20   this file when 
0ea0: 63 6f 6e 74 61 63 74 69 6e 67 20 73 75 70 70 6f  contacting suppo
0eb0: 72 74 2e 22 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d  rt."]..    }....
0ec0: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23  .    ###########
0ed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ef0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f10: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23  ..    ##########
0f20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f30: 23 23 23 20 45 4e 44 20 45 61 67 6c 65 20 4f 4e  ### END Eagle ON
0f40: 4c 59 20 23 23 23 23 23 23 23 23 23 23 23 23 23  LY #############
0f50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f60: 23 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23  #..    #########
0f70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fb0: 23 23 0d 0a 20 20 7d 20 65 6c 73 65 20 7b 0d 0a  ##..  } else {..
0fc0: 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23      ############
0fd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ff0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
1010: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23  .    ###########
1020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1030: 23 23 20 42 45 47 49 4e 20 54 63 6c 20 4f 4e 4c  ## BEGIN Tcl ONL
1040: 59 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23  Y ##############
1050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1060: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23  ..    ##########
1070: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1090: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10b0: 23 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  #....    #..    
10c0: 23 20 4e 4f 54 45 3a 20 43 6f 6d 6d 61 6e 64 73  # NOTE: Commands
10d0: 20 73 70 65 63 69 66 69 63 20 74 6f 20 69 6e 69   specific to ini
10e0: 74 69 61 6c 69 7a 69 6e 67 20 74 68 65 20 54 63  tializing the Tc
10f0: 6c 20 69 6e 74 65 72 61 63 74 69 76 65 20 73 68  l interactive sh
1100: 65 6c 6c 0d 0a 20 20 20 20 23 20 20 20 20 20 20  ell..    #      
1110: 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 73 68 6f   environment sho
1120: 75 6c 64 20 62 65 20 70 6c 61 63 65 64 20 68 65  uld be placed he
1130: 72 65 2e 0d 0a 20 20 20 20 23 0d 0a 0d 0a 20 20  re...    #....  
1140: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
1150: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1160: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1170: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1180: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20  #############.. 
1190: 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23     #############
11a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11b0: 23 20 45 4e 44 20 54 63 6c 20 4f 4e 4c 59 20 23  # END Tcl ONLY #
11c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
11e0: 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23      ############
11f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1200: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1210: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
1230: 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20 20  .  }.....  #..  
1240: 23 20 4e 4f 54 45 3a 20 50 72 6f 76 69 64 65 20  # NOTE: Provide 
1250: 74 68 65 20 45 61 67 6c 65 20 22 73 68 65 6c 6c  the Eagle "shell
1260: 22 20 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65  " package to the
1270: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20   interpreter... 
1280: 20 23 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 72   #..  package pr
1290: 6f 76 69 64 65 20 45 61 67 6c 65 2e 53 68 65 6c  ovide Eagle.Shel
12a0: 6c 20 5c 0d 0a 20 20 20 20 5b 65 78 70 72 20 7b  l \..    [expr {
12b0: 5b 69 73 45 61 67 6c 65 5d 20 3f 20 5b 69 6e 66  [isEagle] ? [inf
12c0: 6f 20 65 6e 67 69 6e 65 20 50 61 74 63 68 4c 65  o engine PatchLe
12d0: 76 65 6c 5d 20 3a 20 22 31 2e 30 22 7d 5d 0d 0a  vel] : "1.0"}]..
12e0: 7d 0d 0a 0c                                      }...