LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-05-06 07:05:25 +02:00
Code Issues Releases Wiki Activity

Renaming of ocaml modules with capital letters

Browse Source
This commit is contained in:
Anthony Scemama 2014-09-16 23:17:22 +02:00
parent cb509d2d93
commit 5deb211473
18 changed files with 10 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
ocaml/atom.ml → ocaml/Atom.ml
View File

0
ocaml/basis.ml → ocaml/Basis.ml
View File

0
ocaml/bit.ml → ocaml/Bit.ml
View File

0
ocaml/bitlist.ml → ocaml/Bitlist.ml
View File

0
ocaml/element.ml → ocaml/Element.ml
View File

0
ocaml/excitation.ml → ocaml/Excitation.ml
View File

0
ocaml/gto.ml → ocaml/Gto.ml
View File

13
ocaml/MO_class.ml
View File

@ -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
;;

4
ocaml/Makefile
View File

@ -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:

0
ocaml/molecule.ml → ocaml/Molecule.ml
View File

0
ocaml/multiplicity.ml → ocaml/Multiplicity.ml
View File

0
ocaml/point3d.ml → ocaml/Point3d.ml
View File

0
ocaml/primitive.ml → ocaml/Primitive.ml
View File

0
ocaml/qpackage.ml → ocaml/Qpackage.ml
View File

0
ocaml/qputils.ml → ocaml/Qputils.ml
View File

0
ocaml/range.ml → ocaml/Range.ml
View File

46
ocaml/mo_class.ml
View File

@ -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
;;

4
ocaml/qp_set_mo_class.ml
View File

@ -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 =