Import Upstream version 20180207
[hcoop/debian/mlton.git] / runtime / basis / Posix / FileSys / ST.c
1 #include "platform.h"
2
3 C_Int_t Posix_FileSys_ST_isBlk (C_Mode_t m) {
4 return S_ISBLK(m);
5 }
6
7 C_Int_t Posix_FileSys_ST_isChr (C_Mode_t m) {
8 return S_ISCHR(m);
9 }
10
11 C_Int_t Posix_FileSys_ST_isDir (C_Mode_t m) {
12 return S_ISDIR(m);
13 }
14
15 C_Int_t Posix_FileSys_ST_isFIFO (C_Mode_t m) {
16 return S_ISFIFO(m);
17 }
18
19 C_Int_t Posix_FileSys_ST_isLink (C_Mode_t m) {
20 return S_ISLNK(m);
21 }
22
23 C_Int_t Posix_FileSys_ST_isReg (C_Mode_t m) {
24 return S_ISREG(m);
25 }
26
27 C_Int_t Posix_FileSys_ST_isSock (C_Mode_t m) {
28 return S_ISSOCK(m);
29 }