dclabel-0.0.2: Examples/ListExamples.hs

{-# LANGUAGE Safe #-}
module ListExamples where

import DCLabel.Safe
import DCLabel.PrettyShow

c1 = listToDisj [principal "Alice"]

c2 = listToDisj ["Alice", "Bob"]

c3 = (<>)

-- Labels, i.e. conjunctions of disjunctions
-- Observe the precedence of .\/. is higher than ./\.

l1 =  c2 ./\. "Carla" 

l2 = "Alice" ./\. "Carla" 

-- DCLabels 

dc1 = newDC l1 l2

dc2 = newDC ("Deian") ("Alice") 

main = do
  putStrLn . prettyShow $ dc1
  putStrLn . prettyShow $ dc2
  putStrLn . prettyShow $ join dc1 dc2
  putStrLn . prettyShow $ meet dc1 dc2

  putStrLn . prettyShow $ dc1
  putStrLn . prettyShow $ join dc1 top
  putStrLn . show $ canflowto dc1 top
  putStrLn . show $ canflowto bottom dc1
{-
<{["Alice" \/ "Bob"] /\ ["Carla"]} , {["Alice"] /\ ["Carla"]}>
<{["Deain"]} , {["Alice"]}>
<{["Alice" \/ "Bob"] /\ ["Carla"] /\ ["Deain"]} , {["Alice"]}>
<{["Alice" \/ "Bob" \/ "Deain"] /\ ["Carla" \/ "Deain"]} , {["Alice"] /\ ["Carla"]}>
<{["Alice" \/ "Bob"] /\ ["Carla"]} , {["Alice"] /\ ["Carla"]}>
<{ALL} , {}>
True
True
-}