Add .ocamlformat and apply style

Author: progbits

.ocamlformat

@@ -0,0 +1,2 @@
+profile = ocamlformat
+break-cases = fit

blank.ml

@@ -2,12 +2,11 @@ open Core
 
 (* Get the input filename *)
 let get_filename =
-    try Some (Array.get (Sys.get_argv ()) 1)
-    with Invalid_argument _ -> None
+  try Some (Array.get (Sys.get_argv ()) 1) with Invalid_argument _ -> None
 
 let () =
-    match get_filename with
-    | Some filename ->
-        let tokens = Parse.scan (In_channel.read_all filename) in
-          List.iter tokens ~f:(fun token -> Parse.print_token token)
-    | None -> print_endline "usage: blank FILENAME"
+  match get_filename with
+  | Some filename ->
+      let tokens = Parse.scan (In_channel.read_all filename) in
+      List.iter tokens ~f:(fun token -> Parse.print_token token)
+  | None -> print_endline "usage: blank FILENAME"

lib/parse.ml

@@ -1,75 +1,60 @@
 open Core
 
 (* Lexical tokens *)
-type token =
-    | Space
-    | Tab
-    | LineFeed
-    | EOF
+type token = Space | Tab | LineFeed | EOF
 
 (* Stack manipulation instructions *)
-type stack_manipulation =
-    | Push of int
-    | Duplicate
-    | Swap
-    | Discard
+type stack_manipulation = Push of int | Duplicate | Swap | Discard
 
 (* Arithmetic instructions *)
 type arithmetic =
-    | Addtion of int * int
-    | Subtraction of int * int
-    | Multiplication of int * int
-    | Division of int * int
-    | Modulo of int * int
+  | Addtion of int * int
+  | Subtraction of int * int
+  | Multiplication of int * int
+  | Division of int * int
+  | Modulo of int * int
 
 (* Heap access instructions *)
-type heap_acces =
-    | Store
-    | Retrieve
+type heap_acces = Store | Retrieve
 
 (* Flow control instructions *)
 type flow_control =
-    | Mark of int
-    | Call of int
-    | UnconditionalJump of int
-    | JumpZero of int
-    | JumpNegative of int
-    | EndSubroutine
-    | EndProgram
+  | Mark of int
+  | Call of int
+  | UnconditionalJump of int
+  | JumpZero of int
+  | JumpNegative of int
+  | EndSubroutine
+  | EndProgram
 
 (* IO instructions *)
-type io =
-    | OutputCharacter
-    | OutputNumber
-    | ReadCharacter
-    | ReadNumber
+type io = OutputCharacter | OutputNumber | ReadCharacter | ReadNumber
 
 (* Instruction modification parameters *)
 type imp =
-    | StackManipulation of stack_manipulation
-    | Arithmetic of arithmetic
-    | HeapAccess of heap_acces
-    | FlowControl of flow_control
-    | IO of io
+  | StackManipulation of stack_manipulation
+  | Arithmetic of arithmetic
+  | HeapAccess of heap_acces
+  | FlowControl of flow_control
+  | IO of io
 
 (* Print the string representation of a token *)
 let print_token token =
-    match token with
-    | Space -> print_endline "Space"
-    | Tab -> print_endline "Tab"
-    | LineFeed -> print_endline "LineFeed"
-    | EOF -> print_endline "EOF"
+  match token with
+  | Space -> print_endline "Space"
+  | Tab -> print_endline "Tab"
+  | LineFeed -> print_endline "LineFeed"
+  | EOF -> print_endline "EOF"
 
 (* Convert a char to a token *)
 let char_to_token c =
-    match c with
-    | ' ' -> Space
-    | '\t' -> Tab
-    | '\n' -> LineFeed
-    | _ -> raise (Invalid_argument "unexpected character")
+  match c with
+  | ' ' -> Space
+  | '\t' -> Tab
+  | '\n' -> LineFeed
+  | _ -> raise (Invalid_argument "unexpected character")
 
 (* Scan a list of tokens from a string *)
 let scan input =
-    let chars = List.init (String.length input) ~f:(String.get input) in
-      List.map chars ~f:(fun c -> char_to_token c)
-
+  let chars = List.init (String.length input) ~f:(String.get input) in
+  List.map chars ~f:(fun c -> char_to_token c)

test/test.ml

@@ -7,10 +7,6 @@ let test_scan _ =
   (* Check correct tokens are scanned. *)
   assert_equal [Space; Tab; LineFeed; Space] (scan input)
 
-let suite =
-  "ScannerTests" >::: [
-    "test_scan" >:: test_scan
-  ]
+let suite = "ScannerTests" >::: ["test_scan" >:: test_scan]
 
-let () =
-  run_test_tt_main suite
+let () = run_test_tt_main suite