[JEDI.NET-commits] main/run Jedi.Text.Tokenization.ProviderBase.pas,1.2,1.3

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/main/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2448/main/run

Modified Files:
	Jedi.Text.Tokenization.ProviderBase.pas 
Log Message:
TokenList is now cloneable (ICloneable interface implemented).

Index: Jedi.Text.Tokenization.ProviderBase.pas
===================================================================
RCS file: /cvsroot/jedidotnet/main/run/Jedi.Text.Tokenization.ProviderBase.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Jedi.Text.Tokenization.ProviderBase.pas	24 Dec 2005 12:25:13 -0000	1.2
--- Jedi.Text.Tokenization.ProviderBase.pas	31 Dec 2005 11:42:43 -0000	1.3
***************
*** 63,67 ****
      '$Revision$',
      '$Date$')]
!   TokenList = class (&Object, ITokenProvider)
    {$REGION 'Constructors'}
    public
--- 63,67 ----
      '$Revision$',
      '$Date$')]
!   TokenList = class (&Object, ITokenProvider, ICloneable)
    {$REGION 'Constructors'}
    public
***************
*** 83,86 ****
--- 83,90 ----
      procedure SavePointer;
    {$ENDREGION}
+   {$REGION 'ICloneable methods'}
+   strict protected
+     function Clone: &Object;
+   {$ENDREGION}
    {$REGION 'List management methods'}
    public
***************
*** 95,98 ****
--- 99,105 ----
  {$AUTOBOX ON}
  
+ type
+   IntegerArray = array of Integer;
+ 
  {$REGION 'TokenList'}
  constructor TokenList.Create;
***************
*** 114,117 ****
--- 121,132 ----
  end;
  
+ function TokenList.Clone: &Object;
+ begin
+   Result := TokenList.Create;
+   TokenList(Result).FIndex := FIndex;
+   TokenList(Result).FList := IList(ICloneable(FList).Clone);
+   TokenList(Result).FSavePoints := Stack(ICloneable(FSavePoints).Clone);
+ end;
+ 
  procedure TokenList.DiscardPointer;
  begin
***************
*** 135,145 ****
    Result := Succ(FIndex) < FList.Count;
    if Result then
!     Inc(FIndex)
!   else
!   if FSavePoints.Count = 0 then
!   begin
!     FIndex := -1;
!     FList.Clear;
!   end;
  end;
  
--- 150,154 ----
    Result := Succ(FIndex) < FList.Count;
    if Result then
!     Inc(FIndex);
  end;