/dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
H A D | body.rkt | 43 (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 D | main.rkt | 53 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 D | expr.rkt | 48 (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 D | context.rkt | 7 "../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 D | syntax-id-error.rkt | 6 "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 D | provide.rkt | 9 "../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 D | local-expand.rkt | 7 "../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 D | body.rkt | 43 (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 D | main.rkt | 53 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 D | expr.rkt | 48 (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 D | context.rkt | 7 "../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 D | syntax-id-error.rkt | 6 "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 D | provide.rkt | 9 "../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 D | local-expand.rkt | 7 "../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 D | Layer.vala | 99 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 D | Artboard.vala | 87 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 D | startup.inc | 15930 " 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 D | startup.inc | 15930 " 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 D | syntax-model.scrbl | 147 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 D | package.rkt | 24 ;; 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 D | XpdfViewer.cc | 3862 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 D | XpdfViewer.cc | 3862 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 D | manual.scrbl | 33 @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 D | special-forms.texi | 1881 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 D | linklet.sls | 39 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 …]
|