diff options
| author | Bruce Hill <bitbucket@bruce-hill.com> | 2017-09-22 11:56:46 -0700 |
|---|---|---|
| committer | Bruce Hill <bitbucket@bruce-hill.com> | 2017-09-22 11:56:46 -0700 |
| commit | e4660b169c14d24c3ec373b197e8b9469d200d50 (patch) | |
| tree | b9576e166caf1dcb994b7fe9162baa1a6a97756e /lib/permissions.nom | |
| parent | 6882862d0ff226d73bc6a010d335896c44d8cde9 (diff) | |
Renamed compiler -> nomsu for concision and clarity.
Diffstat (limited to 'lib/permissions.nom')
| -rw-r--r-- | lib/permissions.nom | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/lib/permissions.nom b/lib/permissions.nom index c4caa14..3bb8f42 100644 --- a/lib/permissions.nom +++ b/lib/permissions.nom @@ -6,40 +6,40 @@ require "lib/collections.nom" # Permission functions rule [restrict %rules to within %elite-rules] =: say ".."|Restricting \%rules\ to within \%elite-rules\ - %rules =: keys in (compiler "get_aliases" [%rules]) - %elite-rules =: keys in (compiler "get_aliases" [%elite-rules]) + %rules =: keys in (nomsu "get_aliases" [%rules]) + %elite-rules =: keys in (nomsu "get_aliases" [%elite-rules]) for all (flatten [%elite-rules, %rules]): - assert ((compiler's "defs") has key %it) ".."|Undefined function: \%it\ + assert ((nomsu's "defs") has key %it) ".."|Undefined function: \%it\ for all %rules: - assert (compiler "check_permission" [%it]) ".." + assert (nomsu "check_permission" [%it]) ".." |You do not have permission to restrict permissions for function: \%it\ %foo =: dict (..) [%it, yes] for %it in %elite-rules - ((compiler's "defs")'s %it)'s "whiteset" =: %foo + ((nomsu's "defs")'s %it)'s "whiteset" =: %foo rule [allow %elite-rules to use %rules] =: say ".."|Allowing \%elite-rules\ to use \%rules\ - %rules =: keys in (compiler "get_aliases" [%rules]) - %elite-rules =: keys in (compiler "get_aliases" [%elite-rules]) + %rules =: keys in (nomsu "get_aliases" [%rules]) + %elite-rules =: keys in (nomsu "get_aliases" [%elite-rules]) for all (flatten [%elite-rules, %rules]): - assert ((compiler's "defs") has key %it) ".."|Undefined function: \%it\ + assert ((nomsu's "defs") has key %it) ".."|Undefined function: \%it\ for %fn in %rules: - assert (compiler "check_permission" [%fn]) ".." + assert (nomsu "check_permission" [%fn]) ".." |You do not have permission to grant permissions for function: \%fn\ - %whiteset =: ((compiler's "defs")'s %fn)'s "whiteset" + %whiteset =: ((nomsu's "defs")'s %fn)'s "whiteset" if (not %whiteset): on to the next %fn for all %elite-rules: %whiteset's %it =: yes rule [forbid %pleb-rules to use %rules] =: say ".."|Forbidding \%pleb-rules\ to use \%rules\ - %rules =: keys in (compiler "get_aliases" [%rules]) - %pleb-rules =: keys in (compiler "get_aliases" [%pleb-rules]) + %rules =: keys in (nomsu "get_aliases" [%rules]) + %pleb-rules =: keys in (nomsu "get_aliases" [%pleb-rules]) for all (flatten [%pleb-rules, %used]): - assert ((compiler's "defs") has key %it) ".."|Undefined function: \%it\ + assert ((nomsu's "defs") has key %it) ".."|Undefined function: \%it\ for all %rules: - assert (compiler "check_permission" [%it]) ".." + assert (nomsu "check_permission" [%it]) ".." |You do not have permission to grant permissions for function: \%it\ - %whiteset =: ((compiler's "defs")'s %it)'s "whiteset" + %whiteset =: ((nomsu's "defs")'s %it)'s "whiteset" assert %whiteset ".." |Cannot individually restrict permissions for \%it\ because it is currently |available to everyone. Perhaps you meant to use "restrict % to within %" instead? |
