carpentry/sqlite3
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: carpentry:0.0.4
Branches Tags
carpentry:master
carpentry:0.0.5 carpentry:0.0.4 carpentry:0.0.3 carpentry:0.0.2 carpentry:0.0.1
..
compare: carpentry:master
Branches Tags
carpentry:master
carpentry:0.0.5 carpentry:0.0.4 carpentry:0.0.3 carpentry:0.0.2 carpentry:0.0.1

2 Commits
0.0.4 ... master

Author SHA1 Message Date
Veit Heller
053d505988 fix for newest carp 2022-01-27 11:41:20 +01:00
hellerve
1b87e7fec1 fix for new version of carp 2021-01-19 12:16:34 +01:00
3 changed files with 150 additions and 124 deletions
Expand all files Collapse all files

4
README.md
View File

@@ -6,7 +6,7 @@ everything, but it tries to be useful.
## Installation ## Installation
```clojure ```clojure
(load "https://veitheller.de/git/carpentry/sqlite3@0.0.4") (load "git@git.veitheller.de:carpentry/sqlite3.git@0.0.6")
``` ```
## Usage ## Usage
@@ -15,7 +15,7 @@ The module `SQLite3` provides facilities for opening, closing, and querying
databases. databases.
```clojure ```clojure
(load "https://veitheller.de/git/carpentry/sqlite3@0.0.4") (load "git@git.veitheller.de:carpentry/sqlite3.git@0.0.6")
; opening DBs can fail, for the purposes of this example we ; opening DBs can fail, for the purposes of this example we
; ignore that ; ignore that

236
docs/SQLite3.html
View File

@@ -9,8 +9,8 @@
<body> <body>
<div class="content"> <div class="content">
<div class="logo"> <div class="logo">
<a href="http://github.com/carp-lang/Carp"> <a href="">
<img src="logo.png"> <img src="">
</a> </a>
<div class="title"> <div class="title">
sqlite3 sqlite3
@@ -18,26 +18,49 @@
<div class="index"> <div class="index">
<ul> <ul>
<li> <li>
<a href="SQLite3.html"> <details>
SQLite3 <summary>
</a> <a href="SQLite3.html">
SQLite3
</a>
</summary>
<ul>
<li>
<details>
<summary>
<a href="SQLite3.Type.html">
Type
</a>
</summary>
<ul>
<li>
<a href="SQLite3.Type.SQLiteColumn.html">
SQLiteColumn
</a>
</li>
</ul>
</details>
</li>
</ul>
</details>
</li> </li>
</ul> </ul>
</div> </div>
</div> </div>
<h1> <div class="module">
SQLite3 <h1>
</h1> SQLite3
<div class="module-description"> </h1>
<p>is a simple high-level wrapper around SQLite3. It doesn’t intend <div class="module-description">
<p>is a simple high-level wrapper around SQLite3. It doesn’t intend
to wrap everything, but it tries to be useful.</p> to wrap everything, but it tries to be useful.</p>
<h2>Installation</h2> <h2>Installation</h2>
<pre><code class="language-clojure">(load &quot;https://veitheller.de/git/carpentry/sqlite3@0.0.4&quot;) <pre><code class="language-clojure">(load &quot;git@veitheller.de:git/carpentry/sqlite3.git@0.0.6&quot;)
</code></pre> </code></pre>
<h2>Usage</h2> <h2>Usage</h2>
<p>The module <code>SQLite3</code> provides facilities for opening, closing, and querying <p>The module <code>SQLite3</code> provides facilities for opening, closing, and querying
databases.</p> databases.</p>
<pre><code class="language-clojure">(load &quot;https://veitheller.de/git/carpentry/sqlite3@0.0.4&quot;) <pre><code class="language-clojure">(load &quot;git@veitheller.de:git/carpentry/sqlite3.git@0.0.6&quot;)
; opening DBs can fail, for the purposes of this example we ; opening DBs can fail, for the purposes of this example we
; ignore that ; ignore that
@@ -62,114 +85,113 @@ databases.</p>
<p>Because <code>open</code> and <code>query</code> return <code>Result</code> types, we could also use <p>Because <code>open</code> and <code>query</code> return <code>Result</code> types, we could also use
combinators!</p> combinators!</p>
</div>
<div class="binder">
<a class="anchor" href="#SQLite">
<h3 id="SQLite">
SQLite
</h3>
</a>
<div class="description">
doc-stub
</div> </div>
<p class="sig"> <div class="binder">
a <a class="anchor" href="#SQLite">
</p> <h3 id="SQLite">
<span> SQLite
</h3>
</span> </a>
<p class="doc"> <div class="description">
<p>is the opaque database type. You’ll need one of those to query meta-stub
</div>
<p class="sig">
a
</p>
<span>
</span>
<p class="doc">
<p>is the opaque database type. You’ll need one of those to query
anything.</p> anything.</p>
<p>It can be obtained by using <a href="#open">open</a>.</p> <p>It can be obtained by using <a href="#open">open</a>.</p>
</p> </p>
</div>
<div class="binder">
<a class="anchor" href="#Type">
<h3 id="Type">
Type
</h3>
</a>
<div class="description">
module
</div> </div>
<p class="sig"> <div class="binder">
Module <a class="anchor" href="#Type">
</p> <h3 id="Type">
<span> <a href="SQLite3.Type.html">
Type
</span> </a>
<p class="doc"> </h3>
<p>represent all the SQLite types we can represent.</p> </a>
<p>The constructors are <code>Null</code>, <code>Integer</code>, <code>Floating</code>, <code>Text</code>, and <code>Blob</code>. Most <div class="description">
primitive Carp types can be casted to appropriate SQLite types by using the module
<code>to-sqlite3</code> interface.</p> </div>
<p class="sig">
Module
</p>
<span>
</span>
<p class="doc">
</p>
</div>
<div class="binder">
<a class="anchor" href="#close">
<h3 id="close">
close
</h3>
</a>
<div class="description">
external
</div>
<p class="sig">
(Fn [SQLite] ())
</p>
<span>
</span>
<p class="doc">
<p>closes a database.</p>
</p> </p>
</div>
<div class="binder">
<a class="anchor" href="#close">
<h3 id="close">
close
</h3>
</a>
<div class="description">
external
</div> </div>
<p class="sig"> <div class="binder">
(Fn [SQLite] ()) <a class="anchor" href="#open">
</p> <h3 id="open">
<span> open
</h3>
</span> </a>
<p class="doc"> <div class="description">
<p>closes a database.</p> defn
</div>
</p> <p class="sig">
</div> (Fn [(Ref String a)] (Result SQLite String))
<div class="binder"> </p>
<a class="anchor" href="#open"> <pre class="args">
<h3 id="open"> (open s)
open </pre>
</h3> <p class="doc">
</a> <p>opens a database with the filename <code>s</code>.</p>
<div class="description">
defn
</div>
<p class="sig">
(Fn [(Ref String a)] (Result SQLite String))
</p>
<pre class="args">
(open s)
</pre>
<p class="doc">
<p>opens a database with the filename <code>s</code>.</p>
<p>If it fails, we return an error message using <code>Result.Error</code>.</p> <p>If it fails, we return an error message using <code>Result.Error</code>.</p>
</p> </p>
</div>
<div class="binder">
<a class="anchor" href="#query">
<h3 id="query">
query
</h3>
</a>
<div class="description">
defn
</div> </div>
<p class="sig"> <div class="binder">
(Fn [(Ref SQLite a), (Ref String b), (Ref (Array Type) c)] (Result (Array (Array Type)) String)) <a class="anchor" href="#query">
</p> <h3 id="query">
<pre class="args"> query
(query db s p) </h3>
</pre> </a>
<p class="doc"> <div class="description">
<p>queries the database <code>db</code> using the query <code>s</code> and the parameters defn
</div>
<p class="sig">
(Fn [(Ref SQLite a), (Ref String b), (Ref (Array SQLite3.Type) c)] (Result (Array (Array SQLite3.Type)) String))
</p>
<pre class="args">
(query db s p)
</pre>
<p class="doc">
<p>queries the database <code>db</code> using the query <code>s</code> and the parameters
<code>p</code>.</p> <code>p</code>.</p>
<p>If it fails, we return an error message using <code>Result.Error</code>.</p> <p>If it fails, we return an error message using <code>Result.Error</code>.</p>
</p> </p>
</div>
</div> </div>
</div> </div>
</body> </body>

34
sqlite3.carp
View File

@@ -7,7 +7,7 @@ to wrap everything, but it tries to be useful.
## Installation ## Installation
```clojure ```clojure
(load \"https://veitheller.de/git/carpentry/sqlite3@0.0.4\") (load \"git@veitheller.de:git/carpentry/sqlite3.git@0.0.6\")
``` ```
## Usage ## Usage
@@ -16,7 +16,7 @@ The module `SQLite3` provides facilities for opening, closing, and querying
databases. databases.
```clojure ```clojure
(load \"https://veitheller.de/git/carpentry/sqlite3@0.0.4\") (load \"git@veitheller.de:git/carpentry/sqlite3.git@0.0.6\")
; opening DBs can fail, for the purposes of this example we ; opening DBs can fail, for the purposes of this example we
; ignore that ; ignore that
@@ -88,6 +88,10 @@ primitive Carp types can be casted to appropriate SQLite types by using the
(register text (Fn [String] SQLiteColumn) "SQLiteColumn_text") (register text (Fn [String] SQLiteColumn) "SQLiteColumn_text")
(register blob (Fn [String] SQLiteColumn) "SQLiteColumn_blob")) (register blob (Fn [String] SQLiteColumn) "SQLiteColumn_blob"))
(defn prn [s]
(SQLite3.Type.str s))
(implements prn SQLite3.Type.prn)
(defn to-sqlite3-internal [x] (defn to-sqlite3-internal [x]
(match x (match x
(Null) (SQLiteColumn.nil) (Null) (SQLiteColumn.nil)
@@ -177,29 +181,29 @@ If it fails, we return an error message using `Result.Error`.")
(doc close "closes a database.") (doc close "closes a database.")
(register close (Fn [SQLite] ()) "SQLite3_close_c")) (register close (Fn [SQLite] ()) "SQLite3_close_c"))
(definterface to-sqlite3 (Fn [a] SQLIte3.Type)) (definterface to-sqlite3 (Fn [a] SQLite3.Type))
(defmodule Bool (defmodule Bool
(implements to-sqlite3 to-sqlite3) (defn to-sqlite3 [b] (SQLite3.Type.Integer (if b 1 0)))
(defn to-sqlite3 [b] (SQLite3.Type.Integer (if b 1 0)))) (implements to-sqlite3 Bool.to-sqlite3))
(defmodule Int (defmodule Int
(implements to-sqlite3 to-sqlite3) (defn to-sqlite3 [i] (SQLite3.Type.Integer i))
(defn to-sqlite3 [i] (SQLite3.Type.Integer i))) (implements to-sqlite3 Int.to-sqlite3))
(defmodule Long (defmodule Long
(implements to-sqlite3 to-sqlite3) (defn to-sqlite3 [l] (SQLite3.Type.Integer (to-int (the Long l))))
(defn to-sqlite3 [l] (SQLite3.Type.Integer (to-int (the Long l))))) (implements to-sqlite3 Long.to-sqlite3))
(defmodule Float (defmodule Float
(implements to-sqlite3 to-sqlite3) (defn to-sqlite3 [f] (SQLite3.Type.Floating (Double.from-float f)))
(defn to-sqlite3 [f] (SQLite3.Type.Floating (Double.from-float f)))) (implements to-sqlite3 Float.to-sqlite3))
(defmodule Double (defmodule Double
(implements to-sqlite3 to-sqlite3) (defn to-sqlite3 [d] (SQLite3.Type.Floating d))
(defn to-sqlite3 [d] (SQLite3.Type.Floating d))) (implements to-sqlite3 Double.to-sqlite3))
(defmodule String (defmodule String
(implements to-sqlite3 to-sqlite3) (defn to-sqlite3 [s] (SQLite3.Type.Text s))
(defn to-sqlite3 [s] (SQLite3.Type.Text s))) (implements to-sqlite3 String.to-sqlite3))