mat.c

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

#line 65 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/mat.mx"
#include "mal_config.h"
#include <stdarg.h>
#include "mal_resolve.h"
#include "mal_exception.h"
#include "mal_interpreter.h"

#ifdef WIN32
#ifndef LIBMAT
#define mat_export extern __declspec(dllimport)
#else
#define mat_export extern __declspec(dllexport)
#endif
#else
#define mat_export extern
#endif

mat_export str MATnew(MalBlkPtr mb, MalStkPtr stk, InstrPtr p);
mat_export str MATpack(MalBlkPtr mb, MalStkPtr stk, InstrPtr p);
mat_export str MATdummy(int *ret, str *grp);
mal_export str MATinfo(int *ret, str *grp, str *elm);
mal_export str MATprint(MalBlkPtr mb, MalStkPtr stk, InstrPtr p);



#line 90 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/mat.mx"

str
MATnew(MalBlkPtr mb, MalStkPtr stk, InstrPtr p)
{
	(void) mb; (void) stk; (void) p;
	return MAL_SUCCEED;
}


#line 101 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/mat.mx"
str
MATpack(MalBlkPtr mb, MalStkPtr stk, InstrPtr p)
{
	int i,*ret,tpe;
	BAT *b, *bn;
	tpe= getArgType(mb,p,0);

	bn= BATnew(getHeadType(tpe),getTailType(tpe), 0);
	if( bn == NULL)
		throw(MAL, "mat.pack","Could not allocate storage");
	for(i=1; i<p->argc; i++){
		b= BATdescriptor(stk->stk[getArg(p,i)].val.ival);
		if( b == NULL)
			throw(MAL, "mat.pack","Could not access component");
		BATins(bn,b,FALSE);
		BBPunfix(b->batCacheid);
	}
	(void) mb;
	ret= (int*) getArgReference(stk,p,0);
	*ret= bn->batCacheid;
	BBPkeepref(bn->batCacheid);
	return MAL_SUCCEED;
}

str
MATprint(MalBlkPtr mb, MalStkPtr stk, InstrPtr p)
{
	(void) mb; (void) stk; (void) p;
	return MAL_SUCCEED;
}

str
MATdummy(int *ret, str *grp){
	(void) grp; (void) ret;
	return MAL_SUCCEED;
}
str
MATinfo(int *ret, str *grp, str *elm){
	(void) grp; (void) elm; (void) ret;
	return MAL_SUCCEED;
}


#line 143 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/mat.mx"