System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 3d9d6b3937e45be2f5eae8088aab09b2a0437f50:


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 76 74 61 62 2e 65 61 67 6c 65  .#..# vtab.eagle
0060: 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74 74 65   --..#..# Writte
0070: 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 63 68  n by Joe Mistach
0080: 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73 65 64  kin...# Released
0090: 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63 20 64   to the public d
00a0: 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20 79 6f  omain, use at yo
00b0: 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a 23 0d  ur own risk!..#.
00c0: 0a 23 23 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: 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 75  ....package requ
0120: 69 72 65 20 45 61 67 6c 65 0d 0a 70 61 63 6b 61  ire Eagle..packa
0130: 67 65 20 72 65 71 75 69 72 65 20 45 61 67 6c 65  ge require Eagle
0140: 2e 4c 69 62 72 61 72 79 0d 0a 70 61 63 6b 61 67  .Library..packag
0150: 65 20 72 65 71 75 69 72 65 20 45 61 67 6c 65 2e  e require Eagle.
0160: 54 65 73 74 0d 0a 0d 0a 72 75 6e 54 65 73 74 50  Test....runTestP
0170: 72 6f 6c 6f 67 75 65 0d 0a 0d 0a 23 23 23 23 23  rologue....#####
0180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a 70 61  ##########....pa
01d0: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 53 79  ckage require Sy
01e0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
01f0: 2e 54 65 73 74 0d 0a 72 75 6e 53 51 4c 69 74 65  .Test..runSQLite
0200: 54 65 73 74 50 72 6f 6c 6f 67 75 65 0d 0a 0d 0a  TestPrologue....
0210: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0230: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0260: 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74  ...runTest {test
0270: 20 76 74 61 62 2d 31 2e 31 20 7b 76 69 72 74 75   vtab-1.1 {virtu
0280: 61 6c 20 74 61 62 6c 65 20 73 75 70 70 6f 72 74  al table support
0290: 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65  } -setup {..  se
02a0: 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e  tupDb [set fileN
02b0: 61 6d 65 20 76 74 61 62 2d 31 2e 31 2e 64 62 5d  ame vtab-1.1.db]
02c0: 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73  ..} -body {..  s
02d0: 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e  et id [object in
02e0: 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72  voke Interpreter
02f0: 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49  .GetActive NextI
0300: 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61 53 6f  d]..  set dataSo
0310: 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  urce [file join 
0320: 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65  [getDatabaseDire
0330: 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65  ctory] $fileName
0340: 5d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 20 7b  ]....  set sql {
0350: 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20 56   \..    CREATE V
0360: 49 52 54 55 41 4c 20 54 41 42 4c 45 20 74 24 7b  IRTUAL TABLE t${
0370: 69 64 7d 20 55 53 49 4e 47 20 6d 6f 64 24 7b 69  id} USING mod${i
0380: 64 7d 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20  d}; \..  }....  
0390: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
03a0: 6e 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73  n results errors
03b0: 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b  ....  set code [
03c0: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74  compileCSharpWit
03d0: 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20  h [subst {..    
03e0: 75 73 69 6e 67 20 53 79 73 74 65 6d 3b 0d 0a 20  using System;.. 
03f0: 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e     using System.
0400: 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 0d 0a  Data.SQLite;....
0410: 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44      namespace _D
0420: 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20  ynamic${id}..   
0430: 20 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c 69 63   {..      public
0440: 20 73 65 61 6c 65 64 20 63 6c 61 73 73 20 53 51   sealed class SQ
0450: 4c 69 74 65 4d 6f 64 75 6c 65 54 65 73 74 24 7b  LiteModuleTest${
0460: 69 64 7d 20 3a 20 53 51 4c 69 74 65 4d 6f 64 75  id} : SQLiteModu
0470: 6c 65 4e 6f 6f 70 0d 0a 20 20 20 20 20 20 7b 0d  leNoop..      {.
0480: 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20  .        public 
0490: 53 51 4c 69 74 65 4d 6f 64 75 6c 65 54 65 73 74  SQLiteModuleTest
04a0: 24 7b 69 64 7d 28 73 74 72 69 6e 67 20 6e 61 6d  ${id}(string nam
04b0: 65 29 0d 0a 20 20 20 20 20 20 20 20 20 20 3a 20  e)..          : 
04c0: 62 61 73 65 28 6e 61 6d 65 29 0d 0a 20 20 20 20  base(name)..    
04d0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
04e0: 20 2f 2f 20 64 6f 20 6e 6f 74 68 69 6e 67 2e 0d   // do nothing..
04f0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  .        }....  
0500: 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f        //////////
0510: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0520: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0530: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0540: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d  /////////////...
0550: 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20  .        public 
0560: 6f 76 65 72 72 69 64 65 20 53 51 4c 69 74 65 45  override SQLiteE
0570: 72 72 6f 72 43 6f 64 65 20 43 72 65 61 74 65 28  rrorCode Create(
0580: 0d 0a 20 20 20 20 20 20 20 20 20 20 53 51 4c 69  ..          SQLi
0590: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e  teConnection con
05a0: 6e 65 63 74 69 6f 6e 2c 0d 0a 20 20 20 20 20 20  nection,..      
05b0: 20 20 20 20 49 6e 74 50 74 72 20 70 43 6c 69 65      IntPtr pClie
05c0: 6e 74 44 61 74 61 2c 0d 0a 20 20 20 20 20 20 20  ntData,..       
05d0: 20 20 20 73 74 72 69 6e 67 5c 5b 5c 5d 20 61 72     string\[\] ar
05e0: 67 75 6d 65 6e 74 73 2c 0d 0a 20 20 20 20 20 20  guments,..      
05f0: 20 20 20 20 72 65 66 20 53 51 4c 69 74 65 56 69      ref SQLiteVi
0600: 72 74 75 61 6c 54 61 62 6c 65 20 74 61 62 6c 65  rtualTable table
0610: 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 72 65 66  ,..          ref
0620: 20 73 74 72 69 6e 67 20 65 72 72 6f 72 0d 0a 20   string error.. 
0630: 20 20 20 20 20 20 20 20 20 29 0d 0a 20 20 20 20           )..    
0640: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
0650: 20 53 51 4c 69 74 65 45 72 72 6f 72 43 6f 64 65   SQLiteErrorCode
0660: 20 72 63 20 3d 20 44 65 63 6c 61 72 65 54 61 62   rc = DeclareTab
0670: 6c 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  le(..           
0680: 20 63 6f 6e 6e 65 63 74 69 6f 6e 2c 20 22 43 52   connection, "CR
0690: 45 41 54 45 20 54 41 42 4c 45 20 69 67 6e 6f 72  EATE TABLE ignor
06a0: 65 64 28 78 29 3b 22 2c 20 72 65 66 20 65 72 72  ed(x);", ref err
06b0: 6f 72 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  or);....        
06c0: 20 20 69 66 20 28 72 63 20 21 3d 20 53 51 4c 69    if (rc != SQLi
06d0: 74 65 45 72 72 6f 72 43 6f 64 65 2e 4f 6b 29 0d  teErrorCode.Ok).
06e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
06f0: 75 72 6e 20 72 63 3b 0d 0a 0d 0a 20 20 20 20 20  urn rc;....     
0700: 20 20 20 20 20 74 61 62 6c 65 20 3d 20 6e 65 77       table = new
0710: 20 53 51 4c 69 74 65 56 69 72 74 75 61 6c 54 61   SQLiteVirtualTa
0720: 62 6c 65 28 61 72 67 75 6d 65 6e 74 73 29 3b 0d  ble(arguments);.
0730: 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72  .          retur
0740: 6e 20 53 51 4c 69 74 65 45 72 72 6f 72 43 6f 64  n SQLiteErrorCod
0750: 65 2e 4f 6b 3b 0d 0a 20 20 20 20 20 20 20 20 7d  e.Ok;..        }
0760: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....   
0770: 20 20 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f     /////////////
0780: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0790: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
07a0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
07b0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a  ////////////....
07c0: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61        public sta
07d0: 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b  tic class Test${
07e0: 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20  id}..      {..  
07f0: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61        public sta
0800: 74 69 63 20 76 6f 69 64 20 4d 61 69 6e 28 29 0d  tic void Main().
0810: 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20  .        {..    
0820: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
0830: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f  iteConnection co
0840: 6e 6e 65 63 74 69 6f 6e 20 3d 20 6e 65 77 20 53  nnection = new S
0850: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28  QLiteConnection(
0860: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0870: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64  "Data Source=${d
0880: 61 74 61 53 6f 75 72 63 65 7d 3b 22 29 29 0d 0a  ataSource};"))..
0890: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
08a0: 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74           connect
08b0: 69 6f 6e 2e 4f 70 65 6e 28 29 3b 0d 0a 20 20 20  ion.Open();..   
08c0: 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74           connect
08d0: 69 6f 6e 2e 43 72 65 61 74 65 4d 6f 64 75 6c 65  ion.CreateModule
08e0: 28 6e 65 77 20 53 51 4c 69 74 65 4d 6f 64 75 6c  (new SQLiteModul
08f0: 65 54 65 73 74 24 7b 69 64 7d 28 22 6d 6f 64 24  eTest${id}("mod$
0900: 7b 69 64 7d 22 29 29 3b 0d 0a 0d 0a 20 20 20 20  {id}"));....    
0910: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
0920: 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d  QLiteCommand com
0930: 6d 61 6e 64 20 3d 20 63 6f 6e 6e 65 63 74 69 6f  mand = connectio
0940: 6e 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  n.CreateCommand(
0950: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
0960: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
0970: 20 63 6f 6d 6d 61 6e 64 2e 43 6f 6d 6d 61 6e 64   command.Command
0980: 54 65 78 74 20 3d 20 22 5b 73 75 62 73 74 20 24  Text = "[subst $
0990: 7b 73 71 6c 7d 5d 22 3b 0d 0a 20 20 20 20 20 20  {sql}]";..      
09a0: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 2e          command.
09b0: 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 79 28  ExecuteNonQuery(
09c0: 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  );..            
09d0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  }....           
09e0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 43 6c 6f 73   connection.Clos
09f0: 65 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  e();..          
0a00: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
0a10: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
0a20: 7d 5d 20 74 72 75 65 20 74 72 75 65 20 74 72 75  }] true true tru
0a30: 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73  e results errors
0a40: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
0a50: 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69  ite.dll]....  li
0a60: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74  st $code $result
0a70: 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  s \..      [expr
0a80: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65   {[info exists e
0a90: 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73  rrors] ? $errors
0aa0: 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20   : ""}] \..     
0ab0: 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71   [expr {$code eq
0ac0: 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b   "Ok" ? [catch {
0ad0: 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74  ..        object
0ae0: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
0af0: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
0b00: 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65  Main..      } re
0b10: 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73  sult] : [set res
0b20: 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c  ult ""]}] $resul
0b30: 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d  t..} -cleanup {.
0b40: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69  .  cleanupDb $fi
0b50: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65  leName....  unse
0b60: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
0b70: 73 75 6c 74 20 63 6f 64 65 20 72 65 73 75 6c 74  sult code result
0b80: 73 20 65 72 72 6f 72 73 20 73 71 6c 20 64 61 74  s errors sql dat
0b90: 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66 69  aSource id db fi
0ba0: 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74  leName..} -const
0bb0: 72 61 69 6e 74 73 20 5c 0d 0a 7b 65 61 67 6c 65  raints \..{eagle
0bc0: 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61   monoBug28 comma
0bd0: 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44  nd.sql compile.D
0be0: 41 54 41 20 53 51 4c 69 74 65 20 53 79 73 74 65  ATA SQLite Syste
0bf0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 7d 20 2d  m.Data.SQLite} -
0c00: 6d 61 74 63 68 20 5c 0d 0a 72 65 67 65 78 70 20  match \..regexp 
0c10: 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 20 53 79 73  -result {^Ok Sys
0c20: 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70  tem#CodeDom#Comp
0c30: 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73  iler#CompilerRes
0c40: 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20  ults#\d+ \{\} 0 
0c50: 5c 7b 5c 7d 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23  \{\}$}}....#####
0c60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0c90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ca0: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75  ##########....ru
0cb0: 6e 54 65 73 74 20 7b 74 65 73 74 20 76 74 61 62  nTest {test vtab
0cc0: 2d 31 2e 32 20 7b 49 45 6e 75 6d 65 72 61 62 6c  -1.2 {IEnumerabl
0cd0: 65 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65 7d  e virtual table}
0ce0: 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74   -setup {..  set
0cf0: 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61  upDb [set fileNa
0d00: 6d 65 20 76 74 61 62 2d 31 2e 32 2e 64 62 5d 0d  me vtab-1.2.db].
0d10: 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65  .} -body {..  se
0d20: 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76  t id [object inv
0d30: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e  oke Interpreter.
0d40: 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64  GetActive NextId
0d50: 5d 0d 0a 20 20 73 65 74 20 64 61 74 61 53 6f 75  ]..  set dataSou
0d60: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b  rce [file join [
0d70: 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63  getDatabaseDirec
0d80: 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d  tory] $fileName]
0d90: 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29  ....  set sql(1)
0da0: 20 7b 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45   { \..    CREATE
0db0: 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45 20 74   VIRTUAL TABLE t
0dc0: 24 7b 69 64 7d 20 55 53 49 4e 47 20 6d 6f 64 24  ${id} USING mod$
0dd0: 7b 69 64 7d 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a  {id}; \..  }....
0de0: 20 20 73 65 74 20 73 71 6c 28 32 29 20 7b 20 5c    set sql(2) { \
0df0: 0d 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46  ..    SELECT * F
0e00: 52 4f 4d 20 74 24 7b 69 64 7d 3b 20 5c 0d 0a 20  ROM t${id}; \.. 
0e10: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28   }....  set sql(
0e20: 33 29 20 7b 20 5c 0d 0a 20 20 20 20 55 50 44 41  3) { \..    UPDA
0e30: 54 45 20 74 24 7b 69 64 7d 20 53 45 54 20 78 20  TE t${id} SET x 
0e40: 3d 20 31 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20  = 1; \..  }.... 
0e50: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61   unset -nocompla
0e60: 69 6e 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72  in results error
0e70: 73 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20  s....  set code 
0e80: 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69  [compileCSharpWi
0e90: 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20  th [subst {..   
0ea0: 20 75 73 69 6e 67 20 53 79 73 74 65 6d 3b 0d 0a   using System;..
0eb0: 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d      using System
0ec0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20  .Data.SQLite;.. 
0ed0: 20 20 20 75 73 69 6e 67 20 45 61 67 6c 65 2e 5f     using Eagle._
0ee0: 43 6f 6e 74 61 69 6e 65 72 73 2e 50 75 62 6c 69  Containers.Publi
0ef0: 63 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65 73 70  c;....    namesp
0f00: 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64  ace _Dynamic${id
0f10: 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20  }..    {..      
0f20: 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 63 6c  public static cl
0f30: 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20  ass Test${id}.. 
0f40: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
0f50: 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 53 74  public static St
0f60: 72 69 6e 67 4c 69 73 74 20 47 65 74 4c 69 73 74  ringList GetList
0f70: 28 70 61 72 61 6d 73 20 73 74 72 69 6e 67 5c 5b  (params string\[
0f80: 5c 5d 20 73 74 72 69 6e 67 73 29 0d 0a 20 20 20  \] strings)..   
0f90: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
0fa0: 20 20 53 74 72 69 6e 67 4c 69 73 74 20 72 65 73    StringList res
0fb0: 75 6c 74 20 3d 20 6e 65 77 20 53 74 72 69 6e 67  ult = new String
0fc0: 4c 69 73 74 28 29 3b 0d 0a 0d 0a 20 20 20 20 20  List();....     
0fd0: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
0fe0: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e  teConnection con
0ff0: 6e 65 63 74 69 6f 6e 20 3d 20 6e 65 77 20 53 51  nection = new SQ
1000: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d  LiteConnection(.
1010: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
1020: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61  Data Source=${da
1030: 74 61 53 6f 75 72 63 65 7d 3b 22 29 29 0d 0a 20  taSource};")).. 
1040: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
1050: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69          connecti
1060: 6f 6e 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20  on.Open();....  
1070: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63            connec
1080: 74 69 6f 6e 2e 43 72 65 61 74 65 4d 6f 64 75 6c  tion.CreateModul
1090: 65 28 6e 65 77 20 53 51 4c 69 74 65 4d 6f 64 75  e(new SQLiteModu
10a0: 6c 65 45 6e 75 6d 65 72 61 62 6c 65 28 0d 0a 20  leEnumerable(.. 
10b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6d 6f               "mo
10c0: 64 24 7b 69 64 7d 22 2c 20 73 74 72 69 6e 67 73  d${id}", strings
10d0: 29 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ));....         
10e0: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
10f0: 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 20  Command command 
1100: 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 43 72 65  = connection.Cre
1110: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
1120: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20             {..  
1130: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d              comm
1140: 61 6e 64 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20  and.CommandText 
1150: 3d 20 22 5b 73 75 62 73 74 20 24 7b 73 71 6c 28  = "[subst ${sql(
1160: 31 29 7d 5d 22 3b 0d 0a 20 20 20 20 20 20 20 20  1)}]";..        
1170: 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 2e 45 78        command.Ex
1180: 65 63 75 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b  ecuteNonQuery();
1190: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d  ..            }.
11a0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 75  ...            u
11b0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d  sing (SQLiteComm
11c0: 61 6e 64 20 63 6f 6d 6d 61 6e 64 20 3d 20 63 6f  and command = co
11d0: 6e 6e 65 63 74 69 6f 6e 2e 43 72 65 61 74 65 43  nnection.CreateC
11e0: 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20  ommand())..     
11f0: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
1200: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 2e          command.
1210: 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 5b  CommandText = "[
1220: 73 75 62 73 74 20 24 7b 73 71 6c 28 32 29 7d 5d  subst ${sql(2)}]
1230: 22 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  ";....          
1240: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74      using (SQLit
1250: 65 44 61 74 61 52 65 61 64 65 72 20 64 61 74 61  eDataReader data
1260: 52 65 61 64 65 72 20 3d 20 63 6f 6d 6d 61 6e 64  Reader = command
1270: 2e 45 78 65 63 75 74 65 52 65 61 64 65 72 28 29  .ExecuteReader()
1280: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
1290: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
12a0: 20 20 20 20 77 68 69 6c 65 20 28 64 61 74 61 52      while (dataR
12b0: 65 61 64 65 72 2e 52 65 61 64 28 29 29 0d 0a 20  eader.Read()).. 
12c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
12d0: 20 72 65 73 75 6c 74 2e 41 64 64 28 64 61 74 61   result.Add(data
12e0: 52 65 61 64 65 72 5c 5b 30 5c 5d 2e 54 6f 53 74  Reader\[0\].ToSt
12f0: 72 69 6e 67 28 29 29 3b 0d 0a 20 20 20 20 20 20  ring());..      
1300: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
1310: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20         }....    
1320: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
1330: 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d  QLiteCommand com
1340: 6d 61 6e 64 20 3d 20 63 6f 6e 6e 65 63 74 69 6f  mand = connectio
1350: 6e 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  n.CreateCommand(
1360: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
1370: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
1380: 20 63 6f 6d 6d 61 6e 64 2e 43 6f 6d 6d 61 6e 64   command.Command
1390: 54 65 78 74 20 3d 20 22 5b 73 75 62 73 74 20 24  Text = "[subst $
13a0: 7b 73 71 6c 28 33 29 7d 5d 22 3b 0d 0a 0d 0a 20  {sql(3)}]";.... 
13b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79               try
13c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
13d0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
13e0: 20 20 20 63 6f 6d 6d 61 6e 64 2e 45 78 65 63 75     command.Execu
13f0: 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 20  teNonQuery();.. 
1400: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a               }..
1410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61                ca
1420: 74 63 68 20 28 53 51 4c 69 74 65 45 78 63 65 70  tch (SQLiteExcep
1430: 74 69 6f 6e 20 65 29 0d 0a 20 20 20 20 20 20 20  tion e)..       
1440: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
1450: 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74            result
1460: 2e 41 64 64 28 65 2e 52 65 74 75 72 6e 43 6f 64  .Add(e.ReturnCod
1470: 65 2e 54 6f 53 74 72 69 6e 67 28 29 29 3b 0d 0a  e.ToString());..
1480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1490: 72 65 73 75 6c 74 2e 41 64 64 28 65 2e 4d 65 73  result.Add(e.Mes
14a0: 73 61 67 65 29 3b 0d 0a 20 20 20 20 20 20 20 20  sage);..        
14b0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
14c0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
14d0: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e        connection
14e0: 2e 43 6c 6f 73 65 28 29 3b 0d 0a 20 20 20 20 20  .Close();..     
14f0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
1500: 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 75 6c      return resul
1510: 74 3b 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d  t;..        }...
1520: 0a 20 20 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f  .        ///////
1530: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1540: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1550: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1560: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1570: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c  ....        publ
1580: 69 63 20 73 74 61 74 69 63 20 76 6f 69 64 20 4d  ic static void M
1590: 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b  ain()..        {
15a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 2f 2f 20 64  ..          // d
15b0: 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20  o nothing...    
15c0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
15d0: 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65      }..  }] true
15e0: 20 74 72 75 65 20 74 72 75 65 20 72 65 73 75 6c   true true resul
15f0: 74 73 20 65 72 72 6f 72 73 20 5b 6c 69 73 74 20  ts errors [list 
1600: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
1610: 74 65 2e 64 6c 6c 20 45 61 67 6c 65 2e 64 6c 6c  te.dll Eagle.dll
1620: 5d 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f  ]]....  list $co
1630: 64 65 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20  de $results \.. 
1640: 20 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66       [expr {[inf
1650: 6f 20 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d  o exists errors]
1660: 20 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d   ? $errors : ""}
1670: 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  ] \..      [expr
1680: 20 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 20   {$code eq "Ok" 
1690: 3f 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20  ? [catch {..    
16a0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b      object invok
16b0: 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e  e _Dynamic${id}.
16c0: 54 65 73 74 24 7b 69 64 7d 20 47 65 74 4c 69 73  Test${id} GetLis
16d0: 74 20 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20  t one two three 
16e0: 34 20 35 2e 30 0d 0a 20 20 20 20 20 20 7d 20 72  4 5.0..      } r
16f0: 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65  esult] : [set re
1700: 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75  sult ""]}] $resu
1710: 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  lt..} -cleanup {
1720: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
1730: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
1740: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
1750: 65 73 75 6c 74 20 63 6f 64 65 20 72 65 73 75 6c  esult code resul
1760: 74 73 20 65 72 72 6f 72 73 20 73 71 6c 20 64 61  ts errors sql da
1770: 74 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66  taSource id db f
1780: 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73  ileName..} -cons
1790: 74 72 61 69 6e 74 73 20 5c 0d 0a 7b 65 61 67 6c  traints \..{eagl
17a0: 65 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d  e monoBug28 comm
17b0: 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e  and.sql compile.
17c0: 44 41 54 41 20 53 51 4c 69 74 65 20 53 79 73 74  DATA SQLite Syst
17d0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 7d 20  em.Data.SQLite} 
17e0: 2d 6d 61 74 63 68 20 5c 0d 0a 72 65 67 65 78 70  -match \..regexp
17f0: 20 2d 72 65 73 75 6c 74 20 5b 73 74 72 69 6e 67   -result [string
1800: 20 6d 61 70 20 5b 6c 69 73 74 20 5c 6e 20 5c 72   map [list \n \r
1810: 5c 6e 5d 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65  \n] {^Ok\..Syste
1820: 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c  m#CodeDom#Compil
1830: 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c  er#CompilerResul
1840: 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 5c 7b  ts#\d+ \{\} 0 \{
1850: 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20 34 20  one two three 4 
1860: 35 2e 30 20 45 72 72 6f 72 5c 0d 0a 5c 7b 53 51  5.0 Error\..\{SQ
1870: 4c 20 6c 6f 67 69 63 20 65 72 72 6f 72 20 6f 72  L logic error or
1880: 20 6d 69 73 73 69 6e 67 20 64 61 74 61 62 61 73   missing databas
1890: 65 0d 0a 76 69 72 74 75 61 6c 20 74 61 62 6c 65  e..virtual table
18a0: 20 22 74 5c 64 2b 22 20 69 73 20 72 65 61 64 2d   "t\d+" is read-
18b0: 6f 6e 6c 79 5c 7d 5c 7d 24 7d 5d 7d 0d 0a 0d 0a  only\}\}$}]}....
18c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1900: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
1910: 0a 0d 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74  ...runSQLiteTest
1920: 45 70 69 6c 6f 67 75 65 0d 0a 72 75 6e 54 65 73  Epilogue..runTes
1930: 74 45 70 69 6c 6f 67 75 65 0d 0a                 tEpilogue..