/packages/libc/src/dirent.inc

https://github.com/slibre/freepascal · Pascal · 14 lines · 8 code · 3 blank · 3 comment · 0 complexity · a28f3bd7eca71388c2beb9aca7134c83 MD5 · raw file 

    

  1. { ---------------------------------------------------------------------
    2. 

  2.     Macros from dirent.h
    3. 

  3.   ---------------------------------------------------------------------}
    4. 

  4. 

  5. function IFTODT(mode : __mode_t) : longint;
    6. 

  6. begin
    7. 

  7.    IFTODT:=(mode and $F000) shr 12;
    8. 

  8. end;
    9. 

  9. 

  10. function DTTOIF(dirtype : longint) : __mode_t;
    11. 

  11. begin
    12. 

  12.    DTTOIF:=dirtype shl 12;
    13. 

  13. end;
    14.