rm_parser.hpp

这是一个功能强大

// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Rm_parser.pas' rev: 11.00

#ifndef Rm_parserHPP
#define Rm_parserHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Rm_common.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Rm_system.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Rm_parser
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TRMGetPValueEvent)(WideString aVariableName, Variant &aValue);

typedef void __fastcall (__closure *TRMFunctionEvent)(AnsiString aFunctionName, Variant * aParams, const int aParams_Size, Variant &aValue, bool &aFound);

class DELPHICLASS TRMParser;
class PASCALIMPLEMENTATION TRMParser : public Rm_common::TRMCustomParser 
{
	typedef Rm_common::TRMCustomParser inherited;
	
private:
	bool FInScript;
	TRMGetPValueEvent FOnGetValue;
	TRMFunctionEvent FOnFunction;
	WideString __fastcall GetString(const WideString aStr, int &i);
	
public:
	virtual WideString __fastcall Str2OPZ(WideString aStr);
	Variant __fastcall CalcOPZ(const WideString aStr);
	virtual Variant __fastcall Calc(const Variant &aStr);
	virtual WideString __fastcall GetIdentify(const WideString aStr, int &i);
	virtual void __fastcall GetParameters(const WideString aStr, int &aIndex, Variant * aParams, const int aParams_Size);
	__property TRMGetPValueEvent OnGetValue = {read=FOnGetValue, write=FOnGetValue};
	__property TRMFunctionEvent OnFunction = {read=FOnFunction, write=FOnFunction};
	__property bool InScript = {read=FInScript, write=FInScript, nodefault};
public:
	#pragma option push -w-inl
	/* TRMPersistent.Create */ inline __fastcall virtual TRMParser(void) : Rm_common::TRMCustomParser() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TRMPersistent.Destroy */ inline __fastcall virtual ~TRMParser(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Rm_parser */
using namespace Rm_parser;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Rm_parser