You've already forked gnatstudio
mirror of
https://github.com/AdaCore/gnatstudio.git
synced 2026-02-12 12:42:33 -08:00
36d989b329
The concept of categories has been replaced in GNAThub by the concept of ranking which is translated in Ada by an enum type used to represent the severities. This patch updates the generated code from GNAThub (in orm-gen/") and modifies the GNAThub loading to use the ranking concept. Change-Id: I9fd43f60d3267b575937458d1c8361a024e01e19
49 lines
1.5 KiB
Ada
49 lines
1.5 KiB
Ada
package body Database is
|
|
pragma Style_Checks (Off);
|
|
|
|
function FK (Self : T_Entities'Class; Foreign : T_Resources'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Resource_Id = Foreign.Id;
|
|
end FK;
|
|
|
|
function FK (Self : T_Entities_Messages'Class; Foreign : T_Entities'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Entity_Id = Foreign.Id;
|
|
end FK;
|
|
|
|
function FK (Self : T_Entities_Messages'Class; Foreign : T_Messages'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Message_Id = Foreign.Id;
|
|
end FK;
|
|
|
|
function FK (Self : T_Messages'Class; Foreign : T_Rules'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Rule_Id = Foreign.Id;
|
|
end FK;
|
|
|
|
function FK (Self : T_Messages_Properties'Class; Foreign : T_Messages'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Message_Id = Foreign.Id;
|
|
end FK;
|
|
|
|
function FK (Self : T_Messages_Properties'Class; Foreign : T_Properties'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Property_Id = Foreign.Id;
|
|
end FK;
|
|
|
|
function FK (Self : T_Resources_Messages'Class; Foreign : T_Messages'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Message_Id = Foreign.Id;
|
|
end FK;
|
|
|
|
function FK (Self : T_Resources_Messages'Class; Foreign : T_Resources'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Resource_Id = Foreign.Id;
|
|
end FK;
|
|
|
|
function FK (Self : T_Rules'Class; Foreign : T_Tools'Class) return SQL_Criteria is
|
|
begin
|
|
return Self.Tool_Id = Foreign.Id;
|
|
end FK;
|
|
end Database;
|