|
Last change
on this file since 42 was 41, checked in by fox, 2 years ago |
|
In-Reply-To header field. Note extra list.rev in convert
|
|
File size:
599 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;
|
|---|
| [41] | 13 | replies: Ref_set.t Id_map.t;
|
|---|
| [3] | 14 | texts: Text.t list
|
|---|
| 15 | }
|
|---|
| 16 |
|
|---|
| 17 | type fn_t = {
|
|---|
| 18 | ext: string;
|
|---|
| [19] | 19 | page: (t -> Logarion.Text.t -> string) option;
|
|---|
| 20 | indices: (t -> unit) option;
|
|---|
| [3] | 21 | }
|
|---|
| [20] | 22 |
|
|---|
| 23 | let empty () = {
|
|---|
| 24 | id = ""; dir = "";
|
|---|
| 25 | kv = Store.KV.empty;
|
|---|
| 26 | topic_roots = [];
|
|---|
| 27 | topics = Topic_set.Map.empty;
|
|---|
| [39] | 28 | references = Id_map.empty;
|
|---|
| [41] | 29 | replies = Id_map.empty;
|
|---|
| [20] | 30 | texts = []
|
|---|
| 31 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
