diff --git a/makefile b/makefile index f9acf383418c56df8e12a2db553f02313a5b6661..92450a6745ee868634a96444cc13ce3e44aad7ae 100644 --- a/makefile +++ b/makefile @@ -1,7 +1,7 @@ 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" diff --git a/script/src/csv.mli_gneugneu b/script/src/csv.mli_gneugneu deleted file mode 100644 index 8a24af3f1f959c9d3df5bddb6579e0d15e3145d3..0000000000000000000000000000000000000000 --- a/script/src/csv.mli_gneugneu +++ /dev/null @@ -1,20 +0,0 @@ - -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 diff --git a/script/src/point_assos_to_gephi.ml b/script/src/point_assos_to_gephi.ml index 2c7b061e51a004aabd18e3965c139ed08bca91c9..a1cc582b7b19164143863149d1781ddab5aef984 100644 --- a/script/src/point_assos_to_gephi.ml +++ b/script/src/point_assos_to_gephi.ml @@ -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 diff --git a/script/src/point_assos_to_gephi_vrai.ml b/script/src/point_assos_to_gephi_vrai.ml deleted file mode 100644 index 67188c53738dc8f1039d2f8e53cd59545371364f..0000000000000000000000000000000000000000 --- a/script/src/point_assos_to_gephi_vrai.ml +++ /dev/null @@ -1,15 +0,0 @@ - -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