/usr/share/scheme48-1.9/srfi/srfi-14-char-sets.scm is in scheme48 1.9-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | ; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Mike Sperber
; This constructs the SRFI 14 char sets from thin air and what's defined in
; srfi-14-base-char-sets.scm.
; Defined there:
; lower-case, upper-case, title-case, letter, digit, punctuation, symbol
(define char-set:empty (char-set))
(define char-set:full (char-set-complement char-set:empty))
(define char-set:letter+digit
(char-set-union char-set:letter char-set:digit))
(define char-set:graphic
(char-set-union char-set:mark
char-set:letter
char-set:digit
char-set:symbol
char-set:punctuation))
(define char-set:whitespace
(char-set-union char-set:separator
(list->char-set (map scalar-value->char
'(9 ; tab
10 ; newline
11 ; vtab
12 ; page
13 ; return
)))))
(define char-set:printing
(char-set-union char-set:whitespace char-set:graphic))
(define char-set:iso-control
(char-set-union (ucs-range->char-set 0 #x20)
(ucs-range->char-set #x7f #xa0)))
(define char-set:blank
(char-set-union char-set:space-separator
(char-set (scalar-value->char 9)))) ; tab
(define char-set:ascii (ucs-range->char-set 0 128))
(define char-set:hex-digit (string->char-set "0123456789abcdefABCDEF"))
(make-char-set-immutable! char-set:empty)
(make-char-set-immutable! char-set:full)
(make-char-set-immutable! char-set:lower-case)
(make-char-set-immutable! char-set:upper-case)
(make-char-set-immutable! char-set:letter)
(make-char-set-immutable! char-set:digit)
(make-char-set-immutable! char-set:hex-digit)
(make-char-set-immutable! char-set:letter+digit)
(make-char-set-immutable! char-set:punctuation)
(make-char-set-immutable! char-set:symbol)
(make-char-set-immutable! char-set:graphic)
(make-char-set-immutable! char-set:whitespace)
(make-char-set-immutable! char-set:printing)
(make-char-set-immutable! char-set:blank)
(make-char-set-immutable! char-set:iso-control)
(make-char-set-immutable! char-set:ascii)
|