|
Last change
on this file since 40 was 39, checked in by fox, 2 years ago |
|
Read References field; referred by listing; test & tidy documentation
|
|
File size:
544 bytes
|
| Rev | Line | |
|---|
| [3] | 1 | open Logarion
|
|---|
| [39] | 2 |
|
|---|
| 3 | module Ref_set = Set.Make(String)
|
|---|
| 4 | module Id_map = Map.Make(String)
|
|---|
| 5 |
|
|---|
| [3] | 6 | type t = {
|
|---|
| [20] | 7 | id: string;
|
|---|
| 8 | dir: string;
|
|---|
| [3] | 9 | kv: string Store.KV.t;
|
|---|
| 10 | topic_roots: string list;
|
|---|
| 11 | topics: (String_set.t * String_set.t) Topic_set.Map.t;
|
|---|
| [39] | 12 | references: Ref_set.t Id_map.t;
|
|---|
| [3] | 13 | texts: Text.t list
|
|---|
| 14 | }
|
|---|
| 15 |
|
|---|
| 16 | type fn_t = {
|
|---|
| 17 | ext: string;
|
|---|
| [19] | 18 | page: (t -> Logarion.Text.t -> string) option;
|
|---|
| 19 | indices: (t -> unit) option;
|
|---|
| [3] | 20 | }
|
|---|
| [20] | 21 |
|
|---|
| 22 | let empty () = {
|
|---|
| 23 | id = ""; dir = "";
|
|---|
| 24 | kv = Store.KV.empty;
|
|---|
| 25 | topic_roots = [];
|
|---|
| 26 | topics = Topic_set.Map.empty;
|
|---|
| [39] | 27 | references = Id_map.empty;
|
|---|
| [20] | 28 | texts = []
|
|---|
| 29 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
