transactd 1.0.1

data/source/bzs/rtl/benchmark.h

@@ -0,0 +1,65 @@
+#ifndef benchmarkH
+#define benchmarkH
+/*=================================================================
+   Copyright (C) 2013 BizStation Corp All rights reserved.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License
+   as published by the Free Software Foundation; either version 2
+   of the License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software 
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+   02111-1307, USA.
+=================================================================*/
+#include <boost/function.hpp>
+#include <boost/version.hpp>
+
+//#define BOOST_HIGH_RESOL_TIMER_ENABLE
+
+#if BOOST_VERSION > 104801
+	
+	#ifdef BOOST_HIGH_RESOL_TIMER_ENABLE
+		#include <boost/chrono/system_clocks.hpp>
+		#include <boost/chrono.hpp>
+		typedef boost::chrono::high_resolution_clock boost_timer;
+	#else
+		#define BOOST_CPUTIMER_ENABLE
+		#include <boost/timer/timer.hpp>
+		typedef boost::timer::cpu_timer boost_timer;
+	#endif
+
+#else
+    #include <boost/timer.hpp>
+    typedef boost::timer boost_timer;
+
+#endif
+
+namespace bzs
+{
+namespace rtl
+{
+// single thread only
+class benchmark
+{
+    static boost_timer t;
+	#ifdef BOOST_HIGH_RESOL_TIMER_ENABLE
+	static boost_timer::time_point  m_start;
+	#endif
+public:
+    static bool report(boost::function<bool()> func, const char* name);
+    static void report2(boost::function<void()> func, const char* name);
+    static void start();
+    static void showTimeSec(bool result, const char* name);
+
+};
+
+}//namespace rtl
+}//namespace bzs
+#endif

data/source/bzs/rtl/datetime.cpp

@@ -0,0 +1,375 @@
+/*=================================================================
+   Copyright (C) 2000 2013 BizStation Corp All rights reserved.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License
+   as published by the Free Software Foundation; either version 2
+   of the License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software 
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+   02111-1307, USA.
+=================================================================*/
+#include <bzs/env/tstring.h>
+#pragma hdrstop
+
+#include "datetime.h"
+#include <string.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <time.h>
+#include <bzs/env/crosscompile.h>
+#ifdef LINUX
+#include <wchar.h>
+#endif
+
+#pragma package(smart_init)		// BCB package
+#pragma warning(disable:4996)	// VC++ unsafe function
+
+//Ansi & Unicode
+#if (defined(_WIN32) && _MSC_VER)
+	extern DWORD g_tlsiID_SC3;
+#else
+	__THREAD _TCHAR __THREAD_BCB g_date[30];
+#endif
+
+inline _TCHAR* databuf()
+{
+	#if (defined(_WIN32) && _MSC_VER)
+		return (_TCHAR*)TlsGetValue(g_tlsiID_SC3);
+	#else
+		return g_date;
+	#endif
+}
+
+
+namespace bzs
+{
+namespace rtl
+{
+
+
+
+int   GetDate(const _TCHAR* NowDate)
+{
+    int ret;
+    ret = _ttol(NowDate+8);
+    return ret;
+}
+
+int   GetYear(const _TCHAR* NowDate, bool PrevMonth)
+{
+    int ret;
+    ret = _ttol(NowDate);
+    if ((PrevMonth) && (GetMonth(NowDate, false) == 1))
+        ret--;
+    return ret;
+}
+
+int   GetMonth(const _TCHAR* NowDate, bool PrevMonth)
+{
+    int ret;
+    ret = _ttol(NowDate+5);
+    if (PrevMonth)
+        ret--;
+    if (ret == 0)
+        ret = 12;
+
+    return ret;
+}
+
+bool  IsUrudosi(int Year)
+{
+    if ((Year % 4) == 0)
+    {
+        if ((Year % 400) == 0)
+            return true;
+        else if ((Year % 100) == 0)
+            return false;
+        else
+            return true;
+    }
+    return false;
+}
+
+bool GetDatefromYearSerialDays(int year, int Days, _TCHAR* date, bool nextYearRight)
+{	
+	//The date of the day counted from the beginning of the year is returned.
+ 	//if orver the year then return false.
+
+    int mm;
+    int dd = Days;
+    for (mm=1; mm < 14;mm++)
+    {
+        switch (mm)
+        {
+        case 2:
+            if(IsUrudosi(year))
+                Days-=29;
+            else
+                Days-=28;
+            break;
+        case 4:
+        case 6:
+        case 9:
+        case 11:
+            Days-=30;break;
+        default:
+            Days-=31;
+        }
+        if (Days <= 0)
+            break;
+        dd=Days;
+    }
+    bool ret= true;
+    if ((dd>31)|| (mm==13))
+    {
+        if (nextYearRight)
+        {
+            year += 1;
+            mm = 1;
+        }else
+        {//for old program
+            dd = 31;
+            mm--;
+        }
+        ret= false;
+    }
+    _stprintf(date,_T("%04d/%02d/%02d"), year,mm,dd);
+    return ret;
+}
+
+//---------------------------------------------------------------------------
+int JDate2NumOLD(const _TCHAR* date)
+{//1900/01/01 = 2415021
+	int yy = GetYear(date,false);
+	int mm = GetMonth(date,false);
+	int dd = GetDate(date);
+	int i;
+
+	//The number of leap years 
+	int n = 2415020;
+	for (i=1900; i < yy; i+= 4)
+	{
+		if(IsUrudosi(i))
+			n+=1;
+	}
+	n+= (yy - 1900 ) * 365;
+	for (i=1; i < mm ;i++)
+	{
+		switch(i)
+		{
+		 case 2:
+			if(IsUrudosi(yy))
+				n+=29;
+			else
+				n+=28;
+			break;
+		 case 4:
+		 case 6:
+		 case 9:
+		 case 11:
+			n+=30;
+			break;
+		 default:
+			n+=31;
+		}
+	}
+	n+=dd;
+	return n;
+}
+#ifdef _WIN32
+//---------------------------------------------------------------------------
+int JDate2Num(const _NTCHAR* date)
+{
+    #ifdef _UNICODE
+        wchar_t buf[20];
+        MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, date, -1, buf, 20);
+    #else
+        char buf[20];
+        wtoa(buf, date, 20);
+    #endif
+    return JDate2Num(buf);
+}
+#endif
+//---------------------------------------------------------------------------
+int JDate2Num(const _TCHAR* date)
+{//1980/01/01 = 2444240
+	int yy = GetYear(date,false);
+    if (yy < 1980)
+        return JDate2NumOLD(date);
+
+	int mm = GetMonth(date,false);
+	int dd = GetDate(date);
+	int i;
+
+
+	//The number of leap years 
+	int n = 2444239;
+	for (i=1980; i < yy; i+= 4)
+	{
+		if(IsUrudosi(i))
+			n+=1;
+	}
+	n+= (yy - 1980 ) * 365;
+	for (i=1; i < mm ;i++)
+	{
+		switch(i)
+		{
+		 case 2:
+			if(IsUrudosi(yy))
+				n+=29;
+			else
+				n+=28;
+			break;
+		 case 4:
+		 case 6:
+		 case 9:
+		 case 11:
+			n+=30;
+			break;
+		 default:
+			n+=31;
+		}
+	}
+	n+=dd;
+	return n;
+}
+//---------------------------------------------------------------------------
+_TCHAR* JNum2DateOLD(int n)
+{//1900/01/01 = 2415021
+	bool uru = false;
+	if (n < 2415021)
+		return NULL;
+
+	int yy = 1900;
+	n -= 2415020;
+	while (1)
+	{
+		if(uru)
+		{
+			if (n <= 366)
+				break;
+		}
+		else
+		{
+			if (n <= 365)
+				break;
+		}
+		if(uru)
+			n -= 366;
+		else
+			n -= 365;
+		yy++;
+		uru = IsUrudosi(yy);
+	}
+	GetDatefromYearSerialDays(yy, n, databuf());
+	return databuf();
+}
+
+//---------------------------------------------------------------------------
+const _TCHAR* JNum2Date(int n)
+{//1980/01/01 = 2444240
+	bool uru = true;
+	if (n < 2444240)
+        return JNum2DateOLD(n);
+
+	int yy = 1980;
+	n -= 2444239;
+	while (1)
+	{
+		if(uru)
+		{
+			if (n <= 366)
+				break;
+		}
+		else
+		{
+			if (n <= 365)
+				break;
+		}
+		if(uru)
+			n -= 366;
+		else
+			n -= 365;
+		yy++;
+		uru = IsUrudosi(yy);
+	}
+	GetDatefromYearSerialDays(yy, n, databuf());
+	return databuf();
+}
+
+//---------------------------------------------------------------------------
+long StrToLongDate(_TCHAR* strdat)
+{   //Conver string date to long. ex : 20011231
+	 _TCHAR buf[9];
+	 _tcsncpy(buf, strdat, 4);
+	 _tcsncpy(buf + 4,strdat + 5, 2);
+	 _tcsncpy(buf + 6,strdat + 8, 2);
+	 buf[8] = 0x00;
+	 return _ttol(buf);
+}
+//---------------------------------------------------------------------------
+_TCHAR* LongToStrDate(long ldat , _TCHAR* strdat)
+{ //Conver long date to string date�B
+  //No check long date is valid.
+	 _TCHAR buf[11];
+	 if (ldat == 0)
+		_tcscpy(strdat,_T("0000/00/00"));
+	 else
+	 {
+		_stprintf_s(buf, 11, _T("%08ld"),ldat);
+
+		_tcsncpy(strdat, buf, 4);
+		strdat[4] = '/';
+		_tcsncpy(strdat + 5, buf + 4, 2);
+		strdat[7] = '/';
+		_tcsncpy(strdat + 8, buf + 6, 2);
+		strdat[10] = 0x00;
+	 }
+	return strdat;
+}
+//---------------------------------------------------------------------------
+_TCHAR* LongToStrTime(long ltime , _TCHAR* strdat)
+{ //Conver long time to string time�B
+  //No check long time is valid.
+	_TCHAR buf[9];
+	_stprintf_s(buf, 9, _T("%ld"),ltime);
+	_tcsncpy(strdat,buf,2);
+	strdat[2] = ':';
+	_tcsncpy(strdat + 3, buf + 2, 2);
+	strdat[5] = ':';
+	_tcsncpy(strdat + 6, buf + 4, 2);
+	strdat[8] = 0x00;
+	return strdat;
+}
+//---------------------------------------------------------------------------
+const char* dateTimeStr(char* buf, unsigned int bufsize)
+{
+	struct tm* date;
+	time_t now;
+	time(&now);
+#ifdef __MINGW32__
+	date = localtime(&now);
+#else
+	struct tm tmp;
+	date = &tmp;
+	localtime_x(date, &now);
+#endif	
+	sprintf_s(buf, bufsize, "%04d/%02d/%02d %02d:%02d:%02d"
+			,date->tm_year + 1900, 	date->tm_mon + 1,date->tm_mday
+			,date->tm_hour, date->tm_min, date->tm_sec);
+	return buf;
+}
+
+
+}//namespace rtl
+}//namespace bzs
+
+#pragma warning(default:4996) 

data/source/bzs/rtl/datetime.h

@@ -0,0 +1,53 @@
+#ifndef BZS_RT_DATETIME_H
+#define BZS_RT_DATETIME_H
+/*=================================================================
+   Copyright (C) 2000 2013 BizStation Corp All rights reserved.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License
+   as published by the Free Software Foundation; either version 2
+   of the License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software 
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+   02111-1307, USA.
+=================================================================*/
+
+#include <bzs/env/compiler.h>
+#include <bzs/env/tstring.h>
+
+namespace bzs
+{
+namespace rtl
+{
+//---------------------------------------------------------------------------
+PACKAGE int   GetYear(const _TCHAR* NowDate, bool PrevMonth);
+PACKAGE int   GetMonth(const _TCHAR* NowDate, bool PrevMonth);
+PACKAGE int   GetDate(const _TCHAR* NowDate);
+PACKAGE bool  IsUrudosi(int Year);
+PACKAGE bool  GetDatefromYearSerialDays(int year, int Days, _TCHAR* date
+											, bool nextYearRight=false);
+
+PACKAGE int   JDate2Num(const _TCHAR* date);
+
+#ifdef _WIN32
+PACKAGE int   JDate2Num(const _NTCHAR* date);
+#endif
+
+PACKAGE const _TCHAR* JNum2Date(int ldate);
+
+PACKAGE long 	StrToLongDate(_TCHAR* pStrDate);
+PACKAGE _TCHAR* LongToStrDate(long , _TCHAR* );
+PACKAGE _TCHAR* LongToStrTime(long , _TCHAR* );
+PACKAGE const char* dateTimeStr(char* buf, unsigned int bufsize);
+
+}//namespace rtl
+}//namespace bzs
+
+#endif//BZS_RT_DATETIME_H

data/source/bzs/rtl/debuglog.cpp

@@ -0,0 +1,106 @@
+/*=================================================================
+   Copyright (C) 2012 2013 BizStation Corp All rights reserved.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License
+   as published by the Free Software Foundation; either version 2
+   of the License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software 
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+   02111-1307, USA.
+=================================================================*/
+
+#include "debuglog.h"
+#include <bzs/env/fileopen.h>
+#include <algorithm>
+#include <time.h>
+
+namespace bzs
+{
+namespace rtl
+{
+
+#ifdef	DEBUG_PROFILE
+boost::timer::cpu_timer g_t;
+#endif
+
+static char datebuf[30];
+
+debuglog* debuglog::m_ptr=NULL;
+boost::mutex debuglog::m_mutex;
+char debuglog::logfilename[MAX_PATH];
+
+const char* dateTimeStr(char* buf, unsigned int bufsize)
+{
+	struct tm* date;
+	time_t now;
+	time(&now);
+	struct tm tmp;
+	date = &tmp;
+	localtime_x(date, &now);
+	sprintf_s(buf, bufsize, "%04d/%02d/%02d %02d:%02d:%02d"
+			,date->tm_year + 1900, 	date->tm_mon + 1,date->tm_mday
+			,date->tm_hour, date->tm_min, date->tm_sec);
+	return buf;
+}
+
+const char* debuglog::dateTime()
+{
+	return dateTimeStr(datebuf, 30);
+}
+
+void debuglog::write(const char* msg)
+{
+	boost::mutex::scoped_lock lck(m_mutex);
+	FILE* fp = fileOpen(logfilename, "a+");
+	if (fp)
+	{
+		fputs(dateTime(), fp);
+		fputs(" ", fp);
+		fputs(msg, fp);
+		fclose(fp);
+	}
+
+}
+
+void debuglog::dump(FILE* fp, const char* p, int size, int limit)
+{
+	size = std::min<int>(size, limit);
+	for (int i=0;i<size;i+=16)
+	{
+		
+		for (int j=0;j<16;j++)
+			fprintf(fp, "%02X ", *((unsigned char*)(p+i+j)));
+		fprintf(fp, " ");
+		for (int j=0;j<16;j++)
+			fprintf(fp, "%c", *((unsigned char*)(p+i+j)));
+		fprintf(fp, "\n");
+		
+	}
+	fprintf(fp, "\n");
+}
+
+void debuglog::writeDump(const char* msg, const char* ptr, int size)
+{
+	boost::mutex::scoped_lock lck(m_mutex);
+	FILE* fp = fileOpen(logfilename, "a+");
+	if (fp)
+	{
+		fputs(msg, fp);
+		fputs("\n", fp);
+		dump(fp, ptr, size, INT_MAX);
+
+		fclose(fp);
+	}
+}
+
+}//namespace rtl
+}//namespace bzs
+

data/source/bzs/rtl/debuglog.h

@@ -0,0 +1,97 @@
+#ifndef BZS_RL_DEBUGLOG_H
+#define BZS_RL_DEBUGLOG_H
+/*=================================================================
+   Copyright (C) 2012 2013 BizStation Corp All rights reserved.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License
+   as published by the Free Software Foundation; either version 2
+   of the License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software 
+   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+   02111-1307, USA.
+=================================================================*/
+#include <boost/noncopyable.hpp>
+#include <boost/thread/mutex.hpp>
+#include <stdio.h>
+#include <bzs/env/crosscompile.h>
+#include <time.h>
+#include <boost/timer/timer.hpp>
+#ifdef _WIN32
+#include <windows.h>
+
+#endif
+
+namespace bzs
+{
+namespace rtl
+{
+
+class debuglog : private boost::noncopyable
+{
+	static debuglog* m_ptr;
+protected:
+	static boost::mutex m_mutex;
+	static char logfilename[MAX_PATH];
+	
+public:
+	virtual ~debuglog(){};
+	virtual void stop()=0;
+	void write(const char* msg);
+	void writeDump(const char* msg, const char* ptr, int size);
+	static void regist(debuglog* ptr){m_ptr = ptr;};
+	static debuglog* get(){return m_ptr;}
+	static void dump(FILE* fp, const char* p, int size, int limit);
+	static void init();
+	static const char* dateTime();
+
+};
+
+#ifdef DEBUG_LOG
+	#define DEBUG_WRITELOG(MSG) debuglog::get()->write(MSG);
+
+#else  //DEBUG_LOG
+	#define DEBUG_WRITELOG(MSG)
+#endif //DEBUG_LOG
+
+#if defined(DEBUG_PROFILE) || defined(DEBUG_LOG)
+	#define DEBUG_PROFILE_INIT() bzs::rtl::debuglog::get()->init();
+	#define DEBUG_PROFILE_DEINIT() bzs::rtl::debuglog::get()->stop();
+#else
+	#define DEBUG_PROFILE_INIT()
+	#define DEBUG_PROFILE_DEINIT()
+#endif
+
+#ifdef	DEBUG_PROFILE
+extern boost::timer::cpu_timer g_t;
+
+#define DEBUG_PROFILE_START(V) if (V) bzs::rtl::g_t.start(); 
+
+#define DEBUG_PROFILE_END(V, NAME) if (V) {bzs::rtl::g_t.stop();           \
+	char buf[256];                                                         \
+	sprintf(buf, "%-20s %s\r\n",NAME, bzs::rtl::g_t.format().c_str());      \
+	bzs::rtl::debuglog::get()->write(buf);};
+
+#define DEBUG_PROFILE_END_OP(V, IV)	if (V){bzs::rtl::g_t.stop();           \
+	char buf[256]; \
+	sprintf(buf, "op = %-15ld %s\r\n", IV, bzs::rtl::g_t.format().c_str()); \
+	bzs::rtl::debuglog::get()->write(buf);};
+
+#else //DEBUG_PROFILE
+
+#define	DEBUG_PROFILE_START(V)  
+#define DEBUG_PROFILE_END(V, NAME)
+#define DEBUG_PROFILE_END_OP(V, IV)
+
+#endif //DEBUG_PROFILE
+
+}//namespace rtl
+}//namespace bzs
+#endif //BZS_RL_DEBUGLOG_H