Import Upstream version 20180207

[hcoop/debian/mlton.git] / runtime / basis / Posix / FileSys / ST.c

#include "platform.h"

C_Int_t Posix_FileSys_ST_isBlk (C_Mode_t m) {
  return S_ISBLK(m);
}

C_Int_t Posix_FileSys_ST_isChr (C_Mode_t m) {
  return S_ISCHR(m);
}

C_Int_t Posix_FileSys_ST_isDir (C_Mode_t m) {
  return S_ISDIR(m);
}

C_Int_t Posix_FileSys_ST_isFIFO (C_Mode_t m) {
  return S_ISFIFO(m);
}

C_Int_t Posix_FileSys_ST_isLink (C_Mode_t m) {
  return S_ISLNK(m);
}

C_Int_t Posix_FileSys_ST_isReg (C_Mode_t m) {
  return S_ISREG(m);
}

C_Int_t Posix_FileSys_ST_isSock (C_Mode_t m) {
  return S_ISSOCK(m);
}