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

#include "platform.h"

C_Errno_t(C_Int_t) Posix_FileSys_Dirstream_closeDir (C_DirP_t p) {
  return closedir ((DIR *) p);
}

C_Errno_t(C_DirP_t) Posix_FileSys_Dirstream_openDir (NullString8_t p) {
  DIR *res = opendir ((const char *) p);
  return (C_Errno_t(C_DirP_t))res;
}

C_Errno_t(C_String_t) Posix_FileSys_Dirstream_readDir (C_DirP_t d) {
  struct dirent *e;
  char *res;

  e = readdir ((DIR *) d);
  res = (NULL == e) ? NULL : e->d_name;
  return (C_Errno_t(C_String_t))res;
}

void Posix_FileSys_Dirstream_rewindDir (C_DirP_t p) {
  rewinddir ((DIR *) p);
}
Commit	Line	Data
7f918cf1 CE	1	#include "platform.h"
	2
	3	C_Errno_t(C_Int_t) Posix_FileSys_Dirstream_closeDir (C_DirP_t p) {
	4	return closedir ((DIR *) p);
	5	}
	6
	7	C_Errno_t(C_DirP_t) Posix_FileSys_Dirstream_openDir (NullString8_t p) {
	8	DIR res = opendir ((const char ) p);
	9	return (C_Errno_t(C_DirP_t))res;
	10	}
	11
	12	C_Errno_t(C_String_t) Posix_FileSys_Dirstream_readDir (C_DirP_t d) {
	13	struct dirent *e;
	14	char *res;
	15
	16	e = readdir ((DIR *) d);
	17	res = (NULL == e) ? NULL : e->d_name;
	18	return (C_Errno_t(C_String_t))res;
	19	}
	20
	21	void Posix_FileSys_Dirstream_rewindDir (C_DirP_t p) {
	22	rewinddir ((DIR *) p);
	23	}