OCaml version of CTFP (#201)

* OCaml version of the book upto chapter 24
* Checking in Chapter 25
* Adding Ch 26
* Add final two chapters
* Add Marcello Seri's comments
* Ch 25 changes
* Ch 26
* Run formatter
* Adding OCaml tweaks in the half-title + colophon
* Adding links in the colophon

Co-authored-by: Igal Tabachnik <hmemcpy@gmail.com>

Author: ArulselvanMadhavan

src/Makefile

@@ -1,7 +1,7 @@
 # Igal Tabachnik, 2007.
 # Based on work by Andres Raba et al., 2013-2015.
 
-.PHONY: default all clean out-dir version.tex
+.PHONY: default all clean out-dir version.tex scala ocaml
 
 DIR := $(shell pwd)
 GIT_VER := $(shell git describe --tags --always --long | tr -d '\n')
@@ -13,16 +13,21 @@ DEFAULTTOPTEX = ctfp-reader.tex ctfp-print.tex
 
 SCALATEXFILES = ctfp-reader-scala.tex ctfp-print-scala.tex # todo make this a macro
 
+OCAMLTEXFILES = ctfp-reader-ocaml.tex ctfp-print-ocaml.tex # todo make this a macro
+
 # Top-level LaTeX files from which CTFP book can be generated
-TOPTEXFILES = version.tex $(DEFAULTTOPTEX) $(SCALATEXFILES)
+TOPTEXFILES = version.tex $(DEFAULTTOPTEX) $(SCALATEXFILES) $(OCAMLTEXFILES)
 
 # Default PDF file to make
 DEFAULTPDF:=$(DEFAULTTOPTEX:.tex=.pdf)
 
 # Scala PDF file to make
 SCALAPDF:=$(SCALATEXFILES:.tex=.pdf)
 
-# Other PDF files for the CTFP book
+# OCaml PDF file to make
+OCAMLPDF:=$(OCAMLTEXFILES:.tex=.pdf)
+
+# Other PDF files for the CTFP book 
 TOPPDFFILES:=$(TOPTEXFILES:.tex=.pdf)
 
 # Configuration files
@@ -31,21 +36,24 @@ OPTFILES = opt-print-ustrade.tex \
 			opt-scala.tex
 
 # All the LaTeX files for the CTFP book in order of dependency
-TEXFILES = $(TOPTEXFILES) $(SCALATEXFILES) $(OPTFILES)
+TEXFILES = $(TOPTEXFILES) $(SCALATEXFILES) $(OCAMLTEXFILES) $(OPTFILES)
 
 default: suffix=''
 default: out-dir $(DEFAULTPDF) # todo cover
 
-all: default scala
+all: default scala ocaml
 
 scala: suffix='-scala'
 scala: out-dir version.tex $(SCALAPDF)
 
+ocaml: suffix='-ocaml'
+ocaml: out-dir version.tex $(OCAMLPDF)
+
 # Main targets
 $(TOPPDFFILES) : %.pdf : %.tex $(TEXFILES)
 	if which latexmk > /dev/null 2>&1 ;\
 	then \
-		latexmk -shell-escape -interaction=nonstopmode -halt-on-error -norc -jobname=ctfp -pdflatex="xelatex %O %S" -pdf $< ;\
+		latexmk -shell-escape -interaction=nonstopmode -halt-on-error -norc -jobname=ctfp -pdflatex="xelatex %O %S" -pdfxe $< ;\
 		mv ctfp.pdf ../out/$(GIT_VER)/$(subst ctfp,$(OUTPUT),$(subst ctfp-reader,$(OUTPUT),$*)).pdf ;\
 	else @printf "Error: unable to find latexmk. Is it installed?\n" ;\
 	fi
@@ -64,5 +72,5 @@ clean:
 	if which latexmk > /dev/null 2>&1 ; then latexmk -CA; fi
 	rm -rf ../out
 
-clean-minted:
+clean-minted: 
 	rm -rf _minted-*

src/content/1.1/code/ocaml/snippet01.ml

@@ -0,0 +1,6 @@
+module type Polymorphic_Function_F = sig
+  type a
+  type b
+
+  val f : a -> b
+end

src/content/1.1/code/ocaml/snippet02.ml

@@ -0,0 +1,6 @@
+module type Polymorphic_Function_G = sig
+  type b
+  type c
+
+  val g : b -> c
+end

src/content/1.1/code/ocaml/snippet03.ml

@@ -0,0 +1,9 @@
+module Compose_Example
+    (F : Polymorphic_Function_F)
+    (G : Polymorphic_Function_G with type b = F.b) =
+struct
+  (** OCaml doesn't have a compose operator. So, creating one. **)
+  let ( >> ) g f x = g (f x)
+
+  let compose : 'a -> 'c = G.g >> F.f
+end

src/content/1.1/code/ocaml/snippet04.ml

@@ -0,0 +1,9 @@
+module Compose_Three_GF = functor(F:Polymorphic_Function_F)(G:Polymorphic_Function_G with type b = F.b)(H:Polymorphic_Function_H with type c = G.c) -> struct
+  let compose : 'a -> 'd = H.h >> (G.g >> F.f)
+end
+
+module Compose_Three_HG = functor(F:Polymorphic_Function_F)(G:Polymorphic_Function_G with type b = F.b)(H:Polymorphic_Function_H with type c = G.c) -> struct
+  let compose : 'a -> 'd = (H.h >> G.g) >> F.f
+end
+
+Compose_Three_GF.compose = Compose_Three_HG.compose

src/content/1.1/code/ocaml/snippet05.ml

@@ -0,0 +1 @@
+let id x = x

src/content/1.1/code/ocaml/snippet06.ml

@@ -0,0 +1,2 @@
+f >> id
+id >> f

src/content/1.10/code/ocaml/snippet01.ml

@@ -0,0 +1 @@
+val alpha : 'a . 'a f -> 'a g

src/content/1.10/code/ocaml/snippet02.ml

@@ -0,0 +1 @@
+val alpha : 'a f -> 'a g

src/content/1.10/code/ocaml/snippet03.ml

@@ -0,0 +1 @@
+val alpha : 'a f -> 'a g