Advertisement
tr1p1ea

Untitled

Nov 1st, 2023
28
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. macro struct? name*, parameters&
  2. local anon
  3. anon = 0
  4. macro name args&
  5. anon = anon + 1
  6. repeat 1, @anon: anon
  7. .@anon name args
  8. end repeat
  9. end macro
  10. macro end?.struct?!
  11. iterate base, ., .base
  12. if defined base
  13. assert base+sizeof base=$
  14. end if
  15. end iterate
  16. end namespace
  17. end struc
  18. iterate <base,prefix>, 0,, ix-name,x, iy-name,y
  19. virtual at base
  20. ?prefix#name name
  21. end virtual
  22. end iterate
  23. purge end?.struct?
  24. end macro
  25. struc name parameters
  26. namespace .
  27. end macro
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement