From d1920b50a981caabd25bc3a789ea452b0dd1ab0d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 24 Oct 2012 20:23:54 -0700 Subject: [PATCH] io.files.acls.macosx.lib: removing redundant vocab. --- extra/io/files/acls/macosx/lib/authors.txt | 1 - extra/io/files/acls/macosx/lib/lib.factor | 139 ------------------- extra/io/files/acls/macosx/lib/platforms.txt | 1 - 3 files changed, 141 deletions(-) delete mode 100644 extra/io/files/acls/macosx/lib/authors.txt delete mode 100644 extra/io/files/acls/macosx/lib/lib.factor delete mode 100644 extra/io/files/acls/macosx/lib/platforms.txt diff --git a/extra/io/files/acls/macosx/lib/authors.txt b/extra/io/files/acls/macosx/lib/authors.txt deleted file mode 100644 index 7c1b2f2279..0000000000 --- a/extra/io/files/acls/macosx/lib/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Doug Coleman diff --git a/extra/io/files/acls/macosx/lib/lib.factor b/extra/io/files/acls/macosx/lib/lib.factor deleted file mode 100644 index d820cd0551..0000000000 --- a/extra/io/files/acls/macosx/lib/lib.factor +++ /dev/null @@ -1,139 +0,0 @@ -! Copyright (C) 2009 Doug Coleman. -! See http://factorcode.org/license.txt for BSD license. -USING: acls.macosx.ffi alien.c-types alien.data -alien.destructors alien.syntax classes.struct combinators -destructors io.backend io.files kernel libc literals locals -math.order prettyprint sequences unix unix.ffi unix.groups -unix.types unix.users ; -QUALIFIED: io -IN: acls.macosx.lib - -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 ; - -: unix-id>string ( byte-array id-type -- string ) - { - { ID_TYPE_UID [ user-name "user:" prepend ] } - { ID_TYPE_GID [ group-name "group:" prepend ] } - ! [ uuid_string_t [ mbr_uuid_to_string io-error ] keep ] - } case ; - -: acl-error ( n -- ) -1 = [ (io-error) ] when ; inline - -:: file-acl ( path -- acl_t/f ) - path - normalize-path - clear-errno - ACL_TYPE_EXTENDED acl_get_file dup [ - errno ENOENT = [ - [ path exists? ] preserve-errno [ drop f ] [ (io-error) ] if - ] [ - (io-error) - ] if - ] unless ; - -: free-acl ( acl -- ) acl_free acl-error ; - -DESTRUCTOR: free-acl - -: get-acl-entry ( acl_t n -- acl_entry_t ) - acl_entry_t [ acl_get_entry ] keep swap -1 = [ drop f ] when ; - -: first-acl-entry ( acl_t -- acl_entry_t ) ACL_FIRST_ENTRY get-acl-entry ; -: next-acl-entry ( acl_t -- acl_entry_t ) ACL_NEXT_ENTRY get-acl-entry ; -: last-acl-entry ( acl_t -- acl_entry_t ) ACL_LAST_ENTRY get-acl-entry ; - -PRIVATE> - -: acl>text ( acl_t -- string ) f acl_to_text ; - -:: acl-entry-each ( path quot -- ) - [ - path file-acl &free-acl :> acl - f :> acl-entry! - acl [ - acl first-acl-entry *void* quot call - [ acl next-acl-entry dup acl-entry! ] - [ acl-entry *void* quot call ] while - ] when - ] with-destructors ; inline - -:: acl-each ( path quot -- ) - [ - path file-acl &free-acl :> acl - acl [ - acl first-acl-entry drop - acl quot call - [ acl next-acl-entry ] [ acl quot call ] while - ] when - ] with-destructors ; inline - -: acl-entry-map ( path quot -- seq ) - collector [ acl-entry-each ] dip ; inline - -: acl-map ( path quot -- seq ) - collector [ acl-each ] dip ; inline - -ERROR: acl-init-failed n ; - -:: n>new-acl ( n -- acl ) - n acl_init dup [ n acl-init-failed ] unless ; - -: new-acl ( -- acl ) 1 n>new-acl ; inline - -: acl-valid? ( acl -- ? ) acl_valid [ acl-error ] keep 0 = ; - -ERROR: add-permission-failed permission-set permission ; - -: add-permission ( acl_permset permission -- ) - acl_add_perm acl-error ; - -: acl-entry>permset ( acl_entry_t -- acl_permset ) - acl_permset_t [ acl_get_permset acl-error ] keep ; - -: filter-strings ( obj strings -- string ) - [ [ 1 = ] dip f ? ] 2map sift "," join ; - -: permset>strings ( acl_permset -- strings ) - acl-perms [ acl_get_perm_np dup acl-error ] with map - acl-perm-names filter-strings ; - -: acl-entry>perm-strings ( acl_entry_t -- strings ) - acl-entry>permset permset>strings ; - -: with-new-acl ( quot -- ) - [ [ new-acl &free-acl ] dip call ] with-destructors ; inline - -: acls. ( path -- ) - [ acl>text io:write ] acl-each ; - -: acl-entry>owner-name ( acl-entry -- string ) - [ - acl_get_qualifier dup acl-error &free-acl - uid_t -1 [ mbr_uuid_to_id io-error ] 2keep - [ *uint ] bi@ unix-id>string - ] with-destructors ; - -: acl-entry>tag-name ( acl-entry -- string ) - acl_tag_t [ acl_get_tag_type acl-error ] keep - *uint acl_tag_t>string ; - -: flagset>strings ( flagset -- strings ) - acl-flags [ acl_get_flag_np dup acl-error ] with map - acl-flag-names filter-strings ; - -: acl-entry>flagset ( acl-entry -- flagset ) - acl_flagset_t [ acl_get_flagset_np acl-error ] keep ; - -: acl-entry>flag-names ( acl-entry -- strings ) - acl-entry>flagset flagset>strings ; - - -! Acl, acl entry, principal, group, -! acl_get_qualifier, acl_get_tag_type, acl_get_flagset_np, -! acl_get_permset - -! http://www.google.com/codesearch/p?hl=en#pFm0LxzAWvs/darwinsource/tarballs/apsl/file_cmds-116.10.tar.gz%7CFam4LGNxuqg/file_cmds-116.10/ls/print.c&q=acl_get_permset&d=6 diff --git a/extra/io/files/acls/macosx/lib/platforms.txt b/extra/io/files/acls/macosx/lib/platforms.txt deleted file mode 100644 index 6e806f449e..0000000000 --- a/extra/io/files/acls/macosx/lib/platforms.txt +++ /dev/null @@ -1 +0,0 @@ -macosx