- let help = "Usage: probe [ -LX | <configuration file> | -gip | <HELM (base)uri> | -f | -oc | -on | -os | -sc | -sn | -ss ]*" in
- let help_L = " Activate lexer debugging" in
- let help_X = " Clear configuration, options and counters" in
- let help_b = "<file> Print backward object dependences in this file" in
- let help_f = " Print the number of objects grouped by flavour" in
- let help_g = " Exclude generated objects" in
- let help_i = " Exclude implied objects" in
- let help_nn = " Print the number of names" in
- let help_ns = " Print the list of names" in
- let help_oc = " Print the total intrinsic complexity (objects)" in
- let help_on = " Print the number of objects" in
- let help_os = " Print the list of objects" in
- let help_p = " Exclude provided objects" in
- let help_sc = " Print the total extrinsic complexity (sources)" in
- let help_sn = " Print the number of sources" in
- let help_ss = " Print the list of sources" in
- A.parse [
- "-L" , A.Set O.debug_lexer, help_L;
- "-X" , A.Unit clear , help_X;
- "-b" , A.String out_b , help_b;
- "-f" , A.Unit out_f , help_f;
- "-g" , A.Unit set_g , help_g;
- "-i" , A.Unit set_i , help_i;
- "-nn", A.Unit out_nn, help_nn;
- "-ns", A.Unit out_ns, help_ns;
- "-oc", A.Unit out_oc, help_oc;
- "-on", A.Unit out_on, help_on;
- "-os", A.Unit out_os, help_os;
- "-p" , A.Unit set_p , help_p;
- "-sc", A.Unit out_sc, help_sc;
- "-sn", A.Unit out_sn, help_sn;
- "-ss", A.Unit out_ss, help_ss;
- ] process help;
- D.objects ()
+ let help = "Usage: probe [ -LX | <configuration file> | -gip | <HELM (base)uri> | -f | -oc | -on | -os | -sc | -sn | -ss ]*" in
+ let help_L = " Activate lexer debugging" in
+ let help_X = " Clear configuration, options and counters" in
+ let help_b = "<file> Print backward object dependences in this file" in
+ let help_f = " Print the number of objects grouped by flavour" in
+ let help_g = " Exclude generated objects" in
+ let help_i = " Exclude implied objects" in
+ let help_nn = " Print the number of names" in
+ let help_ns = " Print the list of names" in
+ let help_oc = " Print the total intrinsic complexity (objects)" in
+ let help_on = " Print the number of objects" in
+ let help_os = " Print the list of objects" in
+ let help_p = " Exclude provided objects" in
+ let help_sc = " Print the total extrinsic complexity (sources)" in
+ let help_sn = " Print the number of sources" in
+ let help_ss = " Print the list of sources" in
+ A.parse [
+ "-L" , A.Set O.debug_lexer, help_L;
+ "-X" , A.Unit clear , help_X;
+ "-b" , A.String out_b , help_b;
+ "-f" , A.Unit out_f , help_f;
+ "-g" , A.Unit set_g , help_g;
+ "-i" , A.Unit set_i , help_i;
+ "-nn", A.Unit out_nn, help_nn;
+ "-ns", A.Unit out_ns, help_ns;
+ "-oc", A.Unit out_oc, help_oc;
+ "-on", A.Unit out_on, help_on;
+ "-os", A.Unit out_os, help_os;
+ "-p" , A.Unit set_p , help_p;
+ "-sc", A.Unit out_sc, help_sc;
+ "-sn", A.Unit out_sn, help_sn;
+ "-ss", A.Unit out_ss, help_ss;
+ ] process help;
+ D.objects ()