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

Adding benchmarking executable

Browse source 
Signed-off-by: Kakadu <Kakadu@pm.me>
This commit is contained in:
Kakadu 2020-10-03 11:38:29 +03:00
parent c74757cbb7
commit 62d1aa7316
7 changed files with 321 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/Pprinter.ml
View file

@ -79,22 +79,21 @@ object
Format.fprintf ppf ")@]@]"
method c_Assign ppf _ _x__526_ _x__527_ =
Format.fprintf ppf "@[%a@ :=@ %a@]" fself _x__526_ fself _x__527_
method c_Assign ppf _ l r =
Format.fprintf ppf "@[%a@ :=@ %a@]" fself l fself r
method c_Seq ppf _ l r =
Format.fprintf ppf "@[<v>%a;@ %a@]" fself l fself r
method c_Skip ppf _ = Format.fprintf ppf "skip"
method c_If ppf _ _x__533_ _x__534_ _x__535_ =
method c_If ppf _ c th el =
Format.fprintf ppf "@[if %a then @[<v 2>{@,%a@]@ @[<v 2>} else {@,%a@]@ } fi@]"
fself _x__533_ fself _x__534_ fself _x__535_
fself c fself th fself el
method c_While ppf _ cond body =
Format.fprintf ppf "@[<v 2>";
Format.fprintf ppf "while %a do@," fself cond;
fself ppf body;
Format.fprintf ppf "@]@ ";
Format.fprintf ppf "od";
(*Format.fprintf inh___536_ "While @[(@,%a,@,@ %a@,)@]" fself
cond fself body*)
Format.fprintf ppf "od"
method c_Repeat ppf _ cond body =
Format.fprintf ppf "@[<v 2>";
Format.fprintf ppf "repeat@,%a" fself body;