lock.c

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

#line 49 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/lock.mx"
#include "mal_config.h"
#include <gdk.h>
#include "mal_exception.h"
typedef ptr lock;
typedef ptr monet_lock;

#ifdef WIN32
#ifndef LIBLOCK
#define lock_export extern __declspec(dllimport)
#else
#define lock_export extern __declspec(dllexport)
#endif
#else
#define lock_export extern
#endif

int
create_lock(monet_lock *l)
{
	*l = (monet_lock) GDKmalloc(sizeof(MT_Lock));
	if (*l == NULL || *l == ptr_nil) return GDK_FAIL;
	MT_lock_init((MT_Lock*) *l);
	return GDK_SUCCEED;
}

int
set_lock(monet_lock *l)
{
	if (*l == NULL || *l == ptr_nil) return GDK_FAIL;
	MT_lock_set((MT_Lock*) *l, "set_lock");
	return GDK_SUCCEED;
}

int
try_lock(int *res, monet_lock *l)
{
	if (*l == NULL || *l == ptr_nil) return GDK_FAIL;
	*res = MT_lock_try((MT_Lock*) *l) ? EBUSY : 0;
	return GDK_SUCCEED;
}

int
unset_lock(monet_lock *l)
{
	if (*l == NULL || *l == ptr_nil) return GDK_FAIL;
	MT_lock_unset((MT_Lock*) *l, "unset_lock");
	return GDK_SUCCEED;
}

int
destroy_lock(monet_lock *l)
{
	if (*l == NULL || *l == ptr_nil) return GDK_FAIL;
	MT_lock_destroy((MT_Lock*) *l);
	GDKfree(*l);
	return GDK_SUCCEED;
}




#line 111 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/lock.mx"
#include "mal.h"
lock_export int lockToStr(char **dst, int *len, ptr *src);
int
lockToStr(char **dst, int *len, ptr *src)
{
	(void) len;		/* fool compiler */
	(void) src;		/* fool compiler */
	if (src == ptr_nil) {
		strcpy(*dst, "nil");
		return 3;
	}
	/* sprintf(*dst,"%o", (ptr)*src); */
	sprintf(*dst, "redo lockToStr");
	return strlen(*dst);
}

lock_export str LCKcreate(monet_lock *l);
str
LCKcreate(monet_lock *l)
{
	create_lock(l);
	return MAL_SUCCEED;
}

lock_export str LCKset(int *res, monet_lock *l);
str
LCKset(int *res, monet_lock *l)
{
	set_lock(l);
	*res = 1;
	return MAL_SUCCEED;
}

lock_export str LCKtry(int *res, monet_lock *l);
str
LCKtry(int *res, monet_lock *l)
{
	try_lock(res, l);
	return MAL_SUCCEED;
}

lock_export str LCKunset(int *res, monet_lock *l);
str
LCKunset(int *res, monet_lock *l)
{
	unset_lock(l);
	*res = 1;
	return MAL_SUCCEED;
}

lock_export str LCKdestroy(int *res, monet_lock *l);
str
LCKdestroy(int *res, monet_lock *l)
{
	destroy_lock(l);
	*res = 1;
	return MAL_SUCCEED;
}



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