Changeset 22 in code for trunk/lib

Timestamp:

Nov 2, 2022, 9:47:20 PM (2 years ago)

Author:

fox

Message:

Use txt.conf to generate index.pck meta; fix double load while indexing

File:

• trunk/lib/header_pack.ml (modified) (1 diff)

trunk/lib/header_pack.ml

@@ -54 +54 @@
 let of_string s = unpack @@ snd @@ Msgpck.StringBuf.read s
 
+let of_kv kv =
+        let find k kv = try Store.KV.find k kv with Not_found -> "" in
+        let find_ls k kv = try String_set.list_of_csv (Store.KV.find k kv) with Not_found -> [] in
+        {
+                info = { version = version; id = find "Id" kv; title = find "Title" kv;
+                        people = find_ls "Authors" kv; locations = find_ls "Locations" kv };
+                fields;
+                texts = Msgpck.List [];
+                peers = str_list (find_ls "Peers" kv);
+        }
+
 let list filename = try
         let texts_list = function