Refactor files & create libraries

Author: Chris Nevers

Makefile

@@ -2,7 +2,7 @@ all: build
 
 build: 
 	@dune build @all
-	cp -f _build/default/mkocaml.exe /usr/local/bin/mkocaml
+	@cp -f _build/default/bin/mkocaml.exe /usr/local/bin/mkocaml
 
 install:
 	@dune install 

bin/dune

@@ -0,0 +1,3 @@
+(executable
+  (name mkocaml)
+  (libraries unix ioUtils gitUtils makefileUtils opamUtils))

bin/mkocaml.ml

@@ -0,0 +1,43 @@
+open IoUtils
+open GitUtils
+open MakefileUtils
+open OpamUtils
+
+let lib_name = ref ""
+let exe_name = ref ""
+
+let bad_arg arg =
+  raise @@ Arg.Bad (Format.sprintf "Unrecognized argument: %s" arg)
+
+let usage =
+  Format.sprintf "Usage: %s [-l name] [-e name]" Sys.argv.(0)
+
+let specs = [
+  "-l", Arg.Set_string lib_name, ": Creates a library with the given name";
+  "-e", Arg.Set_string exe_name, ": Creates an executable with the given name";
+]
+
+let setup_exe project =
+  Format.sprintf "dune init exec %s bin" project |> cmd_;
+  if Sys.file_exists "Makefile" |> not then
+    makefile project `Exec account |> write_file "Makefile";
+  setup_opam project
+
+let setup_lib project =
+  Format.sprintf "dune init lib %s lib --inline-tests && touch lib/%s.ml"
+    project project |> cmd_;
+  if Sys.file_exists "Makefile" |> not then
+    makefile project `Lib account |> write_file "Makefile";
+  setup_opam project
+
+let () =
+  Arg.parse specs bad_arg usage;
+  if String.length !lib_name > 0 then
+    let _ = setup_git () in
+    setup_lib !lib_name
+  else
+  if String.length !exe_name > 0 then
+    let _ = setup_git () in
+    setup_exe !exe_name
+  else
+    print_endline usage

dune

@@ -0,0 +1,3 @@
+(library
+  (name gitUtils)
+  (libraries ioUtils))

lib/git/dune

@@ -0,0 +1,48 @@
+open IoUtils
+
+let username      = exec "git config user.name"
+let email         = exec "git config user.email"
+let dune_version  = exec "dune --version"
+
+let account = 
+  let open String in
+  username |> lowercase_ascii |> split_on_char ' '  |> concat ""
+
+let gitignore =
+"
+*.annot
+*.cmo
+*.cma
+*.cmi
+*.a
+*.o
+*.cmx
+*.cmxs
+*.cmxa
+
+# ocamlbuild working directory
+_build/
+
+# ocamlbuild targets
+*.byte
+*.native
+
+# oasis generated files
+setup.data
+setup.log
+
+# Merlin configuring file for Vim and Emacs
+.merlin
+
+# Dune generated files
+*.install
+
+# Local OPAM switch
+_opam/
+notes
+*DS_Store
+"
+
+let setup_git () =
+  cmd_ "git init";
+  write_file ".gitignore" gitignore

lib/git/gitUtils.ml

@@ -0,0 +1,3 @@
+(library
+  (name ioUtils)
+  (libraries unix))

lib/io/dune

@@ -0,0 +1,8 @@
+let exec cmd = cmd |> Unix.open_process_in |> input_line
+
+let cmd_ cmd = let _ = Sys.command cmd in ()
+
+let write_file name str =
+  let chan = open_out name in
+  output_string chan str;
+  close_out chan

lib/io/ioUtils.ml

@@ -0,0 +1,3 @@
+(library
+  (name makefileUtils)
+  (libraries ioUtils))

lib/makefile/dune

@@ -0,0 +1,40 @@
+let move_exe_to_bin project = function
+  | `Exec -> Format.sprintf 
+    "\t@cp -f _build/default/bin/main.exe /usr/local/bin/%s\n" project
+  | _ -> ""
+
+let makefile project project_type account =
+  let mv_cmd = move_exe_to_bin project project_type in
+  Format.sprintf
+"all: build
+
+build:
+\t@dune build @all
+%s
+install:
+\t@dune install
+
+test: build
+\t@dune runtest
+
+doc: build
+\t@opam install odoc
+\t@dune build @doc
+
+clean:
+\t@dune clean
+
+# Create a release on Github, then run git pull
+publish:
+\t@git tag 1.0
+\t@git push origin 1.0
+\t@git pull
+\t@opam pin .
+\t@opam publish https://github.com/%s/%s/archive/1.0.tar.gz
+"
+(* Move executables to /usr/local/bin *)
+mv_cmd 
+(* Git account name *)
+account 
+(* Git project name *)
+project

lib/makefile/makefileUtils.ml

@@ -0,0 +1,3 @@
+(library
+  (name opamUtils)
+  (libraries ioUtils gitUtils))

lib/opam/dune

@@ -0,0 +1,40 @@
+open IoUtils
+open GitUtils
+
+let opam project =
+  Format.sprintf
+"
+opam-version: \"2.0\"
+version: \"1.0\"
+authors: \"%s <%s>\"
+maintainer: \"%s <%s>\"
+homepage: \"https://github.com/%s/%s\"
+bug-reports: \"https://github.com/%s/%s/issues\"
+dev-repo: \"git://github.com/%s/%s.git\"
+synopsis: \"\"
+build: [
+  [\"dune\" \"subst\"] {pinned}
+  [\"dune\" \"build\" \"-p\" name \"-j\" jobs]
+]
+
+depends: [
+  \"dune\" {>= \"%s\"}
+]
+"
+(* Authors *)
+username email
+(* Maintainers *)
+username email
+(* Homepage *)
+account project
+(* Bug reports *)
+account project
+(* Dev repo *)
+account project
+(* Build depends on user's dune version *)
+dune_version
+
+let setup_opam project =
+  let filename = project ^ ".opam" in
+  if Sys.file_exists filename |> not then
+    opam project |> write_file filename; cmd_ "dune build @install"