blob: 37630f8fe97d6fd72180f4e3b518610f3057bb1b (
about) (
plain)
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
|
(define-module (language python module re flags)
#:export (set-flags get-flags *flags*
A ASCII DEBUG I IGNORECASE L LOCALE M MULTILINE
X VERBOSE S DOTALL))
(define *flags* (make-fluid 0))
(define (set-flags x) (fluid-set! *flags* x))
(define (get-flags) (fluid-ref *flags*))
(define A 1)
(define ASCII A)
(define DEBUG 2)
(define I 4)
(define IGNORECASE I)
(define L 8)
(define LOCALE L)
(define M 16)
(define MULTILINE M)
(define X 32)
(define VERBOSE X)
(define S 64)
(define DOTALL X)
|