synhighlighteruri.hpp

嵌入式IDE

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

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

#ifndef SynHighlighterURIHPP
#define SynHighlighterURIHPP

#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 <SynEditTypes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Synhighlighteruri
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TtkTokenKind { tkNull, tkSpace, tkFtpLink, tkGopherLink, tkHttpLink, tkHttpsLink, tkMailtoLink, tkNewsLink, tkNntpLink, tkProsperoLink, tkTelnetLink, tkWaisLink, tkWebLink, tkUnknown, tkNullChar };
#pragma option pop

typedef void __fastcall (__closure *TProcTableProc)(void);

typedef TtkTokenKind __fastcall (__closure *TIdentFuncTableFunc)(void);

typedef TIdentFuncTableFunc *PIdentFuncTableFunc;

typedef bool __fastcall (__closure *TAlreadyVisitedURIFunc)(AnsiString URI);

class DELPHICLASS TSynURISyn;
class PASCALIMPLEMENTATION TSynURISyn : public Synedithighlighter::TSynCustomHighlighter 
{
	typedef Synedithighlighter::TSynCustomHighlighter inherited;
	
private:
	char *fLine;
	int fLineNumber;
	AnsiString fLineStr;
	char *fMayBeProtocol;
	TProcTableProc fProcTable[256];
	int Run;
	int fStringLen;
	TtkTokenKind FTokenID;
	int fTokenPos;
	TIdentFuncTableFunc fIdentFuncTable[98];
	Synedithighlighter::TSynHighlighterAttributes* fIdentifierAttri;
	Synedithighlighter::TSynHighlighterAttributes* fSpaceAttri;
	Synedithighlighter::TSynHighlighterAttributes* fURIAttri;
	Synedithighlighter::TSynHighlighterAttributes* fVisitedURIAttri;
	TAlreadyVisitedURIFunc FAlreadyVisitedURI;
	bool __fastcall KeyComp(const AnsiString Key);
	int __fastcall KeyHash(char * ToHash);
	void __fastcall InitIdent(void);
	void __fastcall MakeMethodTables(void);
	void __fastcall CRProc(void);
	void __fastcall LFProc(void);
	void __fastcall NullProc(void);
	void __fastcall ProtocolProc(void);
	void __fastcall SpaceProc(void);
	void __fastcall UnknownProc(void);
	TtkTokenKind __fastcall AltFunc(void);
	TtkTokenKind __fastcall FtpFunc(void);
	TtkTokenKind __fastcall GopherFunc(void);
	TtkTokenKind __fastcall HttpFunc(void);
	TtkTokenKind __fastcall HttpsFunc(void);
	TtkTokenKind __fastcall MailtoFunc(void);
	TtkTokenKind __fastcall NewsFunc(void);
	TtkTokenKind __fastcall NntpFunc(void);
	TtkTokenKind __fastcall ProsperoFunc(void);
	TtkTokenKind __fastcall TelnetFunc(void);
	TtkTokenKind __fastcall WaisFunc(void);
	TtkTokenKind __fastcall WebFunc(void);
	bool __fastcall IsValidEmailAddress(void);
	bool __fastcall IsValidURI(void);
	bool __fastcall IsValidWebLink(void);
	void __fastcall SetURIAttri(const Synedithighlighter::TSynHighlighterAttributes* Value);
	void __fastcall SetVisitedURIAttri(const Synedithighlighter::TSynHighlighterAttributes* Value);
	
protected:
	virtual Synedittypes::TSynIdentChars __fastcall GetIdentChars();
	virtual AnsiString __fastcall GetSampleSource();
	virtual bool __fastcall IsFilterStored(void);
	void __fastcall SetAlreadyVisitedURIFunc(TAlreadyVisitedURIFunc Value);
	
public:
	/* virtual class method */ virtual AnsiString __fastcall GetLanguageName(TMetaClass* vmt);
	__fastcall virtual TSynURISyn(Classes::TComponent* AOwner);
	__fastcall virtual ~TSynURISyn(void);
	virtual Synedithighlighter::TSynHighlighterAttributes* __fastcall GetDefaultAttribute(int Index);
	virtual bool __fastcall GetEol(void);
	TtkTokenKind __fastcall GetTokenID(void);
	virtual void __fastcall SetLine(AnsiString NewValue, int LineNumber);
	virtual AnsiString __fastcall GetToken();
	virtual Synedithighlighter::TSynHighlighterAttributes* __fastcall GetTokenAttribute(void);
	virtual int __fastcall GetTokenKind(void);
	virtual int __fastcall GetTokenPos(void);
	virtual void __fastcall Next(void);
	
__published:
	__property Synedithighlighter::TSynHighlighterAttributes* URIAttri = {read=fURIAttri, write=SetURIAttri};
	__property Synedithighlighter::TSynHighlighterAttributes* VisitedURIAttri = {read=fVisitedURIAttri, write=SetVisitedURIAttri};
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint SYN_ATTR_URI = 0x6;
static const Shortint SYN_ATTR_VISITEDURI = 0x7;

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

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