Question

比方说，我有一个1 -> n关系：一个待办事项可以有很多（或零个）笔记，而一个便笺可以有零个或一个待办事项。如何在ReasonML中实现这种关系？（绑定到外部库）

这是我目前所拥有的（当然不起作用）

module Note = {
  module Attributes = {
    [@bs.deriving abstract]
    type t = {
      [@bs.optional]
      id: float,
      [@bs.optional]
      text: string,
      [@bs.optional]
      todo: Todo.Attributes.t,
    };
  };
};

module Todo = {
  [@bs.deriving abstract]
  type t = {
    [@bs.optional]
    id: float,
    [@bs.optional]
    title: string,
    [@bs.optional]
    completed: bool,
    [@bs.optional]
    notes: array(Note.Attributes.t),
  };
};

let todo = Todo.Attribute.t(~title="hello");

如果Note和Todo在一个文件中，而又在单独的文件中，怎么办？

Answer 1

我不熟悉Reason，但在OCaml中，可以使用相互递归模块来完成这种工作，如以下最小示例所示。

使用相互递归需要定义其模块类型：

module type NoteSig = sig
  type t
end

module type TodoSig = sig
  type t
end

和实际模块：

module rec Note : NoteSig = struct
  type t = {
      todo: Todo.t
    }
end

and Todo : TodoSig = struct
  type t = {
      notes: Note.t array
  }
end

如果您希望两个模块都放在单独的文件中，则可以使用 functors 进行几乎相同的操作（仍然使用模块签名，例如在文件 sig.ml中）：

a.ml：

module Note (T:Sig.TodoSig) = struct
  type t = {
     todo: T.t
  }
end

b.ml：

module Todo (N:Sig.NoteSig) = struct
  type t = {
    notes: N.t array
  }
end

您现在可以在另一个文件中实例化模块：

c.ml：

module rec NoteImpl = (A.Note(TodoImpl):NoteSig)
and TodoImpl = (B.Todo(NoteImpl):TodoSig)

我只能假设在Reason中有一种方法可以做同样的事情，可能是在每个地方都添加了很多括号。希望对您有所帮助。

循环依赖原因ml

1 个答案: