opendir,readdir,closedir functions - gcl.git - GNU Common Lisp

diff --git a/gcl/o/unixfsys.c b/gcl/o/unixfsys.c
index d324be2b3..c7260ed3d 100755
--- a/gcl/o/unixfsys.c
+++ b/gcl/o/unixfsys.c

@@ -851,6 +851,31 @@ LFD(Ldirectory)()

}

#endif

+#include <sys/types.h>

+#include <dirent.h>

+

+DEFUN("OPENDIR",fixnum,fSopendir,SI,1,1,NONE,IO,OO,OO,OO,(object x),"") {

+ DIR *d;

+ char filename[MAXPATHLEN];

+ check_type_string(&x);

+ memcpy(filename,x->st.st_self,x->st.st_fillp);

+ filename[x->st.st_fillp]=0;

+ d=opendir(filename);

+ return (fixnum)d;

+}

+

+DEFUN("READDIR",object,fSreaddir,SI,1,1,NONE,OI,OO,OO,OO,(fixnum x),"") {

+ struct dirent *e;

+ if (!x) RETURN1(Cnil);

+ e=readdir((DIR *)x);

+ RETURN1(e ? make_simple_string(e->d_name) : Cnil);

+}

+

+DEFUN("CLOSEDIR",object,fSclosedir,SI,1,1,NONE,OI,OO,OO,OO,(fixnum x),"") {

+ closedir((DIR *)x);

+ return Cnil;

+}

+

static void

FFN(siLchdir)(void)

{