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

Fixed date format

parent d50010f3
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -13,7 +13,7 @@ $(caml_file): ...@@ -13,7 +13,7 @@ $(caml_file):
cd script/src;ocamlopt $@.ml -o ../bin/$@.exe cd script/src;ocamlopt $@.ml -o ../bin/$@.exe
$(caml_need_csv): $(caml_need_csv):
cd script/src;ocamlopt csv.ml $@.ml -o ../bin/$@.exe cd script/src;ocamlopt unix.cmxa csv.ml $@.ml -o ../bin/$@.exe
complete_compile: complete_compile:
@echo "\nAll caml programs compiled !\n" @echo "\nAll caml programs compiled !\n"
......
let create_gexf path node_data edge_data = let create_gexf path node_data edge_data =
let oc = open_out path in let oc = open_out path in
let date = "2025-04-08" in (*yyyy-mm-dd*) let t = Unix.time () in
let tm = Unix.localtime t in
let date = Printf.sprintf "%4d-%02d-%02d" (tm.tm_year+1900) (tm.tm_mon+1) tm.tm_mday in (*yyyy-mm-dd*)
(*Création de l'HEADER*) (*Création de l'HEADER*)
output_string oc "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"; output_string oc "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
output_string oc output_string oc
...@@ -97,29 +98,3 @@ end ...@@ -97,29 +98,3 @@ end
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter