factory.c

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

#line 92 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/factory.mx"
#include "mal_config.h"
#include "factory.h"




#line 98 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/factory.mx"
str
FCTgetPlants(int *ret)
{
	BAT *b;

	b = BATnew(TYPE_str, TYPE_str, 256);
	if (!(b->batDirty&2)) b = BATsetaccess(b, BAT_READ);
	
#line 64 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/factory.mx"
	if (BBPindex("factory_name_plant") <= 0)
		BATname(b, "factory_name_plant");
	BATroles(b,"factory","name");
	BATmode(b,TRANSIENT);
	BATfakeCommit(b);
	*ret = b->batCacheid;
	BBPkeepref(*ret);




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

	throw(MAL, "factory.getPlants", "not yet implemented");
}

str
FCTgetCaller(int *ret)
{
	(void) ret;
	throw(MAL, "factory.getCaller", "not yet implemented");
}

str
FCTgetOwners(int *ret)
{
	BAT *b;

	(void) ret;
	b = BATnew(TYPE_int, TYPE_str, 256);
	if (!(b->batDirty&2)) b = BATsetaccess(b, BAT_READ);
	
#line 64 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/factory.mx"
	if (BBPindex("factory_plantid_location") <= 0)
		BATname(b, "factory_plantid_location");
	BATroles(b,"factory","plantid");
	BATmode(b,TRANSIENT);
	BATfakeCommit(b);
	*ret = b->batCacheid;
	BBPkeepref(*ret);




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

	throw(MAL, "factory.getOwner", "not yet implemented");
}

str
FCTgetTimeStampIn(int *ret)
{
	(void) ret;
	throw(MAL, "factory.getTimeStampIn", "not yet implemented");
}

str
FCTgetTimeStampOut(int *ret)
{
	(void) ret;
	throw(MAL, "factory.getTimeStampOut", "not yet implemented");
}

str
FCTsetLocation(int *ret, str *loc)
{
	(void) ret;
	(void) loc;
	throw(MAL, "factory.setLocation", "not yet implemented");
}

str
FCTgetLocations(int *ret)
{
	BAT *b;

	(void) ret;
	b = BATnew(TYPE_int, TYPE_str, 256);
	if (!(b->batDirty&2)) b = BATsetaccess(b, BAT_READ);
	
#line 64 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/factory.mx"
	if (BBPindex("factory_plantid_location") <= 0)
		BATname(b, "factory_plantid_location");
	BATroles(b,"factory","plantid");
	BATmode(b,TRANSIENT);
	BATfakeCommit(b);
	*ret = b->batCacheid;
	BBPkeepref(*ret);




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

	throw(MAL, "factory.getLocations", "not yet implemented");
}

str
FCTshutdown(int *ret, str *mod, str *fcn)
{
	Symbol s;

	(void) ret;
	s = findMALSymbol(putName(*mod, strlen(*mod)), putName(*fcn, strlen(*fcn)));
	if (s == NULL)
		throw(MAL, "factory.shutdown", "Factory not found");
	shutdownFactory(s->def);
	return MAL_SUCCEED;
}



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