(user-groups) ( string -- seq )

Vocabulary

unix.groups.private

Inputs

string

an object

Outputs

seq

an object

Definition

USING: accessors alien.c-types alien.data byte-arrays kernel
math unix unix.ffi unix.users ;

IN: unix.groups.private

: (user-groups) ( string -- seq )
    dup user-passwd [
        gid>> 64 [ 4 * <byte-array> ] keep int <ref>
        [ [ getgrouplist ] unix-system-call drop ] 2keep
        int deref >groups
    ] [ drop { } ] if* ;