suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

call security guard for truncate-file

Browse Source 
svn: r281
This commit is contained in:
Matthew Flatt 2005-06-30 19:09:24 +00:00
parent ba0519874a
commit c3147b6468
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mzlib/os.ss
View File

@ -115,6 +115,11 @@
val val
(fail-k))) (fail-k)))
(define scheme_security_check_file
(delay-ffi-obj "scheme_security_check_file" #f
(_fun _string _string _int -> _void)))
(define SCHEME_GUARD_FILE_WRITE #x2)
;; truncate-file : path int -> void ;; truncate-file : path int -> void
(define truncate-file (define truncate-file
(opt-lambda (file [size 0]) (opt-lambda (file [size 0])
@ -122,6 +127,10 @@
(error 'truncate-file "expects argument of type <string> or <path>; given ~s" file)) (error 'truncate-file "expects argument of type <string> or <path>; given ~s" file))
(when (not (integer? size)) (when (not (integer? size))
(error 'truncate-file "expects argument of type <integer>; given ~s" size)) (error 'truncate-file "expects argument of type <integer>; given ~s" size))
((force scheme_security_check_file)
"truncate-file"
(if (path? file) (path->string file) file)
SCHEME_GUARD_FILE_WRITE)
(let ([fd (on-c-fail (let ([fd (on-c-fail
((force open) file O_WRONLY) ((force open) file O_WRONLY)
(lambda () (lambda ()