static void* my_par_init_v
( void* arp_v
)
{ mclpAR* ar = arp_v
; mclpARinit(ar)
; mclpARensure(ar, 10)
; return ar
; }
mclpAR* mclpARensure
( mclpAR* mclpar
, dim sz
)
{ if (!mclpar && !(mclpar = mclpARinit(NULL)))
return NULL
; if (sz > mclpar->n_alloc)
{ if (!( mclpar->ivps
= mcxNRealloc
( mclpar->ivps
, sz
, mclpar->n_alloc
, sizeof(mclp)
, mclpInit_v
, RETURN_ON_FAIL
)
) )
return NULL
; mclpar->n_alloc = sz
; }
return mclpar
; }
void* mclpARinit_v
( void* mclpar
)
{ return mclpARinit(mclpar)
; }