lowercase

Makefile

@@ -1,6 +1,6 @@
 # Build the cpdf command line tools and top level
-MODS = cpdfstream tjutil tjutf16 tjllist tjparserMonad tjjson xmlm \
+MODS = cpdfstream tjutil tjutf16 tjllist tjparsermonad tjjson \
-       cpdfJSON cpdfstrftime cpdfcoord \
+       xmlm cpdfjson cpdfstrftime cpdfcoord \
        cpdfpagespec cpdfposition cpdf cpdfcommand
 
 SOURCES = $(foreach x,$(MODS),$(x).ml $(x).mli) cpdfcommandrun.ml

cpdfcommand.ml

@@ -1171,7 +1171,7 @@ let set_input s =
 let set_json_input s =
   args.original_filename <- s;
   let fh = open_in_bin s in
-  let pdf = CpdfJSON.of_input (Pdfio.input_of_channel fh) in
+  let pdf = Cpdfjson.of_input (Pdfio.input_of_channel fh) in
     close_in fh;
     args.inputs <- (AlreadyInMemory pdf, "all", "", "", ref false, None)::args.inputs
 
@@ -3457,10 +3457,10 @@ let write_json output pdf =
   | NoOutputSpecified ->
       error "-output-json: no output name specified"
   | Stdout ->
-      CpdfJSON.to_output (Pdfio.output_of_channel stdout) args.jsonparsecontentstreams args.jsonnostreamdata pdf
+      Cpdfjson.to_output (Pdfio.output_of_channel stdout) args.jsonparsecontentstreams args.jsonnostreamdata pdf
   | File filename ->
       let f = open_out filename in
-        CpdfJSON.to_output (Pdfio.output_of_channel f) args.jsonparsecontentstreams args.jsonnostreamdata pdf;
+        Cpdfjson.to_output (Pdfio.output_of_channel f) args.jsonparsecontentstreams args.jsonnostreamdata pdf;
         close_out f
 
 (* Main function *)

tjjson.ml

@@ -23,8 +23,8 @@ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.*)
 
 open Tjutil
-open TjparserMonad
+open Tjparsermonad
-module P = TjparserMonad
+module P = Tjparsermonad
 
 type t =
   | String of string