Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Directory/DPermissions.gc

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


module Directory (Permissions(..),fromPerm,toPerm) where

data Permissions = Permissions {
    readable, writable, executable, searchable :: Bool
    } deriving (Eq, Ord, Read, Show)


%dis perms r w x s = <fromPerm/toPerm> (bool r) (bool w) (bool x) (bool s)
fromPerm (Permissions r w x s) = (r, w, x, s)
toPerm   (r, w, x, s)          = (Permissions r w x s)


Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.