gistfile1.c

obj := mkobj(upb,fns,a,b,c,d,e,f,g,h,i,j,k) CIN:y, POS:y, NAT:y

This function creates and initialises an object. It definition is as follows:

LET mkobj(upb, fns, a, b, c, d, e, f, g, h, i, j, k) = VALOF
{ LET obj = getvec(upb)
IF obj DO
{ !obj := fns
InitObj#(obj, @a) // Send the init message to the object
}
RESULTIS obj
}