1(*
2    Copyright (c) 2001, 2015
3        David C.J. Matthews
4
5    This library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Lesser General Public
7    License version 2.1 as published by the Free Software Foundation.
8    
9    This library is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    Lesser General Public License for more details.
13    
14    You should have received a copy of the GNU Lesser General Public
15    License along with this library; if not, write to the Free Software
16    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
17*)
18
19structure ComboBase =
20struct
21    local
22        open Foreign Base
23    in
24        datatype CBDirAttr =
25            DDL_READWRITE | DDL_READONLY | DDL_HIDDEN | DDL_SYSTEM | DDL_DIRECTORY |
26            DDL_ARCHIVE | DDL_POSTMSGS | DDL_DRIVES | DDL_EXCLUSIVE
27        local
28            val tab = [
29                (DDL_READWRITE, 0wx0000),
30                (DDL_READONLY, 0wx0001),
31                (DDL_HIDDEN, 0wx0002),
32                (DDL_SYSTEM, 0wx0004),
33                (DDL_DIRECTORY, 0wx0010),
34                (DDL_ARCHIVE, 0wx0020),
35                (DDL_POSTMSGS, 0wx2000),
36                (DDL_DRIVES, 0wx4000),
37                (DDL_EXCLUSIVE, 0wx8000)
38                ]
39        in
40            val CBDIRATTRS = tableSetLookup(tab, NONE)
41        end
42    end
43end;
44