basis/io/windows/privileges/privileges.factor

   1 USING: io.backend kernel continuations sequences\r
   2 system vocabs.loader combinators ;\r
   3 IN: io.windows.privileges\r
   4 \r
   5 HOOK: set-privilege io-backend ( name ? -- ) inline\r
   6 \r
   7 : with-privileges ( seq quot -- )\r
   8     over [ [ t set-privilege ] each ] curry compose\r
   9     swap [ [ f set-privilege ] each ] curry [ ] cleanup ; inline\r
  10 \r
  11 {\r
  12     { [ os winnt? ] [ "io.windows.nt.privileges" require ] }\r
  13     { [ os wince? ] [ "io.windows.ce.privileges" require ] }\r
  14 } cond\r