mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-07-25 04:07:24 +02:00
Introduced directory structure
This commit is contained in:
parent
39d2c77243
commit
9c51073bca
11
Makefile
11
Makefile
@ -3,12 +3,11 @@
|
|||||||
LIBS=
|
LIBS=
|
||||||
PKGS=
|
PKGS=
|
||||||
OCAMLCFLAGS="-g"
|
OCAMLCFLAGS="-g"
|
||||||
OCAMLBUILD=ocamlbuild -j 0 -cflags $(OCAMLCFLAGS) -lflags $(OCAMLCFLAGS)
|
OCAMLBUILD=ocamlbuild -j 0 -cflags $(OCAMLCFLAGS) -lflags $(OCAMLCFLAGS) -I Utils -I Basis
|
||||||
MLLFILES=$(wildcard *.mll)
|
MLLFILES=$(wildcard */*.mll) $(wildcard *.mll)
|
||||||
MLYFILES=$(wildcard *.mly)
|
MLYFILES=$(wildcard */*.mly) $(wildcard *.mly)
|
||||||
MLFILES=$(wildcard *.ml)
|
MLFILES= $(wildcard */*.ml) $(wildcard *.ml)
|
||||||
MLIFILES=$(wildcard *.mli)
|
MLIFILES=$(wildcard */*.mli) $(wildcard *.mli)
|
||||||
ALL_TESTS=$(patsubst %.ml,%.byte,$(wildcard test_*.ml))
|
|
||||||
ALL_EXE=$(patsubst %.ml,%.native,$(wildcard qp_*.ml))
|
ALL_EXE=$(patsubst %.ml,%.native,$(wildcard qp_*.ml))
|
||||||
|
|
||||||
.PHONY: default
|
.PHONY: default
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
exception AngularMomentumError of char
|
exception AngularMomentumError of string
|
||||||
|
|
||||||
type t =
|
type t =
|
||||||
| S | P | D | F | G | H | I | J | K | L | M | N | O
|
| S | P | D | F | G | H | I | J | K | L | M | N | O
|
||||||
@ -11,7 +11,7 @@ let of_char = function
|
|||||||
| 'k' | 'K' -> K | 'l' | 'L' -> L
|
| 'k' | 'K' -> K | 'l' | 'L' -> L
|
||||||
| 'm' | 'M' -> M | 'n' | 'N' -> N
|
| 'm' | 'M' -> M | 'n' | 'N' -> N
|
||||||
| 'o' | 'O' -> O
|
| 'o' | 'O' -> O
|
||||||
| c -> raise (AngularMomentumError c)
|
| c -> raise (AngularMomentumError (String.make 1 c))
|
||||||
|
|
||||||
let to_string = function
|
let to_string = function
|
||||||
| S -> "S" | P -> "P"
|
| S -> "S" | P -> "P"
|
||||||
@ -48,6 +48,7 @@ let of_int = function
|
|||||||
| 8 -> K | 9 -> L
|
| 8 -> K | 9 -> L
|
||||||
| 10 -> M | 11 -> N
|
| 10 -> M | 11 -> N
|
||||||
| 12 -> O
|
| 12 -> O
|
||||||
|
| c -> raise (AngularMomentumError (string_of_int c))
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
|||||||
exception AngularMomentumError of char
|
exception AngularMomentumError of string
|
||||||
type t = S | P | D | F | G | H | I | J | K | L | M | N | O
|
type t = S | P | D | F | G | H | I | J | K | L | M | N | O
|
||||||
val of_char : char -> t
|
val of_char : char -> t
|
||||||
val to_string : t -> string
|
val to_string : t -> string
|
Loading…
Reference in New Issue
Block a user