First cut of BT operator (#3)

src/Sqlite/Library.fs

@@ -31,6 +31,21 @@ module Configuration =
 [<RequireQualifiedAccess>]
 module Query =
     
+    /// Create a WHERE clause fragment to implement a comparison on a field in a JSON document
+    [<CompiledName "WhereByField">]
+    let whereByField field paramName =
+        let theRest =
+            match field.Op with
+            | EX | NEX -> ""
+            | BT -> $" {paramName}min AND {paramName}max"
+            | _ -> $" %s{paramName}"
+        $"data->>'{field.Name}' {field.Op}{theRest}"
+    
+    /// Create a WHERE clause fragment to implement an ID-based query
+    [<CompiledName "WhereById">]
+    let whereById paramName =
+        whereByField (Field.EQ (Configuration.idField ()) 0) paramName
+    
     /// Data definition
     module Definition =
 
@@ -39,6 +54,50 @@ module Query =
         let ensureTable name =
             Query.Definition.ensureTableFor name "TEXT"
     
+    /// Query to update a document
+    [<CompiledName "Update">]
+    let update tableName =
+        $"""UPDATE %s{tableName} SET data = @data WHERE {whereById "@id"}"""
+
+    /// Queries for counting documents
+    module Count =
+        
+        /// Query to count all documents in a table
+        [<CompiledName "All">]
+        let all tableName =
+            $"SELECT COUNT(*) AS it FROM %s{tableName}"
+        
+        /// Query to count matching documents using a text comparison on a JSON field
+        [<CompiledName "ByField">]
+        let byField tableName field =
+            $"""SELECT COUNT(*) AS it FROM %s{tableName} WHERE {whereByField field "@field"}"""
+        
+    /// Queries for determining document existence
+    module Exists =
+
+        /// Query to determine if a document exists for the given ID
+        [<CompiledName "ById">]
+        let byId tableName =
+            $"""SELECT EXISTS (SELECT 1 FROM %s{tableName} WHERE {whereById "@id"}) AS it"""
+
+        /// Query to determine if documents exist using a comparison on a JSON field
+        [<CompiledName "ByField">]
+        let byField tableName field =
+            $"""SELECT EXISTS (SELECT 1 FROM %s{tableName} WHERE {whereByField field "@field"}) AS it"""
+        
+    /// Queries for retrieving documents
+    module Find =
+
+        /// Query to retrieve a document by its ID
+        [<CompiledName "ById">]
+        let byId tableName =
+            $"""{Query.selectFromTable tableName} WHERE {whereById "@id"}"""
+        
+        /// Query to retrieve documents using a comparison on a JSON field
+        [<CompiledName "ByField">]
+        let byField tableName field =
+            $"""{Query.selectFromTable tableName} WHERE {whereByField field "@field"}"""
+        
     /// Document patching (partial update) queries
     module Patch =
         
@@ -49,12 +108,12 @@ module Query =
         /// Query to patch (partially update) a document by its ID
         [<CompiledName "ById">]
         let byId tableName =
-            Query.whereById "@id" |> update tableName
+            whereById "@id" |> update tableName
             
         /// Query to patch (partially update) a document via a comparison on a JSON field
         [<CompiledName "ByField">]
         let byField tableName field =
-            Query.whereByField field "@field" |> update tableName
+            whereByField field "@field" |> update tableName
     
     /// Queries to remove fields from documents
     module RemoveFields =
@@ -67,7 +126,7 @@ module Query =
         /// Query to remove fields from a document by the document's ID
         [<CompiledName "FSharpById">]
         let byId tableName parameters =
-            Query.whereById "@id" |> update tableName parameters
+            whereById "@id" |> update tableName parameters
         
         /// Query to remove fields from a document by the document's ID
         let ById(tableName, parameters) =
@@ -76,12 +135,25 @@ module Query =
         /// Query to remove fields from documents via a comparison on a JSON field within the document
         [<CompiledName "FSharpByField">]
         let byField tableName field parameters =
-            Query.whereByField field "@field" |> update tableName parameters
+            whereByField field "@field" |> update tableName parameters
         
         /// Query to remove fields from documents via a comparison on a JSON field within the document
         let ByField(tableName, field, parameters) =
             byField tableName field (List.ofSeq parameters)
 
+    /// Queries to delete documents
+    module Delete =
+        
+        /// Query to delete a document by its ID
+        [<CompiledName "ById">]
+        let byId tableName =
+            $"""DELETE FROM %s{tableName} WHERE {whereById "@id"}"""
+
+        /// Query to delete documents using a comparison on a JSON field
+        [<CompiledName "ByField">]
+        let byField tableName field =
+            $"""DELETE FROM %s{tableName} WHERE {whereByField field "@field"}"""
+        
 
 /// Parameter handling helpers
 [<AutoOpen>]
@@ -100,12 +172,26 @@ module Parameters =
     /// Create a JSON field parameter (name "@field")
     [<CompiledName "FSharpAddField">]
     let addFieldParam name field parameters =
-        match field.Op with EX | NEX -> parameters | _ -> SqliteParameter(name, field.Value) :: parameters
+        match field.Op with
+        | EX | NEX -> parameters
+        | BT ->
+            let values = field.Value :?> obj list
+            SqliteParameter($"{name}min", values[0]) :: SqliteParameter($"{name}max", values[1]) :: parameters
+        | _ -> SqliteParameter(name, field.Value) :: parameters
     
     /// Create a JSON field parameter (name "@field")
     let AddField(name, field, parameters) =
         match field.Op with
         | EX | NEX -> parameters
+        | BT ->
+            let values = field.Value :?> obj list
+            // let min = SqliteParameter($"{name}min", SqliteType.Integer)
+            // min.Value <- values[0]
+            // let max = SqliteParameter($"{name}max", SqliteType.Integer)
+            // max.Value <- values[1]
+            [ SqliteParameter($"{name}min", values[0]); SqliteParameter($"{name}max", values[1]) ]
+            // [min; max]
+            |> Seq.append parameters
         | _ -> SqliteParameter(name, field.Value) |> Seq.singleton |> Seq.append parameters
 
     /// Append JSON field name parameters for the given field names to the given parameters