mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-19 06:21:47 +02:00
Renaming of ocaml modules with capital letters
This commit is contained in:
parent
cb509d2d93
commit
5deb211473
@ -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_virtual range = Virtual (_mo_number_list_of_range range) ;;
|
||||||
let create_deleted range = Deleted (_mo_number_list_of_range range) ;;
|
let create_deleted range = Deleted (_mo_number_list_of_range range) ;;
|
||||||
|
|
||||||
let to_bitlist holes particles =
|
let to_bitlist x =
|
||||||
let mask = Bitlist.of_int64 (Int64.of_int 513) in
|
match x with
|
||||||
let l = Bitlist.to_mo_number_list mask in
|
| Core l
|
||||||
let i = Inactive l in
|
| Inactive l
|
||||||
print_string (to_string i)
|
| Active l
|
||||||
|
| Virtual l
|
||||||
|
| Deleted l -> Bitlist.of_mo_number_list n_int l
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
@ -14,7 +14,7 @@ LIBS=
|
|||||||
PKGS=
|
PKGS=
|
||||||
OCAMLCFLAGS=-g
|
OCAMLCFLAGS=-g
|
||||||
OCAMLBUILD=ocamlbuild -cflags $(OCAMLCFLAGS) -lflags -g
|
OCAMLBUILD=ocamlbuild -cflags $(OCAMLCFLAGS) -lflags -g
|
||||||
MLFILES=$(wildcard *.ml) ezfio.ml qptypes.ml
|
MLFILES=$(wildcard *.ml) ezfio.ml Qptypes.ml
|
||||||
MLIFILES=$(wildcard *.mli)
|
MLIFILES=$(wildcard *.mli)
|
||||||
ALL_TESTS=$(patsubst %.ml,%.byte,$(wildcard test_*.ml))
|
ALL_TESTS=$(patsubst %.ml,%.byte,$(wildcard test_*.ml))
|
||||||
ALL_EXE=$(patsubst %.ml,%.native,$(wildcard qp_*.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
|
$(OCAMLBUILD) qptypes_generator.byte -use-ocamlfind
|
||||||
|
|
||||||
qptypes.ml: qptypes_generator.byte
|
qptypes.ml: qptypes_generator.byte
|
||||||
./qptypes_generator.byte > qptypes.ml
|
./qptypes_generator.byte > Qptypes.ml
|
||||||
rm qptypes_generator.byte
|
rm qptypes_generator.byte
|
||||||
|
|
||||||
${QPACKAGE_ROOT}/EZFIO/Ocaml/ezfio.ml:
|
${QPACKAGE_ROOT}/EZFIO/Ocaml/ezfio.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
|
|
||||||
;;
|
|
@ -51,13 +51,11 @@ let apply_mask mask n_int mo_tot_num =
|
|||||||
let d = append_d 12 in
|
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.ezfio_array_of_list ~rank:4 ~dim:([| (N_int_number.to_int n_int) ; 2; 6; 1|]) ~data:d
|
||||||
|> Ezfio.set_bitmasks_generators ;
|
|> Ezfio.set_bitmasks_generators ;
|
||||||
|
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
let failure s =
|
let failure s = raise (Failure s)
|
||||||
raise (Failure s)
|
|
||||||
;;
|
;;
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
|
Loading…
Reference in New Issue
Block a user