Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- macro struct? name*, parameters&
- local anon
- anon = 0
- macro name args&
- anon = anon + 1
- repeat 1, @anon: anon
- .@anon name args
- end repeat
- end macro
- macro end?.struct?!
- iterate base, ., .base
- if defined base
- assert base+sizeof base=$
- end if
- end iterate
- end namespace
- end struc
- iterate <base,prefix>, 0,, ix-name,x, iy-name,y
- virtual at base
- ?prefix#name name
- end virtual
- end iterate
- purge end?.struct?
- end macro
- struc name parameters
- namespace .
- end macro
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement