Guest User

Untitled

a guest
Feb 19th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.86 KB | None | 0 0
  1. $lhsinc := ($excl_lhs) ?? '&postfix:<++>' !! '&prefix:<++>';
  2. $rhsinc := ($excl_rhs) ?? '&postfix:<++>' !! '&prefix:<++>';
  3. PAST::Op.new(
  4. :pasttype<stmts>,
  5. PAST::Op.new(:pasttype<unless>,
  6. PAST::Var.new(:name($state_var), :scope<lexical>),
  7. PAST::Op.new(:pasttype<if>,
  8. $lhspast,
  9. PAST::Op.new(:name($lhsinc),
  10. PAST::Var.new(:name($state_var), :scope<lexical>))
  11. )
  12. ),
  13. PAST::Op.new(:pasttype<if>,
  14. PAST::Var.new(:name($state_var), :scope<lexical>),
  15. PAST::Op.new(:pasttype<if>,
  16. $rhspast,
  17. PAST::Op.new(:name('&infix:<=>'),
  18. PAST::Var.new(:name($state_var), :scope<lexical>),
  19. $*ST.add_constant('Int', 'int', 0)),
  20. PAST::Op.new(:name($rhsinc),
  21. PAST::Var.new(:name($state_var), :scope<lexical>))
  22. )
  23. )
  24. )
Add Comment
Please, Sign In to add comment