 CONSTANT: TOKEN_QUERY                  HEX: 0008
 CONSTANT: TOKEN_QUERY_SOURCE           HEX: 0010
 CONSTANT: TOKEN_ADJUST_DEFAULT         HEX: 0080
-: TOKEN_READ ( -- n ) { STANDARD_RIGHTS_READ TOKEN_QUERY } flags ;
-
-: TOKEN_WRITE ( -- n )
-    {
+CONSTANT: TOKEN_READ flags{ STANDARD_RIGHTS_READ TOKEN_QUERY }
+
+CONSTANT: TOKEN_WRITE
+    flags{
         STANDARD_RIGHTS_WRITE
         TOKEN_ADJUST_PRIVILEGES
         TOKEN_ADJUST_GROUPS
         TOKEN_ADJUST_DEFAULT
-    } flags ; foldable
-
-: TOKEN_ALL_ACCESS ( -- n )
-    {
+    }
+
+CONSTANT: TOKEN_ALL_ACCESS
+    flags{
         STANDARD_RIGHTS_REQUIRED
         TOKEN_ASSIGN_PRIMARY
         TOKEN_DUPLICATE

CONSTANT: REG_CREATED_NEW_KEY     1
CONSTANT: REG_OPENED_EXISTING_KEY 2

TYPEDEF: DWORD REGSAM

! : I_ScGetCurrentGroupStateW ;

USING: alien.c-types alien.syntax classes.struct kernel
literals math math.bitwise windows.kernel32 windows.types ;
IN: windows.advapi32

LIBRARY: advapi32

CONSTANT: MS_DEF_DH_SCHANNEL_PROV "Microsoft DH Schannel Cryptographic Provider"

