jcl-checkins-diff Mailing List for JEDI Code Library (Page 26)

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Revision: 3267
          http://jcl.svn.sourceforge.net/jcl/?rev=3267&view=rev
Author:   outchy
Date:     2010-07-27 14:34:16 +0000 (Tue, 27 Jul 2010)

Log Message:
-----------
Style cleaning.

Modified Paths:
--------------
    trunk/jcl/source/common/JclLinkedLists.pas
    trunk/jcl/source/prototypes/JclLinkedLists.pas
    trunk/jcl/source/prototypes/containers/JclLinkedLists.imp

Modified: trunk/jcl/source/common/JclLinkedLists.pas
===================================================================

--- trunk/jcl/source/common/JclLinkedLists.pas	2010-07-25 11:44:27 UTC (rev 3266)
+++ trunk/jcl/source/common/JclLinkedLists.pas	2010-07-27 14:34:16 UTC (rev 3267)
@@ -980,12 +980,12 @@
   public
     constructor Create(const AOwnList: IJclPtrList; ACursor: TJclPtrLinkedListItem; AValid: Boolean; AStart: TItrStart);
     { IJclPtrIterator }
-    function Add(AValue: Pointer): Boolean;
+    function Add(APtr: Pointer): Boolean;
     procedure Extract;
     function GetPointer: Pointer;
     function HasNext: Boolean;
     function HasPrevious: Boolean;
-    function Insert(AValue: Pointer): Boolean;
+    function Insert(APtr: Pointer): Boolean;
     function IteratorEquals(const AIterator: IJclPtrIterator): Boolean;
     function Next: Pointer;
     function NextIndex: Integer;
@@ -993,7 +993,7 @@
     function PreviousIndex: Integer;
     procedure Remove;
     procedure Reset;
-    procedure SetPointer(AValue: Pointer);
+    procedure SetPointer(APtr: Pointer);
     {$IFDEF SUPPORTS_FOR_IN}
     function MoveNext: Boolean;
     property Current: Pointer read GetPointer;
@@ -1231,7 +1231,7 @@
 uses
   SysUtils;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclIntfLinkedList } ==================================================
 
 constructor TJclIntfLinkedList.Create(const ACollection: IJclIntfCollection);
 begin
@@ -2488,7 +2488,7 @@
 end;
 
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclAnsiStrLinkedList } ==================================================
 
 constructor TJclAnsiStrLinkedList.Create(const ACollection: IJclAnsiStrCollection);
 begin
@@ -3743,7 +3743,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclWideStrLinkedList } ==================================================
 
 constructor TJclWideStrLinkedList.Create(const ACollection: IJclWideStrCollection);
 begin
@@ -4999,7 +4999,7 @@
 end;
 
 {$IFDEF SUPPORTS_UNICODE_STRING}
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclUnicodeStrLinkedList } ==================================================
 
 constructor TJclUnicodeStrLinkedList.Create(const ACollection: IJclUnicodeStrCollection);
 begin
@@ -6255,7 +6255,7 @@
 end;
 {$ENDIF SUPPORTS_UNICODE_STRING}
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclSingleLinkedList } ==================================================
 
 constructor TJclSingleLinkedList.Create(const ACollection: IJclSingleCollection);
 begin
@@ -7510,7 +7510,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclDoubleLinkedList } ==================================================
 
 constructor TJclDoubleLinkedList.Create(const ACollection: IJclDoubleCollection);
 begin
@@ -8765,7 +8765,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclExtendedLinkedList } ==================================================
 
 constructor TJclExtendedLinkedList.Create(const ACollection: IJclExtendedCollection);
 begin
@@ -10020,7 +10020,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclIntegerLinkedList } ==================================================
 
 constructor TJclIntegerLinkedList.Create(const ACollection: IJclIntegerCollection);
 begin
@@ -11275,7 +11275,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclCardinalLinkedList } ==================================================
 
 constructor TJclCardinalLinkedList.Create(const ACollection: IJclCardinalCollection);
 begin
@@ -12530,7 +12530,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclInt64LinkedList } ==================================================
 
 constructor TJclInt64LinkedList.Create(const ACollection: IJclInt64Collection);
 begin
@@ -13785,7 +13785,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclPtrLinkedList } ==================================================
 
 constructor TJclPtrLinkedList.Create(const ACollection: IJclPtrCollection);
 begin
@@ -14728,9 +14728,9 @@
   FEqualityComparer := AOwnList as IJclPtrEqualityComparer;
 end;
 
-function TJclPtrLinkedListIterator.Add(AValue: Pointer): Boolean;
+function TJclPtrLinkedListIterator.Add(APtr: Pointer): Boolean;
 begin
-  Result := FOwnList.Add(AValue);
+  Result := FOwnList.Add(APtr);
 end;
 
 procedure TJclPtrLinkedListIterator.AssignPropertiesTo(Dest: TJclAbstractIterator);
@@ -14827,7 +14827,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-function TJclPtrLinkedListIterator.Insert(AValue: Pointer): Boolean;
+function TJclPtrLinkedListIterator.Insert(APtr: Pointer): Boolean;
 var
   NewCursor: TJclPtrLinkedListItem;
 begin
@@ -14841,17 +14841,17 @@
     Result := FCursor <> nil;
     if Result then
     begin
-      Result := FOwnList.AllowDefaultElements or not FEqualityComparer.ItemsEqual(AValue, nil);
+      Result := FOwnList.AllowDefaultElements or not FEqualityComparer.ItemsEqual(APtr, nil);
       if Result then
       begin
         case FOwnList.Duplicates of
           dupIgnore:
-            Result := not FOwnList.Contains(AValue);
+            Result := not FOwnList.Contains(APtr);
           dupAccept:
             Result := True;
           dupError:
             begin
-              Result := FOwnList.Contains(AValue);
+              Result := FOwnList.Contains(APtr);
               if not Result then
                 raise EJclDuplicateElementError.Create;
             end;
@@ -14859,7 +14859,7 @@
         if Result then
         begin
           NewCursor := TJclPtrLinkedListItem.Create;
-          NewCursor.Value := AValue;
+          NewCursor.Value := APtr;
           NewCursor.Next := FCursor;
           NewCursor.Previous := FCursor.Previous;
           if FCursor.Previous <> nil then
@@ -15022,7 +15022,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-procedure TJclPtrLinkedListIterator.SetPointer(AValue: Pointer);
+procedure TJclPtrLinkedListIterator.SetPointer(APtr: Pointer);
 begin
   if FOwnList.ReadOnly then
     raise EJclReadOnlyError.Create;
@@ -15032,7 +15032,7 @@
   {$ENDIF THREADSAFE}
     CheckValid;
     FCursor.Value := nil;
-    FCursor.Value := AValue;
+    FCursor.Value := APtr;
   {$IFDEF THREADSAFE}
   finally
     FOwnList.WriteUnlock;
@@ -15040,7 +15040,7 @@
   {$ENDIF THREADSAFE}
 end;
 
-//=== { TJclLinkedList<T> } ==================================================
+//=== { TJclLinkedList } ==================================================
 
 constructor TJclLinkedList.Create(const ACollection: IJclCollection; AOwnsObjects: Boolean);
 begin

Modified: trunk/jcl/source/prototypes/JclLinkedLists.pas
===================================================================
--- trunk/jcl/source/prototypes/JclLinkedLists.pas	2010-07-25 11:44:27 UTC (rev 3266)
+++ trunk/jcl/source/prototypes/JclLinkedLists.pas	2010-07-27 14:34:16 UTC (rev 3267)
@@ -160,7 +160,7 @@
   protected
     function CreateEmptyContainer: TJclAbstractContainerBase; override;,,,,APtr,Pointer,GetPointer,SetPointer)*)
 
-(*$JPPEXPANDMACRO JCLLINKEDLISTITRINT(TJclPtrLinkedListIterator,IJclPtrIterator,IJclPtrList,IJclPtrEqualityComparer,TJclPtrLinkedListItem,,AValue,Pointer,nil,GetPointer,SetPointer)*)
+(*$JPPEXPANDMACRO JCLLINKEDLISTITRINT(TJclPtrLinkedListIterator,IJclPtrIterator,IJclPtrList,IJclPtrEqualityComparer,TJclPtrLinkedListItem,,APtr,Pointer,nil,GetPointer,SetPointer)*)
 
 (*$JPPEXPANDMACRO JCLLINKEDLISTTYPESINT(TJclLinkedListItem,TObject)*)
 
@@ -372,7 +372,7 @@
 end;
 
 {$JPPDEFINEMACRO ITEMFREE(Item)Item := nil}
-(*$JPPEXPANDMACRO JCLLINKEDLISTITRIMP(TJclPtrLinkedListIterator,IJclPtrIterator,IJclPtrList,IJclPtrEqualityComparer,TJclPtrLinkedListItem,,AValue,Pointer,nil,GetPointer,SetPointer)*)
+(*$JPPEXPANDMACRO JCLLINKEDLISTITRIMP(TJclPtrLinkedListIterator,IJclPtrIterator,IJclPtrList,IJclPtrEqualityComparer,TJclPtrLinkedListItem,,APtr,Pointer,nil,GetPointer,SetPointer)*)
 {$JPPUNDEFMACRO ITEMFREE(Item)}
 
 {$JPPEXPANDMACRO JCLLINKEDLISTIMP(TJclLinkedList,TJclLinkedListItem,IJclCollection,IJclList,IJclIterator,TJclLinkedListIterator,; AOwnsObjects: Boolean,AOwnsObjects,,AObject,TObject,nil,GetObject,SetObject,FreeObject)}

Modified: trunk/jcl/source/prototypes/containers/JclLinkedLists.imp
===================================================================
--- trunk/jcl/source/prototypes/containers/JclLinkedLists.imp	2010-07-25 11:44:27 UTC (rev 3266)
+++ trunk/jcl/source/prototypes/containers/JclLinkedLists.imp	2010-07-27 14:34:16 UTC (rev 3267)
@@ -247,7 +247,7 @@
 (*$JPPDEFINEMACRO JCLLINKEDLISTIMP(SELFCLASSNAME, ITEMCLASSNAME, COLLECTIONINTERFACENAME, LISTINTERFACENAME, ITRINTERFACENAME, ITRCLASSNAME,
   OWNERSHIPDECLARATION, OWNERSHIPPARAMETER,
   CONSTKEYWORD, PARAMETERNAME, TYPENAME, DEFAULTVALUE, GETTERNAME, SETTERNAME, RELEASERNAME)
-//=== { TJclLinkedList<T> } ==================================================
+//=== { SELFCLASSNAME } ==================================================
 
 constructor SELFCLASSNAME.Create(const ACollection: COLLECTIONINTERFACENAMEOWNERSHIPDECLARATION);
 begin


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




2006	Jan	Feb	Mar	Apr (20)	May (48)	Jun (8)	Jul (23)	Aug (41)	Sep (42)	Oct (22)	Nov (17)	Dec (36)
2007	Jan (43)	Feb (42)	Mar (17)	Apr (39)	May (16)	Jun (35)	Jul (37)	Aug (47)	Sep (49)	Oct (9)	Nov (52)	Dec (37)
2008	Jan (48)	Feb (21)	Mar (7)	Apr (2)	May (5)	Jun (17)	Jul (17)	Aug (40)	Sep (58)	Oct (38)	Nov (19)	Dec (32)
2009	Jan (67)	Feb (46)	Mar (54)	Apr (34)	May (37)	Jun (52)	Jul (67)	Aug (72)	Sep (48)	Oct (35)	Nov (27)	Dec (12)
2010	Jan (56)	Feb (46)	Mar (19)	Apr (14)	May (21)	Jun (3)	Jul (13)	Aug (48)	Sep (34)	Oct (51)	Nov (16)	Dec (32)
2011	Jan (36)	Feb (14)	Mar (12)	Apr (3)	May (5)	Jun (24)	Jul (15)	Aug (30)	Sep (21)	Oct (4)	Nov (25)	Dec (23)
2012	Jan (45)	Feb (42)	Mar (19)	Apr (14)	May (13)	Jun (7)	Jul (3)	Aug (46)	Sep (21)	Oct (10)	Nov (2)	Dec
2013	Jan (5)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

jcl-checkins-diff Mailing List for JEDI Code Library (Page 26)

jcl-checkins-diff — SVN file check-in notifications with file differences included