Improve console_of_string

bin/builder_db_app.ml

@@ -759,20 +759,24 @@ module Asn = struct
   let console_of_cs, console_to_cs = projections_of console
 end
 
+(* NOTE: this function is duplicatedi in lib/model.ml *)
 let console_of_string data =
-  let lines = String.split_on_char '\n' data in
   (* remove last empty line *)
-  let lines =
+  let data =
-    match List.rev lines with
+    if String.ends_with ~suffix:"\n" data then
-    | "" :: lines -> List.rev lines
+      String.sub data 0 (String.length data - 2)
-    | _ -> lines
+    else data
   in
+  let lines = String.split_on_char '\n' data in
   List.map (fun line ->
-      match String.split_on_char ':' line with
+      match String.index line ':' with
-      | ts :: tail ->
+      | i ->
-        let delta = float_of_string (String.sub ts 0 (String.length ts - 1)) in
+        (* the timestamp is of the form "%fs", e.g. 0.867s; so chop off the 's' *)
-        Int64.to_int (Duration.of_f delta), String.concat ":" tail
+        let delta = float_of_string (String.sub line 0 (i - 1)) in
-      | _ -> assert false)
+        let delta = Int64.to_int (Duration.of_f delta) in
+        let line = String.sub line i (String.length line - i) in
+        delta, line
+      | exception Not_found -> assert false)
     lines
 
 let extract_full () datadir dest uuid =

lib/model.ml

@@ -524,20 +524,24 @@ let add_build
         Unix.closedir dh;
         Lwt.return (Ok ())
 
+(* NOTE: this function is duplicatedi in bin/builder_db_app.ml *)
 let console_of_string data =
-  let lines = String.split_on_char '\n' data in
   (* remove last empty line *)
-  let lines =
+  let data =
-    match List.rev lines with
+    if String.ends_with ~suffix:"\n" data then
-    | "" :: lines -> List.rev lines
+      String.sub data 0 (String.length data - 2)
-    | _ -> lines
+    else data
   in
+  let lines = String.split_on_char '\n' data in
   List.map (fun line ->
-      match String.split_on_char ':' line with
+      match String.index line ':' with
-      | ts :: tail ->
+      | i ->
-        let delta = float_of_string (String.sub ts 0 (String.length ts - 1)) in
+        (* the timestamp is of the form "%fs", e.g. 0.867s; so chop off the 's' *)
-        Int64.to_int (Duration.of_f delta), String.concat ":" tail
+        let delta = float_of_string (String.sub line 0 (i - 1)) in
-      | _ -> assert false)
+        let delta = Int64.to_int (Duration.of_f delta) in
+        let line = String.sub line i (String.length line - i) in
+        delta, line
+      | exception Not_found -> assert false)
     lines
 
 let exec_of_build datadir uuid (module Db : CONN) =