1 02/18/85  aim_util_
  2 
  3 
  4 The aim_util_ subroutine contains entrypoints that manipulate AIM
  5 access classes and authorizations.
  6 
  7 
  8 Entry points in aim_util_:
  9    (List is generated by the help command)
 10 
 11 
 12 :Entry:  get_access_class:  02/18/85 aim_util_$get_access_class
 13 
 14 
 15 Function:
 16 This entry point extracts the access class from an authorization.
 17 
 18 
 19 Syntax:
 20 declare aim_util_$get_access_class entry (bit(72) aligned) returns
 21      (bit(72) aligned);
 22 access_class = aim_util_$get_access_class (authorization);
 23 
 24 
 25 Arguments:
 26 authorization
 27    is a standard AIM authorization marking.  (Input)
 28 access_class
 29    is a standard AIM access class marking.  (Output)
 30 
 31 
 32 :Entry:  get_privileges:  02/18/85 aim_util_$get_privileges
 33 
 34 
 35 Function:
 36 This entry point extracts the privileges from a standard AIM
 37 authorization.
 38 
 39 
 40 Syntax:
 41 declare aim_util_$get_privileges entry (bit(72) aligned) returns
 42      (bit(36) aligned);
 43 privileges = aim_util_$get_privileges (authorization);
 44 
 45 
 46 Arguments:
 47 authorization
 48    is a standard AIM authorization marking.  (Input)
 49 privileges
 50    is a standard AIM privilege string.  (Output) See the include file
 51    aim_privileges.incl.pl1 for the interpretation of this string.
 52 
 53 
 54 :Entry:  get_level:  02/18/85 aim_util_$get_level
 55 
 56 
 57 Function:
 58 This entry point extracts the sensitivity level from an access class or
 59 authorization.
 60 
 61 
 62 Syntax:
 63 declare aim_util_$get_level entry (bit(72) aligned) returns (fixed
 64      bin);
 65 level = aim_util_$get_level (access_class);
 66 
 67 
 68 Arguments:
 69 access_class
 70    is a standard AIM access class or authorization marking.  (Input)
 71 level
 72    is a sensitivity level number.  (Output) Levels range from 0 to 7.
 73    Level names are available via system_info_$level_names.
 74 
 75 
 76 :Entry:  get_categories:  02/18/85 aim_util_$get_categories
 77 
 78 
 79 Function:
 80 This entry point extracts the categories from a standard AIM access
 81 class or authorization.
 82 
 83 
 84 Syntax:
 85 declare aim_util_$get_categories entry (bit(72) aligned) returns
 86      (bit(36) aligned);
 87 categories = aim_util_$get_categories (access_class);
 88 
 89 
 90 Arguments:
 91 access_class
 92    is a standard AIM access class or authorization marking.  (Input)
 93 categories
 94    is a bit string representing the category information contained in
 95    the access class.  (Output) If the i'th bit of the bit string is a
 96    1, then the i'th category is included in the access class marking.
 97    Category names are available from system_info_$category_names.
 98 
 99 
100 :Entry:  make_access_class:  02/18/85 aim_util_$make_access_class
101 
102 
103 Function:
104 This entry point constructs an access class marking from a
105 level and a set of categories.
106 
107 
108 Syntax:
109 declare aim_util_$make_access_class (fixed bin, bit(36) aligned,
110      bit(72) aligned);
111 call aim_util_$make_access_class (level, categories, access_class);
112 
113 
114 Arguments:
115 level
116    is a sensitivity level number, from 0 to 7.  (Input)
117 categories
118    is a category bit string.  (Input) See aim_util_$get_categories for
119    the construction of this string.
120 access_class
121    is a standard AIM access class marking.  (Output)