synhighlighterhp48.hpp

嵌入式IDE

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SynHighlighterHP48.pas' rev: 6.00

#ifndef SynHighlighterHP48HPP
#define SynHighlighterHP48HPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SynEditHighlighter.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Synhighlighterhp48
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TSpeedListObject;
class DELPHICLASS TSpeedStringList;
class PASCALIMPLEMENTATION TSpeedListObject : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	AnsiString FName;
	TSpeedStringList* FSpeedList;
	System::TObject* fobject;
	virtual void __fastcall SetName(const AnsiString Value);
	
public:
	__property AnsiString Name = {read=FName, write=SetName};
	__fastcall TSpeedListObject(AnsiString name);
	__fastcall virtual ~TSpeedListObject(void);
	__property TSpeedStringList* SpeedList = {read=FSpeedList, write=FSpeedList};
	__property System::TObject* pointer = {read=fobject, write=fobject};
};


typedef TSpeedListObject* TSpeedListObjects[1];

typedef TSpeedListObject* *PSpeedListObjects;

class PASCALIMPLEMENTATION TSpeedStringList : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	AnsiString operator[](int Index) { return Strings[Index]; }
	
private:
	AnsiString __fastcall GetText();
	void __fastcall SetText(const AnsiString Value);
	System::TObject* __fastcall GetInObject(int Index);
	void __fastcall SetInObject(int Index, const System::TObject* Value);
	
protected:
	Classes::TNotifyEvent FOnChange;
	int SumOfUsed[128];
	int datasUsed[128];
	TSpeedListObject* *datas[128];
	int lengthDatas[128];
	virtual void __fastcall Changed(void);
	virtual AnsiString __fastcall Get(int Index);
	TSpeedListObject* __fastcall GetObject(int Index);
	int __fastcall GetCount(void);
	Classes::TStrings* __fastcall GetStringList(void);
	void __fastcall SetStringList(const Classes::TStrings* value);
	
public:
	void __fastcall NameChange(const TSpeedListObject* obj, const AnsiString NewName);
	void __fastcall ObjectDeleted(const TSpeedListObject* obj);
	__fastcall virtual ~TSpeedStringList(void);
	__fastcall TSpeedStringList(void);
	int __fastcall AddObj(const TSpeedListObject* Value);
	TSpeedListObject* __fastcall Add(const AnsiString Value);
	void __fastcall Clear(void);
	TSpeedListObject* __fastcall Find(const AnsiString name);
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property TSpeedListObject* Objects[int Index] = {read=GetObject};
	__property System::TObject* inobject[int Index] = {read=GetInObject, write=SetInObject};
	__property AnsiString Strings[int Index] = {read=Get/*, default*/};
	__property int count = {read=GetCount, nodefault};
	__property Classes::TStrings* StringList = {read=GetStringList, write=SetStringList};
	__property AnsiString text = {read=GetText, write=SetText};
};



#pragma option push -b-
enum TtkTokenKind { tkNull, tkAsmKey, tkAsm, tkAsmComment, tksAsmKey, tksAsm, tksAsmComment, tkRplKey, tkRpl, tkRplComment };
#pragma option pop

#pragma option push -b-
enum TRangeState { rsRpl, rsComRpl, rssasm1, rssasm2, rssasm3, rsAsm, rsComAsm2, rsComAsm1 };
#pragma option pop

class DELPHICLASS TSynHP48Syn;
class PASCALIMPLEMENTATION TSynHP48Syn : public Synedithighlighter::TSynCustomHighlighter 
{
	typedef Synedithighlighter::TSynCustomHighlighter inherited;
	
private:
	TtkTokenKind fTockenKind;
	TRangeState fRange;
	AnsiString fLine;
	int Run;
	int fTokenPos;
	bool fEol;
	Synedithighlighter::TSynHighlighterAttributes* Attribs[10];
	TSpeedStringList* FRplKeyWords;
	TSpeedStringList* FAsmKeyWords;
	TSpeedStringList* FSAsmNoField;
	TRangeState FBaseRange;
	Synedithighlighter::TSynHighlighterAttributes* __fastcall GetAttrib(int Index);
	void __fastcall SetAttrib(int Index, Synedithighlighter::TSynHighlighterAttributes* Value);
	TtkTokenKind __fastcall NullProc(void);
	TtkTokenKind __fastcall SpaceProc(void);
	TtkTokenKind __fastcall ParOpenProc(void);
	TtkTokenKind __fastcall RplComProc(void);
	TtkTokenKind __fastcall AsmComProc(char c);
	TtkTokenKind __fastcall PersentProc(void);
	TtkTokenKind __fastcall IdentProc(void);
	TtkTokenKind __fastcall SlashProc(void);
	TtkTokenKind __fastcall SasmProc1(void);
	TtkTokenKind __fastcall SasmProc2(void);
	TtkTokenKind __fastcall SasmProc3(void);
	void __fastcall EndOfToken(void);
	void __fastcall SetHighLightChange(void);
	TtkTokenKind __fastcall Next1(void);
	void __fastcall Next2(TtkTokenKind tkk);
	TtkTokenKind __fastcall GetTokenFromRange(void);
	TtkTokenKind __fastcall StarProc(void);
	
protected:
	virtual int __fastcall GetAttribCount(void);
	virtual Synedithighlighter::TSynHighlighterAttributes* __fastcall GetAttribute(int idx);
	virtual bool __fastcall IsFilterStored(void);
	
public:
	/* virtual class method */ virtual AnsiString __fastcall GetLanguageName(TMetaClass* vmt);
	__fastcall virtual TSynHP48Syn(Classes::TComponent* AOwner);
	__fastcall virtual ~TSynHP48Syn(void);
	virtual Synedithighlighter::TSynHighlighterAttributes* __fastcall GetDefaultAttribute(int Index);
	virtual bool __fastcall GetEol(void);
	virtual void __fastcall SetLine(AnsiString NewValue, int LineNumber);
	virtual AnsiString __fastcall GetToken();
	virtual int __fastcall GetTokenPos(void);
	virtual void __fastcall Next(void);
	virtual Synedithighlighter::TSynHighlighterAttributes* __fastcall GetTokenAttribute(void);
	virtual int __fastcall GetTokenKind(void);
	virtual void * __fastcall GetRange(void);
	virtual void __fastcall SetRange(void * Value);
	virtual void __fastcall ResetRange(void);
	virtual bool __fastcall SaveToRegistry(HKEY RootKey, AnsiString Key);
	virtual bool __fastcall LoadFromRegistry(HKEY RootKey, AnsiString Key);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property TSpeedStringList* AsmKeyWords = {read=FAsmKeyWords};
	__property TSpeedStringList* SAsmFoField = {read=FSAsmNoField};
	__property TSpeedStringList* RplKeyWords = {read=FRplKeyWords};
	
__published:
	__property Synedithighlighter::TSynHighlighterAttributes* AsmKey = {read=GetAttrib, write=SetAttrib, index=1};
	__property Synedithighlighter::TSynHighlighterAttributes* AsmTxt = {read=GetAttrib, write=SetAttrib, index=2};
	__property Synedithighlighter::TSynHighlighterAttributes* AsmComment = {read=GetAttrib, write=SetAttrib, index=3};
	__property Synedithighlighter::TSynHighlighterAttributes* sAsmKey = {read=GetAttrib, write=SetAttrib, index=4};
	__property Synedithighlighter::TSynHighlighterAttributes* sAsmTxt = {read=GetAttrib, write=SetAttrib, index=5};
	__property Synedithighlighter::TSynHighlighterAttributes* sAsmComment = {read=GetAttrib, write=SetAttrib, index=6};
	__property Synedithighlighter::TSynHighlighterAttributes* RplKey = {read=GetAttrib, write=SetAttrib, index=7};
	__property Synedithighlighter::TSynHighlighterAttributes* RplTxt = {read=GetAttrib, write=SetAttrib, index=8};
	__property Synedithighlighter::TSynHighlighterAttributes* RplComment = {read=GetAttrib, write=SetAttrib, index=9};
	__property TRangeState BaseRange = {read=FBaseRange, write=FBaseRange, nodefault};
};


//-- var, const, procedure ---------------------------------------------------
static const Byte NbSubList = 0x80;

}	/* namespace Synhighlighterhp48 */
using namespace Synhighlighterhp48;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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