/[meta-cvs]/meta-cvs/F-258A1D35AE34AADD34D34F5A328405CC.lisp
ViewVC logotype

Diff of /meta-cvs/F-258A1D35AE34AADD34D34F5A328405CC.lisp

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

revision 1.2 by kaz, Sun Aug 4 18:15:18 2002 UTC revision 1.3 by kaz, Mon Aug 5 19:19:58 2002 UTC
# Line 20  Line 20 
20             :s-ixusr :s-irwxu :s-irgrp :s-iwgrp :s-ixgrp :s-irwxg :s-iroth             :s-ixusr :s-irwxu :s-irgrp :s-iwgrp :s-ixgrp :s-irwxg :s-iroth
21             :s-iwoth :s-ixoth :s-irwxo :accessperms :deffilemode :o-accmode             :s-iwoth :s-ixoth :s-irwxo :accessperms :deffilemode :o-accmode
22             :o-rdonly :o-wronly :o-rdwr :o-creat :o-excl :o-noctty :o-trunc             :o-rdonly :o-wronly :o-rdwr :o-creat :o-excl :o-noctty :o-trunc
23             :o-append :o-nonblock :o-sync :o-async :o-ndelay :o-fsync))             :o-append :o-nonblock :o-sync :o-async :o-ndelay :o-fsync :getcwd))
24    
25  (in-package :unix-funcs)  (in-package :unix-funcs)
26    
# Line 245  Line 245 
245  (defconstant deffilemode (logior s-irusr s-iwusr s-irgrp s-iwgrp s-iroth s-iwoth))  (defconstant deffilemode (logior s-irusr s-iwusr s-irgrp s-iwgrp s-iroth s-iwoth))
246    
247  ;;;  ;;;
248    ;;; <unistd.h> -- getcwd
249    
250    (def-c-call-out getcwd
251      (:name "impl_getcwd")
252      (:arguments)
253      (:return-type c-string :malloc-free))
254    
255    ;;;
256  ;;; <fcntl.h>  ;;; <fcntl.h>
257  ;;;  ;;;
258    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5