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