ground_fork/tests/struct.grnd

struct -point
    init &xpos -int
    init &ypos -int

    fun -int !init -int &x -int &y
        set &xpos $x
        set &ypos $y
        return 0
    endfun

    fun -string !toString
        tostring $xpos &xposstr
        tostring $ypos &yposstr
        add "x: " $xposstr &str
        add $str ", y: " &str
        add $str $yposstr &str
        return $str
    endfun
endstruct

init &myPoint -point

pusharg 30 15
!myPoint.init &out
println $myPoint.xpos

!myPoint.toString &out

println $out