clpactvx.cpp

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

	short result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x2a, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		RulePtr);
	return result;
}

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

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

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

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

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

short CCLPACTVX::SetFactListChanged(short Flag)
{
	short result;
	static BYTE parms[] =
		VTS_I2;
	InvokeHelper(0x30, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Flag);
	return result;
}

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

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

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

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

short CCLPACTVX::GetNextInstance(short Which, long Class)
{
	short result;
	static BYTE parms[] =
		VTS_I2 VTS_I4;
	InvokeHelper(0x35, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Which, Class);
	return result;
}

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

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

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

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

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

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

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

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

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

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

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

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

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

void CCLPACTVX::LoadRun(LPCTSTR Filename)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x43, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 Filename);
}

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

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

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

void CCLPACTVX::RemoveAllRoutes()
{
	InvokeHelper(0x47, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void CCLPACTVX::ClearAllRoutes()
{
	InvokeHelper(0x48, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

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

CString CCLPACTVX::NextFactString()
{
	CString result;
	InvokeHelper(0x4a, DISPATCH_METHOD, VT_BSTR, (void*)&result, NULL);
	return result;
}

short CCLPACTVX::SetDefglobalInt(LPCTSTR Name, long Value)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR VTS_I4;
	InvokeHelper(0x4b, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Name, Value);
	return result;
}

short CCLPACTVX::SetDefglobalFloat(LPCTSTR Name, float Value)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR VTS_R4;
	InvokeHelper(0x4c, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Name, Value);
	return result;
}

short CCLPACTVX::SetDefglobalString(LPCTSTR Name, LPCTSTR Value)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x4d, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Name, Value);
	return result;
}

CString CCLPACTVX::GetInstanceData(long InstancePtr)
{
	CString result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x4e, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		InstancePtr);
	return result;
}

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

CString CCLPACTVX::DirectGetSlot(LPCTSTR Class, LPCTSTR Slot)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x50, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		Class, Slot);
	return result;
}

CString CCLPACTVX::GetSlotValue(LPCTSTR Class, LPCTSTR Slot)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x51, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		Class, Slot);
	return result;
}

CString CCLPACTVX::FactString()
{
	CString result;
	InvokeHelper(0x52, DISPATCH_METHOD, VT_BSTR, (void*)&result, NULL);
	return result;
}

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

CString CCLPACTVX::GetInstanceName(long InstancePtr)
{
	CString result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x54, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		InstancePtr);
	return result;
}

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

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

CString CCLPACTVX::CLIPSFunctionCall(LPCTSTR Name, LPCTSTR args)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x57, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		Name, args);
	return result;
}

short CCLPACTVX::RouteCommand(LPCTSTR Command, LPCTSTR Route)
{
	short result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x58, DISPATCH_METHOD, VT_I2, (void*)&result, parms,
		Command, Route);
	return result;
}

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

void CCLPACTVX::AboutBox()
{
	InvokeHelper(0xfffffdd8, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}