Skip to content
Snippets Groups Projects
Commit 07c89be7 authored by Daniel van der Schuur's avatar Daniel van der Schuur
Browse files

-Added sel_a_b to select a severity level to report.

parent b932cc3d
Branches
No related tags found
No related merge requests found
...@@ -250,6 +250,7 @@ PACKAGE common_pkg IS ...@@ -250,6 +250,7 @@ PACKAGE common_pkg IS
FUNCTION sel_a_b(sel : BOOLEAN; a, b : STRING) RETURN STRING; FUNCTION sel_a_b(sel : BOOLEAN; a, b : STRING) RETURN STRING;
FUNCTION sel_a_b(sel : INTEGER; a, b : STRING) RETURN STRING; FUNCTION sel_a_b(sel : INTEGER; a, b : STRING) RETURN STRING;
FUNCTION sel_a_b(sel : BOOLEAN; a, b : TIME) RETURN TIME; FUNCTION sel_a_b(sel : BOOLEAN; a, b : TIME) RETURN TIME;
FUNCTION sel_a_b(sel : BOOLEAN; a, b : SEVERITY_LEVEL) RETURN SEVERITY_LEVEL;
-- sel_n() index sel = 0, 1, 2, ... will return a, b, c, ... -- sel_n() index sel = 0, 1, 2, ... will return a, b, c, ...
FUNCTION sel_n(sel : NATURAL; a, b, c : BOOLEAN) RETURN BOOLEAN; -- 3 FUNCTION sel_n(sel : NATURAL; a, b, c : BOOLEAN) RETURN BOOLEAN; -- 3
...@@ -1131,6 +1132,15 @@ PACKAGE BODY common_pkg IS ...@@ -1131,6 +1132,15 @@ PACKAGE BODY common_pkg IS
END IF; END IF;
END; END;
FUNCTION sel_a_b(sel : BOOLEAN; a, b : SEVERITY_LEVEL) RETURN SEVERITY_LEVEL IS
BEGIN
IF sel = TRUE THEN
RETURN a;
ELSE
RETURN b;
END IF;
END;
-- sel_n : boolean -- sel_n : boolean
FUNCTION sel_n(sel : NATURAL; a, b, c : BOOLEAN) RETURN BOOLEAN IS FUNCTION sel_n(sel : NATURAL; a, b, c : BOOLEAN) RETURN BOOLEAN IS
CONSTANT c_arr : t_nat_boolean_arr := (a, b, c); CONSTANT c_arr : t_nat_boolean_arr := (a, b, c);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment