rm_jvhlparser.hpp

这是一个功能强大

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

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

#ifndef Rm_jvhlparserHPP
#define Rm_jvhlparserHPP

#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 <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Rm_jclwidestrings.hpp>	// Pascal unit
#include <Rm_jvtypes.hpp>	// Pascal unit
#include <Rm_jvjclutils.hpp>	// Pascal unit

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

namespace Rm_jvhlparser
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TIParserStyle { psNone, psPascal, psCpp, psPython, psVB, psHtml, psPerl, psCocoR, psPhp, psSql };
#pragma option pop

class DELPHICLASS TJvIParser;
class PASCALIMPLEMENTATION TJvIParser : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	char *FpcProgram;
	char *FpcPos;
	Classes::TStringList* FHistory;
	int FHistorySize;
	int FHistoryPtr;
	TIParserStyle FStyle;
	bool FReturnComments;
	int __fastcall HistoryInd(int Index);
	AnsiString __fastcall GetHistory(int Index);
	int __fastcall GetPosBeg(int Index);
	int __fastcall GetPosEnd(int Index);
	void __fastcall SetHistorySize(int Size);
	int __fastcall GetPos(void);
	
public:
	__fastcall TJvIParser(void);
	__fastcall virtual ~TJvIParser(void);
	AnsiString __fastcall Token();
	void __fastcall RollBack(int Index);
	__property AnsiString History[int Index] = {read=GetHistory};
	__property int PosBeg[int Index] = {read=GetPosBeg};
	__property int PosEnd[int Index] = {read=GetPosEnd};
	__property int HistorySize = {read=FHistorySize, write=SetHistorySize, nodefault};
	__property int Pos = {read=GetPos, nodefault};
	__property char * pcPos = {read=FpcPos, write=FpcPos};
	__property char * pcProgram = {read=FpcProgram, write=FpcProgram};
	__property TIParserStyle Style = {read=FStyle, write=FStyle, nodefault};
	__property bool ReturnComments = {read=FReturnComments, write=FReturnComments, nodefault};
};


class DELPHICLASS TJvIParserW;
class PASCALIMPLEMENTATION TJvIParserW : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	WideChar *FpcProgram;
	WideChar *FpcPos;
	Rm_jclwidestrings::TWStrings* FHistory;
	int FHistorySize;
	int FHistoryPtr;
	TIParserStyle FStyle;
	bool FReturnComments;
	int __fastcall HistoryInd(int Index);
	WideString __fastcall GetHistory(int Index);
	int __fastcall GetPosBeg(int Index);
	int __fastcall GetPosEnd(int Index);
	void __fastcall SetHistorySize(int Size);
	int __fastcall GetPos(void);
	
public:
	__fastcall TJvIParserW(void);
	__fastcall virtual ~TJvIParserW(void);
	WideString __fastcall Token();
	void __fastcall RollBack(int Index);
	__property WideString History[int Index] = {read=GetHistory};
	__property int PosBeg[int Index] = {read=GetPosBeg};
	__property int PosEnd[int Index] = {read=GetPosEnd};
	__property int HistorySize = {read=FHistorySize, write=SetHistorySize, nodefault};
	__property int Pos = {read=GetPos, nodefault};
	__property WideChar * pcPos = {read=FpcPos, write=FpcPos};
	__property WideChar * pcProgram = {read=FpcProgram, write=FpcProgram};
	__property TIParserStyle Style = {read=FStyle, write=FStyle, nodefault};
	__property bool ReturnComments = {read=FReturnComments, write=FReturnComments, nodefault};
};


class DELPHICLASS EJvIParserError;
class PASCALIMPLEMENTATION EJvIParserError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
private:
	int FErrCode;
	unsigned FPosition;
	
public:
	__fastcall EJvIParserError(int AErrCode, unsigned APosition, int Dummy);
	__property int ErrCode = {read=FErrCode, nodefault};
	__property unsigned Position = {read=FPosition, nodefault};
public:
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EJvIParserError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EJvIParserError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EJvIParserError(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EJvIParserError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EJvIParserError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EJvIParserError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EJvIParserError(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EJvIParserError(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint ieBadRemark = 0x1;
extern PACKAGE void __fastcall ParseString(const AnsiString S, Classes::TStrings* Ss);
extern PACKAGE void __fastcall ParseStringW(const WideString S, Rm_jclwidestrings::TWStrings* Ss);
extern PACKAGE bool __fastcall IsStringConstant(const AnsiString St);
extern PACKAGE bool __fastcall IsStringConstantW(const WideString St);
extern PACKAGE bool __fastcall IsRealConstant(const AnsiString St);
extern PACKAGE bool __fastcall IsRealConstantW(const WideString St);
extern PACKAGE bool __fastcall IsIntConstant(const AnsiString St);
extern PACKAGE bool __fastcall IsIntConstantW(const WideString St);
extern PACKAGE bool __fastcall IsIdentifier(const AnsiString ID);
extern PACKAGE bool __fastcall IsIdentifierW(const WideString ID);
extern PACKAGE AnsiString __fastcall GetStringValue(const AnsiString St);
extern PACKAGE WideString __fastcall GetStringValueW(const WideString St);

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

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