| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/test/r6rs-test-suite/tests/r6rs/ |
| H A D | syntax-case.sls | 17 [else (syntax->datum s)]))
213 [a (syntax->datum #'a)])
240 (test (syntax->datum #'1) 1)
241 (test (syntax->datum #'a) 'a)
245 (test (syntax->datum '1) 1)
252 (test (syntax->datum (datum->syntax #'x 1)) 1)
253 (test (syntax->datum (datum->syntax #'x 'a)) 'a)
254 (test (syntax->datum (datum->syntax #'x '(a b))) '(a b))
255 (test (syntax->datum (datum->syntax #'x '(a . b))) '(a . b))
257 (test (number? (car (syntax->datum (datum->syntax #'x (list 1))))) #t)
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/tests/r6rs-test-suite/tests/r6rs/ |
| H A D | syntax-case.sls | 17 [else (syntax->datum s)]))
213 [a (syntax->datum #'a)])
240 (test (syntax->datum #'1) 1)
241 (test (syntax->datum #'a) 'a)
245 (test (syntax->datum '1) 1)
252 (test (syntax->datum (datum->syntax #'x 1)) 1)
253 (test (syntax->datum (datum->syntax #'x 'a)) 'a)
254 (test (syntax->datum (datum->syntax #'x '(a b))) '(a b))
255 (test (syntax->datum (datum->syntax #'x '(a . b))) '(a . b))
257 (test (number? (car (syntax->datum (datum->syntax #'x (list 1))))) #t)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/syntax/scribblings/ |
| H A D | datum.scrbl | 6 syntax/datum
10 @interaction-eval[#:eval datum-eval (require syntax/datum)]
14 @defmodule[syntax/datum]{The @racketmodname[syntax/datum] library
16 @racket[syntax-case], but for matching and constructing datum values
20 better choice than @racketmodname[syntax/datum]. The
21 @racketmodname[syntax/datum] library is useful mainly for its template
32 Like @racket[syntax-case] and @racket[syntax], but @racket[datum-expr]
45 @racket[datum->syntax] and then wrapping each use of @racket[syntax]
46 with @racket[syntax->datum], but @racket[datum-case] and
102 @racket[datum] instead of @racket[syntax-case] and @racket[syntax].
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/lib/mosh/ |
| H A D | shell.ss | 33 syntax->datum quote with-syntax datum->syntax string->symbol close-port
95 …#'(pipe ((any->string (if (pair? (syntax->datum #'x)) (car (syntax->datum #'x)) (syntax->datum #'x…
96 … (map any->string (if (pair? (syntax->datum #'x)) (cdr (syntax->datum #'x)) '())))
97 … ((any->string (if (pair? (syntax->datum #'y)) (car (syntax->datum #'y)) (syntax->datum #'y)))
99 … ((any->string (if (pair? (syntax->datum #'z)) (car (syntax->datum #'z)) (syntax->datum #'z)))
110 … ((any->string (if (pair? (syntax->datum #'x)) (car (syntax->datum #'x)) (syntax->datum #'x)))
111 (map any->string (if (pair? (syntax->datum #'x)) (cdr (syntax->datum #'x)) '())))
112 … ((any->string (if (pair? (syntax->datum #'y)) (car (syntax->datum #'y)) (syntax->datum #'y)))
113 (map any->string (if (pair? (syntax->datum #'y)) (cdr (syntax->datum #'y)) '())))
114 … ((any->string (if (pair? (syntax->datum #'z)) (car (syntax->datum #'z)) (syntax->datum #'z)))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/model/ |
| H A D | stx-util.rkt | 15 datum->artificial-syntax
19 (syntax->datum (datum->syntax #f x)))
41 (let* ([vstx (datum->artificial-inner-syntax v)]
42 [vstx (datum->syntax dstx vstx stx stx)]
51 (syntax-tainted? (datum->syntax stx #f))))
54 (syntax-tainted? (datum->syntax stx #f)))
66 (define (datum->artificial-syntax x)
68 (cond [(pair? x) (mark-artificial (datum->syntax #f (datum->artificial-inner-syntax x)))]
70 [else (mark-artificial (datum->syntax #f x))])))
72 (define (datum->artificial-inner-syntax x)
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/private/ |
| H A D | with-stx.rkt | 36 (datum->syntax
43 (datum->syntax
48 `(datum->syntax
61 (quote-syntax ,(datum->syntax
68 (-define-syntax with-datum (lambda (stx) (gen-with-syntax stx #t)))
86 (datum->syntax #f (append-number x))]
88 (datum->syntax #f (append-number x))]
90 (datum->syntax #f (append-number (keyword->string x)))]
92 (datum->syntax #f (append-number (syntax-e x)))]
94 (datum->syntax #f (append-number (keyword->string (syntax-e x))))]
[all …]
|
| H A D | qqstx.rkt | 38 (datum->syntax ctx l ctx))
56 (datum->syntax
61 (datum->syntax
78 (convert-k (datum->syntax
97 (convert-k (datum->syntax
121 (convert-k (datum->syntax
171 (convert-k (datum->syntax
237 (loop (datum->syntax
245 (convert-k (datum->syntax
258 (convert-k (datum->syntax
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
| H A D | with-stx.rkt | 36 (datum->syntax
43 (datum->syntax
48 `(datum->syntax
61 (quote-syntax ,(datum->syntax
68 (-define-syntax with-datum (lambda (stx) (gen-with-syntax stx #t)))
86 (datum->syntax #f (append-number x))]
88 (datum->syntax #f (append-number x))]
90 (datum->syntax #f (append-number (keyword->string x)))]
92 (datum->syntax #f (append-number (syntax-e x)))]
94 (datum->syntax #f (append-number (keyword->string (syntax-e x))))]
[all …]
|
| H A D | qqstx.rkt | 38 (datum->syntax ctx l ctx))
56 (datum->syntax
61 (datum->syntax
78 (convert-k (datum->syntax
97 (convert-k (datum->syntax
121 (convert-k (datum->syntax
171 (convert-k (datum->syntax
237 (loop (datum->syntax
245 (convert-k (datum->syntax
258 (convert-k (datum->syntax
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/r6rs-lib/rnrs/ |
| H A D | syntax-case-6.rkt | 20 [r6rs:datum->syntax datum->syntax]
21 [r6rs:syntax->datum syntax->datum]
64 (define (r6rs:datum->syntax id datum)
70 'datum->syntax
76 (datum->syntax id (convert-mpairs datum)))
78 (define (r6rs:syntax->datum orig-stx)
82 (convert-pairs (syntax->datum stx))]
88 'syntax->datum
192 (hash-set! reconstruction-memory datum (datum->syntax stx 'memory stx)))
212 (define (leaf-to-syntax datum)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/drracket/drracket/private/ |
| H A D | tool-contract-language.rkt | 21 (not (string? (syntax-object->datum (syntax type))))
22 … (andmap (λ (x) (string? (syntax-object->datum x))) (syntax->list (syntax (strs ...)))))
45 (datum->syntax-object
47 (syntax-object->datum in-obj)
65 (when (string? (syntax-object->datum str-stx))
77 (unless (string? (syntax-object->datum str))
87 (andmap (λ (x) (string? (syntax-object->datum x)))
99 (datum->syntax-object
106 (datum->syntax-object
122 (when (string? (syntax-object->datum str-stx))
[all …]
|
| /dports/lang/racket/racket-8.3/collects/syntax/parse/private/ |
| H A D | litconv.rkt | 16 check-datum-literals-list
106 (define-for-syntax (check-duplicate-literals ctx imports lits datum-lits)
120 (for ([datum-lit (in-list datum-lits)])
121 (let ([internal (den:datum-lit-internal datum-lit)])
133 (#:datum-literals ,check-datum-literals-list)
148 [datum-lits
158 [(datum-internal ...) (map den:datum-lit-internal datum-lits)]
159 [(datum-external ...) (map den:datum-lit-external datum-lits)]
175 (make-lse:datum-lit 'datum-internal
257 (and (memq (syntax-e x) datum-lits) #t))))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/parse/private/ |
| H A D | litconv.rkt | 16 check-datum-literals-list
106 (define-for-syntax (check-duplicate-literals ctx imports lits datum-lits)
120 (for ([datum-lit (in-list datum-lits)])
121 (let ([internal (den:datum-lit-internal datum-lit)])
133 (#:datum-literals ,check-datum-literals-list)
148 [datum-lits
158 [(datum-internal ...) (map den:datum-lit-internal datum-lits)]
159 [(datum-external ...) (map den:datum-lit-external datum-lits)]
175 (make-lse:datum-lit 'datum-internal
257 (and (memq (syntax-e x) datum-lits) #t))))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/datalog/private/ |
| H A D | compiler.rkt | 26 (define srcstx (datum->syntax #f 'x srcloc))
30 (define srcstx (datum->syntax #f 'x srcloc))
34 (define srcstx (datum->syntax #f 'x srcloc))
38 (define srcstx (datum->syntax #f 'x srcloc))
40 (#,(intro #'require) #,(datum->syntax #f (string->symbol l))))]))
45 (define srcstx (datum->syntax #f 'x srcloc))
48 (define srcstx (datum->syntax #f 'x srcloc))
55 (define srcstx (datum->syntax #f 'x srcloc))
59 (define srcstx (datum->syntax #f 'x srcloc))
67 (define srcstx (datum->syntax #f 'x srcloc))
[all …]
|
| /dports/lang/racket/racket-8.3/collects/syntax/ |
| H A D | datum.rkt | 5 (for-syntax racket/base
8 (provide datum datum-case with-datum define/with-datum
11 (define-syntax (define/with-datum stx)
12 (syntax-case stx ()
13 [(define/with-datum pattern rhs)
16 (get-match-vars #'define/with-datum
31 (with-datum ([pattern rhs])
33 (define-syntax pvar
38 (define-syntax (pvar-value stx)
39 (syntax-case stx ()
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/ |
| H A D | datum.rkt | 5 (for-syntax racket/base
8 (provide datum datum-case with-datum define/with-datum
11 (define-syntax (define/with-datum stx)
12 (syntax-case stx ()
13 [(define/with-datum pattern rhs)
16 (get-match-vars #'define/with-datum
31 (with-datum ([pattern rhs])
33 (define-syntax pvar
38 (define-syntax (pvar-value stx)
39 (syntax-case stx ()
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/ |
| H A D | schemify.sls | 21 datum->syntax)
27 [datum->correlated rumble:datum->correlated]
28 [correlated->datum rumble:correlated->datum]
44 (hash 'syntax? rumble:correlated?
48 'datum->syntax rumble:datum->correlated
49 'syntax->datum rumble:correlated->datum
58 (define syntax? rumble:correlated?)
59 (define syntax-e rumble:correlated-e)
61 (define datum->syntax rumble:datum->correlated)
72 (let-syntax ([gen
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/ |
| H A D | schemify.sls | 21 datum->syntax)
27 [datum->correlated rumble:datum->correlated]
28 [correlated->datum rumble:correlated->datum]
44 (hash 'syntax? rumble:correlated?
48 'datum->syntax rumble:datum->correlated
49 'syntax->datum rumble:correlated->datum
58 (define syntax? rumble:correlated?)
59 (define syntax-e rumble:correlated-e)
61 (define datum->syntax rumble:datum->correlated)
72 (let-syntax ([gen
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/ |
| H A D | linklet.rkt | 36 datum->correlated
37 correlated->datum
54 (bounce syntax?
56 datum->syntax
57 syntax->datum
68 (syntax? e))
70 (define (datum->correlated d [srcloc #f] [props #f])
71 (datum->syntax #f d srcloc props))
74 (syntax-e e))
76 (define (correlated->datum e)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/ |
| H A D | linklet.rkt | 36 datum->correlated
37 correlated->datum
54 (bounce syntax?
56 datum->syntax
57 syntax->datum
68 (syntax? e))
70 (define (datum->correlated d [srcloc #f] [props #f])
71 (datum->syntax #f d srcloc props))
74 (syntax-e e))
76 (define (correlated->datum e)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/host/ |
| H A D | correlate.rkt | 3 "../syntax/datum-map.rkt"
11 ;; host layer provides functions named `syntax?`, `datum->syntax`,
13 ;; `correlated?`, `datum->correlated`, etc. Additionally,
39 datum->correlated
44 correlated->datum
56 (define e (datum->correlated s-exp src-e))
65 (define (datum->correlated d [srcloc #f])
66 (datum->syntax #f d srcloc))
90 (define (correlated->datum e)
91 (datum-map e (lambda (tail? d) d) (lambda (tail? d)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/host/ |
| H A D | correlate.rkt | 3 "../syntax/datum-map.rkt"
11 ;; host layer provides functions named `syntax?`, `datum->syntax`,
13 ;; `correlated?`, `datum->correlated`, etc. Additionally,
39 datum->correlated
44 correlated->datum
56 (define e (datum->correlated s-exp src-e))
65 (define (datum->correlated d [srcloc #f])
66 (datum->syntax #f d srcloc))
90 (define (correlated->datum e)
91 (datum-map e (lambda (tail? d) d) (lambda (tail? d)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
| H A D | syntax.rkt | 27 syntax->datum
28 datum->syntax
30 immediate-datum->syntax
43 deserialize-datum->syntax
74 (fprintf port " ~s" (syntax->datum s))]
77 (fprintf port " ~.s" (syntax->datum s)))])
122 (ser-push! 'tag '#:datum->syntax)
123 (ser-push! (syntax->datum s))]
239 (define (syntax->datum s)
331 (raise-arguments-error 'datum->syntax
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/syntax/ |
| H A D | syntax.rkt | 27 syntax->datum
28 datum->syntax
30 immediate-datum->syntax
43 deserialize-datum->syntax
74 (fprintf port " ~s" (syntax->datum s))]
77 (fprintf port " ~.s" (syntax->datum s)))])
122 (ser-push! 'tag '#:datum->syntax)
123 (ser-push! (syntax->datum s))]
239 (define (syntax->datum s)
331 (raise-arguments-error 'datum->syntax
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/parser-tools-lib/parser-tools/private-yacc/ |
| H A D | input-file-parser.rkt | 105 (cons (datum->syntax-object #f 'error)
138 (syntax-object->datum nts))
151 (syntax-object->datum (syntax (non-term ...)))))
163 (syntax-object->datum (syntax (term ... ...)))))
183 (syntax-object->datum t))
196 (syntax-object->datum prec-decls)))))
239 (syntax-object->datum s)
243 (syntax-object->datum s)
302 (syntax-object->datum (syntax term))
308 (syntax-object->datum (syntax term)))
[all …]
|