Maj terminée. Pour consulter la release notes associée voici le lien :
https://about.gitlab.com/releases/2021/07/07/critical-security-release-gitlab-14-0-4-released/

Commit 9aadd19a authored by POGODALLA Sylvain's avatar POGODALLA Sylvain
Browse files

No commit message

No commit message
parent f2fddeb2
......@@ -2,11 +2,38 @@ module StringSet = Set.Make (String)
module StringMap = Map.Make (String)
let string_of_list sep to_string = function
| [] -> ""
| [a] -> to_string a
| a::tl ->
let buf = Buffer.create 16 in
let () = Buffer.add_string buf (to_string a) in
let () =
List.iter
(fun s -> Buffer.add_string buf (Printf.sprintf "%s%s" sep (to_string s)))
tl in
Buffer.contents buf
let string_of_list_rev sep to_string lst =
let buf = Buffer.create 16 in
let rec string_of_list_rev_rec k = function
| [] -> k ()
| [a] -> let () = Buffer.add_string buf (to_string a) in k()
| a::tl ->
string_of_list_rev_rec (fun () -> let () =
Buffer.add_string buf (Printf.sprintf "%s%s" sep (to_string a))
in k()) tl in
let () = string_of_list_rev_rec (fun () -> ()) lst in
Buffer.contents buf
(*
let rec string_of_list sep to_string = function
| [] -> ""
| [a] -> to_string a
| a::tl -> Printf.sprintf "%s%s%s" (to_string a) sep (string_of_list sep to_string tl)
*)
let error_msg loc file msg =
......
......@@ -12,6 +12,12 @@ module StringMap : Map.S with type key = String.t
length greater than 2) *)
val string_of_list : string -> ('a -> string) -> ('a list) -> string
(** [string_of_list_rev sep to_string [a_1;...;a_n]] returns a string
made of the strings [to_string a_n] ... [to_string a_1]
concatenated with the separator [sep] between each of the elements
(if the list is of length greater than 2) *)
val string_of_list_rev : string -> ('a -> string) -> ('a list) -> string
(** [error_msg loc file msg] returns a string describing a error
message [msg] with the location informations extracted from [loc] and
[file] *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment