/* @(#) _vec.c 1.2 1/27/86 17:47:53 *//*ident	"@(#)cfront:lib/new/_vec.c	1.2"*/typedef void* PV;typedef void (*PF)(PV);extern PV_vec_new(PV op, int n, int sz, PV f)/*	allocate a vector of "n" elements of size "sz"	and initialize each by a call of "f"*/{	register int i;	register char* p;	if (op == 0) op = PV( new char[n*sz] );	p = (char*) op;	for (i=0; i<n; i++) ( *PF(f) )( PV(p+i*sz) );	return PV(p);}void_vec_delete(PV op, int n, int sz, PV f,   int /*?*/){	register int i;	register char* p = (char*) op;	for (i=0; i<n; i++) ( *(PF)f )( (PV)(p+i*sz) );}