Skip to content
Extraits de code Groupes Projets
Valider 8087229a rédigé par Thomas MESLIN's avatar Thomas MESLIN
Parcourir les fichiers

Fichier compile et sexecute mais ne fait pas encore grand chose

parent a35800a2
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
caml_file := coef_to_csv csv
caml_need_csv := point_assos_to_gephi
caml_to_run := coef_to_csv point_assos_to_gephi
all: init $(caml_file) $(caml_need_csv) complete_compile run complete_run clean
caml_to_run := coef_to_csv. point_assos_to_gephi.
all: init $(caml_file) $(caml_need_csv) complete_compile $(caml_to_run) complete_run clean
init:
@echo "\nStart to compile all caml programs\n"
......@@ -16,8 +16,8 @@ $(caml_need_csv):
complete_compile:
@echo "\nAll caml programs compiled !\n"
run:$(caml_to_run)
cd script/bin;./$^.exe
$(caml_to_run):
cd script/bin;./$@exe
complete_run:
@echo "\nAll caml programs executed !\n"
......
type csv
(*Open a file as a csv file*)
let open_as_csv : string -> csv
(*Merge two column to the new one with the function to merge*)
let merge_column : csv -> string -> string -> string -> (string -> string -> string) -> csv
let map : csv -> string -> (string -> string) -> csv
let iter : csv -> string -> (string -> ()) -> ()
let save : csv -> string -> ()
let create : string list -> csv
let add_line : csv -> string arr -> csv
let create_line : csv -> string*string list -> csv
......@@ -9,10 +9,9 @@ let () = begin
(*Ouverture coef listes*)
let coef_liste_path = "../../res_script/coef_listes.csv" in
let coef_liste = Csv.open_as_csv coef_liste_path in
print_endline "J'ai ouvert tout mes fichiers ! "
Csv.iter csv_boost_arise "ARISE" print_endline
end
let () = begin
let point_asso_path = "../../asset_original/points_asso_S1S3S5_2024.csv" in
(*Ouverture point assos*)
let points_assos = Csv.open_as_csv point_asso_path in
(*Ouverture coef assos*)
let coef_asso_path = "../../res_script/coef_asso.csv" in
let coef_asso = Csv.open_as_csv coef_asso_path in
(*Ouverture coef listes*)
let coef_liste_path = "../../res_script/coef_listes.csv" in
let coef_liste = Csv.open_as_csv coef_liste_path in
:q
end
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter