From 0c187b6ff97f91c41dab65a6426dc61f77305cdf Mon Sep 17 00:00:00 2001 From: Dominick Grift Date: Sun, 20 Aug 2023 15:44:41 +0200 Subject: Import dssp5 Signed-off-by: Dominick Grift --- src/net/ibnet/pkeyibnet.cil | 76 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 76 insertions(+) create mode 100644 src/net/ibnet/pkeyibnet.cil (limited to 'src/net/ibnet/pkeyibnet.cil') diff --git a/src/net/ibnet/pkeyibnet.cil b/src/net/ibnet/pkeyibnet.cil new file mode 100644 index 0000000..7293864 --- /dev/null +++ b/src/net/ibnet/pkeyibnet.cil @@ -0,0 +1,76 @@ +;; SPDX-FileCopyrightText: © 2023 Dominick Grift +;; SPDX-License-Identifier: Unlicense + +(class infiniband_pkey (access)) +(classorder (unordered infiniband_pkey)) + +(macro access_invalid_pkeys ((type ARG1)) + (allow ARG1 invalid (infiniband_pkey (access)))) + +(in invalid.unconfined + + (allow typeattr .invalid (infiniband_pkey (all)))) + +(in mcs + + (mlsconstrain (infiniband_pkey (access)) + (or (dom h1 h2) + (neq t1 constrained.typeattr)))) + +(in net.ib + + (blockinherit pkey.template) + + (block pkey + + (macro type ((type ARG1)) + (typeattributeset typeattr ARG1)) + + (typeattribute typeattr) + + (blockinherit all_macro_template) + + (call .obj.type (typeattr)) + + (block all_macro_template + + (blockabstract all_macro_template) + + (macro access_all_pkeys ((type ARG1)) + (allow ARG1 typeattr (infiniband_pkey (access))))) + + (block base_template + + (blockabstract base_template) + + (context pkey_context (.sys.id .sys.role pkey lowlevelrange)) + + (type pkey) + (call .net.ib.pkey.type (pkey))) + + (block macro_template + + (blockabstract macro_template) + + (macro access_pkeys ((type ARG1)) + (allow ARG1 pkey (infiniband_pkey (access))))) + + (block template + + (blockabstract template) + + (blockinherit .net.ib.pkey.base_template) + (blockinherit .net.ib.pkey.macro_template)) + + (block unconfined + + (macro type ((type ARG1)) + (typeattributeset typeattr ARG1)) + + (typeattribute typeattr) + + (allow typeattr pkey.typeattr (infiniband_pkey (all)))))) + +(in net.ib.unconfined + + (call .net.ib.pkey.unconfined.type (typeattr))) -- cgit v1.2.3