15 lines
461 B
Factor
Executable File
15 lines
461 B
Factor
Executable File
USING: io.backend kernel continuations sequences
|
|
system vocabs.loader combinators ;
|
|
IN: io.windows.privileges
|
|
|
|
HOOK: set-privilege io-backend ( name ? -- ) inline
|
|
|
|
: with-privileges ( seq quot -- )
|
|
over [ [ t set-privilege ] each ] curry compose
|
|
swap [ [ f set-privilege ] each ] curry [ ] cleanup ; inline
|
|
|
|
{
|
|
{ [ os winnt? ] [ "io.windows.nt.privileges" require ] }
|
|
{ [ os wince? ] [ "io.windows.ce.privileges" require ] }
|
|
} cond
|