get member list from struct definition using C style DSL

MemberListFromCStruct.io

#!/usr/bin/env io

StructDefinition := Object clone do(
	name ::= ""
	memberList ::= list()

	with := method(name,
		self clone setName(name) setMemberList(list())
	)

	curlyBrackets := method(
		msg_list := list()

		msg := call argAt(0)
		while(msg,
			msg_list push(msg)
			msg = msg next
		)

		memberList = msg_list map(name) select(!= ";") println
	)
)

struct := Object clone do(
	forward := method(
		StructDefinition with(call message name)
	)
)

struct CGPoint {
	float64 x;
	float64 y;
}