st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-05 22:38:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Improve pretty-printing of infixes

Browse source
This commit is contained in:
kakadu 2020-10-27 15:24:53 +03:00 • committed by Kakadu
parent bc52979e39
commit 73016b2992
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
bench/demo_infix.ml
View file

@ -32,7 +32,6 @@ let rewrite_infix s =
else else
let num c = Char.code c - Char.code '0' in let num c = Char.code c - Char.code '0' in
let c = Char.chr (num s.[i] * 10 + num s.[i+1]) in let c = Char.chr (num s.[i] * 10 + num s.[i+1]) in
(* Printf.printf "Got char '%c'\n" c; *)
Buffer.add_char b c; Buffer.add_char b c;
loop (i+2) loop (i+2)
in in
@ -44,7 +43,11 @@ class my_pp_e pp_decl fself = object
method! c_Call ppf e f args = method! c_Call ppf e f args =
match f,args with match f,args with
| (Var s, [l; r]) when looks_like_infix s -> | (Var s, [l; r]) when looks_like_infix s ->
super#c_Call ppf e (Var (rewrite_infix s)) args (* CHANGE 1 *) Format.fprintf ppf "@[<h>%a@ %s@ %a@]"
fself l
(rewrite_infix s)
fself r (* CHANGE 1 *)
| _ -> super#c_Call ppf e f args | _ -> super#c_Call ppf e f args
end end