/[cmucl]/src/code/unix-glibc2.lisp
ViewVC logotype

Diff of /src/code/unix-glibc2.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by gerd, Sun Apr 13 12:31:52 2003 UTC revision 1.26 by emarsden, Sun Apr 13 16:48:10 2003 UTC
# Line 359  Line 359 
359  (def-alien-type gid-t unsigned-int)  (def-alien-type gid-t unsigned-int)
360  (def-alien-type ino-t u-int32-t)  (def-alien-type ino-t u-int32-t)
361  (def-alien-type ino64-t u-int64-t)  (def-alien-type ino64-t u-int64-t)
362  (def-alien-type mode-t unsigned-int)  (def-alien-type mode-t u-int32-t)
363  (def-alien-type nlink-t unsigned-int)  (def-alien-type nlink-t unsigned-int)
364  (def-alien-type off-t int64-t)  (def-alien-type off-t int64-t)
365  (def-alien-type blkcnt-t u-int64-t)  (def-alien-type blkcnt-t u-int64-t)
# Line 434  Line 434 
434         (values nil enotdir)))))         (values nil enotdir)))))
435    
436  (defun read-dir (dir)  (defun read-dir (dir)
437    (declare (type directory dir))    (declare (type %directory dir))
438    (let ((daddr (alien-funcall (extern-alien "readdir64"    (let ((daddr (alien-funcall (extern-alien "readdir64"
439                                              (function system-area-pointer                                              (function system-area-pointer
440                                                        system-area-pointer))                                                        system-area-pointer))
# Line 447  Line 447 
447                    (slot dirent 'd-ino))))))                    (slot dirent 'd-ino))))))
448    
449  (defun close-dir (dir)  (defun close-dir (dir)
450    (declare (type directory dir))    (declare (type %directory dir))
451    (alien-funcall (extern-alien "closedir"    (alien-funcall (extern-alien "closedir"
452                                 (function void system-area-pointer))                                 (function void system-area-pointer))
453                   (directory-dir-struct dir))                   (directory-dir-struct dir))
# Line 2788  in at a time in poll.") Line 2788  in at a time in poll.")
2788    (void-syscall ("fchmod" int int) fd mode))    (void-syscall ("fchmod" int int) fd mode))
2789    
2790    
 #+nil  
2791  (defun unix-umask (mask)  (defun unix-umask (mask)
2792    "Set the file creation mask of the current process to MASK,    "Set the file creation mask of the current process to MASK,
2793     and return the old creation mask."     and return the old creation mask."

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5