You've already forked gnatstudio
mirror of
https://github.com/AdaCore/gnatstudio.git
synced 2026-02-12 12:42:33 -08:00
a07a3eb98e
The entities_messages table contains the line, col_begin, col_end data. Depends-On: Ie134b060a0fc1daf8aa2c858c255936906489286 Change-Id: If4e55467571a778954d3a831c345dbf642cb45d0
321 lines
12 KiB
Ada
321 lines
12 KiB
Ada
with GNATCOLL.SQL; use GNATCOLL.SQL;
|
|
pragma Warnings (Off, "no entities of * are referenced");
|
|
pragma Warnings (Off, "use clause for package * has no effect");
|
|
with GNATCOLL.SQL_Fields; use GNATCOLL.SQL_Fields;
|
|
pragma Warnings (On, "no entities of * are referenced");
|
|
pragma Warnings (On, "use clause for package * has no effect");
|
|
with Database_Names; use Database_Names;
|
|
package Database is
|
|
pragma Style_Checks (Off);
|
|
pragma Elaborate_Body;
|
|
|
|
type T_Abstract_Entities
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Entities, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Entities, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Name : SQL_Field_Text (Ta_Entities, Instance, N_Name, Index);
|
|
-- Entitie's name
|
|
|
|
Line : SQL_Field_Integer (Ta_Entities, Instance, N_Line, Index);
|
|
-- Entitie's line begin
|
|
|
|
Col_Begin : SQL_Field_Integer (Ta_Entities, Instance, N_Col_Begin, Index);
|
|
-- Entitie's column begin
|
|
|
|
Col_End : SQL_Field_Integer (Ta_Entities, Instance, N_Col_End, Index);
|
|
-- Entitie's column end
|
|
|
|
Resource_Id : SQL_Field_Integer (Ta_Entities, Instance, N_Resource_Id, Index);
|
|
-- Entitie's associated ressource
|
|
|
|
end record;
|
|
|
|
type T_Entities (Instance : Cst_String_Access)
|
|
is new T_Abstract_Entities (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Entities (Index : Integer)
|
|
is new T_Abstract_Entities (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Entities_Messages
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Entities_Messages, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Entities_Messages, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Entity_Id : SQL_Field_Integer (Ta_Entities_Messages, Instance, N_Entity_Id, Index);
|
|
-- Entitie's id
|
|
|
|
Message_Id : SQL_Field_Integer (Ta_Entities_Messages, Instance, N_Message_Id, Index);
|
|
-- Message's id
|
|
|
|
Line : SQL_Field_Integer (Ta_Entities_Messages, Instance, N_Line, Index);
|
|
-- Corresponding line for message - zero means not associated to a line
|
|
|
|
Col_Begin : SQL_Field_Integer (Ta_Entities_Messages, Instance, N_Col_Begin, Index);
|
|
-- Line's column begin
|
|
|
|
Col_End : SQL_Field_Integer (Ta_Entities_Messages, Instance, N_Col_End, Index);
|
|
-- Line's column end
|
|
|
|
end record;
|
|
|
|
type T_Entities_Messages (Instance : Cst_String_Access)
|
|
is new T_Abstract_Entities_Messages (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Entities_Messages (Index : Integer)
|
|
is new T_Abstract_Entities_Messages (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Messages
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Messages, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Messages, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Rule_Id : SQL_Field_Integer (Ta_Messages, Instance, N_Rule_Id, Index);
|
|
-- Messages' associated rule
|
|
|
|
Data : SQL_Field_Text (Ta_Messages, Instance, N_Data, Index);
|
|
-- Value associated with the message, possibly a numeric value for
|
|
-- metrics
|
|
|
|
Ranking : SQL_Field_Integer (Ta_Messages, Instance, N_Ranking, Index);
|
|
-- Values : 0-Annotation, 1-Unspecified, 2-Info, 3-Low, 4-Medium,
|
|
-- 5-High
|
|
|
|
Tool_Msg_Id : SQL_Field_Integer (Ta_Messages, Instance, N_Tool_Msg_Id, Index);
|
|
-- Stores original message id value issued from tools
|
|
|
|
end record;
|
|
|
|
type T_Messages (Instance : Cst_String_Access)
|
|
is new T_Abstract_Messages (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Messages (Index : Integer)
|
|
is new T_Abstract_Messages (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Messages_Properties
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Messages_Properties, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Messages_Properties, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Message_Id : SQL_Field_Integer (Ta_Messages_Properties, Instance, N_Message_Id, Index);
|
|
-- Message's id
|
|
|
|
Property_Id : SQL_Field_Integer (Ta_Messages_Properties, Instance, N_Property_Id, Index);
|
|
-- Propertie's id
|
|
|
|
end record;
|
|
|
|
type T_Messages_Properties (Instance : Cst_String_Access)
|
|
is new T_Abstract_Messages_Properties (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Messages_Properties (Index : Integer)
|
|
is new T_Abstract_Messages_Properties (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Properties
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Properties, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Properties, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Identifier : SQL_Field_Text (Ta_Properties, Instance, N_Identifier, Index);
|
|
-- Propertie's unique identifier
|
|
|
|
Name : SQL_Field_Text (Ta_Properties, Instance, N_Name, Index);
|
|
-- Propertie's name
|
|
|
|
end record;
|
|
|
|
type T_Properties (Instance : Cst_String_Access)
|
|
is new T_Abstract_Properties (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Properties (Index : Integer)
|
|
is new T_Abstract_Properties (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Resource_Trees
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Resource_Trees, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Resource_Trees, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Child_Id : SQL_Field_Integer (Ta_Resource_Trees, Instance, N_Child_Id, Index);
|
|
-- Resources as a child
|
|
|
|
Parent_Id : SQL_Field_Integer (Ta_Resource_Trees, Instance, N_Parent_Id, Index);
|
|
-- Resource as a parent
|
|
|
|
end record;
|
|
|
|
type T_Resource_Trees (Instance : Cst_String_Access)
|
|
is new T_Abstract_Resource_Trees (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Resource_Trees (Index : Integer)
|
|
is new T_Abstract_Resource_Trees (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Resources
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Resources, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Resources, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Name : SQL_Field_Text (Ta_Resources, Instance, N_Name, Index);
|
|
-- Resource's name
|
|
|
|
Kind : SQL_Field_Integer (Ta_Resources, Instance, N_Kind, Index);
|
|
-- Resource's kind: project, directory or file
|
|
|
|
Timestamp : SQL_Field_Time (Ta_Resources, Instance, N_Timestamp, Index);
|
|
-- Resource's timestamp
|
|
|
|
end record;
|
|
|
|
type T_Resources (Instance : Cst_String_Access)
|
|
is new T_Abstract_Resources (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Resources (Index : Integer)
|
|
is new T_Abstract_Resources (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Resources_Messages
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Resources_Messages, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Resources_Messages, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Message_Id : SQL_Field_Integer (Ta_Resources_Messages, Instance, N_Message_Id, Index);
|
|
-- the associated message
|
|
|
|
Resource_Id : SQL_Field_Integer (Ta_Resources_Messages, Instance, N_Resource_Id, Index);
|
|
-- Corresponding resource for message
|
|
|
|
Line : SQL_Field_Integer (Ta_Resources_Messages, Instance, N_Line, Index);
|
|
-- Corresponding line for message - zero means not associated to a line
|
|
|
|
Col_Begin : SQL_Field_Integer (Ta_Resources_Messages, Instance, N_Col_Begin, Index);
|
|
-- Line's column begin
|
|
|
|
Col_End : SQL_Field_Integer (Ta_Resources_Messages, Instance, N_Col_End, Index);
|
|
-- Line's column end
|
|
|
|
end record;
|
|
|
|
type T_Resources_Messages (Instance : Cst_String_Access)
|
|
is new T_Abstract_Resources_Messages (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Resources_Messages (Index : Integer)
|
|
is new T_Abstract_Resources_Messages (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Rules
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Rules, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Rules, Instance, N_Id, Index);
|
|
Name : SQL_Field_Text (Ta_Rules, Instance, N_Name, Index);
|
|
-- Rule's name
|
|
|
|
Identifier : SQL_Field_Text (Ta_Rules, Instance, N_Identifier, Index);
|
|
-- Rule's unique identifier
|
|
|
|
Kind : SQL_Field_Integer (Ta_Rules, Instance, N_Kind, Index);
|
|
-- Whether it is a rule or a metric. 0 for rule, 1 for metric
|
|
|
|
Tool_Id : SQL_Field_Integer (Ta_Rules, Instance, N_Tool_Id, Index);
|
|
-- Rule's related tool
|
|
|
|
end record;
|
|
|
|
type T_Rules (Instance : Cst_String_Access)
|
|
is new T_Abstract_Rules (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Rules (Index : Integer)
|
|
is new T_Abstract_Rules (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
type T_Abstract_Tools
|
|
(Instance : Cst_String_Access;
|
|
Index : Integer)
|
|
is abstract new SQL_Table (Ta_Tools, Instance, Index) with
|
|
record
|
|
Id : SQL_Field_Integer (Ta_Tools, Instance, N_Id, Index);
|
|
-- Auto-generated id
|
|
|
|
Name : SQL_Field_Text (Ta_Tools, Instance, N_Name, Index);
|
|
-- Tool's name
|
|
|
|
end record;
|
|
|
|
type T_Tools (Instance : Cst_String_Access)
|
|
is new T_Abstract_Tools (Instance, -1) with null record;
|
|
-- To use named aliases of the table in a query
|
|
-- Use Instance=>null to use the default name.
|
|
|
|
type T_Numbered_Tools (Index : Integer)
|
|
is new T_Abstract_Tools (null, Index) with null record;
|
|
-- To use aliases in the form name1, name2,...
|
|
|
|
function FK (Self : T_Entities'Class; Foreign : T_Resources'Class) return SQL_Criteria;
|
|
function FK (Self : T_Entities_Messages'Class; Foreign : T_Entities'Class) return SQL_Criteria;
|
|
function FK (Self : T_Entities_Messages'Class; Foreign : T_Messages'Class) return SQL_Criteria;
|
|
function FK (Self : T_Messages'Class; Foreign : T_Rules'Class) return SQL_Criteria;
|
|
function FK (Self : T_Messages_Properties'Class; Foreign : T_Messages'Class) return SQL_Criteria;
|
|
function FK (Self : T_Messages_Properties'Class; Foreign : T_Properties'Class) return SQL_Criteria;
|
|
function FK (Self : T_Resources_Messages'Class; Foreign : T_Messages'Class) return SQL_Criteria;
|
|
function FK (Self : T_Resources_Messages'Class; Foreign : T_Resources'Class) return SQL_Criteria;
|
|
function FK (Self : T_Rules'Class; Foreign : T_Tools'Class) return SQL_Criteria;
|
|
Entities : T_Entities (null);
|
|
Entities_Messages : T_Entities_Messages (null);
|
|
Messages : T_Messages (null);
|
|
Messages_Properties : T_Messages_Properties (null);
|
|
Properties : T_Properties (null);
|
|
Resource_Trees : T_Resource_Trees (null);
|
|
Resources : T_Resources (null);
|
|
Resources_Messages : T_Resources_Messages (null);
|
|
Rules : T_Rules (null);
|
|
Tools : T_Tools (null);
|
|
end Database;
|