Changeset 425 for Generics/NativeGenerics/Units/GenericStream.pas

Timestamp:

Sep 21, 2012, 9:19:58 AM (12 years ago)

Author:

chronos

Message:

• Added: NativeGenerics BinarySerializer unit.
• Added: NativeGenerics GenericPoint and GenericRectangle.
• Modified: NativeGenerics compilation on FPC 2.7.1.

File:

• Generics/NativeGenerics/Units/GenericStream.pas (modified) (8 diffs)

Generics/NativeGenerics/Units/GenericStream.pas

@@ -21 +21 @@
     function GetPosition: TIndex;
   public
-    procedure Assign(Source: TGAbstractStream<TItem>); virtual;
+    procedure Assign(Source: TGAbstractStream<TItem>); virtual; abstract;
     procedure Write(Item: TItem); virtual; abstract;
     procedure WriteArray(Item: array of TItem); virtual; abstract;
@@ -27 +27 @@
     function Read: TItem; virtual; abstract;
     function ReadArray(Count: TIndex): TItemArray; virtual; abstract;
+    function ReadBuffer(var Buffer; Count: Integer): Integer; virtual; abstract;
     function Insert(Count: TIndex): TIndex; virtual; abstract;
     function Remove(Count: TIndex): TIndex; virtual; abstract;
@@ -41 +42 @@
     FPosition: TIndex;
   public
+    type
+      PItem = ^TItem;
     procedure Assign(Source: TGAbstractStream<TItem>); override;
     procedure Write(Item: TItem); override;
@@ -48 +51 @@
     function ReadArray(Count: TIndex): TItemArray; override;
     function ReadList(List: TGList<TItem>; Count: TIndex): TIndex;
+    function ReadBuffer(var Buffer; Count: Integer): Integer; override;
     function Insert(Count: TIndex): Integer; override;
     function Remove(Count: TIndex): Integer; override;
@@ -56 +60 @@
   end;
 
+    TStreamByte = TGStream<Byte>;
+
 
 implementation
@@ -61 +67 @@
 
 { TGStream }
-
-procedure TGAbstractStream<TItem>.Assign(Source: TGAbstractStream<TItem>);
-begin
-end;
 
 procedure TGAbstractStream<TItem>.SetPosition(AValue: TIndex);
@@ -112 +114 @@
 procedure TGStream<TItem>.Assign(Source: TGAbstractStream<TItem>);
 begin
-  inherited;
   if Source is TGStream<TItem> then begin
     FList.Assign(TGStream<TItem>(Source).FList);
@@ -196 +197 @@
 end;
 
+function TGStream<TItem>.ReadBuffer(var Buffer; Count: Integer): Integer;
+begin
+  List.GetBuffer(Position, Buffer, Count);
+end;
+
 
 end.