Subject: writing primitives - msg#00067

hello,
i'm trying to rewrite the following code as a ArrayedCollection c primitive and got some questions.
(
~surroundMaxDimensions= 3;
~surroundMaxArea= 3;
~surroundings= Array.fill(~surroundMaxDimensions+1, {|i|
Array.fill(~surroundMaxArea+1, {|j|
var area;
area= Array.series(j*2+1, 0-j);
area.dup(i).allTuples;
});
});
)
(
~dimensions= 2;
~area= 1;
~surroundings[~dimensions][~area]+[50, 50];
)


the c code below works so and so. running it repeatedly, say for benchmarking, gives random errors. it's like the lists my primitive returns sometimes get garbled. {10000.do{[50, 50].surroundings(2, 1, true).collect{|x| x+1}}}.bench
guess i'm not calling GCWrite properly somewhere.

also, is it possible to code this up as a plugin and not have to modify sclang?

(sorry i'm not very good with c)
thanks,
F


int prArraySurroundings(struct VMGlobals *g, int numArgsPushed)
{
PyrSlot *a, *b, *c, *d, *slots2, *slots3, *slots10, *slots11; //*slots1,
PyrObject *obj1, *obj2, *obj3, *obj10, *obj11;
int indexSize, newSize, i, j, worldDim, area;
double ww;

a = g->sp - 3;
b = g->sp - 2;
c = g->sp - 1;
d = g->sp; //boolean - exclude/include fix later
if (b->utag != tagInt) return errWrongType;
if (c->utag != tagInt) return errWrongType;
if (d->utag != tagTrue && d->utag != tagFalse) return errWrongType;

obj1 = a->uo;
worldDim = b->ui;
area = c->ui;
indexSize = area*2+1;
newSize = pow(indexSize, worldDim);

obj10 = (PyrObject*)instantiateObject(g->gc, obj1->classptr, worldDim, false, true);
obj10->size = worldDim;
slots10 = obj10->slots;
obj11 = (PyrObject*)instantiateObject(g->gc, obj1->classptr, indexSize, false, true);
obj11->size = indexSize;
slots11 = obj11->slots;
obj2 = (PyrObject*)instantiateObject(g->gc, obj1->classptr, newSize, false, true);
obj2->size = newSize;
slots2 = obj2->slots;

//--build index array obj10
for (i=0; i<worldDim; ++i) {
for (j=0; j<indexSize; ++j) {
slots11[j].ucopy = 0-area+j;
}
SetObject(slots10+i, obj11);
}
//obj10 is here... [[-1, 0, 1]] or [[-1, 0, 1], [-1, 0, 1]] etc. for area=1
//or [[-2, -1, 0, 1, 2]] or [[-2, -1, 0, 1, 2], [-2, -1, 0, 1, 2]] etc. for area=2

//--stolen from prArrayAllTuples
for (i=0; i<newSize; ++i) {
int k = i;
obj3 = (PyrObject*)instantiateObject(g->gc, obj1->classptr, worldDim, false, true);
obj3->size = worldDim;
slots3 = obj3->slots;
for (j=worldDim-1; j>=0; --j) {
PyrObject *obj4 = slots10[j].uo;
slots3[j].ucopy = obj4->slots[k%obj4->size].ucopy;
getIndexedDouble(obj1, j, &ww);
//commenting out this
slots3[j].ucopy += ww;
// and this line doesnt help either
g->gc->GCWrite(obj3, obj3); //why not (obj3,
obj4) here instead?
k /= obj4->size;
}
SetObject(obj2->slots+i, obj3);
g->gc->GCWrite(obj2, obj3);
}
a->uo = obj2;
return errNone;
}





#|
fredrikolofsson.com klippav.org musicalfieldsforever.com
|#