Bonjour,

Je souhaiterais utiliser le Arg.parse pour parser les arguments envoyes a mon executable.

Je l'utilise tel que :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
open Sys;;
open Array;;
open List;;
open Arg;;
 
let nb = "";;
 
let my_func nb = match nb with
  | "2" -> print_string "appel binair"
  | "10" -> print_string "appel decimal"
  | _ -> print_string "Error : bad argument"
;;
 
let main () = Arg.parse [("-l", Arg.String( fun toto -> my_func toto ), "./my_func -l argument1")];;
 
let _ = main ()
mais j'utilise mal le Arg.String ... pour l'instant ca ne fait rien :/ je ne sais pas comment l'utiliser.

Merci de votre aide.