transactd 1.0.1

data/source/global/tdclatl/DbDef.cpp

@@ -0,0 +1,242 @@
+/*=================================================================
+   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 "stdafx.h"
+#include "DbDef.h"
+#include "database.h"
+#include "TableDef.h"
+#include "FieldDef.h"
+#include "KeyDef.h"
+#include "Field.h"
+
+using namespace bzs::db::protocol::tdap;
+
+
+
+STDMETHODIMP CDbDef::get_TableCount(short* Value)
+{
+    *Value = m_dbDef->tableCount();
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::TableDef(short Index, ITableDef** Value)
+{
+    if (!m_dbDef->tableDefs(Index))
+        return Error("Invalid index.", IID_IDbDef);
+
+    CComObject<CTableDef> *piObj = NULL;
+    CComObject<CTableDef>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_tabledefPtr = m_dbDef->tableDefPtr(Index);
+		ITableDef* tbd;
+		piObj->QueryInterface(IID_ITableDef, (void**)&tbd);
+		_ASSERTE(tbd);
+		*Value = tbd;
+	}
+	else
+		*Value = 0;
+	
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::InsertTable(short index, ITableDef** Param1)
+{
+    tabledef TableDef;
+    memset(&TableDef, 0, sizeof(TableDef));
+    TableDef.setTableName(L"new_table");
+    TableDef.setFileName(L"new_table.dat");
+    TableDef.id = index;
+    TableDef.keyCount = 0;
+    TableDef.fieldCount = 0;
+    TableDef.flags.all = 0;
+    TableDef.primaryKeyNum = -1;
+    TableDef.parentKeyNum = -1;
+    TableDef.replicaKeyNum = -1;
+    TableDef.pageSize = 2048;
+
+    m_dbDef->insertTable(&TableDef);
+    this->TableDef(index, Param1);
+    return S_OK;
+
+}
+
+STDMETHODIMP CDbDef::DeleteField(short TableIndex, short FieldIndex)
+{
+    m_dbDef->deleteField(TableIndex, FieldIndex);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::DeleteKey(short TableIndex, short KeyIndex)
+{
+    m_dbDef->deleteKey(TableIndex, KeyIndex);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::InsertField(short TableIndex, short InsertIndex, IFieldDef** Param3)
+
+{
+    fielddef* fdPtr = m_dbDef->insertField(TableIndex, InsertIndex);
+    if (!fdPtr)
+        return Error("Invalid index.", IID_IDbDef);
+
+    CComObject<CFieldDef> *piObj;
+    CComObject<CFieldDef>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_tabledefPtr = m_dbDef->tableDefPtr(TableIndex);
+		piObj->m_index = InsertIndex;
+		IFieldDef* fd;
+		piObj->QueryInterface(IID_IFieldDef, (void**)&fd);
+		_ASSERTE(fd);
+		*Param3 = piObj;
+	}else
+		*Param3 = 0;
+		
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::InsertKey(short TableIndex, short InsertIndex, IKeyDef** Param3)
+
+{
+    keydef* keyPtr = m_dbDef->insertKey(TableIndex, InsertIndex);
+    if (!keyPtr)
+        return Error("Invalid index.", IID_IDbDef);
+    CComObject<CKeyDef> *piObj;
+    CComObject<CKeyDef>::CreateInstance(&piObj);
+	if (piObj)
+	{
+   		piObj->m_tabledefPtr = m_dbDef->tableDefPtr(TableIndex);;
+		piObj->m_index = InsertIndex;
+		IKeyDef* kb;
+		piObj->QueryInterface(IID_IKeyDef, (void**)&kb);
+		_ASSERTE(kb);
+		*Param3 = piObj;
+	}else
+		*Param3 = 0;
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::UpDateTableDef(short TableIndex)
+{
+    m_dbDef->updateTableDef(TableIndex);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::CompAsBackup(short TableIndex, VARIANT_BOOL* Value)
+{
+    *Value = m_dbDef->compAsBackup(TableIndex);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::DeleteTable(short TableIndex)
+{
+    m_dbDef->deleteTable(TableIndex);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::TableNumByName(BSTR Name, short* Value)
+{
+    *Value = m_dbDef->tableNumByName(Name);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::FieldNumByName( short TableIndex, BSTR Name, short* Value)
+{
+    *Value = m_dbDef->fieldNumByName(TableIndex, Name);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::FieldValidLength( eFieldQuery Query, short FieldType, unsigned int* Value)
+{
+    *Value = m_dbDef->fieldValidLength((client::eFieldQuery)Query, (uchar_td)FieldType);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::FindKeynumByFieldNum( short TableIndex, short Index, unsigned short* Value)
+{
+    *Value = m_dbDef->findKeynumByFieldNum(TableIndex, Index);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::GetRecordLen( short TableIndex, unsigned short* Value)
+{
+    *Value = m_dbDef->getRecordLen(TableIndex);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::get_OpenMode( eOpenMode* Value)
+{
+    *Value = (eOpenMode)m_dbDef->openMode();
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::PopBackup( short TableIndex)
+{
+	m_dbDef->popBackup(TableIndex);
+    return S_OK;
+}
+STDMETHODIMP CDbDef::PushBackup( short TableIndex)
+{
+	m_dbDef->pushBackup(TableIndex);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::RenumberTable( short OldIndex, short NewIndex)
+{
+	m_dbDef->renumberTable(OldIndex, NewIndex);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::Reopen( eOpenMode Mode)
+{
+	m_dbDef->reopen((char_td)Mode);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::get_Version( int* Value)
+{
+	*Value = m_dbDef->version();
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::put_Version( int Value)
+{
+	m_dbDef->setVersion(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::get_Stat( eStatus* Value)
+{
+	*Value = (eStatus)m_dbDef->stat();
+    return S_OK;
+}
+
+STDMETHODIMP CDbDef::TdapErr(OLE_HANDLE hWnd, BSTR* Value)
+{
+    if (Value)
+    {
+        wchar_t tmp[512] = {NULL};
+        m_dbDef->tdapErr((HWND)hWnd, tmp);
+        *Value = ::SysAllocString(tmp);
+    }
+    else
+        m_dbDef->tdapErr((HWND)hWnd);
+    return S_OK;
+}
+

data/source/global/tdclatl/DbDef.h

@@ -0,0 +1,79 @@
+#pragma once
+/*=================================================================
+   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 "resource.h"
+#include "tdclatl_i.h"
+#include <bzs/db/protocol/tdap/client/dbDef.h>
+
+
+using namespace ATL;
+
+
+
+class ATL_NO_VTABLE CDbDef : public CComObjectRootEx<CComSingleThreadModel>, public CComCoClass<CDbDef, &CLSID_DbDef>,
+    public IDispatchImpl<IDbDef, &IID_IDbDef, &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
+{
+    
+
+public:
+    CDbDef():m_dbDef(NULL) {}
+
+ 	bzs::db::protocol::tdap::client::dbdef* m_dbDef;
+    
+    BEGIN_COM_MAP(CDbDef) 
+		COM_INTERFACE_ENTRY(IDbDef) 
+		COM_INTERFACE_ENTRY(IDispatch) 
+	END_COM_MAP()
+
+    DECLARE_PROTECT_FINAL_CONSTRUCT()
+
+    HRESULT FinalConstruct() {return S_OK;}
+
+	void FinalRelease(){}
+
+public:
+
+    STDMETHOD(get_TableCount)(short* Value);
+    STDMETHOD(TableDef)(short Index, ITableDef** Value);
+
+    STDMETHOD(InsertTable)(short index, ITableDef** Param1);
+    STDMETHOD(DeleteField)(short TableIndex, short FieldIndex);
+    STDMETHOD(DeleteKey)(short TableIndex, short KeyIndex);
+    STDMETHOD(InsertField)(short TableIndex, short InsertIndex, IFieldDef** Param3);
+
+    STDMETHOD(InsertKey)(short TableIndex, short InsertIndex, IKeyDef** Param3);
+    STDMETHOD(UpDateTableDef)(short TableIndex);
+	STDMETHOD(CompAsBackup)(short TableIndex, VARIANT_BOOL* Value);
+	STDMETHOD(DeleteTable)(short TableIndex);
+	STDMETHOD(TableNumByName)(BSTR Name, short* Value);
+	STDMETHOD(FieldNumByName)( short TableIndex, BSTR Name, short* Value);
+	STDMETHOD(FieldValidLength)( eFieldQuery Query, short FieldType, unsigned int* Value);
+	STDMETHOD(FindKeynumByFieldNum)( short TableIndex, short Index, unsigned short* Value);
+	STDMETHOD(GetRecordLen)( short TableIndex, unsigned short* Value);
+	STDMETHOD(get_OpenMode)( eOpenMode* Value);
+	STDMETHOD(PopBackup)( short TableIndex);
+	STDMETHOD(PushBackup)( short TableIndex);
+	STDMETHOD(RenumberTable)( short OldIndex, short NewIndex);
+	STDMETHOD(Reopen)( eOpenMode Mode);
+	STDMETHOD(get_Version)( int* Value);
+	STDMETHOD(put_Version)( int Value);
+	STDMETHOD(get_Stat)( eStatus* Value);
+	STDMETHOD(TdapErr)(OLE_HANDLE hWnd, BSTR* Value);
+
+};

data/source/global/tdclatl/Field.cpp

@@ -0,0 +1,92 @@
+/*=================================================================
+   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 "stdafx.h"
+#include "Field.h"
+
+STDMETHODIMP CField::get_Text(BSTR* Value)
+{
+
+    *Value = ::SysAllocString(m_tb->getFVstr(m_index));
+    return S_OK;
+}
+
+STDMETHODIMP CField::get_Vlng(int* Value)
+{
+    *Value = m_tb->getFVint(m_index);
+    return S_OK;
+}
+
+STDMETHODIMP CField::put_Text(BSTR Value)
+{
+    m_tb->setFVW(m_index, Value);
+    ::SysFreeString(Value);
+
+    return S_OK;
+}
+
+STDMETHODIMP CField::put_Vlng(int Value)
+{
+    m_tb->setFV(m_index, Value);
+    return S_OK;
+}
+
+STDMETHODIMP CField::get_V64(__int64* Value)
+{
+    *Value = m_tb->getFV64(m_index);
+    return S_OK;
+}
+
+STDMETHODIMP CField::put_V64(__int64 Value)
+{
+    m_tb->setFV(m_index, Value);
+    return S_OK;
+}
+
+STDMETHODIMP CField::get_Vbin(BSTR* Value)
+{
+    uint_td size;
+    void* p = m_tb->getFVbin(m_index, size);
+
+    *Value = ::SysAllocStringByteLen((char*)p, size);
+
+    return S_OK;
+}
+
+STDMETHODIMP CField::get_Vdbl(double* Value)
+{
+    *Value = m_tb->getFVdbl(m_index);
+    return S_OK;
+}
+
+STDMETHODIMP CField::put_Vbin(BSTR Value)
+{
+
+    int len = ::SysStringByteLen(Value);
+    if (len > m_tb->tableDef()->fieldDefs[m_index].len)
+        len = m_tb->tableDef()->fieldDefs[m_index].len;
+    m_tb->setFV(m_index, Value, len);
+
+    return S_OK;
+}
+
+STDMETHODIMP CField::put_Vdbl(double Value)
+{
+    m_tb->setFV(m_index, Value);
+    return S_OK;
+}

data/source/global/tdclatl/Field.h

@@ -0,0 +1,59 @@
+#pragma once
+/*=================================================================
+   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 "resource.h"
+
+#include "tdclatl_i.h"
+#include <bzs/db/protocol/tdap/client/table.h>
+
+using namespace ATL;
+
+class ATL_NO_VTABLE CField : public CComObjectRootEx<CComSingleThreadModel>, public CComCoClass<CField, &CLSID_Field>,
+    public IDispatchImpl<IField, &IID_IField, &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
+{
+public:
+    CField():m_tb(NULL) {}
+    bzs::db::protocol::tdap::client::table* m_tb;
+    short m_index;
+
+    BEGIN_COM_MAP(CField) 
+		COM_INTERFACE_ENTRY(IField) 
+		COM_INTERFACE_ENTRY(IDispatch) 
+	END_COM_MAP()
+
+    DECLARE_PROTECT_FINAL_CONSTRUCT()
+
+    HRESULT FinalConstruct() {return S_OK;}
+
+    void FinalRelease() {}
+
+public:
+
+    STDMETHOD(get_Text)(BSTR* Value);
+    STDMETHOD(get_Vlng)(int* Value);
+    STDMETHOD(put_Text)(BSTR Value);
+    STDMETHOD(put_Vlng)(int Value);
+    STDMETHOD(get_V64)(__int64* Value);
+    STDMETHOD(put_V64)(__int64 Value);
+    STDMETHOD(get_Vbin)(BSTR* Value);
+    STDMETHOD(get_Vdbl)(double* Value);
+    STDMETHOD(put_Vbin)(BSTR Value);
+    STDMETHOD(put_Vdbl)(double Value);
+
+};

data/source/global/tdclatl/FieldDef.cpp

@@ -0,0 +1,238 @@
+/*=================================================================
+   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 "stdafx.h"
+#include "FieldDef.h"
+#include "Flags.h"
+
+STDMETHODIMP CFieldDef::get_Name(BSTR* Value)
+{
+    CComBSTR ret;
+    ret = fielddef()->name();
+    *Value = ret.Copy();
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_Name(BSTR Value)
+{
+    fielddef()->setName(Value);
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_Type(eFieldType* Value)
+{
+    *Value = (eFieldType)fielddef()->type;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_Type(eFieldType Value)
+{
+    fielddef()->type = (uchar_td)Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_Len(short* Value)
+{
+    *Value = fielddef()->len;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_Len(short Value)
+{
+    fielddef()->len = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_Decimals(unsigned char* Value)
+{
+    *Value = fielddef()->decimals;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_Decimals(unsigned char Value)
+{
+    fielddef()->decimals = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_Max(double* Value)
+{
+    *Value = fielddef()->max;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_Max(double Value)
+{
+    fielddef()->max = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_Min(double* Value)
+{
+    *Value = fielddef()->min;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_Min(double Value)
+{
+    fielddef()->min = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_DefValue(double* Value)
+{
+    *Value = fielddef()->defValue;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_DefValue(double Value)
+{
+    fielddef()->defValue = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_LookTable(unsigned char* Value)
+{
+    *Value = fielddef()->lookTable;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_LookTable(unsigned char Value)
+{
+    fielddef()->lookTable = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_LookField(unsigned char* Value)
+{
+    *Value = fielddef()->lookField;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_LookField(unsigned char Value)
+{
+    fielddef()->lookField = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_LookViewField(short Index, unsigned char* Value)
+{
+    *Value = fielddef()->lookFields[Index];
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_LookViewField(short Index, unsigned char Value)
+{
+    fielddef()->lookFields[Index] = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_EnableFlags(IFlags** Value)
+{
+    CComObject<CFlags> *piObj;
+    CComObject<CFlags>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_flags = fielddef()->enableFlags;
+		IFlags* fl;
+		piObj->QueryInterface(IID_IFlags, (void**)&fl);
+		_ASSERTE(fl);
+		*Value = piObj;
+	}else
+		*Value = 0;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_EnableFlags(IFlags* Value)
+{
+    Value->All(&fielddef()->enableFlags.all);
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_Keylen(unsigned short* Value)
+{
+	*Value = fielddef()->keylen;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_Keylen(unsigned short Value)
+{
+	fielddef()->keylen = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_NullValue(unsigned short* Value)
+{
+	*Value = fielddef()->nullValue;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_NullValue(unsigned short Value)
+{
+	fielddef()->nullValue = (uchar_td)Value;
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_Align(unsigned int* Value)
+{
+	*Value = fielddef()->align();
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_TypeName( BSTR* Value)
+{
+	*Value = ::SysAllocString(fielddef()->typeName());
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_IsStringType( VARIANT_BOOL* Value)
+{
+	*Value = fielddef()->isStringType();
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_CharsetIndex(eCharset* Value)
+{
+	*Value = (eCharset)fielddef()->charsetIndex();
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::put_CharsetIndex(eCharset Value)
+{
+	fielddef()->setCharsetIndex((unsigned char)Value);
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_CodePage(unsigned int* Value)
+{
+	*Value = fielddef()->codePage();
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::get_CharNum(unsigned int* Value)
+{
+	*Value = fielddef()->charNum();
+    return S_OK;
+}
+
+STDMETHODIMP CFieldDef::SetLenByCharnum(unsigned short Value)
+{
+	fielddef()->setLenByCharnum(Value);
+    return S_OK;
+}
+