Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $lhsinc := ($excl_lhs) ?? '&postfix:<++>' !! '&prefix:<++>';
- $rhsinc := ($excl_rhs) ?? '&postfix:<++>' !! '&prefix:<++>';
- PAST::Op.new(
- :pasttype<stmts>,
- PAST::Op.new(:pasttype<unless>,
- PAST::Var.new(:name($state_var), :scope<lexical>),
- PAST::Op.new(:pasttype<if>,
- $lhspast,
- PAST::Op.new(:name($lhsinc),
- PAST::Var.new(:name($state_var), :scope<lexical>))
- )
- ),
- PAST::Op.new(:pasttype<if>,
- PAST::Var.new(:name($state_var), :scope<lexical>),
- PAST::Op.new(:pasttype<if>,
- $rhspast,
- PAST::Op.new(:name('&infix:<=>'),
- PAST::Var.new(:name($state_var), :scope<lexical>),
- $*ST.add_constant('Int', 'int', 0)),
- PAST::Op.new(:name($rhsinc),
- PAST::Var.new(:name($state_var), :scope<lexical>))
- )
- )
- )
Add Comment
Please, Sign In to add comment