Ticket #424: file-creation-mode.diff

manual/Unit

@@ -529 +529 @@
 exact integers) using the {{chown()}} system call.
 
 
+==== file-creation-mode
+
+<procedure>(file-creation-mode MODE)</procedure>
+
+Returns the initial file permissions used for newly created files
+(as with {{umask(2)}}. You can set the mode by executing
+
+  (set! (file-creation-mode) MODE)
+
+where {{MODE}} is a bitwise combination of one or more of
+the {{perm/...}} flags.
+
+
 === Processes
 
 ==== current-process-id
@@ -1212 +1225 @@
 ; {{file-close}} : {{close}}
 ; {{file-access-time}} : {{stat}}
 ; {{file-change-time}} : {{stat}}
+; {{file-creation-mode}} : {{umask}}
 ; {{file-modification-time}} : {{stat}}
 ; {{file-execute-access?}} : {{access}}
 ; {{file-open}} : {{open}}

posix-common.scm

@@ -361 +361 @@
                          (follow-symlinks #t))
             (##sys#find-files dir test action seed limit follow-symlinks dotfiles 'find-files))
           args))))
+
+
+;;; umask
+
+(define file-creation-mode
+  (getter-with-setter
+   (lambda ()
+     (let ((um (##core#inline "C_umask" 0)))
+       (##core#inline "C_umask" um)
+       um))
+   (lambda (um)
+     (##core#inline "C_umask" um))
+   "(file-creation-mode mode)"))

posix.import.scm

@@ -99 +99 @@
    fifo?
    file-access-time
    file-change-time
+   file-creation-mode
    file-close
    file-control
    file-execute-access?

posixunix.scm

@@ -199 +199 @@
 #define C_test_access(fn, m)     C_fix(access((char *)C_data_pointer(fn), C_unfix(m)))
 #define C_close(fd)         C_fix(close(C_unfix(fd)))
 #define C_sleep             sleep
+#define C_umask(m)          C_fix(umask(C_unfix(m)))
 
 #define C_lstat(fn)         C_fix(lstat((char *)C_data_pointer(fn), &C_statbuf))
 

posixwin.scm

@@ -304 +304 @@
 
 #define C_flushall()        C_fix(_flushall())
 
+#define C_umask(m)          C_fix(_umask(C_unfix(m)))
+
 #define C_ctime(n)          (C_secs = (n), ctime(&C_secs))
 
 #define C_tm_set_08(v) \

types.db

@@ -776 +776 @@
 (file-change-time (procedure file-change-time ((or string fixnum)) number))
 (file-close (procedure file-close (fixnum) undefined))
 (file-control (procedure file-control (fixnum fixnum #!optional fixnum) fixnum))
+(file-creation-mode (procedure file-creation-mode () fixnum))
 (file-execute-access? (procedure file-execute-access? (string) boolean))
 (file-link (procedure file-link (string string) undefined))
 (file-lock (procedure file-lock (port #!optional fixnum *) (struct lock)))