transactd 1.0.1

data/source/global/tdclatl/FieldDef.h

@@ -0,0 +1,87 @@
+#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/tdapSchema.h>
+#include <bzs/db/protocol/tdap/client/dbDef.h>
+using namespace ATL;
+
+class ATL_NO_VTABLE CFieldDef : public CComObjectRootEx<CComSingleThreadModel>,
+    public CComCoClass<CFieldDef, &CLSID_FieldDef>,
+    public IDispatchImpl<IFieldDef, &IID_IFieldDef, &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
+{
+	bzs::db::protocol::tdap::fielddef* fielddef(){return &(*m_tabledefPtr)->fieldDefs[m_index];}
+public:
+    CFieldDef():m_tabledefPtr(NULL) {}
+	bzs::db::protocol::tdap::tabledef** m_tabledefPtr;
+	short m_index;
+
+    BEGIN_COM_MAP(CFieldDef) 
+		COM_INTERFACE_ENTRY(IFieldDef) 
+		COM_INTERFACE_ENTRY(IDispatch) 
+	END_COM_MAP()
+
+    DECLARE_PROTECT_FINAL_CONSTRUCT()
+
+    HRESULT FinalConstruct() {return S_OK;}
+
+    void FinalRelease() {}
+
+public:
+	
+    STDMETHOD(get_Name)(BSTR* Value);
+    STDMETHOD(get_Type)(eFieldType* Value);
+    STDMETHOD(get_Len)(short* Value);
+    STDMETHOD(get_Decimals)(unsigned char* Value);
+    STDMETHOD(get_Max)(double* Value);
+    STDMETHOD(get_Min)(double* Value);
+    STDMETHOD(get_DefValue)(double* Value);
+    STDMETHOD(get_LookTable)(unsigned char* Value);
+    STDMETHOD(get_LookField)(unsigned char* Value);
+    STDMETHOD(get_LookViewField)(short Index, unsigned char* Value);
+    STDMETHOD(get_EnableFlags)(IFlags** Value);
+
+    STDMETHOD(put_Decimals)(unsigned char Value);
+    STDMETHOD(put_DefValue)(double Value);
+    STDMETHOD(put_EnableFlags)(IFlags* Value);
+    STDMETHOD(put_Len)(short Value);
+    STDMETHOD(put_LookField)(unsigned char Value);
+    STDMETHOD(put_LookTable)(unsigned char Value);
+    STDMETHOD(put_LookViewField)(short Index, unsigned char Value);
+    STDMETHOD(put_Max)(double Value);
+    STDMETHOD(put_Min)(double Value);
+    STDMETHOD(put_Name)(BSTR Value);
+    STDMETHOD(put_Type)(eFieldType Value);
+    STDMETHOD(get_Keylen)(unsigned short* Value);
+    STDMETHOD(put_Keylen)(unsigned short Value);
+    STDMETHOD(get_NullValue)(unsigned short* Value);
+    STDMETHOD(put_NullValue)(unsigned short Value);
+    STDMETHOD(get_Align)(unsigned int* Value);
+	STDMETHOD(get_TypeName)( BSTR* Value);
+	STDMETHOD(get_IsStringType)( VARIANT_BOOL* Value);
+    STDMETHOD(get_CharsetIndex)(eCharset* Value);
+    STDMETHOD(put_CharsetIndex)(eCharset Value);
+    STDMETHOD(get_CodePage)(unsigned int* Value);
+    STDMETHOD(get_CharNum)(unsigned int* Value);
+    STDMETHOD(SetLenByCharnum)(unsigned short Value);
+
+
+};

data/source/global/tdclatl/Flags.cpp

@@ -0,0 +1,111 @@
+/*=================================================================
+   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 "Flags.h"
+
+STDMETHODIMP CFlags::get_Bits(short Index, VARIANT_BOOL* Value)
+{
+    switch (Index)
+    {
+    case 0: *Value = m_flags.bit0;
+        break;
+    case 1: *Value = m_flags.bit1;
+        break;
+    case 2: *Value = m_flags.bit2;
+        break;
+    case 3: *Value = m_flags.bit3;
+        break;
+    case 4: *Value = m_flags.bit4;
+        break;
+    case 5: *Value = m_flags.bit5;
+        break;
+    case 6: *Value = m_flags.bit6;
+        break;
+    case 7: *Value = m_flags.bit7;
+        break;
+    case 8: *Value = m_flags.bit8;
+        break;
+    case 9: *Value = m_flags.bit9;
+        break;
+    case 10: *Value = m_flags.bitA;
+        break;
+    case 11: *Value = m_flags.bitB;
+        break;
+    case 12: *Value = m_flags.bitC;
+        break;
+    case 13: *Value = m_flags.bitD;
+        break;
+    case 14: *Value = m_flags.bitE;
+        break;
+    case 15: *Value = m_flags.bitF;
+        break;
+    }
+    return S_OK;
+}
+
+STDMETHODIMP CFlags::put_Bits(short Index, VARIANT_BOOL Value)
+{
+    switch (Index)
+    {
+    case 0: m_flags.bit0 = Value;
+        break;
+    case 1: m_flags.bit1 = Value;
+        break;
+    case 2: m_flags.bit2 = Value;
+        break;
+    case 3: m_flags.bit3 = Value;
+        break;
+    case 4: m_flags.bit4 = Value;
+        break;
+    case 5: m_flags.bit5 = Value;
+        break;
+    case 6: m_flags.bit6 = Value;
+        break;
+    case 7: m_flags.bit7 = Value;
+        break;
+    case 8: m_flags.bit8 = Value;
+        break;
+    case 9: m_flags.bit9 = Value;
+        break;
+    case 10: m_flags.bitA = Value;
+        break;
+    case 11: m_flags.bitB = Value;
+        break;
+    case 12: m_flags.bitC = Value;
+        break;
+    case 13: m_flags.bitD = Value;
+        break;
+    case 14: m_flags.bitE = Value;
+        break;
+    case 15: m_flags.bitF = Value;
+        break;
+    }
+
+    return S_OK;
+}
+
+STDMETHODIMP CFlags::All(unsigned short* Value)
+{
+    *Value = m_flags.all;
+    return S_OK;
+}
+
+STDMETHODIMP CFlags::SetBit(short Index, VARIANT_BOOL Value) {return put_Bits(Index, Value);}
+
+STDMETHODIMP CFlags::GetBit(short Index, VARIANT_BOOL* Value) {return get_Bits(Index, Value);}

data/source/global/tdclatl/Flags.h

@@ -0,0 +1,55 @@
+#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/tdapSchema.h>
+
+using namespace ATL;
+
+class ATL_NO_VTABLE CFlags : public CComObjectRootEx<CComSingleThreadModel>, public CComCoClass<CFlags, &CLSID_Flags>,
+    public IDispatchImpl<IFlags, &IID_IFlags, &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
+{
+public:
+    CFlags() {}
+    bzs::db::protocol::tdap::FLAGS m_flags;
+
+    BEGIN_COM_MAP(CFlags) 
+		COM_INTERFACE_ENTRY(IFlags) 
+		COM_INTERFACE_ENTRY(IDispatch) 
+	END_COM_MAP()
+
+    DECLARE_PROTECT_FINAL_CONSTRUCT()
+
+    HRESULT FinalConstruct() {return S_OK;}
+
+    void FinalRelease() {}
+
+public:
+
+    STDMETHOD(get_Bits)(short Index, VARIANT_BOOL* Value);
+    STDMETHOD(put_Bits)(short Index, VARIANT_BOOL Value);
+
+    STDMETHOD(All)(unsigned short* Value);
+
+    STDMETHOD(GetBit)(short Index, VARIANT_BOOL* Value);
+    STDMETHOD(SetBit)(short Index, VARIANT_BOOL Value);
+
+};

data/source/global/tdclatl/KeyDef.cpp

@@ -0,0 +1,51 @@
+/*=================================================================
+   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 "KeyDef.h"
+#include "KeySegment.h"
+
+STDMETHODIMP CKeyDef::get_SegmentCount(unsigned char* Value)
+{
+    *Value = keydef()->segmentCount;
+    return S_OK;
+};
+
+STDMETHODIMP CKeyDef::put_SegmentCount(unsigned char Value)
+{
+    keydef()->segmentCount = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CKeyDef::Segments(short Index, IKeySegment** Value)
+{
+    CComObject<CKeySegment> *piObj;
+    CComObject<CKeySegment>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_tabledefPtr = m_tabledefPtr;
+		piObj->m_keyIndex = m_index;
+		piObj->m_index = Index;
+		IKeySegment* sg;
+		piObj->QueryInterface(IID_IKeySegment, (void**)&sg);
+		_ASSERTE(sg);
+		*Value = piObj;
+	}else
+		*Value = 0;
+    return S_OK;
+}

data/source/global/tdclatl/KeyDef.h

@@ -0,0 +1,55 @@
+#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/tdapSchema.h>
+#include <bzs/db/protocol/tdap/client/dbDef.h>
+using namespace ATL;
+
+class ATL_NO_VTABLE CKeyDef : public CComObjectRootEx<CComSingleThreadModel>,
+    public CComCoClass<CKeyDef, &CLSID_KeyDef>,
+    public IDispatchImpl<IKeyDef, &IID_IKeyDef, &LIBID_transactd, /* wMajor = */ 1, /* wMinor = */ 0>
+{
+	bzs::db::protocol::tdap::keydef* keydef(){return &(*m_tabledefPtr)->keyDefs[m_index];}
+public:
+    CKeyDef():m_tabledefPtr(NULL)  {}
+	bzs::db::protocol::tdap::tabledef** m_tabledefPtr;
+	short m_index;
+
+    BEGIN_COM_MAP(CKeyDef) 
+		COM_INTERFACE_ENTRY(IKeyDef) 
+		COM_INTERFACE_ENTRY(IDispatch) 
+	END_COM_MAP()
+
+    DECLARE_PROTECT_FINAL_CONSTRUCT()
+
+    HRESULT FinalConstruct() {return S_OK;}
+
+    void FinalRelease() {}
+
+public:
+	
+
+    STDMETHOD(get_SegmentCount)(unsigned char* Value);
+    STDMETHOD(Segments)(short Index, IKeySegment** Value);
+    STDMETHOD(put_SegmentCount)(unsigned char Value);
+
+};

data/source/global/tdclatl/KeySegment.cpp

@@ -0,0 +1,55 @@
+/*=================================================================
+   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 "KeySegment.h"
+#include "Flags.h"
+
+STDMETHODIMP CKeySegment::get_FieldNum(unsigned char* Value)
+{
+    *Value = segment()->fieldNum;
+    return S_OK;
+}
+
+STDMETHODIMP CKeySegment::get_Flags(IFlags** Value)
+{
+    CComObject<CFlags> *piObj;
+    CComObject<CFlags>::CreateInstance(&piObj);
+	if (piObj)
+	{
+		piObj->m_flags = segment()->flags;
+		IFlags* fl;
+		piObj->QueryInterface(IID_IFlags, (void**)&fl);
+		_ASSERTE(fl);
+		*Value = piObj;
+	}else
+		*Value = 0;
+    return S_OK;
+}
+
+STDMETHODIMP CKeySegment::put_FieldNum(unsigned char Value)
+{
+    segment()->fieldNum = Value;
+    return S_OK;
+}
+
+STDMETHODIMP CKeySegment::put_Flags(IFlags* Value)
+{
+    Value->All(&segment()->flags.all);
+    return S_OK;
+}