Home
last modified time | relevance | path

Searched +refs:expand +refs:context +refs:binding +refs:layer (Results 1 – 25 of 1393) sorted by relevance

12345678910>>...56

/dports/lang/racket-minimal/racket-8.3/src/expander/expand/
H A Dbody.rkt43 (define phase (expand-context-phase ctx))
62 ;; Increment the binding layer relative to `ctx` when we encounter a binding
63 (define (maybe-increment-binding-layer ids body-ctx)
64 (if (eq? (expand-context-binding-layer body-ctx)
65 (expand-context-binding-layer ctx))
66 (increment-binding-layer ids body-ctx inside-sc)
67 (expand-context-binding-layer body-ctx)))
69 (define name (expand-context-name ctx))
143 [binding-layer (maybe-increment-binding-layer ids body-ctx)])
200 [binding-layer (maybe-increment-binding-layer ids body-ctx)])
[all …]
H A Dmain.rkt53 expand+eval-for-syntaxes-binding
65 increment-binding-layer
108 (define binding (resolve+shift id (expand-context-phase ctx)
132 (define binding (resolve+shift id (expand-context-phase ctx)
225 (not (eq? (expand-context-binding-layer ctx)
226 (already-expanded-binding-layer ae)))
511 ;; Helper to lookup a binding in an expansion context
768 ;; Generate a fresh binding-layer identity if `ids` contains any
770 (define (increment-binding-layer ids ctx layer-val)
775 layer-val
[all …]
H A Dexpr.rkt48 (existing-binding-key id (expand-context-phase ctx)))))
63 [binding-layer (if sc
64 (increment-binding-layer ids ctx sc)
65 (expand-context-binding-layer ctx))]
238 (existing-binding-key id (expand-context-phase ctx))))))
292 [binding-layer (if sc
293 (increment-binding-layer
297 (expand-context-binding-layer ctx))]))
618 (eq? (module-binding-module b) (root-expand-context-self-mpi ctx)))
673 (define binding (resolve+shift id (expand-context-phase ctx)
[all …]
H A Dcontext.rkt7 "../syntax/binding.rkt"
17 make-expand-context
19 current-expand-context
21 without-expand-context
42 (struct* expand-context root-expand-context
50 * binding-layer ; changed when a binding is nested; to check already-expanded
55 * need-eventually-defined ; phase(>=1) -> variables expanded before binding
84 (expand-context (root-expand-context-self-mpi root-ctx)
101 (root-expand-context-frame-id root-ctx) ; binding-layer
140 [binding-layer (root-expand-context-frame-id root-ctx)]))
[all …]
H A Dsyntax-id-error.rkt6 "context.rkt"
14 "identifier's binding is ambiguous"
21 (define info (syntax-debug-info s (expand-context-phase ctx) #f))
26 ;; Don't show context if there's no binding to compare it to
48 "\n context" (layer->string layer) "...:"
49 (describe-context (hash-ref info 'context) common-scopes)
57 … "\n " (if (hash-ref b 'match? #f) "matching" "other") " binding" (layer->string layer) "...:"
61 (describe-context (hash-ref b 'context) common-scopes))))
73 (describe-context (for/list ([s (in-list (hash-ref info 'context))]
104 (define (layer->string layer)
[all …]
H A Dprovide.rkt9 "../syntax/binding.rkt"
13 "context.rkt"
16 "binding-for-transformer.rkt"
32 (define ns (expand-context-namespace ctx))
37 [layer 'raw]
45 (unless (member want-layer (member layer layers))
132 layer
185 (define exp-spec (expand (m 'form) (struct*-copy expand-context ctx
201 layer
220 (unless (module-binding? b)
[all …]
H A Dlocal-expand.rkt7 "../syntax/binding.rkt"
27 (do-local-expand 'local-expand s context stop-ids intdefs))
30 (do-local-expand 'local-expand s context stop-ids intdefs
35 (do-local-expand 'local-expand s context stop-ids intdefs
39 (do-local-expand 'local-expand s context stop-ids intdefs
50 (define ctx (get-current-expand-context))
60 (expand-context-binding-layer ctx)))
98 (define ctx (get-current-expand-context who))
101 (expand-context-phase ctx)))
113 (without-expand-context
[all …]
/dports/lang/racket/racket-8.3/src/expander/expand/
H A Dbody.rkt43 (define phase (expand-context-phase ctx))
62 ;; Increment the binding layer relative to `ctx` when we encounter a binding
63 (define (maybe-increment-binding-layer ids body-ctx)
64 (if (eq? (expand-context-binding-layer body-ctx)
65 (expand-context-binding-layer ctx))
66 (increment-binding-layer ids body-ctx inside-sc)
67 (expand-context-binding-layer body-ctx)))
69 (define name (expand-context-name ctx))
143 [binding-layer (maybe-increment-binding-layer ids body-ctx)])
200 [binding-layer (maybe-increment-binding-layer ids body-ctx)])
[all …]
H A Dmain.rkt53 expand+eval-for-syntaxes-binding
65 increment-binding-layer
108 (define binding (resolve+shift id (expand-context-phase ctx)
132 (define binding (resolve+shift id (expand-context-phase ctx)
225 (not (eq? (expand-context-binding-layer ctx)
226 (already-expanded-binding-layer ae)))
511 ;; Helper to lookup a binding in an expansion context
768 ;; Generate a fresh binding-layer identity if `ids` contains any
770 (define (increment-binding-layer ids ctx layer-val)
775 layer-val
[all …]
H A Dexpr.rkt48 (existing-binding-key id (expand-context-phase ctx)))))
63 [binding-layer (if sc
64 (increment-binding-layer ids ctx sc)
65 (expand-context-binding-layer ctx))]
238 (existing-binding-key id (expand-context-phase ctx))))))
292 [binding-layer (if sc
293 (increment-binding-layer
297 (expand-context-binding-layer ctx))]))
618 (eq? (module-binding-module b) (root-expand-context-self-mpi ctx)))
673 (define binding (resolve+shift id (expand-context-phase ctx)
[all …]
H A Dcontext.rkt7 "../syntax/binding.rkt"
17 make-expand-context
19 current-expand-context
21 without-expand-context
42 (struct* expand-context root-expand-context
50 * binding-layer ; changed when a binding is nested; to check already-expanded
55 * need-eventually-defined ; phase(>=1) -> variables expanded before binding
84 (expand-context (root-expand-context-self-mpi root-ctx)
101 (root-expand-context-frame-id root-ctx) ; binding-layer
140 [binding-layer (root-expand-context-frame-id root-ctx)]))
[all …]
H A Dsyntax-id-error.rkt6 "context.rkt"
14 "identifier's binding is ambiguous"
21 (define info (syntax-debug-info s (expand-context-phase ctx) #f))
26 ;; Don't show context if there's no binding to compare it to
48 "\n context" (layer->string layer) "...:"
49 (describe-context (hash-ref info 'context) common-scopes)
57 … "\n " (if (hash-ref b 'match? #f) "matching" "other") " binding" (layer->string layer) "...:"
61 (describe-context (hash-ref b 'context) common-scopes))))
73 (describe-context (for/list ([s (in-list (hash-ref info 'context))]
104 (define (layer->string layer)
[all …]
H A Dprovide.rkt9 "../syntax/binding.rkt"
13 "context.rkt"
16 "binding-for-transformer.rkt"
32 (define ns (expand-context-namespace ctx))
37 [layer 'raw]
45 (unless (member want-layer (member layer layers))
132 layer
185 (define exp-spec (expand (m 'form) (struct*-copy expand-context ctx
201 layer
220 (unless (module-binding? b)
[all …]
H A Dlocal-expand.rkt7 "../syntax/binding.rkt"
27 (do-local-expand 'local-expand s context stop-ids intdefs))
30 (do-local-expand 'local-expand s context stop-ids intdefs
35 (do-local-expand 'local-expand s context stop-ids intdefs
39 (do-local-expand 'local-expand s context stop-ids intdefs
50 (define ctx (get-current-expand-context))
60 (expand-context-binding-layer ctx)))
98 (define ctx (get-current-expand-context who))
101 (expand-context-phase ctx)))
113 (without-expand-context
[all …]
/dports/graphics/akira/Akira-0.0.16/src/Layouts/Partials/
H A DLayer.vala99 label.expand = true;
108 entry.expand = true;
182 handle_grid.expand = true;
188 handle.expand = true;
194 label_grid.expand = true;
362 Gtk.drag_set_icon_surface (context, surface);
370 Gdk.DragContext context,
387 Gdk.DragContext context, int x, int y,
452 if (context.list_targets () != null) {
629 (binding, srcval, ref targetval) => {
[all …]
H A DArtboard.vala87 entry.expand = true;
100 label_grid.expand = true;
216 if (model.layer.selected) {
225 if (model.layer.locked) {
299 Gtk.drag_set_icon_surface (context, surface);
338 if (context.list_targets () != null) {
347 * Handle the received layer, find the position of the targeted layer and trigger
351 Gdk.DragContext context, int x, int y,
422 if (model.layer.locked) {
544 (binding, srcval, ref targetval) => {
[all …]
/dports/lang/racket-minimal/racket-8.3/src/bc/src/
H A Dstartup.inc15930 " expand-context/outer-binding-layer"
46049 "(expand-context/outer-binding-layer"
47077 "(expand-context/outer-binding-layer"
52032 "(expand-context/outer-binding-layer"
52159 "(expand-context/outer-binding-layer"
69875 "(expand-context/outer-binding-layer"
71411 "(expand-context/outer-binding-layer"
74556 "(expand-context-binding-layer"
74796 "(expand-context/outer-binding-layer"
79081 "(expand-context/outer-binding-layer"
[all …]
/dports/lang/racket/racket-8.3/src/bc/src/
H A Dstartup.inc15930 " expand-context/outer-binding-layer"
46049 "(expand-context/outer-binding-layer"
47077 "(expand-context/outer-binding-layer"
52032 "(expand-context/outer-binding-layer"
52159 "(expand-context/outer-binding-layer"
69875 "(expand-context/outer-binding-layer"
71411 "(expand-context/outer-binding-layer"
74556 "(expand-context-binding-layer"
74796 "(expand-context/outer-binding-layer"
79081 "(expand-context/outer-binding-layer"
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/
H A Dsyntax-model.scrbl147 form's @tech{scope sets} at all phases. The context of each binding
353 @racket[local-expand] when the stop list is empty.
364 @subsection[#:tag "expand-steps"]{Expansion Steps}
473 @subsection[#:tag "expand-context-model"]{Expansion Context}
491 module-begin layer).}
503 right-hand expressions of a binding in an @tech{expression context},
611 @secref["expand-steps"].
620 the use of a transformer is in the same definition context as its binding,
747 @subsection[#:tag "local-binding-context"]{Local Binding Context}
801 not in the current @tech{local binding context}, it raises a syntax error.
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/compatibility/
H A Dpackage.rkt24 ;; to a binding of the identifier when the package is opened:
54 (check-definition-context stx)
83 (let ([exp-form (local-expand #'form
109 ;; Add another scope layer:
213 (check-definition-context stx)
246 (if (eq? 'expression (syntax-local-context))
258 (when (eq? 'expression (syntax-local-context))
269 [(eq? 'top-level (syntax-local-context))
284 (let ([exp-form (local-expand #'form
332 'transparent-binding)]))
[all …]
/dports/graphics/xpdf/xpdf-4.03/xpdf-qt/
H A DXpdfViewer.cc3862 if (binding->context == xpdfKeyContextAny) { in createKeyBindingsHTML()
3866 if (binding->context & xpdfKeyContextFullScreen) { in createKeyBindingsHTML()
3870 if (binding->context & xpdfKeyContextWindow) { in createKeyBindingsHTML()
3874 if (binding->context & xpdfKeyContextContinuous) { in createKeyBindingsHTML()
3878 if (binding->context & xpdfKeyContextSinglePage) { in createKeyBindingsHTML()
3882 if (binding->context & xpdfKeyContextOverLink) { in createKeyBindingsHTML()
3886 if (binding->context & xpdfKeyContextOffLink) { in createKeyBindingsHTML()
3890 if (binding->context & xpdfKeyContextOutline) { in createKeyBindingsHTML()
3894 if (binding->context & xpdfKeyContextMainWin) { in createKeyBindingsHTML()
3898 if (binding->context & xpdfKeyContextScrLockOn) { in createKeyBindingsHTML()
[all …]
/dports/graphics/xpdf4/xpdf-4.03/xpdf-qt/
H A DXpdfViewer.cc3862 if (binding->context == xpdfKeyContextAny) { in createKeyBindingsHTML()
3866 if (binding->context & xpdfKeyContextFullScreen) { in createKeyBindingsHTML()
3870 if (binding->context & xpdfKeyContextWindow) { in createKeyBindingsHTML()
3874 if (binding->context & xpdfKeyContextContinuous) { in createKeyBindingsHTML()
3878 if (binding->context & xpdfKeyContextSinglePage) { in createKeyBindingsHTML()
3882 if (binding->context & xpdfKeyContextOverLink) { in createKeyBindingsHTML()
3886 if (binding->context & xpdfKeyContextOffLink) { in createKeyBindingsHTML()
3890 if (binding->context & xpdfKeyContextOutline) { in createKeyBindingsHTML()
3894 if (binding->context & xpdfKeyContextMainWin) { in createKeyBindingsHTML()
3898 if (binding->context & xpdfKeyContextScrLockOn) { in createKeyBindingsHTML()
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/scribble-doc/scribblings/scribble/
H A Dmanual.scrbl33 @secref["all-code"]) typeset code verbatim, adding a layer of color to
73 (code:line #:expand expand-expr)
74 (code:line #:context context-expr)
92 @racket[expand-expr]. If @racket[expand-expr] is omitted or produces
106 provided by @racket[context-expr]. The default @racket[context-expr]
151 (code:line #:expand expand-expr)
152 (code:line #:context context-expr)])
181 @defproc[(typeset-code [#:context context (or/c #f syntax?) #f]
182 [#:expand expand (or/c #f (syntax? . -> . syntax?)) #f]
739 name is used as the documented binding. This binding is assumed
[all …]
/dports/lang/mit-scheme/mit-scheme-9.2/doc/ref-manual/
H A Dspecial-forms.texi1881 Although macros may expand into definitions and syntax definitions in
1882 any context that permits them, it is an error for a definition or syntax
2143 A syntactic closure may be used in any context in which its form could
2591 transformers are implemented as an abstraction layer on top of syntactic
2764 * cond-expand (SRFI 0)::
2771 @subsection cond-expand (SRFI 0)
2780 @deffn {special form} cond-expand clause clause dots{}
2814 of the @code{cond-expand} form, and false otherwise. A
2820 (cond-expand
2827 (cond-expand
[all …]
/dports/lang/racket/racket-8.3/src/cs/
H A Dlinklet.sls39 compile-context-preservation-enabled
178 ;; a redundant layer of compression if `compress-code?`
277 (define (expand/optimize* e unsafe?)
313 ;; propagate table to the rumble layer
519 (define expand/optimize-linklet ; for testing
536 (define inline? (not (|#%app| compile-context-preservation-enabled)))
550 (and (not just-expand?)
638 [just-expand? (expand/optimize* impl unsafe?)]
1186 ;; Common case: one binding to set/check
1219 (define compile-context-preservation-enabled
[all …]

12345678910>>...56