Introduced directory structure

Makefile

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

Utils/Angular_momentum.ml

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

Utils/Angular_momentum.mli

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