Changeset 39 in code for trunk/cli/conversion.ml

Timestamp:

Dec 12, 2022, 10:52:55 PM (2 years ago)

Author:

fox

Message:

Read References field; referred by listing; test & tidy documentation

File:

• trunk/cli/conversion.ml (modified) (3 diffs)

trunk/cli/conversion.ml

@@ -1 +1 @@
 open Logarion
+
+module Ref_set = Set.Make(String)
+module Id_map = Map.Make(String)
+
 type t = {
         id: string;
@@ -6 +10 @@
         topic_roots: string list;
         topics: (String_set.t * String_set.t) Topic_set.Map.t;
+        references: Ref_set.t Id_map.t;
         texts: Text.t list
 }
@@ -20 +25 @@
         topic_roots = [];
         topics = Topic_set.Map.empty;
+        references = Id_map.empty;
         texts = []
 }