Operation: stat
|
Require
Export
DACandMAC.
Implicit Arguments On.
Section
Stat.
Variable
s: SFSstate.
|
Parameter
comp_mode: AccessCtrlListData -> PERMS.
|
Record
stat_struct : Set := stat_fields
{st_mode: PERMS;
st_uid : SUBJECT;
st_gid : GRPNAME}.
Operation definition |
Inductive
stat
[u:SUBJECT; o:OBJECT] : SFSstate -> (Exc stat_struct) -> Prop :=
|StatOK:
(PreDACRead s u o)
->(stat u o s
Cases (facl (acl s) o) of
|None => (None stat_struct)
|(Some y) =>
(Some stat_struct
(stat_fields (comp_mode y) (owner y) (group y)))
end).
|
End
Stat.