steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.files.acls.macosx: finish separation of ffi vocab.

db4
John Benediktsson 2012-10-24 20:28:54 -07:00
parent d1920b50a9
commit 6e572cfff1
2 changed files with 12 additions and 194 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/io/files/acls/macosx/ffi/ffi.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.syntax classes.struct kernel USING: alien.c-types alien.syntax classes.struct kernel
literals math.order sequences unix.types ; literals math.order sequences unix.types ;
IN: acls.macosx.ffi IN: io.files.acls.macosx.ffi
TYPEDEF: uint acl_type_t TYPEDEF: uint acl_type_t
TYPEDEF: uint acl_perm_t TYPEDEF: uint acl_perm_t
@ -21,14 +21,14 @@ CONSTANT: ACL_NEXT_ENTRY -1
CONSTANT: ACL_LAST_ENTRY -2 CONSTANT: ACL_LAST_ENTRY -2
! acl_type_t Supported: ! acl_type_t Supported:
CONSTANT: ACL_TYPE_EXTENDED HEX: 00000100 CONSTANT: ACL_TYPE_EXTENDED 0x00000100
! acl_type_t Unsupported: ! acl_type_t Unsupported:
CONSTANT: ACL_TYPE_ACCESS HEX: 00000000 CONSTANT: ACL_TYPE_ACCESS 0x00000000
CONSTANT: ACL_TYPE_DEFAULT HEX: 00000001 CONSTANT: ACL_TYPE_DEFAULT 0x00000001
CONSTANT: ACL_TYPE_AFS HEX: 00000002 CONSTANT: ACL_TYPE_AFS 0x00000002
CONSTANT: ACL_TYPE_CODA HEX: 00000003 CONSTANT: ACL_TYPE_CODA 0x00000003
CONSTANT: ACL_TYPE_NTFS HEX: 00000004 CONSTANT: ACL_TYPE_NTFS 0x00000004
CONSTANT: ACL_TYPE_NWFS HEX: 00000005 CONSTANT: ACL_TYPE_NWFS 0x00000005
! acl_perm_t ! acl_perm_t
CONSTANT: ACL_READ_DATA 2 CONSTANT: ACL_READ_DATA 2
@ -169,7 +169,7 @@ CONSTANT: ID_TYPE_KERBEROS 12
CONSTANT: NTSID_MAX_AUTHORITIES 16 CONSTANT: NTSID_MAX_AUTHORITIES 16
! Supposed to be packed ! FIXME: Supposed to be packed
STRUCT: nt_sid_t STRUCT: nt_sid_t
{ sid_kind u_int8_t } { sid_kind u_int8_t }
{ sid_authcount u_int8_t } { sid_authcount u_int8_t }

188
extra/io/files/acls/macosx/macosx.factor
View File

@ -2,196 +2,14 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.data alien.destructors alien.syntax USING: alien.c-types alien.data alien.destructors alien.syntax
classes.struct combinators destructors io.backend io.files classes.struct combinators destructors io.backend io.files
kernel libc literals locals math.order prettyprint sequences io.files.acls.macosx.ffi kernel libc literals locals math.order
unix unix.ffi unix.groups unix.types unix.users ; prettyprint sequences unix unix.ffi unix.groups unix.types
unix.users ;
QUALIFIED: io QUALIFIED: io
IN: io.files.acls.macosx IN: io.files.acls.macosx
<PRIVATE <PRIVATE
TYPEDEF: uint acl_type_t
TYPEDEF: uint acl_perm_t
TYPEDEF: void* acl_t
TYPEDEF: void* acl_entry_t
TYPEDEF: void* acl_permset_t
TYPEDEF: void* acl_flagset_t
CONSTANT: KAUTH_GUID_SIZE 16
CONSTANT: ACL_MAX_ENTRIES 128
! acl_entry_id_t
CONSTANT: ACL_FIRST_ENTRY 0
CONSTANT: ACL_NEXT_ENTRY -1
CONSTANT: ACL_LAST_ENTRY -2
! acl_type_t Supported:
CONSTANT: ACL_TYPE_EXTENDED 0x00000100
! acl_type_t Unsupported:
CONSTANT: ACL_TYPE_ACCESS 0x00000000
CONSTANT: ACL_TYPE_DEFAULT 0x00000001
CONSTANT: ACL_TYPE_AFS 0x00000002
CONSTANT: ACL_TYPE_CODA 0x00000003
CONSTANT: ACL_TYPE_NTFS 0x00000004
CONSTANT: ACL_TYPE_NWFS 0x00000005
! acl_perm_t
CONSTANT: ACL_READ_DATA 2
CONSTANT: ACL_LIST_DIRECTORY 2
CONSTANT: ACL_WRITE_DATA 4
CONSTANT: ACL_ADD_FILE 4
CONSTANT: ACL_EXECUTE 8
CONSTANT: ACL_SEARCH 8
CONSTANT: ACL_DELETE 16
CONSTANT: ACL_APPEND_DATA 32
CONSTANT: ACL_ADD_SUBDIRECTORY 32
CONSTANT: ACL_DELETE_CHILD 64
CONSTANT: ACL_READ_ATTRIBUTES 128
CONSTANT: ACL_WRITE_ATTRIBUTES 256
CONSTANT: ACL_READ_EXTATTRIBUTES 512
CONSTANT: ACL_WRITE_EXTATTRIBUTES 1024
CONSTANT: ACL_READ_SECURITY 2048
CONSTANT: ACL_WRITE_SECURITY 4096
CONSTANT: ACL_CHANGE_OWNER 8192
CONSTANT: acl-perms ${
ACL_READ_DATA ACL_LIST_DIRECTORY ACL_WRITE_DATA ACL_ADD_FILE
ACL_EXECUTE ACL_SEARCH ACL_DELETE ACL_APPEND_DATA ACL_ADD_SUBDIRECTORY
ACL_DELETE_CHILD ACL_READ_ATTRIBUTES ACL_WRITE_ATTRIBUTES
ACL_READ_EXTATTRIBUTES ACL_WRITE_EXTATTRIBUTES
ACL_READ_SECURITY ACL_WRITE_SECURITY ACL_CHANGE_OWNER
}
CONSTANT: acl-perm-names
{
"read" "list" "write" "add_file" "execute" "search"
"delete" "append" "add_subdirectory" "delete_child"
"readattr" "writeattr" "readextattr" "writeextattr"
"readsecurity" "writesecurity" "chown"
}
CONSTANT: acl-file-perm { t f t f t f t t f f t t t t t t t }
CONSTANT: acl-dir-perm { f t f t f t t f t t t t t t t t t }
! acl_tag_t
TYPEDEF: uint acl_tag_t
CONSTANT: ACL_UNDEFINED_TAG 0
CONSTANT: ACL_EXTENDED_ALLOW 1
CONSTANT: ACL_EXTENDED_DENY 2
ERROR: bad-acl-tag-t n ;
: acl_tag_t>string ( n -- string )
dup 0 2 between? [ bad-acl-tag-t ] unless
{ "undefined" "allow" "deny" } nth ;
! acl_flag_t
TYPEDEF: int acl_flag_t
CONSTANT: ACL_FLAG_DEFER_INHERIT 1
CONSTANT: ACL_ENTRY_INHERITED 16
CONSTANT: ACL_ENTRY_FILE_INHERIT 32
CONSTANT: ACL_ENTRY_DIRECTORY_INHERIT 64
CONSTANT: ACL_ENTRY_LIMIT_INHERIT 128
CONSTANT: ACL_ENTRY_ONLY_INHERIT 256
CONSTANT: acl-flags ${
ACL_ENTRY_FILE_INHERIT
ACL_ENTRY_DIRECTORY_INHERIT
ACL_ENTRY_LIMIT_INHERIT
ACL_ENTRY_ONLY_INHERIT
}
CONSTANT: acl-flag-names {
"file_inherit"
"directory_inherit"
"limit_inherit"
"only_inherit"
}
STRUCT: guid_t
{ g_guid { uchar KAUTH_GUID_SIZE } } ;
TYPEDEF: uint kauth_ace_rights_t
STRUCT: kauth_ace
{ ace_applicable guid_t }
{ ace_flags uint }
{ ace_rights kauth_ace_rights_t } ;
TYPEDEF: kauth_ace* kauth_ace_t
STRUCT: kauth_acl
{ acl_entrycount uint }
{ acl_flags uint }
{ acl_ace { kauth_ace 1 } } ;
TYPEDEF: kauth_acl* kauth_acl_t
STRUCT: kauth_filesec
{ fsec_magic uint }
{ fsec_owner guid_t }
{ fsec_group guid_t } ;
TYPEDEF: kauth_filesec* kauth_filesec_t
FUNCTION: int acl_dup ( acl_t acl ) ;
FUNCTION: int acl_free ( void* obj_p ) ;
FUNCTION: acl_t acl_init ( int count ) ;
FUNCTION: acl_t acl_get_fd ( int fd ) ;
FUNCTION: acl_t acl_get_fd_np ( int fd, acl_type_t type ) ;
FUNCTION: acl_t acl_get_file ( c-string path_p, acl_type_t type ) ;
FUNCTION: acl_t acl_get_link_np ( c-string path_p, acl_type_t type ) ;
FUNCTION: int acl_set_file ( c-string path_p, acl_type_t type, acl_t acl ) ;
FUNCTION: int acl_get_entry ( acl_t acl, int entry_id, acl_entry_t* entry_p ) ;
FUNCTION: int acl_get_permset ( acl_entry_t entry_d, acl_permset_t* permset_p ) ;
FUNCTION: int acl_get_perm_np ( acl_permset_t permset_d, acl_perm_t perm ) ;
FUNCTION: ssize_t acl_copy_ext ( void* buf_p, acl_t acl, ssize_t size ) ;
FUNCTION: ssize_t acl_copy_ext_native ( void* buf_p, acl_t acl, ssize_t size ) ;
FUNCTION: acl_t acl_copy_int ( void* buf_p ) ;
FUNCTION: acl_t acl_copy_int_native ( void* buf_p ) ;
FUNCTION: acl_t acl_from_text ( c-string buf_p ) ;
FUNCTION: ssize_t acl_size ( acl_t acl ) ;
FUNCTION: c-string acl_to_text ( acl_t acl, ssize_t* len_p ) ;
FUNCTION: int acl_valid ( acl_t acl ) ;
FUNCTION: int acl_add_perm ( acl_permset_t permset_d, acl_perm_t perm ) ;
FUNCTION: int acl_delete_perm ( acl_permset_t permset_d, acl_perm_t perm ) ;
FUNCTION: void* acl_get_qualifier ( acl_entry_t entry_d ) ;
FUNCTION: int acl_get_flagset_np ( void *obj, acl_flagset_t* flagset_p ) ;
FUNCTION: int acl_get_flag_np ( acl_flagset_t flagset_d, acl_flag_t flag ) ;
FUNCTION: int acl_get_tag_type ( acl_entry_t entry_d, acl_tag_t *tag_type_p ) ;
TYPEDEF: uchar[16] uuid_t
TYPEDEF: uint32_t uid_t
CONSTANT: ID_TYPE_UID 0
CONSTANT: ID_TYPE_GID 1
CONSTANT: ID_TYPE_SID 3
CONSTANT: ID_TYPE_USERNAME 4
CONSTANT: ID_TYPE_GROUPNAME 5
CONSTANT: ID_TYPE_GSS_EXPORT_NAME 10
CONSTANT: ID_TYPE_X509_DN 11
CONSTANT: ID_TYPE_KERBEROS 12
CONSTANT: NTSID_MAX_AUTHORITIES 16
! Supposed to be packed
STRUCT: nt_sid_t
{ sid_kind u_int8_t }
{ sid_authcount u_int8_t }
{ sid_authority u_int8_t[6] }
{ sid_authorities u_int32_t[NTSID_MAX_AUTHORITIES] } ;
FUNCTION: int mbr_uid_to_uuid ( uid_t id, uuid_t uu ) ;
FUNCTION: int mbr_gid_to_uuid ( gid_t id, uuid_t uu ) ;
FUNCTION: int mbr_uuid_to_id ( uuid_t uu, uid_t *id, int *id_type ) ;
FUNCTION: int mbr_sid_to_uuid ( nt_sid_t *sid, uuid_t uu ) ;
FUNCTION: int mbr_uuid_to_sid ( uuid_t uu, nt_sid_t *sid ) ;
TYPEDEF: char[37] uuid_string_t
FUNCTION: int mbr_uuid_to_string ( uuid_t uu, c-string string ) ;
: unix-id>string ( byte-array id-type -- string ) : unix-id>string ( byte-array id-type -- string )
{ {
{ ID_TYPE_UID [ user-name "user:" prepend ] } { ID_TYPE_UID [ user-name "user:" prepend ] }