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

Fix `{user,group,other}-{read,execute}-bit' (in the docs too).

Browse Source 
Make the launcher template copying code try to ensure that all user
access bits are on.
This commit is contained in:
Eli Barzilay 2011-06-14 21:27:10 -04:00
parent 58b60a6a87
commit c0051518be
3 changed files with 27 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/launcher/launcher-unit.rkt
View File

@ -1,9 +1,9 @@
#lang scheme/unit #lang racket/unit
(require scheme/path (require racket/path
scheme/file racket/file
scheme/list racket/list
scheme/string racket/string
compiler/embed compiler/embed
setup/dirs setup/dirs
@ -99,7 +99,13 @@
(directory-exists? dest) (directory-exists? dest)
(link-exists? dest)) (link-exists? dest))
(delete-directory/files dest)) (delete-directory/files dest))
(copy-file src dest)) (copy-file src dest)
;; make sure it's read/write/execute-able
(let* ([perms1 (file-or-directory-permissions dest 'bits)]
[perms2 (bitwise-ior user-read-bit user-write-bit user-execute-bit
perms1)])
(unless (equal perms1 perms2)
(file-or-directory-permissions dest perms2))))
(define (script-variant? v) (define (script-variant? v)
(memq v '(script-3m script-cgc))) (memq v '(script-3m script-cgc)))

12
collects/racket/file.rkt
View File

@ -599,12 +599,12 @@
(->file 'display-lines-to-file f mode exists (->file 'display-lines-to-file f mode exists
(lambda (p) (do-lines->port l p newline)))) (lambda (p) (do-lines->port l p newline))))
(define user-read-bit #o100) (define user-read-bit #o400)
(define user-write-bit #o200) (define user-write-bit #o200)
(define user-execute-bit #o400) (define user-execute-bit #o100)
(define group-read-bit #o010) (define group-read-bit #o040)
(define group-write-bit #o020) (define group-write-bit #o020)
(define group-execute-bit #o040) (define group-execute-bit #o010)
(define other-read-bit #o001) (define other-read-bit #o004)
(define other-write-bit #o002) (define other-write-bit #o002)
(define other-execute-bit #o004) (define other-execute-bit #o001)

14
collects/scribblings/reference/filesystem.scrbl
View File

@ -1105,15 +1105,15 @@ to the file portion of the path.
(make-lock-file-name "/home/george/project/important-file")]} (make-lock-file-name "/home/george/project/important-file")]}
@deftogether[( @deftogether[(
@defthing[user-read-bit @#,schemevalfont{#o100}] @defthing[user-read-bit @#,schemevalfont{#o400}]
@defthing[user-write-bit @#,schemevalfont{#o200}] @defthing[user-write-bit @#,schemevalfont{#o200}]
@defthing[user-execute-bit @#,schemevalfont{#o400}] @defthing[user-execute-bit @#,schemevalfont{#o100}]
@defthing[group-read-bit @#,schemevalfont{#o010}] @defthing[group-read-bit @#,schemevalfont{#o040}]
@defthing[group-write-bit @#,schemevalfont{#o020}] @defthing[group-write-bit @#,schemevalfont{#o020}]
@defthing[group-execute-bit @#,schemevalfont{#o040}] @defthing[group-execute-bit @#,schemevalfont{#o010}]
@defthing[other-read-bit @#,schemevalfont{#o001}] @defthing[other-read-bit @#,schemevalfont{#o004}]
@defthing[other-write-bit @#,schemevalfont{#o002}] @defthing[other-write-bit @#,schemevalfont{#o002}]
@defthing[other-execute-bit @#,schemevalfont{#o004}] @defthing[other-execute-bit @#,schemevalfont{#o001}]
)]{ )]{
Constants that are useful with @racket[file-or-directory-permissions] Constants that are useful with @racket[file-or-directory-permissions]