Compare commits
2 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 053d505988 | |||
| 1b87e7fec1 |
@@ -6,7 +6,7 @@ everything, but it tries to be useful.
|
||||
## Installation
|
||||
|
||||
```clojure
|
||||
(load "https://veitheller.de/git/carpentry/sqlite3@0.0.4")
|
||||
(load "git@git.veitheller.de:carpentry/sqlite3.git@0.0.6")
|
||||
```
|
||||
|
||||
## Usage
|
||||
@@ -15,7 +15,7 @@ The module `SQLite3` provides facilities for opening, closing, and querying
|
||||
databases.
|
||||
|
||||
```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
|
||||
; ignore that
|
||||
|
||||
@@ -9,8 +9,8 @@
|
||||
<body>
|
||||
<div class="content">
|
||||
<div class="logo">
|
||||
<a href="http://github.com/carp-lang/Carp">
|
||||
<img src="logo.png">
|
||||
<a href="">
|
||||
<img src="">
|
||||
</a>
|
||||
<div class="title">
|
||||
sqlite3
|
||||
@@ -18,26 +18,49 @@
|
||||
<div class="index">
|
||||
<ul>
|
||||
<li>
|
||||
<a href="SQLite3.html">
|
||||
SQLite3
|
||||
</a>
|
||||
<details>
|
||||
<summary>
|
||||
<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>
|
||||
</ul>
|
||||
</div>
|
||||
</div>
|
||||
<h1>
|
||||
SQLite3
|
||||
</h1>
|
||||
<div class="module-description">
|
||||
<p>is a simple high-level wrapper around SQLite3. It doesn’t intend
|
||||
<div class="module">
|
||||
<h1>
|
||||
SQLite3
|
||||
</h1>
|
||||
<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>
|
||||
<h2>Installation</h2>
|
||||
<pre><code class="language-clojure">(load "https://veitheller.de/git/carpentry/sqlite3@0.0.4")
|
||||
<pre><code class="language-clojure">(load "git@veitheller.de:git/carpentry/sqlite3.git@0.0.6")
|
||||
</code></pre>
|
||||
<h2>Usage</h2>
|
||||
<p>The module <code>SQLite3</code> provides facilities for opening, closing, and querying
|
||||
databases.</p>
|
||||
<pre><code class="language-clojure">(load "https://veitheller.de/git/carpentry/sqlite3@0.0.4")
|
||||
<pre><code class="language-clojure">(load "git@veitheller.de:git/carpentry/sqlite3.git@0.0.6")
|
||||
|
||||
; opening DBs can fail, for the purposes of this example we
|
||||
; 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
|
||||
combinators!</p>
|
||||
|
||||
</div>
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#SQLite">
|
||||
<h3 id="SQLite">
|
||||
SQLite
|
||||
</h3>
|
||||
</a>
|
||||
<div class="description">
|
||||
doc-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
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#SQLite">
|
||||
<h3 id="SQLite">
|
||||
SQLite
|
||||
</h3>
|
||||
</a>
|
||||
<div class="description">
|
||||
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>
|
||||
<p>It can be obtained by using <a href="#open">open</a>.</p>
|
||||
|
||||
</p>
|
||||
</div>
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#Type">
|
||||
<h3 id="Type">
|
||||
Type
|
||||
</h3>
|
||||
</a>
|
||||
<div class="description">
|
||||
module
|
||||
</p>
|
||||
</div>
|
||||
<p class="sig">
|
||||
Module
|
||||
</p>
|
||||
<span>
|
||||
|
||||
</span>
|
||||
<p class="doc">
|
||||
<p>represent all the SQLite types we can represent.</p>
|
||||
<p>The constructors are <code>Null</code>, <code>Integer</code>, <code>Floating</code>, <code>Text</code>, and <code>Blob</code>. Most
|
||||
primitive Carp types can be casted to appropriate SQLite types by using the
|
||||
<code>to-sqlite3</code> interface.</p>
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#Type">
|
||||
<h3 id="Type">
|
||||
<a href="SQLite3.Type.html">
|
||||
Type
|
||||
</a>
|
||||
</h3>
|
||||
</a>
|
||||
<div class="description">
|
||||
module
|
||||
</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>
|
||||
</div>
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#close">
|
||||
<h3 id="close">
|
||||
close
|
||||
</h3>
|
||||
</a>
|
||||
<div class="description">
|
||||
external
|
||||
</p>
|
||||
</div>
|
||||
<p class="sig">
|
||||
(Fn [SQLite] ())
|
||||
</p>
|
||||
<span>
|
||||
|
||||
</span>
|
||||
<p class="doc">
|
||||
<p>closes a database.</p>
|
||||
|
||||
</p>
|
||||
</div>
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#open">
|
||||
<h3 id="open">
|
||||
open
|
||||
</h3>
|
||||
</a>
|
||||
<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>
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#open">
|
||||
<h3 id="open">
|
||||
open
|
||||
</h3>
|
||||
</a>
|
||||
<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>
|
||||
</div>
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#query">
|
||||
<h3 id="query">
|
||||
query
|
||||
</h3>
|
||||
</a>
|
||||
<div class="description">
|
||||
defn
|
||||
</p>
|
||||
</div>
|
||||
<p class="sig">
|
||||
(Fn [(Ref SQLite a), (Ref String b), (Ref (Array Type) c)] (Result (Array (Array 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
|
||||
<div class="binder">
|
||||
<a class="anchor" href="#query">
|
||||
<h3 id="query">
|
||||
query
|
||||
</h3>
|
||||
</a>
|
||||
<div class="description">
|
||||
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>
|
||||
<p>If it fails, we return an error message using <code>Result.Error</code>.</p>
|
||||
|
||||
</p>
|
||||
</p>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</body>
|
||||
|
||||
34
sqlite3.carp
34
sqlite3.carp
@@ -7,7 +7,7 @@ to wrap everything, but it tries to be useful.
|
||||
## Installation
|
||||
|
||||
```clojure
|
||||
(load \"https://veitheller.de/git/carpentry/sqlite3@0.0.4\")
|
||||
(load \"git@veitheller.de:git/carpentry/sqlite3.git@0.0.6\")
|
||||
```
|
||||
|
||||
## Usage
|
||||
@@ -16,7 +16,7 @@ The module `SQLite3` provides facilities for opening, closing, and querying
|
||||
databases.
|
||||
|
||||
```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
|
||||
; 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 blob (Fn [String] SQLiteColumn) "SQLiteColumn_blob"))
|
||||
|
||||
(defn prn [s]
|
||||
(SQLite3.Type.str s))
|
||||
(implements prn SQLite3.Type.prn)
|
||||
|
||||
(defn to-sqlite3-internal [x]
|
||||
(match x
|
||||
(Null) (SQLiteColumn.nil)
|
||||
@@ -177,29 +181,29 @@ If it fails, we return an error message using `Result.Error`.")
|
||||
(doc close "closes a database.")
|
||||
(register close (Fn [SQLite] ()) "SQLite3_close_c"))
|
||||
|
||||
(definterface to-sqlite3 (Fn [a] SQLIte3.Type))
|
||||
(definterface to-sqlite3 (Fn [a] SQLite3.Type))
|
||||
|
||||
(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
|
||||
(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
|
||||
(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
|
||||
(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
|
||||
(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
|
||||
(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))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user