/packages/libc/src/dirent.inc
Pascal | 14 lines | 8 code | 3 blank | 3 comment | 0 complexity | a28f3bd7eca71388c2beb9aca7134c83 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ --------------------------------------------------------------------- 2 Macros from dirent.h 3 ---------------------------------------------------------------------} 4 5function IFTODT(mode : __mode_t) : longint; 6begin 7 IFTODT:=(mode and $F000) shr 12; 8end; 9 10function DTTOIF(dirtype : longint) : __mode_t; 11begin 12 DTTOIF:=dirtype shl 12; 13end; 14