System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 571a668d4b79b87704ba4a31c7d4d191a08195a0:


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 69 6d 2e 65 61 67 6c 65  .#..# shim.eagle
0060: 20 2d 2d 0d 0a 23 0d 0a 23 20 45 78 74 65 6e 73   --..#..# Extens
0070: 69 62 6c 65 20 41 64 61 70 74 61 62 6c 65 20 47  ible Adaptable G
0080: 65 6e 65 72 61 6c 69 7a 65 64 20 4c 6f 67 69 63  eneralized Logic
0090: 20 45 6e 67 69 6e 65 20 28 45 61 67 6c 65 29 0d   Engine (Eagle).
00a0: 0a 23 20 45 61 67 6c 65 20 5b 4e 61 74 69 76 65  .# Eagle [Native
00b0: 20 54 63 6c 5d 20 53 68 69 6d 20 50 61 63 6b 61   Tcl] Shim Packa
00c0: 67 65 20 46 69 6c 65 0d 0a 23 0d 0a 23 20 43 6f  ge File..#..# Co
00d0: 70 79 72 69 67 68 74 20 28 63 29 20 32 30 30 37  pyright (c) 2007
00e0: 2d 32 30 31 32 20 62 79 20 4a 6f 65 20 4d 69 73  -2012 by Joe Mis
00f0: 74 61 63 68 6b 69 6e 2e 20 20 41 6c 6c 20 72 69  tachkin.  All ri
0100: 67 68 74 73 20 72 65 73 65 72 76 65 64 2e 0d 0a  ghts reserved...
0110: 23 0d 0a 23 20 53 65 65 20 74 68 65 20 66 69 6c  #..# See the fil
0120: 65 20 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73  e "license.terms
0130: 22 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f  " for informatio
0140: 6e 20 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 72  n on usage and r
0150: 65 64 69 73 74 72 69 62 75 74 69 6f 6e 20 6f 66  edistribution of
0160: 0d 0a 23 20 74 68 69 73 20 66 69 6c 65 2c 20 61  ..# this file, a
0170: 6e 64 20 66 6f 72 20 61 20 44 49 53 43 4c 41 49  nd for a DISCLAI
0180: 4d 45 52 20 4f 46 20 41 4c 4c 20 57 41 52 52 41  MER OF ALL WARRA
0190: 4e 54 49 45 53 2e 0d 0a 23 0d 0a 23 20 52 43 53  NTIES...#..# RCS
01a0: 3a 20 40 28 23 29 20 24 49 64 3a 20 24 0d 0a 23  : @(#) $Id: $..#
01b0: 0d 0a 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 23 23 23  ################
0200: 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20  #....#..# NOTE: 
0210: 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d 65  Use our own name
0220: 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61 75  space here becau
0230: 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20 77  se even though w
0240: 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74 6c  e do not directl
0250: 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70 6f  y..#       suppo
0260: 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f 75  rt namespaces ou
0270: 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20 6e  rselves, we do n
0280: 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c 75  ot want to pollu
0290: 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a 23  te the global..#
02a0: 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63 65         namespace
02b0: 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74 20   if this script 
02c0: 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75 70  actually ends up
02d0: 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 64   being evaluated
02e0: 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61 6d   in Tcl...#..nam
02f0: 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45 61  espace eval ::Ea
0300: 67 6c 65 20 7b 0d 0a 20 20 23 0d 0a 20 20 23 20  gle {..  #..  # 
0310: 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65  NOTE: This proce
0320: 64 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65  dure returns the
0330: 20 5b 66 6f 72 6d 61 74 5d 20 6d 6f 64 69 66 69   [format] modifi
0340: 65 72 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20  er necessary to 
0350: 66 6f 72 63 65 0d 0a 20 20 23 20 20 20 20 20 20  force..  #      
0360: 20 6e 61 74 69 76 65 20 54 63 6c 20 74 6f 20 74   native Tcl to t
0370: 72 65 61 74 20 74 68 65 20 73 70 65 63 69 66 69  reat the specifi
0380: 65 64 20 76 61 6c 75 65 20 61 73 20 61 20 36 34  ed value as a 64
0390: 2d 62 69 74 20 69 6e 74 65 67 65 72 2e 0d 0a 20  -bit integer... 
03a0: 20 23 0d 0a 20 20 70 72 6f 63 20 67 65 74 4c 65   #..  proc getLe
03b0: 6e 67 74 68 4d 6f 64 69 66 69 65 72 20 7b 20 76  ngthModifier { v
03c0: 61 6c 75 65 20 7d 20 7b 0d 0a 20 20 20 20 23 0d  alue } {..    #.
03d0: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69  .    # NOTE: Thi
03e0: 73 20 73 68 6f 75 6c 64 20 77 6f 72 6b 20 70 72  s should work pr
03f0: 6f 70 65 72 6c 79 20 69 6e 20 62 6f 74 68 20 54  operly in both T
0400: 63 6c 20 61 6e 64 20 45 61 67 6c 65 2e 0d 0a 20  cl and Eagle... 
0410: 20 20 20 23 0d 0a 20 20 20 20 72 65 74 75 72 6e     #..    return
0420: 20 5b 65 78 70 72 20 7b 69 6e 74 28 24 76 61 6c   [expr {int($val
0430: 75 65 29 20 21 3d 20 77 69 64 65 28 24 76 61 6c  ue) != wide($val
0440: 75 65 29 20 3f 20 22 6c 22 20 3a 20 22 22 7d 5d  ue) ? "l" : ""}]
0450: 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20  ..  }.....  #.. 
0460: 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72   # NOTE: This pr
0470: 6f 63 65 64 75 72 65 20 69 73 20 75 73 65 64 20  ocedure is used 
0480: 74 6f 20 69 6e 74 65 72 63 65 70 74 20 63 61 6c  to intercept cal
0490: 6c 73 20 74 6f 20 74 68 65 20 45 61 67 6c 65 20  ls to the Eagle 
04a0: 5b 64 65 62 75 67 5d 0d 0a 20 20 23 20 20 20 20  [debug]..  #    
04b0: 20 20 20 63 6f 6d 6d 61 6e 64 20 66 72 6f 6d 20     command from 
04c0: 6e 61 74 69 76 65 20 54 63 6c 20 73 63 72 69 70  native Tcl scrip
04d0: 74 73 20 28 65 2e 67 2e 20 5b 64 65 62 75 67 20  ts (e.g. [debug 
04e0: 62 72 65 61 6b 5d 2c 20 65 74 63 29 2e 20 20 49  break], etc).  I
04f0: 74 0d 0a 20 20 23 20 20 20 20 20 20 20 73 69 6d  t..  #       sim
0500: 70 6c 79 20 70 72 69 6e 74 73 20 61 20 64 69 61  ply prints a dia
0510: 67 6e 6f 73 74 69 63 20 6d 65 73 73 61 67 65 2e  gnostic message.
0520: 0d 0a 20 20 23 0d 0a 20 20 70 72 6f 63 20 64 65  ..  #..  proc de
0530: 62 75 67 20 7b 20 61 72 67 73 20 7d 20 7b 0d 0a  bug { args } {..
0540: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
0550: 45 3a 20 54 68 69 73 20 73 68 6f 75 6c 64 20 77  E: This should w
0560: 6f 72 6b 20 70 72 6f 70 65 72 6c 79 20 69 6e 20  ork properly in 
0570: 62 6f 74 68 20 54 63 6c 20 61 6e 64 20 45 61 67  both Tcl and Eag
0580: 6c 65 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  le...    #..    
0590: 70 75 74 73 20 73 74 64 6f 75 74 20 5b 6c 72 61  puts stdout [lra
05a0: 6e 67 65 20 24 61 72 67 73 20 32 20 65 6e 64 5d  nge $args 2 end]
05b0: 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 23 0d 0a 20  ..  }.....  #.. 
05c0: 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 69 64 65   # NOTE: Provide
05d0: 20 74 68 65 20 45 61 67 6c 65 20 22 54 63 6c 20   the Eagle "Tcl 
05e0: 73 68 69 6d 22 20 70 61 63 6b 61 67 65 20 74 6f  shim" package to
05f0: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72   the interpreter
0600: 2e 0d 0a 20 20 23 0d 0a 20 20 70 61 63 6b 61 67  ...  #..  packag
0610: 65 20 70 72 6f 76 69 64 65 20 45 61 67 6c 65 2e  e provide Eagle.
0620: 54 63 6c 2e 53 68 69 6d 20 5c 0d 0a 20 20 20 20  Tcl.Shim \..    
0630: 5b 65 78 70 72 20 7b 5b 69 73 45 61 67 6c 65 5d  [expr {[isEagle]
0640: 20 3f 20 5b 69 6e 66 6f 20 65 6e 67 69 6e 65 20   ? [info engine 
0650: 50 61 74 63 68 4c 65 76 65 6c 5d 20 3a 20 22 31  PatchLevel] : "1
0660: 2e 30 22 7d 5d 0d 0a 7d 0d 0a 0c                 .0"}]..}...