@@ -382,9 +378,9 @@ let update_lowlink v w lowlink =
|[]->raise(Failure"Error: stack empty")
(** [strongconnect v index stack indices lowlink on_stack sccs g] est la fonction qui effectue le parcours en profondeur pour trouver les composantes fortement connexes.
Pour chaque successeur [w] de [v] dans le graphe [g], si [w] n'est pas encore visité, il est récursivement visité.
Après avoir visité tous les successeurs, si [v] est une racine de SCC, tous les noeuds dans la pile jusqu'à [v] sont ajoutés à une nouvelle SCC.
(** [strongconnect v index stack indices lowlink on_stack sccs g] is the function that performs the dfs to find strongly connected components.
For each successor [w] of [v] in graph [g], if [w] is not yet visited, it is recursively visited.
After visiting all successors, if [v] is a root of SCC, all nodes in the stack up to [v] are added to a new SCC..
(**[string_of_expr_list expr_list] retourne une chaine de caractere à partir d'une liste d'expression tel que [[X;Y]] correspondant à : string_of_expression X, string_of_expression Y, .... *)
(**[string_of_expr_list expr_list] returns a character string from a list of expressions such as [[X;Y]] corresponding to: string_of_expression X, string_of_expression Y, .... *)
(** [read_and_save_after_keyword filename keyword] is a function that reads the contents of a file specified by [filename] and returns all the lines that appear after the first occurrence of [keyword].
The function opens the file, reads its contents line by line, and stores them in a list. It then searches for the first occurrence of [keyword] in the lines and returns all the lines that appear after it.
If [keyword] is not found, an empty list is returned.
@param filename is the path to the file to be read.
@param keyword is the string to search for in the file.
