ada-libraries
/
AdaYaml
mirror of https://github.com/yaml/AdaYaml
1
0
Fork 0
Code Issues Releases Wiki Activity

Update after review-comments.

This commit is contained in:
persan 2020-04-09 17:19:19 +02:00
parent 33c3b4248f
commit ee3600a537
6 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Parser_Tools/src/interface/lexer-source-file.ads
View File

@ -8,7 +8,7 @@ package Lexer.Source.File is
-- this provides streams which are backed by files on the file system.
type Instance is new Source.Instance with private;
type Instance_Access is access all Instance'Class;
type Instance_Access is access all Instance;
overriding procedure Read_Data (S : in out Instance; Buffer : out String;
Length : out Natural);

2
src/annotation_processor/implementation/yaml-events-context.ads
View File

@ -113,7 +113,7 @@ private
Local_Scopes : Scope_Array_Pointer := null;
Local_Scope_Count, Generated_Data_Count : Natural := 0;
end record;
type Instance_Access is access all Instance'Class;
type Instance_Access is access all Instance;
overriding procedure Finalize (Object : in out Instance);

4
src/interface/yaml-events-queue.ads
View File

@ -5,7 +5,7 @@ private with Ada.Finalization;
package Yaml.Events.Queue is
type Instance is limited new Refcount_Base with private;
type Instance_Access is access all Instance'Class;
type Instance_Access is access all Instance;
type Reference is tagged private;
type Accessor (Data : not null access Instance) is limited null record with
Implicit_Dereference => Data;
@ -28,7 +28,7 @@ package Yaml.Events.Queue is
return Element_Accessor;
type Stream_Instance is new Refcount_Base with private;
type Stream_Instance_Access is access all Stream_Instance'Class;
type Stream_Instance_Access is access all Stream_Instance;
type Stream_Reference is tagged private;
type Stream_Accessor (Data : not null access Stream_Instance) is limited
null record with Implicit_Dereference => Data;

4
src/interface/yaml-events-store.ads
View File

@ -5,7 +5,7 @@ private with Ada.Containers.Hashed_Maps;
package Yaml.Events.Store is
type Instance is limited new Refcount_Base with private;
type Instance_Access is access all Instance'Class;
type Instance_Access is access all Instance;
type Reference is tagged private;
type Optional_Reference is tagged private;
@ -46,7 +46,7 @@ package Yaml.Events.Store is
procedure Copy (Source : in Instance; Target : in out Instance);
type Stream_Instance is limited new Refcount_Base with private;
type Stream_Instance_Access is access all Stream_Instance 'Class;
type Stream_Instance_Access is access all Stream_Instance;
type Stream_Reference is tagged private;
type Optional_Stream_Reference is tagged private;

2
src/interface/yaml-parser.ads
View File

@ -13,7 +13,7 @@ package Yaml.Parser is
-- YAML characters stream source.
type Instance is limited new Refcount_Base with private;
type Instance_Access is access all Instance'Class;
type Instance_Access is access all Instance;
subtype Class is Instance'Class;
type Reference is tagged private;
type Accessor (Data : not null access Instance) is limited null record with

6
src/interface/yaml-transformation.ads
View File

@ -9,7 +9,7 @@ generic
with package Stream_Impl is new Stream_Concept (<>);
package Yaml.Transformation is
type Instance is limited new Refcount_Base with private;
type Instance_Access is access all Instance'Class;
type Instance_Access is access all Instance;
type Reference is tagged private;
type Accessor (Data : not null access Instance) is null record with
Implicit_Dereference => Data;
@ -25,7 +25,7 @@ package Yaml.Transformation is
-- takes ownership of the given pointer.
procedure Append (Object : in out Instance;
T : not null Transformator.Pointer);
T : not null Transformator.Pointer);
private
type Reference is new Ada.Finalization.Controlled with record
Data : not null Instance_Access;
@ -40,7 +40,7 @@ private
(Positive, Not_Null_Pointer, Transformator."=");
type Instance is limited new Refcount_Base with record
Original : Stream_Impl.Reference;
Original : Stream_Impl.Reference;
Transformators : Transformator_Vectors.Vector;
end record;
end Yaml.Transformation;