rm_jvinterpreterparser.hpp

这是一个功能强大

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

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

#ifndef Rm_jvinterpreterparserHPP
#define Rm_jvinterpreterparserHPP

#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

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

namespace Rm_jvinterpreterparser
{
//-- type declarations -------------------------------------------------------
typedef int TTokenKind;

class DELPHICLASS TJvInterpreterParser;
class PASCALIMPLEMENTATION TJvInterpreterParser : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FSource;
	char *FPCPos;
	void __fastcall SetSource(const AnsiString Value);
	int __fastcall GetPos(void);
	void __fastcall SetPos(int Value);
	
public:
	AnsiString __fastcall Token();
	void __fastcall Init(void);
	__property AnsiString Source = {read=FSource, write=SetSource};
	__property char * PCPos = {read=FPCPos, write=FPCPos};
	__property int Pos = {read=GetPos, write=SetPos, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TJvInterpreterParser(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TJvInterpreterParser(void) { }
	#pragma option pop
	
};


typedef Shortint TPriorLevel;

//-- var, const, procedure ---------------------------------------------------
static const Shortint ttUnknown = -1;
static const Shortint ttEmpty = 0x0;
static const Shortint ttIdentifier = 0xa;
static const Shortint ttInteger = 0xb;
static const Shortint ttDouble = 0xc;
static const Shortint ttString = 0xd;
static const Shortint ttBoolean = 0xe;
static const Shortint ttLB = 0x28;
static const Shortint ttRB = 0x29;
static const Shortint ttCol = 0x2a;
static const Shortint ttPoint = 0x2b;
static const Shortint ttColon = 0x2c;
static const Shortint ttSemicolon = 0x2d;
static const Shortint ttLS = 0x2e;
static const Shortint ttRS = 0x2f;
static const Shortint ttDoublePoint = 0x30;
static const Shortint ttDoubleQuote = 0x31;
static const Shortint ttFalse = 0x3f;
static const Shortint ttTrue = 0x41;
static const Shortint ttBegin = 0x42;
static const Shortint ttEnd = 0x43;
static const Shortint ttIf = 0x44;
static const Shortint ttThen = 0x45;
static const Shortint ttElse = 0x46;
static const Shortint ttWhile = 0x47;
static const Shortint ttDo = 0x48;
static const Shortint ttRepeat = 0x49;
static const Shortint ttUntil = 0x4a;
static const Shortint ttProcedure = 0x4b;
static const Shortint ttFunction = 0x4c;
static const Shortint ttFor = 0x4d;
static const Shortint ttTo = 0x4e;
static const Shortint ttBreak = 0x4f;
static const Shortint ttContinue = 0x50;
static const Shortint ttVar = 0x51;
static const Shortint ttTry = 0x52;
static const Shortint ttFinally = 0x53;
static const Shortint ttExcept = 0x54;
static const Shortint ttOn = 0x55;
static const Shortint ttRaise = 0x56;
static const Shortint ttExternal = 0x57;
static const Shortint ttUnit = 0x58;
static const Shortint ttUses = 0x59;
static const Shortint ttConst = 0x5a;
static const Shortint ttPublic = 0x5b;
static const Shortint ttPrivate = 0x5c;
static const Shortint ttProtected = 0x5d;
static const Shortint ttPublished = 0x5e;
static const Shortint ttProperty = 0x5f;
static const Shortint ttClass = 0x60;
static const Shortint ttType = 0x61;
static const Shortint ttInterface = 0x62;
static const Shortint ttImplementation = 0x63;
static const Shortint ttExit = 0x64;
static const Shortint ttArray = 0x65;
static const Shortint ttOf = 0x66;
static const Shortint ttCase = 0x67;
static const Shortint ttProgram = 0x68;
static const Shortint ttIn = 0x69;
static const Shortint ttRecord = 0x6a;
static const Shortint ttDownTo = 0x6b;
static const Shortint ttNot = 0x15;
static const Shortint ttMul = 0x16;
static const Shortint ttDiv = 0x17;
static const Shortint ttIntDiv = 0x18;
static const Shortint ttMod = 0x19;
static const Shortint ttAnd = 0x1a;
static const Shortint ttPlus = 0x1b;
static const Shortint ttMinus = 0x1c;
static const Shortint ttOr = 0x1d;
static const Shortint ttEqu = 0x1e;
static const Shortint ttGreater = 0x1f;
static const Shortint ttLess = 0x20;
static const Shortint ttNotEqu = 0x21;
static const Shortint ttEquGreater = 0x22;
static const Shortint ttEquLess = 0x23;
static const Shortint ttShl = 0x24;
static const Shortint ttShr = 0x25;
static const Shortint ttXor = 0x26;
static const Shortint priorNot = 0x8;
static const Shortint priorMul = 0x6;
static const Shortint priorDiv = 0x6;
static const Shortint priorIntDiv = 0x6;
static const Shortint priorMod = 0x6;
static const Shortint priorAnd = 0x5;
static const Shortint priorPlus = 0x4;
static const Shortint priorMinus = 0x4;
static const Shortint priorOr = 0x4;
static const Shortint priorEqu = 0x3;
static const Shortint priorGreater = 0x3;
static const Shortint priorLess = 0x3;
static const Shortint priorNotEqu = 0x3;
static const Shortint priorEquGreater = 0x2;
static const Shortint priorEquLess = 0x2;
static const Shortint priorShl = 0x6;
static const Shortint priorShr = 0x6;
static const Shortint priorXor = 0x3;
static const Shortint ttFirstExpression = 0xa;
static const Shortint ttLastExpression = 0x3b;
#define kwTRUE "true"
#define kwFALSE "false"
#define kwOR "or"
#define kwAND "and"
#define kwNOT "not"
#define kwDIV "div"
#define kwMOD "mod"
#define kwBEGIN "begin"
#define kwEND "end"
#define kwIF "if"
#define kwTHEN "then"
#define kwELSE "else"
#define kwWHILE "while"
#define kwDO "do"
#define kwREPEAT "repeat"
#define kwUNTIL "until"
#define kwPROCEDURE "procedure"
#define kwFUNCTION "function"
#define kwFOR "for"
#define kwTO "to"
#define kwBREAK "break"
#define kwCONTINUE "continue"
#define kwVAR "var"
#define kwTRY "try"
#define kwFINALLY "finally"
#define kwEXCEPT "except"
#define kwON "on"
#define kwRAISE "raise"
#define kwEXTERNAL "external"
#define kwUNIT "unit"
#define kwUSES "uses"
#define kwCONST "const"
#define kwPUBLIC "public"
#define kwPRIVATE "private"
#define kwPROTECTED "protected"
#define kwPUBLISHED "published"
#define kwPROPERTY "property"
#define kwCLASS "class"
#define kwTYPE "type"
#define kwINTERFACE "interface"
#define kwIMPLEMENTATION "implementation"
#define kwEXIT "exit"
#define kwARRAY "array"
#define kwOF "of"
#define kwCASE "case"
#define kwPROGRAM "program"
#define kwIN "in"
#define kwRECORD "record"
#define kwDOWNTO "downto"
#define kwNIL "nil"
#define kwSHL "shl"
#define kwSHR "shr"
#define kwXOR "xor"
#define drNAME "name"
#define drINDEX "index"
extern PACKAGE TTokenKind __fastcall TokenTyp(const AnsiString Token);
extern PACKAGE AnsiString __fastcall TypToken(const TTokenKind TTyp);
extern PACKAGE TPriorLevel __fastcall Prior(const TTokenKind TTyp);

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

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