sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

autoformat

This commit is contained in:
Simon Forman 2022-09-23 08:38:17 -07:00
parent c76ae9979d
commit 64d4a42978
5 changed files with 45 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
implementations/Ocaml/helloworld/_build/.db
View File

Binary file not shown.

BIN
implementations/Ocaml/helloworld/_build/.digest-db
View File

Binary file not shown.

17
implementations/Ocaml/helloworld/_build/default/bin/.formatted/main.ml
View File

@ -5,13 +5,20 @@ type joy_type =
| JoyInt of int | JoyInt of int
| JoyList of joy_type list | JoyList of joy_type list
type joy_list = joy_type list (* type joy_list = joy_type list *)
let joy_true = JoyTrue let joy_true = JoyTrue
let joy_false = JoyFalse let joy_false = JoyFalse
let j_loop = JoySymbol "loop" let j_loop = JoySymbol "loop"
let empty_list = JoyList []
let zero = JoyInt 0 let zero = JoyInt 0
let dummy = [ joy_true; joy_false; j_loop; zero ] let dummy = JoyList [ joy_true; joy_false; j_loop; zero ]
let list_get jt = match jt with JoyList el -> el | _ -> []
let () = print_endline "Hello, World!" let rec joy_to_string jt =
match jt with
| JoySymbol sym -> sym
| JoyTrue -> "true"
| JoyFalse -> "false"
| JoyInt i -> string_of_int i
| JoyList el -> "[" ^ String.concat " " (List.map joy_to_string el) ^ "]"
let () = print_endline (joy_to_string dummy)

29
implementations/Ocaml/helloworld/_build/log
View File

@ -1,9 +1,9 @@
# dune exec helloworld # dune build --auto-promote @fmt
# OCAMLPARAM: unset # OCAMLPARAM: unset
# Shared cache: disabled # Shared cache: disabled
# Workspace root: /usr/home/sforman/src/Joypy/implementations/Ocaml/helloworld # Workspace root: /usr/home/sforman/src/Joypy/implementations/Ocaml/helloworld
# Auto-detected concurrency: 8 # Auto-detected concurrency: 8
$ /usr/home/sforman/.opam/default/bin/ocamlc.opt -config > /tmp/dune_31d5e4_output $ /usr/home/sforman/.opam/default/bin/ocamlc.opt -config > /tmp/dune_9b5fa0_output
# Dune context: # Dune context:
# { name = "default" # { name = "default"
# ; kind = "default" # ; kind = "default"
@ -116,3 +116,28 @@ $ /usr/home/sforman/.opam/default/bin/ocamlc.opt -config > /tmp/dune_31d5e4_outp
# ; windows_unicode = false # ; windows_unicode = false
# } # }
# } # }
$ (cd _build/default && /usr/home/sforman/.opam/default/bin/ocamlformat --impl bin/main.ml) > _build/default/bin/.formatted/main.ml
$ /usr/local/bin/git --no-pager diff --no-index --color=always -u _build/default/bin/main.ml _build/default/bin/.formatted/main.ml
> diff --git a/_build/default/bin/main.ml b/_build/default/bin/.formatted/main.ml
> index 2fcd04c..fd4a636 100644
> --- a/_build/default/bin/main.ml
> +++ b/_build/default/bin/.formatted/main.ml
> @@ -14,11 +14,11 @@ let zero = JoyInt 0
> let dummy = JoyList [ joy_true; joy_false; j_loop; zero ]
>
> let rec joy_to_string jt =
> - match jt with
> - | JoySymbol sym -> sym
> - | JoyTrue -> "true"
> - | JoyFalse -> "false"
> - | JoyInt i -> string_of_int i
> - | JoyList el -> "[" ^ (String.concat " " (List.map joy_to_string el)) ^ "]";;
> + match jt with
> + | JoySymbol sym -> sym
> + | JoyTrue -> "true"
> + | JoyFalse -> "false"
> + | JoyInt i -> string_of_int i
> + | JoyList el -> "[" ^ String.concat " " (List.map joy_to_string el) ^ "]"
>
> let () = print_endline (joy_to_string dummy)
[1]

2
implementations/Ocaml/helloworld/bin/main.ml
View File

@ -19,6 +19,6 @@ let rec joy_to_string jt =
| JoyTrue -> "true" | JoyTrue -> "true"
| JoyFalse -> "false" | JoyFalse -> "false"
| JoyInt i -> string_of_int i | JoyInt i -> string_of_int i
| JoyList el -> "[" ^ (String.concat " " (List.map joy_to_string el)) ^ "]";; | JoyList el -> "[" ^ String.concat " " (List.map joy_to_string el) ^ "]"
let () = print_endline (joy_to_string dummy) let () = print_endline (joy_to_string dummy)