| ; Copyright (C) 2021 Apple Inc. All rights reserved. |
| ; |
| ; Redistribution and use in source and binary forms, with or without |
| ; modification, are permitted provided that the following conditions |
| ; are met: |
| ; 1. Redistributions of source code must retain the above copyright |
| ; notice, this list of conditions and the following disclaimer. |
| ; 2. Redistributions in binary form must reproduce the above copyright |
| ; notice, this list of conditions and the following disclaimer in the |
| ; documentation and/or other materials provided with the distribution. |
| ; |
| ; THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS'' |
| ; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, |
| ; THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR |
| ; PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS |
| ; BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
| ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
| ; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS |
| ; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN |
| ; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) |
| ; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF |
| ; THE POSSIBILITY OF SUCH DAMAGE. |
| |
| (define (home-library-preferences-regex home-library-preferences-relative-regex) |
| (regex (string-append "^" (regex-quote (param "HOME_LIBRARY_PREFERENCES_DIR")) home-library-preferences-relative-regex))) |
| |
| (define (home-library-preferences-literal home-library-preferences-relative-literal) |
| (literal (string-append (param "HOME_LIBRARY_PREFERENCES_DIR") home-library-preferences-relative-literal))) |
| |
| (define (shared-preferences-read . domains) |
| (for-each (lambda (domain) |
| (begin |
| (allow user-preference-read (preference-domain domain)) |
| (allow file-read* |
| (literal (string-append "/Library/Preferences/" domain ".plist")) |
| (home-library-preferences-literal (string-append "/" domain ".plist")) |
| (home-library-preferences-regex (string-append #"/ByHost/" (regex-quote domain) #"\..*\.plist$"))))) |
| domains)) |
| |
| (define (allow-reading-global-preferences) |
| (allow user-preference-read (preference-domain "kCFPreferencesAnyApplication")) |
| #if ENABLE(CFPREFS_DIRECT_MODE) |
| (allow file-read* |
| (literal "/Library/Preferences/.GlobalPreferences.plist") |
| (home-subpath "/Library/Preferences/.GlobalPreferences.plist") |
| (home-subpath "/Library/Preferences/.GlobalPreferences_m.plist") |
| (home-regex #"/Library/Preferences/ByHost/\.GlobalPreferences\..*\.plist$") |
| ) |
| #endif |
| ) |
| |
| |
| |
| |