clpactvx.cpp

专家系统例子,内核是clips,很有参考性的工具采用visual c

// Machine generated IDispatch wrapper class(es) created by Microsoft Visual C++

// NOTE: Do not modify the contents of this file.  If this class is regenerated by
//  Microsoft Visual C++, your modifications will be overwritten.


#include "stdafx.h"
#include "clpactvx.h"

/////////////////////////////////////////////////////////////////////////////
// CCLPACTVX

IMPLEMENT_DYNCREATE(CCLPACTVX, CWnd)

/////////////////////////////////////////////////////////////////////////////
// CCLPACTVX properties

long CCLPACTVX::GetReadyState()
{
	long result;
	GetProperty(DISPID_READYSTATE, VT_I4, (void*)&result);
	return result;
}

short CCLPACTVX::GetFactDuplication()
{
	short result;
	GetProperty(0x2, VT_I2, (void*)&result);
	return result;
}

void CCLPACTVX::SetFactDuplication(short propVal)
{
	SetProperty(0x2, VT_I2, propVal);
}

short CCLPACTVX::GetSetHaltExecution()
{
	short result;
	GetProperty(0x3, VT_I2, (void*)&result);
	return result;
}

void CCLPACTVX::SetSetHaltExecution(short propVal)
{
	SetProperty(0x3, VT_I2, propVal);
}

long CCLPACTVX::GetMemoryRequests()
{
	long result;
	GetProperty(0x4, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetMemoryRequests(long propVal)
{
	SetProperty(0x4, VT_I4, propVal);
}

long CCLPACTVX::GetFocus()
{
	long result;
	GetProperty(0x5, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetFocus(long propVal)
{
	SetProperty(0x5, VT_I4, propVal);
}

long CCLPACTVX::GetVersion()
{
	long result;
	GetProperty(0x6, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetVersion(long propVal)
{
	SetProperty(0x6, VT_I4, propVal);
}

long CCLPACTVX::GetActivationPtr()
{
	long result;
	GetProperty(0x7, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetActivationPtr(long propVal)
{
	SetProperty(0x7, VT_I4, propVal);
}

long CCLPACTVX::GetAgendaPtr()
{
	long result;
	GetProperty(0x8, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetAgendaPtr(long propVal)
{
	SetProperty(0x8, VT_I4, propVal);
}

long CCLPACTVX::GetClassPtr()
{
	long result;
	GetProperty(0x9, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetClassPtr(long propVal)
{
	SetProperty(0x9, VT_I4, propVal);
}

long CCLPACTVX::GetFactPtr()
{
	long result;
	GetProperty(0xa, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetFactPtr(long propVal)
{
	SetProperty(0xa, VT_I4, propVal);
}

long CCLPACTVX::GetGlobalNumberOfInstances()
{
	long result;
	GetProperty(0xb, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetGlobalNumberOfInstances(long propVal)
{
	SetProperty(0xb, VT_I4, propVal);
}

long CCLPACTVX::GetGlobalPtr()
{
	long result;
	GetProperty(0xc, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetGlobalPtr(long propVal)
{
	SetProperty(0xc, VT_I4, propVal);
}

long CCLPACTVX::GetInstancePtr()
{
	long result;
	GetProperty(0xd, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetInstancePtr(long propVal)
{
	SetProperty(0xd, VT_I4, propVal);
}

long CCLPACTVX::GetMemoryUsed()
{
	long result;
	GetProperty(0xe, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetMemoryUsed(long propVal)
{
	SetProperty(0xe, VT_I4, propVal);
}

long CCLPACTVX::GetModulePtr()
{
	long result;
	GetProperty(0xf, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetModulePtr(long propVal)
{
	SetProperty(0xf, VT_I4, propVal);
}

long CCLPACTVX::GetNumberOfFacts()
{
	long result;
	GetProperty(0x10, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetNumberOfFacts(long propVal)
{
	SetProperty(0x10, VT_I4, propVal);
}

long CCLPACTVX::GetRulePtr()
{
	long result;
	GetProperty(0x11, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetRulePtr(long propVal)
{
	SetProperty(0x11, VT_I4, propVal);
}

long CCLPACTVX::GetStrategy()
{
	long result;
	GetProperty(0x1, VT_I4, (void*)&result);
	return result;
}

void CCLPACTVX::SetStrategy(long propVal)
{
	SetProperty(0x1, VT_I4, propVal);
}

CString CCLPACTVX::GetDribble()
{
	CString result;
	GetProperty(0x12, VT_BSTR, (void*)&result);
	return result;
}

void CCLPACTVX::SetDribble(LPCTSTR propVal)
{
	SetProperty(0x12, VT_BSTR, propVal);
}

/////////////////////////////////////////////////////////////////////////////
// CCLPACTVX operations

void CCLPACTVX::About()
{
	InvokeHelper(0x13, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void CCLPACTVX::FreeMem()
{
	InvokeHelper(0x14, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

short CCLPACTVX::AssertFact(long FactPtr)
{
	short result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x15, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		FactPtr);
	return result;
}

short CCLPACTVX::AssertString(LPCTSTR Fact)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x16, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Fact);
	return result;
}

short CCLPACTVX::BatchStar(LPCTSTR Filename)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x17, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Filename);
	return result;
}

short CCLPACTVX::Bload(LPCTSTR Filename)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x18, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Filename);
	return result;
}

short CCLPACTVX::Bsave(LPCTSTR Filename)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x19, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Filename);
	return result;
}

short CCLPACTVX::Clear()
{
	short result;
	InvokeHelper(0x1a, DISPATCH_METHOD, VT_I2, (void*)&result, NULL);
	return result;
}

short CCLPACTVX::CreateRawInstance(LPCTSTR Instance)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x1b, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Instance);
	return result;
}

short CCLPACTVX::DecrementFactCtr(long Fact)
{
	short result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x1c, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Fact);
	return result;
}

short CCLPACTVX::DeleteAllInstances()
{
	short result;
	InvokeHelper(0x1d, DISPATCH_METHOD, VT_I2, (void*)&result, NULL);
	return result;
}

short CCLPACTVX::DeleteCurrentInstance()
{
	short result;
	InvokeHelper(0x1e, DISPATCH_METHOD, VT_I2, (void*)&result, NULL);
	return result;
}

short CCLPACTVX::DirectPutSlot(LPCTSTR Class, LPCTSTR Slot, LPCTSTR Value, short Type)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_BSTR VTS_I2;
	InvokeHelper(0x1f, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Class, Slot, Value, Type);
	return result;
}

short CCLPACTVX::FindDefglobal(LPCTSTR Defglobal)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x20, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Defglobal);
	return result;
}

CString CCLPACTVX::GetDefglobalString(LPCTSTR Defglobal)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x21, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		Defglobal);
	return result;
}

float CCLPACTVX::GetDefglobalFloat(LPCTSTR Defglobal)
{
	float result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x22, DISPATCH_METHOD, VT_R4, (void*)&result, parms,
		Defglobal);
	return result;
}

long CCLPACTVX::GetDefglobalInt(LPCTSTR Defglobal)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x23, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		Defglobal);
	return result;
}

short CCLPACTVX::FindInstance(LPCTSTR Instance)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x24, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Instance);
	return result;
}

long CCLPACTVX::GetFactListChanged()
{
	long result;
	InvokeHelper(0x25, DISPATCH_METHOD, VT_I4, (void*)&result, NULL);
	return result;
}

long CCLPACTVX::IncrementFactCtr(long Fact)
{
	long result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x26, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		Fact);
	return result;
}

short CCLPACTVX::Load(LPCTSTR Filename)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x27, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Filename);
	return result;
}

short CCLPACTVX::LoadFacts(LPCTSTR Filename)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x28, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Filename);
	return result;
}

short CCLPACTVX::MakeInstance(LPCTSTR Class)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x29, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Class);
	return result;
}

short CCLPACTVX::Matches(long RulePtr)
{