rm_codegen.hpp

这是一个功能强大

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

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

#ifndef Rm_codegenHPP
#define Rm_codegenHPP

#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 <Messages.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Registry.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Strutils.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Rm_jvinterpreter.hpp>	// Pascal unit
#include <Rm_jvinterpreterfm.hpp>	// Pascal unit

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

namespace Rm_codegen
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TGetStringsEvent)(const Classes::TStrings* AList);

class DELPHICLASS TRMCodeGenEngine;
class PASCALIMPLEMENTATION TRMCodeGenEngine : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Rm_jvinterpreter::TJvInterpreterProgram* FScriptInterpreter;
	TGetStringsEvent FOnGetScript;
	Classes::TNotifyEvent FOnScriptChanged;
	Rm_jvinterpreter::TJvInterpreterProgram* __fastcall GetScriptInterpreter(void);
	Classes::TStrings* __fastcall GetScript(void);
	void __fastcall SetScript(const Classes::TStrings* Value);
	AnsiString __fastcall GetScriptText();
	void __fastcall SetScriptText(const AnsiString Value);
	
protected:
	bool ScriptCompiled;
	void __fastcall DoGetScript(void);
	void __fastcall DoScriptChanged(void);
	
public:
	void __fastcall Modified(void);
	virtual bool __fastcall CompileScript(void);
	Rm_jvinterpreter::TJvInterpreterFunctionDesc* __fastcall GetFunDesc(AnsiString ASrcFunName);
	int __fastcall AddFunctionCode(AnsiString aFunctionName, AnsiString aFunctionDefine, Classes::TStringList* aCode, bool aAppendCodeIfExist = false)/* overload */;
	int __fastcall AddFunctionCode(AnsiString aFunctionName, AnsiString aFunctionDefine, AnsiString aCode, bool aAppendCodeIfExist = false)/* overload */;
	void __fastcall GetFunctionCode(AnsiString aFunctionName, Classes::TStringList* aCode)/* overload */;
	AnsiString __fastcall GetFunctionCode(AnsiString aFunctionName)/* overload */;
	bool __fastcall FunctionExists(const AnsiString aFunctionName);
	bool __fastcall RenameFunction(const AnsiString CurName, const AnsiString NewName);
	bool __fastcall DeleteFunction(const AnsiString aFunctionName);
	int __fastcall GetFunctionPos(const AnsiString aFunctionName);
	__fastcall virtual TRMCodeGenEngine(void);
	__fastcall virtual ~TRMCodeGenEngine(void);
	__property Classes::TNotifyEvent OnScriptChanged = {read=FOnScriptChanged, write=FOnScriptChanged};
	__property TGetStringsEvent OnGetScript = {read=FOnGetScript, write=FOnGetScript};
	__property Classes::TStrings* Script = {read=GetScript, write=SetScript};
	__property AnsiString ScriptText = {read=GetScriptText, write=SetScriptText};
	__property Rm_jvinterpreter::TJvInterpreterProgram* ScriptEngine = {read=GetScriptInterpreter};
};


//-- var, const, procedure ---------------------------------------------------
#define Tag_Initprocedure "InitializeComponent"

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

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