LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2025-01-03 01:55:40 +01:00
Code Releases Activity

Introduced directory structure

Browse Source
This commit is contained in:
Anthony Scemama 2017-12-31 16:41:04 +01:00
parent 39d2c77243
commit 9c51073bca
6 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

0
Basis_lexer.mll → Basis/Basis_lexer.mll
View File

0
Basis_parser.mly → Basis/Basis_parser.mly
View File

11
Makefile
View File

@ -3,12 +3,11 @@
LIBS=
PKGS=
OCAMLCFLAGS="-g"
OCAMLBUILD=ocamlbuild -j 0 -cflags $(OCAMLCFLAGS) -lflags $(OCAMLCFLAGS)
MLLFILES=$(wildcard *.mll)
MLYFILES=$(wildcard *.mly)
MLFILES=$(wildcard *.ml)
MLIFILES=$(wildcard *.mli)
ALL_TESTS=$(patsubst %.ml,%.byte,$(wildcard test_*.ml))
OCAMLBUILD=ocamlbuild -j 0 -cflags $(OCAMLCFLAGS) -lflags $(OCAMLCFLAGS) -I Utils -I Basis
MLLFILES=$(wildcard */*.mll) $(wildcard *.mll)
MLYFILES=$(wildcard */*.mly) $(wildcard *.mly)
MLFILES= $(wildcard */*.ml) $(wildcard *.ml)
MLIFILES=$(wildcard */*.mli) $(wildcard *.mli)
ALL_EXE=$(patsubst %.ml,%.native,$(wildcard qp_*.ml))
.PHONY: default

5
Angular_momentum.ml → Utils/Angular_momentum.ml
View File

@ -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
@ -11,7 +11,7 @@ let of_char = function
| 'k' | 'K' -> K | 'l' | 'L' -> L
| 'm' | 'M' -> M | 'n' | 'N' -> N
| 'o' | 'O' -> O
| c -> raise (AngularMomentumError c)
| c -> raise (AngularMomentumError (String.make 1 c))
let to_string = function
| S -> "S" | P -> "P"
@ -48,6 +48,7 @@ let of_int = function
| 8 -> K | 9 -> L
| 10 -> M | 11 -> N
| 12 -> O
| c -> raise (AngularMomentumError (string_of_int c))

2
Angular_momentum.mli → Utils/Angular_momentum.mli
View File

@ -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
val of_char : char -> t
val to_string : t -> string