Changeset 7 in code for trunk/lib/header_pack.ml

Timestamp:

Jun 18, 2022, 8:45:45 PM (3 years ago)

Author:

fox

Message:

Implement author & topic filter for txt pull

File:

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

trunk/lib/header_pack.ml

@@ -69 +69 @@
         | _ -> prerr_endline ("Invalid record pattern"); false
 
+let numof_texts pack = List.length (Msgpck.to_list pack.texts)
+
+let iteri fn pack =
+        let of_pck i = function Msgpck.List (id::time::title::authors::topics::[]) ->
+                let t = match time with Msgpck.Int i -> Int32.of_int i | Msgpck.Uint32 i -> i
+                        | x -> Msgpck.to_uint32 x in
+                let id = to_id id in
+                let title = Msgpck.to_string title in
+                let topics = to_str_list topics in
+                let authors = to_str_list authors in
+                fn i id t title authors topics
+        | _  -> prerr_endline ("\n\nInvalid record structure\n\n")
+        in List.iteri of_pck (Msgpck.to_list pack.texts);
 
 (*let pack_filename ?(filename="index.pck") archive =*)