| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | syntax-local.rkt | 63 syntax-local-expand-observer
93 (define ctx (get-current-expand-context 'syntax-local-context))
98 (define ctx (get-current-expand-context 'syntax-local-introduce))
100 (log-expand ctx 'track-syntax 'syntax-local-introduce new-s s)
107 (define ctx (get-current-expand-context 'syntax-local-identifier-as-binding))
112 (log-expand ctx 'track-syntax 'syntax-local-identifier-as-binding new-id id)
149 (when ctx (log-expand ctx 'track-syntax mode new-s s))
176 (when ctx (log-expand ctx 'track-syntax mode new-s s))
440 (define ctx (get-current-expand-context 'syntax-local-module-exports))
472 (define/who (syntax-local-expand-observer)
[all …]
|
| H A D | top.rkt | 3 "../syntax/syntax.rkt"
4 "../syntax/scope.rkt"
5 "../syntax/taint.rkt"
7 "../syntax/match.rkt"
8 "../syntax/error.rkt"
9 "../syntax/module-binding.rkt"
42 (raise-syntax-error #f "not in a definition context" s))
54 'begin-for-syntax
56 (log-expand ctx 'prim-begin-for-syntax #f)
59 (define-match m s '(begin-for-syntax form ...))
[all …]
|
| H A D | root-expand-context.rkt | 4 "../syntax/syntax.rkt"
10 (provide (struct*-out root-expand-context)
11 make-root-expand-context
19 ;; A `root-expand-context` is a subset of `expand-context` that is
23 (struct* root-expand-context
46 (root-expand-context self-mpi
79 (vector (add-scopes empty-syntax (root-expand-context-module-scopes ctx))
80 (apply-post-expansion (root-expand-context-post-expansion ctx) empty-syntax)
81 … (syntax-module-path-index-shift (root-expand-context-all-scopes-stx ctx) orig-self new-self)
82 (add-scopes empty-syntax (unbox (root-expand-context-use-site-scopes ctx)))
[all …]
|
| H A D | main.rkt | 5 "../syntax/syntax.rkt"
6 "../syntax/property.rkt"
7 "../syntax/scope.rkt"
8 "../syntax/taint.rkt"
9 "../syntax/match.rkt"
278 (raise-syntax-error #f "illegal use of syntax" s
293 (log-expand ctx 'exit-prim/return (extract-syntax result-s))
402 …(define tracked-s (syntax-track-origin post-s use-s (or origin-id (if (syntax-identifier? s) s (ca…
463 ;; syntax
538 [(syntax-identifier? s) (syntax-track-origin alternate-id s)]
[all …]
|
| H A D | expr.rkt | 4 "../syntax/syntax.rkt"
6 "../syntax/scope.rkt"
7 "../syntax/taint.rkt"
8 "../syntax/match.rkt"
102 (datum->syntax
104 (cons (datum->syntax (syntax-shift-phase-level core-stx phase)
142 [(syntax? formals)
165 [(syntax? formals) (loop keys (syntax-e formals))]
460 'quote-syntax
462 (log-expand ctx 'prim-quote-syntax s)
[all …]
|
| H A D | log.rkt | 4 (provide log-expand
5 log-expand*
9 (define-syntax log-expand...
10 (syntax-rules (lambda)
16 (define-syntax-rule (...log-expand obs [key arg ...] ...)
21 (define-syntax log-expand*
22 (syntax-rules ()
33 (define-syntax-rule (log-expand ctx key arg ...)
75 (exit-begin-for-syntax . 0)
119 (track-syntax . 3)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | syntax-local.rkt | 63 syntax-local-expand-observer
93 (define ctx (get-current-expand-context 'syntax-local-context))
98 (define ctx (get-current-expand-context 'syntax-local-introduce))
100 (log-expand ctx 'track-syntax 'syntax-local-introduce new-s s)
107 (define ctx (get-current-expand-context 'syntax-local-identifier-as-binding))
112 (log-expand ctx 'track-syntax 'syntax-local-identifier-as-binding new-id id)
149 (when ctx (log-expand ctx 'track-syntax mode new-s s))
176 (when ctx (log-expand ctx 'track-syntax mode new-s s))
440 (define ctx (get-current-expand-context 'syntax-local-module-exports))
472 (define/who (syntax-local-expand-observer)
[all …]
|
| H A D | top.rkt | 3 "../syntax/syntax.rkt"
4 "../syntax/scope.rkt"
5 "../syntax/taint.rkt"
7 "../syntax/match.rkt"
8 "../syntax/error.rkt"
9 "../syntax/module-binding.rkt"
42 (raise-syntax-error #f "not in a definition context" s))
54 'begin-for-syntax
56 (log-expand ctx 'prim-begin-for-syntax #f)
59 (define-match m s '(begin-for-syntax form ...))
[all …]
|
| H A D | root-expand-context.rkt | 4 "../syntax/syntax.rkt"
10 (provide (struct*-out root-expand-context)
11 make-root-expand-context
19 ;; A `root-expand-context` is a subset of `expand-context` that is
23 (struct* root-expand-context
46 (root-expand-context self-mpi
79 (vector (add-scopes empty-syntax (root-expand-context-module-scopes ctx))
80 (apply-post-expansion (root-expand-context-post-expansion ctx) empty-syntax)
81 … (syntax-module-path-index-shift (root-expand-context-all-scopes-stx ctx) orig-self new-self)
82 (add-scopes empty-syntax (unbox (root-expand-context-use-site-scopes ctx)))
[all …]
|
| H A D | main.rkt | 5 "../syntax/syntax.rkt"
6 "../syntax/property.rkt"
7 "../syntax/scope.rkt"
8 "../syntax/taint.rkt"
9 "../syntax/match.rkt"
278 (raise-syntax-error #f "illegal use of syntax" s
293 (log-expand ctx 'exit-prim/return (extract-syntax result-s))
402 …(define tracked-s (syntax-track-origin post-s use-s (or origin-id (if (syntax-identifier? s) s (ca…
463 ;; syntax
538 [(syntax-identifier? s) (syntax-track-origin alternate-id s)]
[all …]
|
| H A D | expr.rkt | 4 "../syntax/syntax.rkt"
6 "../syntax/scope.rkt"
7 "../syntax/taint.rkt"
8 "../syntax/match.rkt"
102 (datum->syntax
104 (cons (datum->syntax (syntax-shift-phase-level core-stx phase)
142 [(syntax? formals)
165 [(syntax? formals) (loop keys (syntax-e formals))]
460 'quote-syntax
462 (log-expand ctx 'prim-quote-syntax s)
[all …]
|
| H A D | log.rkt | 4 (provide log-expand
5 log-expand*
9 (define-syntax log-expand...
10 (syntax-rules (lambda)
16 (define-syntax-rule (...log-expand obs [key arg ...] ...)
21 (define-syntax log-expand*
22 (syntax-rules ()
33 (define-syntax-rule (log-expand ctx key arg ...)
75 (exit-begin-for-syntax . 0)
119 (track-syntax . 3)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/eval/ |
| H A D | api.rkt | 20 expand
21 expand-syntax
23 expand-to-top-form
24 expand-syntax-to-top-form
26 expand-once
27 expand-syntax-once)
61 (define/who (expand-syntax s [insp (current-code-inspector)])
74 (define/who (expand-syntax-once s [insp (current-code-inspector)])
79 (direct:expand-once s)))
87 (define/who (expand-syntax-to-top-form s [insp (current-code-inspector)])
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/eval/ |
| H A D | api.rkt | 20 expand
21 expand-syntax
23 expand-to-top-form
24 expand-syntax-to-top-form
26 expand-once
27 expand-syntax-once)
61 (define/who (expand-syntax s [insp (current-code-inspector)])
74 (define/who (expand-syntax-once s [insp (current-code-inspector)])
79 (direct:expand-once s)))
87 (define/who (expand-syntax-to-top-form s [insp (current-code-inspector)])
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/lib/yuni/impl/hyperprism/ |
| H A D | core-scheme.sls | 16 (define-syntax core:quote
17 (syntax-rules ()
21 (define-syntax core:if
22 (syntax-rules ()
33 (define-syntax core:set!
34 (syntax-rules ()
40 (define-syntax core:define
41 (syntax-rules ()
49 (syntax-rules ()
61 (define-syntax core:begin
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/boot/runtimes/srfi-mosh/lib.rnrs/core/ |
| H A D | quasisyntax.ss | 48 (import (for (core primitives) run expand)
51 (for (core with-syntax) run expand)
69 (define (expand x level)
73 ((e* reps) (expand (syntax e) (+ level 1))))
81 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
87 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
97 (with-syntax (((r* reps) (expand (syntax r) (- level 1))))
100 (with-syntax (((h* (rep1 ...)) (expand (syntax h) level))
101 ((t* (rep2 ...)) (expand (syntax t) level)))
106 (expand (vector->list (syntax #(e ...))) level)))
[all …]
|
| /dports/lang/racket/racket-8.3/collects/syntax/ |
| H A D | toplevel.rkt | 8 expand-syntax-top-level-with-compile-time-evals
9 expand-syntax-top-level-with-compile-time-evals/flatten)
21 (expand-syntax-top-level-with-compile-time-evals
24 ;; expand-syntax-top-level-with-compile-time-evals/flatten : syntax -> (listof syntax)
25 (define (expand-syntax-top-level-with-compile-time-evals/flatten stx)
27 (let ([e (expand-syntax-to-top-form stx)])
32 (let ([e (expand-syntax e)])
36 (define (expand-syntax-top-level-with-compile-time-evals stx)
37 (let ([e (expand-syntax-to-top-form stx)])
47 (let ([e (expand-syntax e)])
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/ |
| H A D | toplevel.rkt | 8 expand-syntax-top-level-with-compile-time-evals
9 expand-syntax-top-level-with-compile-time-evals/flatten)
21 (expand-syntax-top-level-with-compile-time-evals
24 ;; expand-syntax-top-level-with-compile-time-evals/flatten : syntax -> (listof syntax)
25 (define (expand-syntax-top-level-with-compile-time-evals/flatten stx)
27 (let ([e (expand-syntax-to-top-form stx)])
32 (let ([e (expand-syntax e)])
36 (define (expand-syntax-top-level-with-compile-time-evals stx)
37 (let ([e (expand-syntax-to-top-form stx)])
47 (let ([e (expand-syntax e)])
[all …]
|
| /dports/lang/guile2/guile-2.2.7/module/ice-9/ |
| H A D | quasisyntax.scm | 82 (define (expand x level)
86 ((e* reps) (expand (syntax e) (+ level 1))))
94 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
100 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
108 (or (free-identifier=? (syntax k) (syntax unsyntax))
110 (with-syntax (((r* reps) (expand (syntax r) (- level 1))))
113 (with-syntax (((h* (rep1 ...)) (expand (syntax h) level))
114 ((t* (rep2 ...)) (expand (syntax t) level)))
119 (expand (vector->list (syntax #(e ...))) level)))
126 (with-syntax (((template* replacements) (expand (syntax template) 0)))
[all …]
|
| /dports/lang/guile/guile-3.0.7/module/ice-9/ |
| H A D | quasisyntax.scm | 82 (define (expand x level)
86 ((e* reps) (expand (syntax e) (+ level 1))))
94 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
100 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
108 (or (free-identifier=? (syntax k) (syntax unsyntax))
110 (with-syntax (((r* reps) (expand (syntax r) (- level 1))))
113 (with-syntax (((h* (rep1 ...)) (expand (syntax h) level))
114 ((t* (rep2 ...)) (expand (syntax t) level)))
119 (expand (vector->list (syntax #(e ...))) level)))
126 (with-syntax (((template* replacements) (expand (syntax template) 0)))
[all …]
|
| /dports/devel/taskctl/taskctl-1.4.2/vendor/mvdan.cc/sh/v3/interp/ |
| H A D | vars.go | 169 func (r *Runner) setVar(name string, index syntax.ArithmExpr, vr expand.Variable) {
186 index = &syntax.Word{Parts: []syntax.WordPart{
187 &syntax.Lit{Value: "0"},
190 index = &syntax.Word{Parts: []syntax.WordPart{
191 &syntax.DblQuoted{},
213 w, ok := index.(*syntax.Word)
234 r.Funcs = make(map[string]*syntax.Stmt, 4)
240 w, ok := index.(*syntax.Word)
245 case *syntax.DblQuoted, *syntax.SglQuoted:
251 func (r *Runner) assignVal(as *syntax.Assign, valType string) expand.Variable {
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/boot/ |
| H A D | core-primitive.rkt | 15 "../expand/set-bang-trans.rkt"
16 "../expand/rename-trans.rkt"
17 "../expand/liberal-def-ctx.rkt"
18 "../expand/syntax-local.rkt"
19 "../expand/definition-context.rkt"
20 "../expand/local-expand.rkt"
21 "../expand/apply-transformer.rkt"
29 "../expand/allowed-context.rkt"
30 "../expand/missing-module.rkt")
169 (protect local-expand)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/boot/ |
| H A D | core-primitive.rkt | 15 "../expand/set-bang-trans.rkt"
16 "../expand/rename-trans.rkt"
17 "../expand/liberal-def-ctx.rkt"
18 "../expand/syntax-local.rkt"
19 "../expand/definition-context.rkt"
20 "../expand/local-expand.rkt"
21 "../expand/apply-transformer.rkt"
29 "../expand/allowed-context.rkt"
30 "../expand/missing-module.rkt")
169 (protect local-expand)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | stx-expand.scrbl | 7 @defproc[(expand [top-level-form any/c]
28 (expand
41 (expand
49 @defproc[(expand-syntax [stx syntax?]
60 @defproc[(expand-once [top-level-form any/c]
75 @tech{tainted}, the same as for @racket[expand].
80 @defproc[(expand-syntax-once [stx syntax?]
98 @racket[expand-once], expanding the result of
99 @racket[expand-to-top-form] with @racket[expand] produces the same
100 result as using @racket[expand] on the original syntax.
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/lib/core/ |
| H A D | syntax.scm | 6 syntax
46 (syntax ((dummy . pattern) (syntax template))))
76 (define (expand x level)
80 ((e* reps) (expand (syntax e) (+ level 1))))
88 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
94 (with-syntax (((r* (rep ...)) (expand (syntax r) 0))
104 (with-syntax (((r* reps) (expand (syntax r) (- level 1))))
107 (with-syntax (((h* (rep1 ...)) (expand (syntax h) level))
108 ((t* (rep2 ...)) (expand (syntax t) level)))
113 (expand (vector->list (syntax #(e ...))) level)))
[all …]
|