max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat(library/init/lean/ir): add emit_lit

Browse source
This commit is contained in:
Leonardo de Moura 2018-05-09 18:29:54 -07:00
parent fc840eab3f
commit 2e0629133f
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
library/init/lean/ir/extract_cpp.lean
View file

@ -175,8 +175,19 @@ match op with
| unop.unbox := emit_x_op_y x "lean::unbox" y
| unop.cast := emit_var x >> emit " := static_cast<" >> emit_type t >> emit ">(" >> emit_var y >> emit ")"
def emit_num_suffix : type → extract_m unit
| type.uint32 := emit "u"
| type.uint64 := emit "ull"
| type.int64 := emit "ll"
| _ := return ()
def emit_lit (x : var) (t : type) (l : literal) : extract_m unit :=
return () -- TODO
match l with
| literal.bool tt := emit_var x >> emit " := true"
| literal.bool ff := emit_var x >> emit " := false"
| literal.str s := emit_var x >> emit " := lean::mk_string(" >> emit (repr s) >> emit ")"
| literal.float v := emit_var x >> emit " := " >> emit v
| literal.num v := emit_var x >> emit " := " >> emit v >> emit_num_suffix t
def emit_instr (ins : instr) : extract_m unit :=
ins.decorate_error $