check-trusted? | (fn [subject action object] (do (cond *scope* *result* (fail :ARGUMENT "Null scope in generic trust monitor")) (let [[type arg] *scope* ] (boolean (let [v# %3 ] (cond (= :actions %5) (contains-key? %4 %1) (= :all %5) (do (let [s# %4 n# (count %6) ] (loop [a [] i 0 ] (cond (< %9 %7) (recur (conj %8 (let [m (nth %6 %9) ] (cond (#10/trusted? %10 %0 %1 %2) nil (return false)))) (inc %9)) %8))) true) (= :any %5) (do (let [s# %4 n# (count %6) ] (loop [a [] i 0 ] (cond (< %9 %7) (recur (conj %8 (let [m (nth %6 %9) ] (cond (#10/trusted? %10 %0 %1 %2) (return true)))) (inc %9)) %8))) false) (= :not %5) (not (#10/trusted? %4 %0 %1 %2)) (= :time %5) (let [[start end] %4 ] (cond (<= %6 *timestamp*) (cond (nil? %7) *result* (> %7 *timestamp*)) *result*)) (= :rule %5) (query (%4 %0 %1 %2)) (= :delegate %5) (let [[allow deny base] %4 ] (cond (#10/trusted? %7 %0 %1 %2) false (#10/trusted? %6 %0 %1 %2) true (#10/trusted? %8 %0 %1 %2))) false)))))) | nil |
delegate | (fn [allow deny base] (vector #76 (vector :delegate (vector %0 %1 %2)))) | nil |
any | (fn [& args] (vector #76 (vector :any (vec %0)))) | nil |
owns | (fn [asset] (vector #73 %0)) | nil |
before | (fn [end] (vector #76 (vector :time (vector *timestamp* (int %0))))) | nil |
ownership | #73 | nil |
trust | #10 | nil |
all | (fn [arg & more] (vector #76 (vector :all (apply vector %0 %1)))) | nil |
permit-subjects | (fn [& addresses] (vector #75 (set %0))) | nil |
rule | (fn [func] (vector #76 (vector :rule %0))) | nil |
permit-actions | (fn [& actions] (vector #76 (vector :actions (set %0)))) | nil |
between | (fn [start end] (vector #76 (vector :time (vector (int %0) (int %1))))) | nil |
after | (fn [start] (vector #76 (vector :time (vector (int %0) nil)))) | nil |
wl | #75 | nil |
everyone | (fn [] (vector #76 (vector :all []))) | nil |