shinyoukai/kosuzu
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: file:///srv/svn/repo/kosuzu/trunk@22 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
fox
2022-11-02 21:47:20 +00:00
parent a89196679a
commit 4c7ed95a32
3 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/header_pack.ml
View File

@@ -53,6 +53,17 @@ let unpack = function
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
| Msgpck.List (_info :: _fields :: [texts]) -> Msgpck.to_list texts