Renaming of ocaml modules with capital letters

ocaml/MO_class.ml

@@ -36,10 +36,11 @@ let create_active   range = Active   (_mo_number_list_of_range range) ;;
 let create_virtual  range = Virtual  (_mo_number_list_of_range range) ;;
 let create_deleted  range = Deleted  (_mo_number_list_of_range range) ;;
 
-let to_bitlist holes particles =
-  let mask = Bitlist.of_int64 (Int64.of_int 513) in
-  let l = Bitlist.to_mo_number_list mask in
-  let i = Inactive l in
-  print_string (to_string i)
+let to_bitlist x =
+   match x with    
+   | Core     l 
+   | Inactive l 
+   | Active   l 
+   | Virtual  l 
+   | Deleted  l -> Bitlist.of_mo_number_list n_int l
 ;;
-

ocaml/Makefile

@@ -14,7 +14,7 @@ LIBS=
 PKGS=
 OCAMLCFLAGS=-g
 OCAMLBUILD=ocamlbuild -cflags $(OCAMLCFLAGS) -lflags -g
-MLFILES=$(wildcard *.ml) ezfio.ml qptypes.ml
+MLFILES=$(wildcard *.ml) ezfio.ml Qptypes.ml
 MLIFILES=$(wildcard *.mli) 
 ALL_TESTS=$(patsubst %.ml,%.byte,$(wildcard test_*.ml))
 ALL_EXE=$(patsubst %.ml,%.native,$(wildcard qp_*.ml))
@@ -40,7 +40,7 @@ qptypes_generator.byte: qptypes_generator.ml
 	$(OCAMLBUILD) qptypes_generator.byte  -use-ocamlfind 
 
 qptypes.ml: qptypes_generator.byte
-	./qptypes_generator.byte > qptypes.ml
+	./qptypes_generator.byte > Qptypes.ml
 	rm qptypes_generator.byte
 
 ${QPACKAGE_ROOT}/EZFIO/Ocaml/ezfio.ml:

ocaml/mo_class.ml

@@ -1,46 +0,0 @@
-open Core.Std;;
-open Qptypes ;;
-
-type t = 
-| Core of MO_number.t list
-| Inactive of MO_number.t list
-| Active of MO_number.t list
-| Virtual of MO_number.t list
-| Deleted of MO_number.t list
-;;
-
-
-let to_string  x = 
-  let print_list l =
-    let s = List.map ~f:(fun x-> MO_number.to_int x |> string_of_int )l
-      |> (String.concat ~sep:", ")
-    in
-    "("^s^")"
-  in
-  
-  match x with
-  | Core     l ->  "Core : "^(print_list l) 
-  | Inactive l ->  "Inactive : "^(print_list l)
-  | Active   l ->  "Active : "^(print_list l)
-  | Virtual  l ->  "Virtual : "^(print_list l)
-  | Deleted  l ->  "Deleted : "^(print_list l)
-;;
-
-let _mo_number_list_of_range range = 
- Range.of_string range |> List.map ~f:MO_number.of_int 
-;;
-
-let create_core     range = Core     (_mo_number_list_of_range range) ;;
-let create_inactive range = Inactive (_mo_number_list_of_range range) ;;
-let create_active   range = Active   (_mo_number_list_of_range range) ;;
-let create_virtual  range = Virtual  (_mo_number_list_of_range range) ;;
-let create_deleted  range = Deleted  (_mo_number_list_of_range range) ;;
-
-let to_bitlist x =
-   match x with    
-   | Core     l 
-   | Inactive l 
-   | Active   l 
-   | Virtual  l 
-   | Deleted  l -> Bitlist.of_mo_number_list n_int l
-;;

ocaml/qp_set_mo_class.ml

@@ -51,13 +51,11 @@ let apply_mask mask n_int mo_tot_num =
   let d = append_d 12 in
   Ezfio.ezfio_array_of_list ~rank:4 ~dim:([| (N_int_number.to_int n_int) ; 2; 6; 1|]) ~data:d 
   |> Ezfio.set_bitmasks_generators ; 
-
 ;;
 
 
 
-let failure s = 
-  raise (Failure s)
+let failure s = raise (Failure s)
 ;;
 
 type t =