myatsobj.cpp

AtScript 1.1 一个很好用的脚本引擎,可以很方便的在你的软件中实现脚本功能,支持用户扩展对象

// UnInstallAtsObj.cpp: implementation of the CMyAtsObj class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "MyAtsObj.h"
#include "SubObj.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CMyAtsObj::CMyAtsObj()
{

}

CMyAtsObj::~CMyAtsObj()
{

}

//===================================================
// 执行 Install 的对象 Function
//===================================================
BOOL CMyAtsObj::DoFun( LPCTSTR sFunName , CAtsParam *pParam )
{
	CString		strFunName  = sFunName;
	if( strFunName.CompareNoCase("Test") == 0 )
	{
		AfxMessageBox( pParam->GetItemData(1) );
		return true;
	}
	else if( strFunName.CompareNoCase("GetName") == 0 )
	{
		pParam->SetReturnData( _T("MyObj") );
		return true;
	}
	else if( strFunName.CompareNoCase("CreateSubObj") == 0 )
	{
		CSubObj		*pObj = new CSubObj;

		pObj->m_strMyName = "abc123";
		pParam->SetReturnData_Obj( (CAtsObject *)pObj );
		return true;
	}

	return false;
}

BOOL CMyAtsObj::SetVar(LPCTSTR strName , LPCTSTR strData)
{
	return false;
}

//=======================================================
// 得到变量对象
//=======================================================
CAtsVarItem * CMyAtsObj::GetVarItem(LPCTSTR sName )
{
	CString			strName;
	CAtsVarItem		*pItem = NULL;

	strName = sName;
	if( strName.CompareNoCase("TheName") == 0  )
	{
		pItem = new CAtsVarItem;
		pItem->m_vData.m_nType		= ATSVAR_TYPE_STRING;
		pItem->m_strName			= sName;
		pItem->m_vData.m_strData	= "the myobj name";
		return pItem;
	}
	else if( strName.CompareNoCase("@TheName") == 0  )
	{
		pItem = new CAtsVarItem;
		pItem->m_vData.m_nType		= ATSVAR_TYPE_STRING;
		pItem->m_strName			= sName;
		pItem->m_vData.m_strData	= "@ the myobj name";
		return pItem;
	}

	return NULL;
}

BOOL CMyAtsObj::IsVar( LPCTSTR strName )
{
	CString		strTheName;

	strTheName = strName;
	if( strTheName.CompareNoCase("TheName")		== 0	||
		strTheName.CompareNoCase("@TheName")	== 0	)
		return true;
	else
		return false;
}

BOOL CMyAtsObj::IsFunction( LPCTSTR strName )
{
	return false;
}