forked from ground/ground-old
30 lines
425 B
Plaintext
30 lines
425 B
Plaintext
|
struct -point
|
||
|
|
init &xpos -int
|
||
|
|
init &ypos -int
|
||
|
|
|
||
|
|
fun -void !init -int &x -int &y
|
||
|
|
set &xpos $x
|
||
|
|
set &ypos $y
|
||
|
|
return
|
||
|
|
endfun
|
||
|
|
|
||
|
|
fun -string !toString
|
||
|
|
# do stuff
|
||
|
|
return "placeholder"
|
||
|
|
endfun
|
||
|
|
|
||
|
|
fun -int !dingle
|
||
|
|
return 23
|
||
|
|
endfun
|
||
|
|
endstruct
|
||
|
|
|
||
|
|
pusharg 43 32
|
||
|
|
init &myPoint -point
|
||
|
|
|
||
|
|
set &myPoint.xpos 17
|
||
|
|
set &myPoint.ypos 23
|
||
|
|
|
||
|
|
!myPoint.dingle &out
|
||
|
|
|
||
|
|
println $myPoint
|