Declaring Functions AS TYPEs

[mnrvovrfc]

It hit me like a thunderbolt.

Code: (Select All)

TYPE TYPE_VECTOR

    x AS SINGLE

    y AS SINGLE

END TYPE



DIM AS TYPE_VECTOR v1, v2, v3



v1.x = 10: v1.y = 20

v2.x = 15: v2.y = 15

AddVector v1, v2, v3

PRINT "Result x ="; v3.x

PRINT "Result y ="; v3.y





'CHANGED: tret

SUB AddVector(v1 AS TYPE_VECTOR, v2 AS TYPE_VECTOR, tret AS TYPE_VECTOR)

	DIM AS _MEM m1, m2

	DIM AS SINGLE a, b

	DIM AS INTEGER l

	m1 = _MEM(v1)

	m2 = _MEM(v2)

	a = _MEMGET(m1, m1.OFFSET, SINGLE)

	b = _MEMGET(m2, m2.OFFSET, SINGLE)

	a = a + b

	tret.x = a

	l = LEN(a)

	a = _MEMGET(m1, m1.OFFSET + l, SINGLE)

	b = _MEMGET(m2, m2.OFFSET + l, SINGLE)

	a = a + b

	tret.y = a

    'AddVector.x = v1.x + v2.x

    'AddVector.y = v1.y + v2.y

END SUB

What sucks is it has to be a SUB and depend on the parameter side-effect. Because FUNCTION declaration has to carry a sigil, it's impossible to have it return the contents of an UDT variable, or even of _MEM. Somehow this should be doable as AddVector%&().

But I think Terry means a general conversion of any UDT into a function or something like that.