batcast.c

一个内存数据库的源代码这是服务器端还有客户端

}
batcast_export str CMDconvert_void_str_bit(int *ret, int *bid);
str CMDconvert_void_str_bit(int *ret, int *bid){
	return CMDconvert_str_bit(ret,bid);
}


#line 276 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 203 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
batcast_export str CMDconvert_chr_str(int *ret, int *bid);
str CMDconvert_chr_str(int *ret, int *bid){
	BAT *b,*bn;
	size_t xx;
	char *p,*q,*h;
	str dst=0;
	int len=0;

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if( ( b= BATdescriptor(*bid)) == NULL ){ ;
		 throw(MAL,  "batcalc.", "cannot access descriptor");
   }


#line 211 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
    if (BAThvoid(b)) {
        bn = BATnew(TYPE_void, TYPE_str, BATcount(b));
        BATseqbase(bn, b->hseqbase);
    } else
        bn = BATnew(b->htype, TYPE_str, BATcount(b));
	if( bn== NULL) {
		
		throw(MAL, "batcalc.", "can not create bat");
	}
    bn->hsorted = b->hsorted;
    bn->tsorted = b->tsorted;



#line 212 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	h= (char*) BUNhead(b,BUNfirst(b));
	p= (char*) BUNfirst(b);
	q= (char*) BUNlast(b);
	xx= BUNsize(b);

	while(p<q){
		chr *r = (chr*)BUNtail(b,p);
		
#line 193 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
		chrToStr(&dst,&len, (ptr) r);
		bunfastins(bn, h, (ptr)dst);
		if( dst) GDKfree(dst);


#line 220 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

		p+=xx; h+= xx;
	}
bunins_failed:
	
#line 133 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if (!(bn->batDirty&2)) bn = BATsetaccess(bn, BAT_READ);
	*ret= bn->batCacheid;
	BATkey(BATmirror(bn), FALSE);
	bn->tsorted = 0;
	BBPkeepref(*ret);
	BBPreleaseref(b->batCacheid);
	return MAL_SUCCEED;


#line 224 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

}
batcast_export str CMDconvert_void_chr_str(int *ret, int *bid);
str CMDconvert_void_chr_str(int *ret, int *bid){
	return CMDconvert_chr_str(ret,bid);
}

batcast_export str CMDconvert_str_chr(int *ret, int *bid);
str CMDconvert_str_chr(int *ret, int *bid){
	BAT *b,*bn;
	int xx;
	char *p,*q,*h;
	ptr v;
	int len;

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if( ( b= BATdescriptor(*bid)) == NULL ){ ;
		 throw(MAL,  "batcalc.chr", "cannot access descriptor");
   }


#line 239 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
    if (BAThvoid(b)) {
        bn = BATnew(TYPE_void, TYPE_chr, BATcount(b));
        BATseqbase(bn, b->hseqbase);
    } else
        bn = BATnew(b->htype, TYPE_chr, BATcount(b));
	if( bn== NULL) {
		
		throw(MAL, "batcalc.chr", "can not create bat");
	}
    bn->hsorted = b->hsorted;
    bn->tsorted = b->tsorted;



#line 240 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	h= (char *) BUNhead(b,BUNfirst(b));
	p= (ptr) BUNtloc(b,BUNfirst(b));
	q= (char *) BUNtloc(b,BUNlast(b));
	xx= BUNsize(b);

	while(p<q){
		
#line 197 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
		v= NULL; len=0;
		ATOMfromstr( TYPE_chr, &v, &len, (char*)Tbase(b)+*(var_t*)p);
		bunfastins(bn, h, v);
		if(ATOMextern(TYPE_chr) )
			GDKfree(v);


#line 247 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

		p+=xx; h+= xx;
	}
bunins_failed:
	
#line 133 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if (!(bn->batDirty&2)) bn = BATsetaccess(bn, BAT_READ);
	*ret= bn->batCacheid;
	BATkey(BATmirror(bn), FALSE);
	bn->tsorted = 0;
	BBPkeepref(*ret);
	BBPreleaseref(b->batCacheid);
	return MAL_SUCCEED;


#line 251 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

}
batcast_export str CMDconvert_void_str_chr(int *ret, int *bid);
str CMDconvert_void_str_chr(int *ret, int *bid){
	return CMDconvert_str_chr(ret,bid);
}


#line 277 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 203 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
batcast_export str CMDconvert_sht_str(int *ret, int *bid);
str CMDconvert_sht_str(int *ret, int *bid){
	BAT *b,*bn;
	size_t xx;
	char *p,*q,*h;
	str dst=0;
	int len=0;

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if( ( b= BATdescriptor(*bid)) == NULL ){ ;
		 throw(MAL,  "batcalc.", "cannot access descriptor");
   }


#line 211 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
    if (BAThvoid(b)) {
        bn = BATnew(TYPE_void, TYPE_str, BATcount(b));
        BATseqbase(bn, b->hseqbase);
    } else
        bn = BATnew(b->htype, TYPE_str, BATcount(b));
	if( bn== NULL) {
		
		throw(MAL, "batcalc.", "can not create bat");
	}
    bn->hsorted = b->hsorted;
    bn->tsorted = b->tsorted;



#line 212 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	h= (char*) BUNhead(b,BUNfirst(b));
	p= (char*) BUNfirst(b);
	q= (char*) BUNlast(b);
	xx= BUNsize(b);

	while(p<q){
		sht *r = (sht*)BUNtail(b,p);
		
#line 193 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
		shtToStr(&dst,&len, (ptr) r);
		bunfastins(bn, h, (ptr)dst);
		if( dst) GDKfree(dst);


#line 220 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

		p+=xx; h+= xx;
	}
bunins_failed:
	
#line 133 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if (!(bn->batDirty&2)) bn = BATsetaccess(bn, BAT_READ);
	*ret= bn->batCacheid;
	BATkey(BATmirror(bn), FALSE);
	bn->tsorted = 0;
	BBPkeepref(*ret);
	BBPreleaseref(b->batCacheid);
	return MAL_SUCCEED;


#line 224 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

}
batcast_export str CMDconvert_void_sht_str(int *ret, int *bid);
str CMDconvert_void_sht_str(int *ret, int *bid){
	return CMDconvert_sht_str(ret,bid);
}

batcast_export str CMDconvert_str_sht(int *ret, int *bid);
str CMDconvert_str_sht(int *ret, int *bid){
	BAT *b,*bn;
	int xx;
	char *p,*q,*h;
	ptr v;
	int len;

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if( ( b= BATdescriptor(*bid)) == NULL ){ ;
		 throw(MAL,  "batcalc.sht", "cannot access descriptor");
   }


#line 239 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
    if (BAThvoid(b)) {
        bn = BATnew(TYPE_void, TYPE_sht, BATcount(b));
        BATseqbase(bn, b->hseqbase);
    } else
        bn = BATnew(b->htype, TYPE_sht, BATcount(b));
	if( bn== NULL) {
		
		throw(MAL, "batcalc.sht", "can not create bat");
	}
    bn->hsorted = b->hsorted;
    bn->tsorted = b->tsorted;



#line 240 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	h= (char *) BUNhead(b,BUNfirst(b));
	p= (ptr) BUNtloc(b,BUNfirst(b));
	q= (char *) BUNtloc(b,BUNlast(b));
	xx= BUNsize(b);

	while(p<q){
		
#line 197 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
		v= NULL; len=0;
		ATOMfromstr( TYPE_sht, &v, &len, (char*)Tbase(b)+*(var_t*)p);
		bunfastins(bn, h, v);
		if(ATOMextern(TYPE_sht) )
			GDKfree(v);


#line 247 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

		p+=xx; h+= xx;
	}
bunins_failed:
	
#line 133 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if (!(bn->batDirty&2)) bn = BATsetaccess(bn, BAT_READ);
	*ret= bn->batCacheid;
	BATkey(BATmirror(bn), FALSE);
	bn->tsorted = 0;
	BBPkeepref(*ret);
	BBPreleaseref(b->batCacheid);
	return MAL_SUCCEED;


#line 251 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

}
batcast_export str CMDconvert_void_str_sht(int *ret, int *bid);
str CMDconvert_void_str_sht(int *ret, int *bid){
	return CMDconvert_str_sht(ret,bid);
}


#line 278 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 203 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
batcast_export str CMDconvert_int_str(int *ret, int *bid);
str CMDconvert_int_str(int *ret, int *bid){
	BAT *b,*bn;
	size_t xx;
	char *p,*q,*h;
	str dst=0;
	int len=0;

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if( ( b= BATdescriptor(*bid)) == NULL ){ ;
		 throw(MAL,  "batcalc.", "cannot access descriptor");
   }


#line 211 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
    if (BAThvoid(b)) {
        bn = BATnew(TYPE_void, TYPE_str, BATcount(b));
        BATseqbase(bn, b->hseqbase);
    } else
        bn = BATnew(b->htype, TYPE_str, BATcount(b));
	if( bn== NULL) {
		
		throw(MAL, "batcalc.", "can not create bat");
	}
    bn->hsorted = b->hsorted;
    bn->tsorted = b->tsorted;



#line 212 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	h= (char*) BUNhead(b,BUNfirst(b));
	p= (char*) BUNfirst(b);
	q= (char*) BUNlast(b);
	xx= BUNsize(b);

	while(p<q){
		int *r = (int*)BUNtail(b,p);
		
#line 193 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
		intToStr(&dst,&len, (ptr) r);
		bunfastins(bn, h, (ptr)dst);
		if( dst) GDKfree(dst);


#line 220 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

		p+=xx; h+= xx;
	}
bunins_failed:
	
#line 133 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if (!(bn->batDirty&2)) bn = BATsetaccess(bn, BAT_READ);
	*ret= bn->batCacheid;
	BATkey(BATmirror(bn), FALSE);
	bn->tsorted = 0;
	BBPkeepref(*ret);
	BBPreleaseref(b->batCacheid);
	return MAL_SUCCEED;


#line 224 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

}
batcast_export str CMDconvert_void_int_str(int *ret, int *bid);
str CMDconvert_void_int_str(int *ret, int *bid){
	return CMDconvert_int_str(ret,bid);
}

batcast_export str CMDconvert_str_int(int *ret, int *bid);
str CMDconvert_str_int(int *ret, int *bid){
	BAT *b,*bn;
	int xx;
	char *p,*q,*h;
	ptr v;
	int len;

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if( ( b= BATdescriptor(*bid)) == NULL ){ ;
		 throw(MAL,  "batcalc.int", "cannot access descriptor");
   }


#line 239 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	
#line 96 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
    if (BAThvoid(b)) {
        bn = BATnew(TYPE_void, TYPE_int, BATcount(b));
        BATseqbase(bn, b->hseqbase);
    } else
        bn = BATnew(b->htype, TYPE_int, BATcount(b));
	if( bn== NULL) {
		
		throw(MAL, "batcalc.int", "can not create bat");
	}
    bn->hsorted = b->hsorted;
    bn->tsorted = b->tsorted;



#line 240 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

	h= (char *) BUNhead(b,BUNfirst(b));
	p= (ptr) BUNtloc(b,BUNfirst(b));
	q= (char *) BUNtloc(b,BUNlast(b));
	xx= BUNsize(b);

	while(p<q){
		
#line 197 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
		v= NULL; len=0;
		ATOMfromstr( TYPE_int, &v, &len, (char*)Tbase(b)+*(var_t*)p);
		bunfastins(bn, h, v);
		if(ATOMextern(TYPE_int) )
			GDKfree(v);


#line 247 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"

		p+=xx; h+= xx;
	}
bunins_failed:
	
#line 133 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"
	if (!(bn->batDirty&2)) bn = BATsetaccess(bn, BAT_READ);
	*ret= bn->batCacheid;
	BATkey(BATmirror(bn), FALSE);
	bn->tsorted = 0;
	BBPkeepref(*ret);
	BBPreleaseref(b->batCacheid);
	return MAL_SUCCEED;


#line 251 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/batcast.mx"