CIsam

 view release on metacpan or  search on metacpan

CIsam.xs  view on Meta::CPAN

	RETVAL = isflush(fd);
  	OUTPUT:
	RETVAL

int
isisaminfo1(fd)
	int	fd
	PREINIT:
	struct dictinfo di;
	int cc;
	PPCODE:
	cc = isindexinfo(fd,&di,0);
	EXTEND(SP, 5);
   	PUSHs(sv_2mortal(newSViv(cc)));
   	PUSHs(sv_2mortal(newSViv(di.di_nkeys)));
   	PUSHs(sv_2mortal(newSViv(di.di_recsize)));
   	PUSHs(sv_2mortal(newSViv(di.di_idxsize)));
   	PUSHs(sv_2mortal(newSViv(di.di_nrecords)));

int
isindexinfo1(fd,idx)
	int	fd
	int	idx
	PREINIT:
	struct keydesc kd;
	int cc;
	int i, j;
	PPCODE:
	cc = isindexinfo(fd,&kd,idx);
	EXTEND(SP,1+2+3*kd.k_nparts);
	PUSHs(sv_2mortal(newSViv(cc))); 
	PUSHs(sv_2mortal(newSViv(kd.k_flags)));
	PUSHs(sv_2mortal(newSViv(kd.k_nparts))); 
	for (i=0; i<kd.k_nparts; i++) {
	   PUSHs(sv_2mortal(newSViv(kd.k_part[i].kp_start))); 
	   PUSHs(sv_2mortal(newSViv(kd.k_part[i].kp_leng))); 
	   PUSHs(sv_2mortal(newSViv(kd.k_part[i].kp_type))); 
	}

CIsam.xs  view on Meta::CPAN

void
stdbl1(p, length_of_field)
	char *p
	int length_of_field
	PREINIT:
	char string[200];
	char return_val[2];
	double d;
	int i;
	PPCODE:
	EXTEND(SP, length_of_field);
	d = atof(p);
	stdbl(d,string);

	/* The next steps of magic are done because Perl treats
	   treats everything as string */

	return_val[1]='\000';
	for(i = 0; i < length_of_field; i++)
	{

CIsam.xs  view on Meta::CPAN

void
stint1(p, length_of_field)
	char *p
	int length_of_field
	PREINIT:
	char string[20];
	char return_val[2];
	int d;
	int i;
	PPCODE:
	EXTEND(SP, length_of_field);
	d = atoi(p);
	stint(d,string);

	/* The next steps of magic are done because Perl treats
	   treats everything as string */

	return_val[1]='\000';
	for(i = 0; i < length_of_field; i++)
	{

CIsam.xs  view on Meta::CPAN

void
stlong1(p, length_of_field)
	char *p
	int length_of_field
	PREINIT:
	char string[20];
	char return_val[2];
	long d;
	int i;
	PPCODE:
	EXTEND(SP, length_of_field);
	d = atol(p);
	stlong(d,string);
	/* The next steps of magic are done because Perl treats
	   treats everything as string */
	return_val[1]='\000';
	for(i = 0; i < length_of_field; i++)
	{
		return_val[0] = string[i];	
		PUSHs(sv_2mortal(newSVpv(return_val, 2)));

CIsam.xs  view on Meta::CPAN

void
stfloat1(p, length_of_field)
	char *p
	int length_of_field
	PREINIT:
	char string[20];
	char return_val[2];
	float d;
	int i;
	PPCODE:
	EXTEND(SP, length_of_field);
	d = atof(p);
	stfloat(d,string);

	/* The next steps of magic are done because Perl treats
	   treats everything as string */

	return_val[1]='\000';
	for(i = 0; i < length_of_field; i++)
	{