1(*
2    Title:      Standard Basis Library: BIT_FLAGS signature
3    Author:     David Matthews
4    Copyright   David Matthews 2000
5
6    This library is free software; you can redistribute it and/or
7    modify it under the terms of the GNU Lesser General Public
8    License as published by the Free Software Foundation; either
9    version 2.1 of the License, or (at your option) any later version.
10    
11    This library is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14    Lesser General Public License for more details.
15    
16    You should have received a copy of the GNU Lesser General Public
17    License along with this library; if not, write to the Free Software
18    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
19*)
20
21(* G&R 2004 status: checked, no change. *)
22
23signature BIT_FLAGS =
24sig
25    eqtype flags
26    val toWord   : flags -> SysWord.word
27    val fromWord : SysWord.word -> flags
28    val all: flags
29    val flags : flags list -> flags
30    val intersect: flags list -> flags
31    val clear: flags * flags -> flags
32    val allSet : flags * flags -> bool
33    val anySet : flags * flags -> bool
34end;
35