Class TPasTokenList (unit mwPasTokenList)

Inherits from

TObject

TmSearcher

Constructors


constructor Create;

GetMethodImpLine


Functions

procedure Clear;

SetItems

procedure Delete(Index: Integer);

Clear

procedure DeleteGroup(StartIndex: LongInt; GroupCount: LongInt);

Delete

function DeleteLine(Index: Integer): Integer;

InsertLine

destructor Destroy;

Create

procedure Exchange(Index1, Index2: Integer);

DeleteGroup

function First: string;

Exchange

function GetLine(Index: Integer): String;

ReplaceGroup

function GetSubString(StartPos, EndPos: LongInt): string;

Remove

function IndexAtLine(anIndex: LongInt): LongInt;


function IndexOf(Item: string): Integer;

First

procedure Insert(Index: Integer; Item: string);

IndexOf

function InsertLine(Index: Integer; NewLine: String): Integer;

SetLine

function InsertString(StartIndex: LongInt; ToInsert: String): LongInt;

Insert

function IsCommentLine(Index: Integer): Boolean;

DeleteLine

function Last: string;

InsertString

procedure Move(CurIndex, NewIndex: Integer);

Last

function MoveGroup(OldStartIndex: LongInt; NewStartIndex: LongInt; GroupCount: LongInt): Boolean;

Move

procedure Next;

GetTokenID

procedure NextID(ID: TTokenKind);

Previous

procedure NextNonComment;


procedure NextNonJunk;

NextNonComCRLF

procedure NextNonSpace;

NextNonJunk

function PositionAtLine(aPosition: LongInt): LongInt;

PreviousNonSpace

function PositionToIndex(aPosition: LongInt): LongInt;

GetRunToken

procedure Previous;

Next

procedure PreviousID(ID: TTokenKind);

ToLineStart

procedure PreviousNonComment;

PreviousID

procedure PreviousNonJunk;

PreviousNonComment

procedure PreviousNonSpace;

PreviousNonJunk

function Remove(Item: string): Integer;

GetLinePosition

function ReplaceGroup(StartIndex: LongInt; IndexCount: LongInt; aString: String): LongInt;

MoveGroup

procedure ScanForLines;

ResetPositionsFrom

function SetLine(Index: Integer; NewLine: String): Integer;

GetLine

procedure SetOrigin(NewOrigin: PChar; NewSize: LongInt);

Destroy

procedure Tokenize;

IdentKind

procedure ToLineStart;

NextNonSpace

function GetToken(Index: Integer): string;

ScanForLines

procedure SetCapacity(NewCapacity: Integer);

GetTokenPosition

procedure SetToken(Index: Integer; Item: string);

SetCapacity

function GetCapacity: Integer;

SetCount

function GetCount: Integer;

WriteTo

function GetIsJunk: Boolean;

NextID

function GetLineCount: Integer;

IsCommentLine

function GetLinePosition(Index: Integer): LongInt;

GetLineCount

function GetRunID: TTokenKind;


function GetRunLine: LongInt;

GetTokenLine

function GetRunPosition: LongInt;

GetRunID

function GetRunToken: string;

GetRunPosition

function GetTokenID(Index: LongInt): TTokenKind;

Tokenize

function GetTokenLine(anIndex: Integer): LongInt;

PositionToIndex

function GetTokenPosition(Index: integer): Longint;

GetToken

procedure HandleComments;

SetRunPos

function IdentKind(Index: LongInt): TTokenKind;

HandleComments

procedure ResetLines(Index, Value: LongInt);

ResetPositionsFrom

procedure ResetPositionsFrom(Index, Value: LongInt);

GetCapacity

procedure SetCount(value: Integer);

GetCount

procedure SetRunIndex(NewPos: LongInt);

GetSubString

procedure WriteTo(InsPos, DelPos: LongInt; Item: string);

SetOrigin

Properties

property Capacity : Integer


property Comments : TCommentState


property Count : Integer


property EndCount : Integer


property IsJunk : Boolean


property LineCount : Integer


property LinePosition : LongInt


property Origin : PChar


property PCharCapacity : Longint


property PCharSize : Longint


property RoundCount : Integer


property RunID : TTokenKind


property RunIndex : LongInt


property RunLine : LongInt


property RunPosition : LongInt


property RunToken : string


property SquareCount : Integer


property Token : string


property TokenID : TTokenKind


property TokenLine : LongInt


property TokenPosition : LongInt


property TokenPositionsList : TLongIntList


property Visibility : TTokenKind


Events

Variables

Searcher : TmSearcher;


FComment : TCommentState;


FEndCount : Integer;


FLinePosList : TLongIntList;


fOrigin : PChar;


fPCharCapacity : Longint;


fPCharSize : Longint;


FRoundCount : Integer;


FSquareCount : Integer;


FTokenPositionsList : TLongIntList;


FVisibility : TTokenKind;


Run : LongInt;


Walker : LongInt;



Constructors


constructor Create;

GetMethodImpLine


Functions


procedure Clear;

SetItems


procedure Delete(Index: Integer);

Clear


procedure DeleteGroup(StartIndex: LongInt; GroupCount: LongInt);

Delete


function DeleteLine(Index: Integer): Integer;

InsertLine


destructor Destroy;

Create


procedure Exchange(Index1, Index2: Integer);

DeleteGroup


function First: string;

Exchange


function GetLine(Index: Integer): String;

ReplaceGroup


function GetSubString(StartPos, EndPos: LongInt): string;

Remove


function IndexAtLine(anIndex: LongInt): LongInt;


function IndexOf(Item: string): Integer;

First


procedure Insert(Index: Integer; Item: string);

IndexOf


function InsertLine(Index: Integer; NewLine: String): Integer;

SetLine


function InsertString(StartIndex: LongInt; ToInsert: String): LongInt;

Insert


function IsCommentLine(Index: Integer): Boolean;

DeleteLine


function Last: string;

InsertString


procedure Move(CurIndex, NewIndex: Integer);

Last


function MoveGroup(OldStartIndex: LongInt; NewStartIndex: LongInt; GroupCount: LongInt): Boolean;

Move


procedure Next;

GetTokenID


procedure NextID(ID: TTokenKind);

Previous


procedure NextNonComment;


procedure NextNonJunk;

NextNonComCRLF


procedure NextNonSpace;

NextNonJunk


function PositionAtLine(aPosition: LongInt): LongInt;

PreviousNonSpace


function PositionToIndex(aPosition: LongInt): LongInt;

GetRunToken


procedure Previous;

Next


procedure PreviousID(ID: TTokenKind);

ToLineStart


procedure PreviousNonComment;

PreviousID


procedure PreviousNonJunk;

PreviousNonComment


procedure PreviousNonSpace;

PreviousNonJunk


function Remove(Item: string): Integer;

GetLinePosition


function ReplaceGroup(StartIndex: LongInt; IndexCount: LongInt; aString: String): LongInt;

MoveGroup


procedure ScanForLines;

ResetPositionsFrom


function SetLine(Index: Integer; NewLine: String): Integer;

GetLine


procedure SetOrigin(NewOrigin: PChar; NewSize: LongInt);

Destroy


procedure Tokenize;

IdentKind


procedure ToLineStart;

NextNonSpace


function GetToken(Index: Integer): string;

ScanForLines


procedure SetCapacity(NewCapacity: Integer);

GetTokenPosition


procedure SetToken(Index: Integer; Item: string);

SetCapacity


function GetCapacity: Integer;

SetCount


function GetCount: Integer;

WriteTo


function GetIsJunk: Boolean;

NextID


function GetLineCount: Integer;

IsCommentLine


function GetLinePosition(Index: Integer): LongInt;

GetLineCount


function GetRunID: TTokenKind;


function GetRunLine: LongInt;

GetTokenLine


function GetRunPosition: LongInt;

GetRunID


function GetRunToken: string;

GetRunPosition


function GetTokenID(Index: LongInt): TTokenKind;

Tokenize


function GetTokenLine(anIndex: Integer): LongInt;

PositionToIndex


function GetTokenPosition(Index: integer): Longint;

GetToken


procedure HandleComments;

SetRunPos


function IdentKind(Index: LongInt): TTokenKind;

HandleComments


procedure ResetLines(Index, Value: LongInt);

ResetPositionsFrom


procedure ResetPositionsFrom(Index, Value: LongInt);

GetCapacity


procedure SetCount(value: Integer);

GetCount


procedure SetRunIndex(NewPos: LongInt);

GetSubString


procedure WriteTo(InsPos, DelPos: LongInt; Item: string);

SetOrigin


Properties


property Capacity : Integer


property Comments : TCommentState


property Count : Integer


property EndCount : Integer


property IsJunk : Boolean


property LineCount : Integer


property LinePosition : LongInt


property Origin : PChar


property PCharCapacity : Longint


property PCharSize : Longint


property RoundCount : Integer


property RunID : TTokenKind


property RunIndex : LongInt


property RunLine : LongInt


property RunPosition : LongInt


property RunToken : string


property SquareCount : Integer


property Token : string


property TokenID : TTokenKind


property TokenLine : LongInt


property TokenPosition : LongInt


property TokenPositionsList : TLongIntList


property Visibility : TTokenKind


Events


Variables


Searcher : TmSearcher;


FComment : TCommentState;


FEndCount : Integer;


FLinePosList : TLongIntList;


fOrigin : PChar;


fPCharCapacity : Longint;


fPCharSize : Longint;


FRoundCount : Integer;


FSquareCount : Integer;


FTokenPositionsList : TLongIntList;


FVisibility : TTokenKind;


Run : LongInt;


Walker : LongInt;