sedna 0.5.1 → 0.6.0

data/vendor/sedna/kernel/common/st/stacktrfmt.c

@@ -0,0 +1,64 @@
+#include <string.h>
+#include <assert.h>
+#include "stacktrace.h"
+
+static const char *GetFileNameFromFilepath(const char *filepath);
+
+int PrintStackFrameInfo(SnprintfLikeProc proc, 
+						char *buf,
+						size_t count,
+						int frame, 
+						const StackFrameInfo *frameInfo,
+						int reserved)
+{
+	static const char
+		*fullFmt =	"#%-3d %s -- %s -- %s:%d\n",/* #0    function -- module.exe -- file.cpp:10 */ 
+		*nomodFmt = "#%-3d %s -- %s:%d\n",		/* #1    procedur -- file.cpp:10 */ 
+		*nolnFmt =	"#%-3d %s -- %s\n",			/* #2    foofunct -- module.exe */ 
+		*nosrcFmt =	"#%-3d %08p -- %s\n",		/* #3    4000E7BC -- module.exe */ 
+		*minFmt =	"#%-3d %08p\n";				/* #4    4000E7A0 */ 
+
+	int result = -1;
+	const char *module = NULL, *file = NULL, *function=NULL;
+
+	assert(frameInfo && proc);
+	function = frameInfo->function;
+	module = GetFileNameFromFilepath(frameInfo->module);
+	file = GetFileNameFromFilepath(frameInfo->file);
+
+	if (module && file && function)
+	{
+		result = proc(buf, count, fullFmt, frame, function, module, file, frameInfo->line);
+	}
+	else if (file && function)
+	{
+		result = proc(buf, count, nomodFmt, frame, function, file, frameInfo->line);
+	}
+	else if (module && function)
+	{
+		result = proc(buf, count, nolnFmt, frame, function, module);
+	}
+	else if (module)
+	{
+		result = proc(buf, count, nosrcFmt, frame, frameInfo->addr, module);
+	}
+	else
+	{
+		result = proc(buf, count, minFmt, frame, frameInfo->addr);
+	}
+
+	return result;
+}
+
+static const char *GetFileNameFromFilepath(const char *filepath)
+{
+	const char *result = NULL, *temp = filepath;
+
+	while (filepath && temp)
+	{
+		result = temp;
+		temp = strpbrk(temp,"/\\");
+		if (temp) ++temp;
+	}
+	return result;
+}

data/vendor/sedna/kernel/common/tr_debug.cpp

@@ -0,0 +1,112 @@
+/*
+ * File:  tr_debug.cpp
+ * Copyright (C) 2004 The Institute for System Programming of the Russian Academy of Sciences (ISP RAS)
+ */
+
+#include <string>
+
+#include "common/sedna.h"
+
+#include "common/u/uhdd.h"
+#include "common/base.h"
+#include "common/u/usem.h"
+
+using namespace std;
+
+UFile debug_f; 
+string debug_file_path;
+USemaphore debug_sem;
+
+//#define DEBUG_TR_ON
+
+void INIT_DEBUG_LOG(const char* db_name)
+{
+#ifdef DEBUG_TR_ON
+
+  debug_file_path = string(SEDNA_DATA) + "\\data\\" + string(db_name) + "_files\\" + string(db_name) + ".dlog";
+  debug_f = uOpenFile(debug_file_path.c_str(), U_SHARE_READ | U_SHARE_WRITE, U_READ_WRITE, U_WRITE_THROUGH);   
+
+  if (debug_f == U_INVALID_FD)
+     throw USER_EXCEPTION2(SE4042, debug_file_path.c_str());
+
+  if (uSetFilePointer(debug_f, 0, NULL, U_FILE_END) == 0)
+     throw USER_EXCEPTION2(SE4046, debug_file_path.c_str());
+
+  if ( 0 != USemaphoreCreate(&debug_sem, 1, 1, CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION))
+     throw USER_EXCEPTION2(SE4010, "CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION");
+#endif
+}
+
+void INIT_DEBUG_LOG2(const char* db_name)
+{
+#ifdef DEBUG_TR_ON
+
+  debug_file_path = string(SEDNA_DATA) + "\\data\\" + string(db_name) + "_files\\" + string(db_name) + ".dlog";
+  debug_f = uOpenFile(debug_file_path.c_str(), U_SHARE_READ | U_SHARE_WRITE, U_READ_WRITE, U_WRITE_THROUGH);   
+
+  if (debug_f == U_INVALID_FD)
+     throw USER_EXCEPTION2(SE4042, debug_file_path.c_str());
+
+  if (uSetFilePointer(debug_f, 0, NULL, U_FILE_END) == 0)
+     throw USER_EXCEPTION2(SE4046, debug_file_path.c_str());
+
+  if ( 0 != USemaphoreOpen(&debug_sem, CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION))
+     throw USER_EXCEPTION2(SE4012, "CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION");
+#endif
+}
+
+void CREATE_DEBUG_LOG(const char* db_name)
+{
+#ifdef DEBUG_TR_ON
+  debug_file_path = string(SEDNA_DATA) + "\\data\\" + string(db_name) + "_files\\" + string(db_name) + ".dlog";
+  debug_f = uCreateFile(debug_file_path.c_str(), U_SHARE_READ | U_SHARE_WRITE, U_READ_WRITE, U_WRITE_THROUGH);   
+  if (debug_f == U_INVALID_FD)
+     throw USER_EXCEPTION2(SE4040, debug_file_path.c_str()); 
+
+  if ( 0 != USemaphoreCreate(&debug_sem, 1, 1, CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION))
+     throw USER_EXCEPTION2(SE4010, "CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION");
+   
+#endif
+}
+
+void RELEASE_DEBUG_LOG()
+{
+#ifdef DEBUG_TR_ON
+   if (uCloseFile(debug_f) == 0)
+      throw USER_EXCEPTION2(SE4043, debug_file_path.c_str());     
+
+   if (USemaphoreRelease(debug_sem) != 0)
+      throw USER_EXCEPTION2(SE4011, "CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION");
+#endif
+}
+
+void RELEASE_DEBUG_LOG2()
+{
+#ifdef DEBUG_TR_ON
+   if (uCloseFile(debug_f) == 0)
+      throw USER_EXCEPTION2(SE4043, debug_file_path.c_str());     
+
+   if (USemaphoreClose(debug_sem) != 0)
+      throw USER_EXCEPTION2(SE4013, "CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION");
+#endif
+}
+
+void WRITE_DEBUG_LOG(const char* msg)
+{
+#ifdef DEBUG_TR_ON
+   int res;
+   int written;
+   if ( 0 != USemaphoreDown(debug_sem))
+      throw USER_EXCEPTION2(SE4015, "CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION");
+
+   res = uWriteFile(debug_f, msg, strlen(msg), &written); 
+
+   if ( 0 != USemaphoreUp(debug_sem))
+      throw USER_EXCEPTION2(SE4014, "CHARISMA_TRANSACTIONS_DEBUG_LOG_PROTECTION");
+
+   if (res == 0 || written != strlen(msg))
+      throw USER_EXCEPTION2(SE4045, debug_file_path.c_str());
+#endif
+}
+
+

data/vendor/sedna/kernel/common/tr_debug.h

@@ -0,0 +1,22 @@
+/*
+ * File:  tr_debug.h
+ * Copyright (C) 2004 The Institute for System Programming of the Russian Academy of Sciences (ISP RAS)
+ */
+
+#ifndef _TR_DEBUG_H_
+#define _TR_DEBUG_H_
+
+void INIT_DEBUG_LOG(const char* db_name);
+
+void INIT_DEBUG_LOG2(const char* db_name);
+
+void CREATE_DEBUG_LOG(const char* db_name);
+
+void RELEASE_DEBUG_LOG();
+
+void RELEASE_DEBUG_LOG2();
+
+void WRITE_DEBUG_LOG(const char* msg);
+
+#endif
+

data/vendor/sedna/kernel/common/u/Makefile

@@ -0,0 +1,14 @@
+#
+# Makefile for u (GNU make)
+#
+
+PP = ../../..
+
+include $(PP)/Makefile.include
+
+OBJS = u$(OBJ_EXT) uhdd$(OBJ_EXT) ummap$(OBJ_EXT) umutex$(OBJ_EXT) \
+       upipe$(OBJ_EXT) uprocess$(OBJ_EXT) usecurity$(OBJ_EXT) usem$(OBJ_EXT) \
+       ushm$(OBJ_EXT) usocket$(OBJ_EXT) usystem$(OBJ_EXT) uthread$(OBJ_EXT) \
+       utime$(OBJ_EXT) uutils$(OBJ_EXT) uevent$(OBJ_EXT) ugnames$(OBJ_EXT)
+
+include $(PP)/Makefile.pseudolib

data/vendor/sedna/kernel/common/u/u.c

@@ -0,0 +1,268 @@
+/*
+ * File:  u.c
+ * Copyright (C) 2005 The Institute for System Programming of the Russian Academy of Sciences (ISP RAS)
+ */
+
+#include "common/u/u.h"
+#include "common/errdbg/d_printf.h"
+
+#if !(defined(SE_NO_EVENT_LOG))
+#include "common/errdbg/event_log.h"
+#endif
+
+
+static char ustrerror_buf[256];
+
+
+void uSleep(unsigned int secs, sys_call_error_fun fun)
+{
+#ifdef _WIN32
+    Sleep(secs * 1000);
+#else
+    sleep(secs);
+#endif
+}
+
+#if defined(DARWIN)
+int u_is_nan(double d)
+{
+    return isnan(d);
+}
+
+bool u_is_neg_inf(double d)
+{
+     return (isinf(d) && (d) < 0.0);
+}
+
+bool u_is_pos_inf(double d)    
+{
+     return (isinf(d) && (d) > 0.0);
+}
+#endif
+
+/* ustrerror is not thread safe */
+char* ustrerror(int errnum)
+{
+#ifdef _WIN32
+    DWORD res = 0;
+   
+    res = FormatMessage( 
+                FORMAT_MESSAGE_FROM_SYSTEM | 
+                FORMAT_MESSAGE_IGNORE_INSERTS,
+                NULL,
+                errnum,
+                MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
+                (LPTSTR)ustrerror_buf,
+                255,
+                NULL);
+
+    if (!res) 
+        sprintf(ustrerror_buf, "unrecognized error code (%d)", errnum);
+
+    return ustrerror_buf;
+#else
+    return strerror(errnum);
+#endif
+}
+
+int ustrerror_r(int errnum, char *buf, size_t n)
+{
+#ifdef _WIN32
+    DWORD res = 0;
+   
+    memset(buf, '\0', n);
+    res = FormatMessage( 
+                FORMAT_MESSAGE_FROM_SYSTEM | 
+                FORMAT_MESSAGE_IGNORE_INSERTS,
+                NULL,
+                errnum,
+                MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
+                (LPTSTR)buf,
+                n - 1,
+                NULL);
+
+    if (!res) 
+        sprintf(buf, "unrecognized error code (%d)", errnum);
+    else
+    {
+        if ((res > 1) && (buf[res - 1] == (char)10) && (buf[res - 2] == (char)13))
+            buf[res - 1] = buf[res - 2] = '\0';
+    }
+
+    return 0;
+#else
+	/*	There is actually 2 incompatible strerror_r functions -
+		cannot safely rely on return value which is either integer
+		(nonzero indicates failure) or char pointer (NULL indicates
+		failure).
+	*/ 
+    memset(buf, '\0', n);
+	strncpy(buf, "Failed to obtain error message", n - 1);
+    strerror_r(errnum, buf, n); 
+    return 0;
+#endif
+}
+
+int uerrno(const char *funcname, const void* arg)
+{
+#ifdef _WIN32
+#if 0
+    if (strcmp(funcname, "WSAStartup") == 0)
+    {
+        return (arg ? *(int*)arg : 0);
+    }
+    else if (   strcmp(funcname, "WSACleanup") == 0
+             || strcmp(funcname, "socket") == 0
+             || strcmp(funcname, "gethostbyname") == 0
+             || strcmp(funcname, "bind") == 0
+             || strcmp(funcname, "connect") == 0
+             || strcmp(funcname, "setsockopt") == 0
+             || strcmp(funcname, "getsockopt") == 0
+             || strcmp(funcname, "listen") == 0
+             || strcmp(funcname, "accept") == 0
+             || strcmp(funcname, "recv") == 0
+             || strcmp(funcname, "send") == 0
+             || strcmp(funcname, "closesocket") == 0
+             || strcmp(funcname, "shutdown") == 0
+             || strcmp(funcname, "select") == 0)
+    {
+        return WSAGetLastError();
+    }
+    else 
+    {
+        return GetLastError();
+    }
+#endif
+    /* WSAGetLastError() is an alias for GetLastError() */ 
+    return GetLastError();
+#else
+    return errno;
+#endif
+}
+
+void uperror(const char *s)
+{
+#ifdef _WIN32
+    char buf[256];
+    ustrerror_r(uerrno(s, NULL), buf, 256);
+    fprintf(stderr, "%s: %s\n", s, buf);
+#else
+    perror(s);
+#endif
+}
+
+void __sys_call_error(const char *filename, int lineno, const char *funcname, const char *sys_call, const void* arg)
+{
+#if !(defined(SE_NO_EVENT_LOG))
+    char buf[256];
+    int code = uerrno(funcname, arg);
+#endif
+
+    d_perror(sys_call);
+
+#if !(defined(SE_NO_EVENT_LOG))
+    ustrerror_r(code, buf, 256);
+    event_log_short_msg(EL_SYS, 
+                        filename, 
+                        lineno, 
+                        funcname, 
+                        "%s (code = %d): %s", 
+                        sys_call, 
+                        code, 
+                        buf);
+#endif
+}
+
+void __sys_call_error_nop(const char *filename, int lineno, const char *funcname, const char *sys_call, const void* arg)
+{
+}
+
+
+/* Simply writes message to the event log 
+ * Intended to be used inside u-functions to
+ * write additional error condition information.
+ */
+void
+ __u_call_error(const char *filename, 
+               int lineno, 
+               const char *funcname, 
+               const char *message)
+{
+#if !(defined(SE_NO_EVENT_LOG))
+    event_log_short_msg(EL_ERROR, 
+                        filename, 
+                        lineno, 
+                        funcname, 
+                        message);
+#endif /* !SE_NO_EVENT_LOG */
+
+}
+
+
+int uNotInheritDescriptor(UHANDLE h, sys_call_error_fun fun)
+{
+#ifdef _WIN32
+    if (SetHandleInformation(h, HANDLE_FLAG_INHERIT, 0) == 0)
+    {
+        sys_call_error("SetHandleInformation");
+        return -1;
+    }
+    else
+        return 0;
+#else
+
+    if (fcntl(h, F_SETFD, FD_CLOEXEC) == -1)
+    {
+        sys_call_error("fcntl");
+        return -1;
+    }
+    else
+        return 0;
+#endif
+}
+
+
+int uMakeLowLevelDescriptorNonInheritable(FILE* f, sys_call_error_fun fun)
+{
+    int fd;
+
+#ifdef _WIN32
+    HANDLE hnd;
+
+    fd = _fileno(f);
+    if(fd == -1) 
+    {
+        sys_call_error("_fileno");
+        return -1;
+    }
+    
+    hnd = (HANDLE)_get_osfhandle(fd);
+    if(hnd == INVALID_HANDLE_VALUE)
+    {
+        sys_call_error("_get_osfhandle");
+        return -1;
+    }
+
+    if(SetHandleInformation(hnd, HANDLE_FLAG_INHERIT, 0) == 0)
+    {
+        sys_call_error("SetHandleInformation");
+        return -1;
+    }
+    return 0;
+#else
+    fd = fileno(f);
+    if(fd == -1) 
+    {
+        sys_call_error("fileno");
+        return -1;
+    }
+
+    if (fcntl(fd, F_SETFD, FD_CLOEXEC) == -1)
+    {
+        sys_call_error("fcntl");
+        return -1;
+    }
+    return 0;
+#endif
+}
+