basis/io/backend/windows/privileges/privileges.factor

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