basis-library/posix/flags.sig

   1 (* Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  * Copyright (C) 1997-2000 NEC Research Institute.
   4  *
   5  * MLton is released under a BSD-style license.
   6  * See the file MLton-LICENSE for details.
   7  *)
   8
   9 signature BIT_FLAGS =
  10    sig
  11       eqtype flags
  12
  13       val all: flags
  14       val allSet: flags * flags -> bool
  15       val anySet: flags * flags -> bool
  16       val clear: flags * flags -> flags
  17       val flags: flags list -> flags
  18       val fromWord: SysWord.word -> flags
  19       val intersect: flags list -> flags
  20       val toWord: flags -> SysWord.word
  21    end
  22
  23 signature BIT_FLAGS_EXTRA =
  24    sig
  25       include BIT_FLAGS
  26
  27       val empty: flags
  28    end