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 }...