System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact d8c1affbe2f7a604337baf87191a8625e66f98ec:


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 63 6f 6d 6d 6f 6e 2e 65 61 67  .#..# common.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74  le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61  ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73  chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63  ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20   domain, use at 
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a  your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0110: 23 23 0d 0a 0d 0a 69 66 20 7b 5b 69 73 45 61 67  ##....if {[isEag
0120: 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 70  le]} then {..  p
0130: 72 6f 63 20 67 65 74 41 73 73 65 6d 62 6c 79 46  roc getAssemblyF
0140: 69 6c 65 4e 61 6d 65 20 7b 20 66 69 6c 65 4e 61  ileName { fileNa
0150: 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 72 65 74 75  me } {..    retu
0160: 72 6e 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 66  rn [file join [f
0170: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a 3a 70  ile dirname $::p
0180: 61 74 68 5d 20 62 69 6e 20 5c 0d 0a 20 20 20 20  ath] bin \..    
0190: 20 20 20 20 5b 65 78 70 72 20 7b 5b 68 61 76 65      [expr {[have
01a0: 43 6f 6e 73 74 72 61 69 6e 74 20 69 6d 61 67 65  Constraint image
01b0: 52 75 6e 74 69 6d 65 34 30 5d 20 3f 20 22 32 30  Runtime40] ? "20
01c0: 31 30 22 20 3a 20 22 32 30 30 38 22 7d 5d 20 5c  10" : "2008"}] \
01d0: 0d 0a 20 20 20 20 20 20 20 20 24 3a 3a 74 65 73  ..        $::tes
01e0: 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20  t_configuration 
01f0: 62 69 6e 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a  bin $fileName]..
0200: 20 20 7d 0d 0a 0c 0d 0a 20 20 70 72 6f 63 20 63    }.....  proc c
0210: 6f 70 79 41 73 73 65 6d 62 6c 79 20 7b 20 66 69  opyAssembly { fi
0220: 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20  leName } {..    
0230: 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 49  #..    # NOTE: I
0240: 66 20 77 65 20 63 61 6e 6e 6f 74 20 63 6f 70 79  f we cannot copy
0250: 20 74 68 65 20 66 69 6c 65 20 74 68 65 6e 20 69   the file then i
0260: 74 20 69 73 20 70 72 6f 62 61 62 6c 79 20 61 6c  t is probably al
0270: 72 65 61 64 79 20 6c 6f 61 64 65 64 2c 0d 0a 20  ready loaded,.. 
0280: 20 20 20 23 20 20 20 20 20 20 20 69 67 6e 6f 72     #       ignor
0290: 65 20 74 68 65 20 65 72 72 6f 72 2e 0d 0a 20 20  e the error...  
02a0: 20 20 23 0d 0a 20 20 20 20 63 61 74 63 68 20 7b    #..    catch {
02b0: 0d 0a 20 20 20 20 20 20 66 69 6c 65 20 63 6f 70  ..      file cop
02c0: 79 20 2d 66 6f 72 63 65 20 5b 67 65 74 41 73 73  y -force [getAss
02d0: 65 6d 62 6c 79 46 69 6c 65 4e 61 6d 65 20 24 66  emblyFileName $f
02e0: 69 6c 65 4e 61 6d 65 5d 20 5c 0d 0a 20 20 20 20  ileName] \..    
02f0: 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e        [file join
0300: 20 5b 69 6e 66 6f 20 62 69 6e 61 72 79 5d 20 24   [info binary] $
0310: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 7d  fileName]..    }
0320: 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 70 72 6f 63  ..  }.....  proc
0330: 20 6c 6f 61 64 41 73 73 65 6d 62 6c 79 20 7b 20   loadAssembly { 
0340: 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20  fileName } {..  
0350: 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b    set fileName [
0360: 67 65 74 41 73 73 65 6d 62 6c 79 46 69 6c 65 4e  getAssemblyFileN
0370: 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a  ame $fileName]..
0380: 0d 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68  ..    if {[catch
0390: 20 7b 73 65 74 20 61 73 73 65 6d 62 6c 79 20 5c   {set assembly \
03a0: 0d 0a 20 20 20 20 20 20 20 20 5b 6f 62 6a 65 63  ..        [objec
03b0: 74 20 6c 6f 61 64 20 2d 6c 6f 61 64 74 79 70 65  t load -loadtype
03c0: 20 46 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 5d   File $fileName]
03d0: 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d  }] == 0} then {.
03e0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
03f0: 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 64  # NOTE: Now, add
0400: 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 74   the necessary t
0410: 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 2e 0d  est constraint..
0420: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
0430: 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 5b 66  addConstraint [f
0440: 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b 66 69  ile rootname [fi
0450: 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d  le tail $fileNam
0460: 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a  e]]....      #..
0470: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65        # NOTE: Re
0480: 74 75 72 6e 20 74 68 65 20 66 75 6c 6c 20 70 61  turn the full pa
0490: 74 68 20 6f 66 20 74 68 65 20 6c 6f 61 64 65 64  th of the loaded
04a0: 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d   file...      #.
04b0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 66  .      return $f
04c0: 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 7d 0d 0a  ileName..    }..
04d0: 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 22 22 0d  ..    return "".
04e0: 0a 20 20 7d 0d 0a 0c 0d 0a 20 20 70 72 6f 63 20  .  }.....  proc 
04f0: 73 65 74 75 70 44 62 20 7b 66 69 6c 65 4e 61 6d  setupDb {fileNam
0500: 65 20 7b 6d 6f 64 65 20 22 22 7d 20 7b 64 65 6c  e {mode ""} {del
0510: 65 74 65 20 74 72 75 65 7d 20 7b 76 61 72 4e 61  ete true} {varNa
0520: 6d 65 20 64 62 7d 7d 20 7b 0d 0a 20 20 20 20 73  me db}} {..    s
0530: 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69 6c  et fileName [fil
0540: 65 20 6a 6f 69 6e 20 5b 67 65 74 54 65 6d 70 6f  e join [getTempo
0550: 72 61 72 79 50 61 74 68 5d 20 24 66 69 6c 65 4e  raryPath] $fileN
0560: 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b  ame]....    if {
0570: 24 64 65 6c 65 74 65 7d 20 74 68 65 6e 20 7b 0d  $delete} then {.
0580: 0a 20 20 20 20 20 20 63 61 74 63 68 20 7b 66 69  .      catch {fi
0590: 6c 65 20 64 65 6c 65 74 65 20 24 66 69 6c 65 4e  le delete $fileN
05a0: 61 6d 65 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20  ame}..    }.... 
05b0: 20 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e     upvar 1 $varN
05c0: 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 73 65  ame db....    se
05d0: 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 44 61  t connection {Da
05e0: 74 61 20 53 6f 75 72 63 65 3d 24 7b 66 69 6c 65  ta Source=${file
05f0: 4e 61 6d 65 7d 7d 0d 0a 0d 0a 20 20 20 20 69 66  Name}}....    if
0600: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
0610: 20 24 6d 6f 64 65 5d 20 3e 20 30 7d 20 74 68 65   $mode] > 0} the
0620: 6e 20 7b 0d 0a 20 20 20 20 20 20 61 70 70 65 6e  n {..      appen
0630: 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 4a  d connection {;J
0640: 6f 75 72 6e 61 6c 20 4d 6f 64 65 3d 24 7b 6d 6f  ournal Mode=${mo
0650: 64 65 7d 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20  de}}..    }.... 
0660: 20 20 20 73 65 74 20 64 62 20 5b 73 71 6c 20 6f     set db [sql o
0670: 70 65 6e 20 2d 74 79 70 65 20 53 51 4c 69 74 65  pen -type SQLite
0680: 20 5b 73 75 62 73 74 20 24 63 6f 6e 6e 65 63 74   [subst $connect
0690: 69 6f 6e 5d 5d 0d 0a 20 20 7d 0d 0a 0c 0d 0a 20  ion]]..  }..... 
06a0: 20 70 72 6f 63 20 63 6c 65 61 6e 75 70 44 62 20   proc cleanupDb 
06b0: 7b 66 69 6c 65 4e 61 6d 65 20 7b 76 61 72 4e 61  {fileName {varNa
06c0: 6d 65 20 64 62 7d 7d 20 7b 0d 0a 20 20 20 20 75  me db}} {..    u
06d0: 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65 20  pvar 1 $varName 
06e0: 64 62 0d 0a 20 20 20 20 63 61 74 63 68 20 7b 73  db..    catch {s
06f0: 71 6c 20 63 6c 6f 73 65 20 24 64 62 7d 0d 0a 20  ql close $db}.. 
0700: 20 20 20 63 61 74 63 68 20 7b 66 69 6c 65 20 64     catch {file d
0710: 65 6c 65 74 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  elete [file join
0720: 20 5b 67 65 74 54 65 6d 70 6f 72 61 72 79 50 61   [getTemporaryPa
0730: 74 68 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 0d  th] $fileName]}.
0740: 0a 20 20 7d 0d 0a 7d 0d 0a                       .  }..}..