clojure 中的关系数据库中的一个_model_数据是如何实现的？

Question

我在 Twitter 以及 #clojure IRC 频道上提出了这个问题，但没有得到回复。

已经有几篇关于 Clojure-for-Ruby-programmers、Clojure-for-lisp-programmers.. 但缺少的部分是 Clojure for ActiveRecord 程序员 。

有一些关于与 MongoDB、Redis 等交互的文章 - 但这些最终都是键值存储。然而，来自 Rails 背景的我们习惯于从继承的角度思考数据库 - has_many、多态、belongs_to 等。

关于 Clojure/Compojure + MySQL 的几篇文章 (ffclassic) - 深入研究 sql。当然，ORM 可能会导致阻抗不匹配，但事实是，在像 ActiveRecord 一样思考之后，很难再以任何其他方式思考。

我相信关系数据库非常适合面向对象范例，因为它们本质上是集合。像 activerecord 这样的东西非常适合对这些数据进行建模。 例如，一个博客 - 简单地说

class Post < ActiveRecord::Base
  has_many :comments
 end


 class Comment < ActiveRecord::Base
   belongs_to :post
 end

如何在 Clojure 中对此进行建模 - 这是严格反 OO 的？如果它涉及所有函数式编程语言，也许这个问题会更好，但从 Clojure 的角度（以及 Clojure 示例）我更感兴趣

Answer 1

现在有几个类似 ORM 的库正在开发中。

• clj-record
• Carte
• Oyako （免责声明，我写了这个。）
• ClojureQL 从我看来，它更像是一个 SQL 生成库，但它值得一提。

在邮件列表中，一些（聪明的）人最近描述了一些其他模型来说明如何实现这一点可能会起作用。这些库中的每一个都采用了相当不同的方法来解决问题，因此请务必查看所有库。

例如，这是一个使用 Oyako 的扩展示例。该库尚未准备好投入生产，并且仍在大力开发中，因此该示例可能在一周内无效，但它正在实现这一目标。无论如何，这都是一个概念验证。给它一些时间，有人会想出一个好的库。

请注意，clojure.contrib.sql 已经允许您从数据库中获取记录（通过 JDBC），并最终得到表示记录的不可变哈希映射。由于数据最终以法线贴图形式出现，因此所有适用于贴图的无数 Clojure 核心函数都已适用于该数据。

ActiveRecord 还给您什么？我可以想到几件事。

简洁的 SQL 查询 DSL

我在心里建模的方式是：首先定义表之间的关系。这不需要突变或对象。这是静态描述。 AR 将这些信息分散在一堆类中，但我将其视为一个单独的（静态）实体。

使用定义的关系，您可以以非常简洁的方式编写查询。以 Oyako 为例：

(def my-data (make-datamap db [:foo [has-one :bar]]
                              [:bar [belongs-to :foo]]))

(with-datamap my-data (fetch-all :foo includes :bar))

然后您将拥有一些 foo 对象，每个对象都有一个 :bar 键来列出您的栏。

在Oyako，“数据地图”只是一张地图。查询本身是一个地图。返回的数据是地图向量（地图向量）。所以你最终会得到一个标准的、简单的方法来构建、操作和迭代所有这些东西，这很好。添加一些糖（宏和普通函数），让你更轻松地简洁地创建和操作这些地图，它最终变得非常强大。这只是一种方法，还有很多方法。

如果您查看像 Sequel 这样的库作为另一个示例，您会看到类似的内容：

Artist.order(:name).last

但是为什么这些函数必须是存在于对象内部的方法吗？ Oyako 中的等效项可能是：

(last (-> (query :artist) 
          (order :name)))

保存/更新/删除记录

同样，为什么需要 OO 风格的对象或突变或实现继承？首先获取记录（作为不可变映射），然后通过一堆函数将其线程化，根据需要将新值关联到其上，然后将其放回数据库或通过调用函数将其删除在它上面。

聪明的库可以利用元数据来跟踪哪些字段已更改，以减少更新所需的查询量。或者标记记录，以便数据库函数知道将其放回到哪个表中。我认为，Carte 甚至可以进行级联更新（当父记录更改时更新子记录）。

验证、挂钩

我认为其中大部分属于数据库而不是 ORM 库。例如，级联删除（删除父记录时也删除子记录）：AR 有办法做到这一点，但你可以只在 DB 中的表上扔一个子句，然后让你的 DB 处理它，再也不用担心了。与多种约束和验证相同。

但如果您想要钩子，可以使用普通的旧函数或多方法以非常轻量级的方式实现它们。在过去的某个时刻，我有一个数据库库，它在 CRUD 周期的不同时间调用钩子，例如 after-save 或 before-delete。它们是根据表名进行调度的简单多方法。这使您可以根据需要将它们扩展到您自己的表。

(defmulti before-delete (fn [x] (table-for x)))
(defmethod before-delete :default [& _]) ;; do nothing
(defn delete [x] (when (before-delete x) (db-delete! x) (after-delete x)))

然后，作为最终用户，我可以编写：

(defmethod before-delete ::my_table [x] 
  (if (= (:id x) 1)
    (throw (Exception. "OH NO! ABORT!"))
    x))

简单且可扩展，并花了几秒钟来编写。看不到 OO。也许不像 AR 那么复杂，但有时简单就足够了。

查看此库以获取定义钩子的另一个示例。

迁移

菜单有这些。我没有对它们进行太多思考，但对数据库进行版本控制并将数据放入其中似乎并不超出 Clojure 的可能性范围。

波兰语

AR 的许多优点都来自于命名表和命名列的所有约定，以及用于大写单词和格式化日期等的所有便利功能。这与 OO 与非 OO 无关； AR 只是经过了很多打磨，因为我们投入了很多时间。也许 Clojure 还没有用于处理 DB 数据的 AR 类库，但请给它一些时间。

所以...

而不是拥有一个知道如何销毁自身、变异自身、保存自身、将自身与其他数据相关联、获取自身等的对象，而是拥有只是数据的数据，然后定义起作用的函数该数据：保存它、销毁它、在数据库中更新它、获取它、将它与其他数据关联。这就是 Clojure 处理数据的一般方式，数据库中的数据也不例外。

Foo.find(1).update_attributes(:bar => "quux").save!

=> (with-db (-> (fetch-one :foo :where {:id 1})
                (assoc :bar "quux")
                (save!)))

Foo.create!(:id => 1)

=> (with-db (save (in-table :foo {:id 1})))

类似的事情。它与对象的工作方式是由内而外的，但它提供相同的功能。但在 Clojure 中，您还可以获得以 FP 类方式编写代码的所有好处。

Answer 2

这个问题已经有一段时间没有得到解答了，但是 Korma http://sqlkorma.com 是另一个项目，也有助于减少SQL 和 Clojure 之间的不一致。它是最近才开始开发的，应该可以与更新的 Clojure 版本一起使用。

Answer 3

基于 clojure.contrib.sql 构建的新的 micro SQL DSL 已经启动。它位于 Github 上，重量轻，大小为 76 loc。

作者的博客上有很多 DSL 背后的示例和理论，链接在他的 Github 个人资料上（新用户 SO 超链接限制啊）。我觉得它的设计允许将 SQL 抽象为更惯用的 Clojure。