| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | allowed-context.rkt | 6 "context.rkt"
11 not-in-this-expand-context?
12 avoid-current-expand-context)
27 (define (not-in-this-expand-context? t ctx)
29 (not (memq (context->symbol (expand-context-context ctx))
32 (define (context->symbol context)
34 context
37 (define (avoid-current-expand-context s t ctx)
41 (expand-context-phase ctx))
47 (context->symbol (expand-context-context ctx)))
[all …]
|
| H A D | context.rkt | 19 current-expand-context
20 get-current-expand-context
23 current-expand-observe
75 skip-visit-available?)) ; avoid instantiation cycles
143 (define-parameter-like current-expand-context #f)
145 (define (get-current-expand-context [who 'unexpected]
147 (or (force (current-expand-context))
154 #:with ([current-expand-context #f])
163 (define current-expand-observe (make-parameter #f
177 ;; current context
[all …]
|
| H A D | main.rkt | 232 " extra bindings or scopes in the current context")
308 ;; in the current context, whether to expand just once, etc.
313 (define adj-s (avoid-current-expand-context (substitute-alternate-id s id) t ctx))
388 ;; Call the transformer; the current expansion context may be needed
438 #:with ([current-expand-context m-ctx]
439 [current-module-code-inspector (or insp-of-t #;(current-module-code-inspector))])
476 (and current-frame-id
707 #:with ([current-expand-context ctx])
808 #:with ([current-expand-context ctx])
812 ;; current expansion context is available while installing a
[all …]
|
| H A D | module.rkt | 49 (unless (eq? (expand-context-context ctx) 'top-level)
66 (unless (eq? (expand-context-context ctx) 'module-begin)
75 (struct*-copy expand-context ctx
158 (define ctx (struct*-copy expand-context (copy-root-expand-context init-ctx root-ctx)
182 ;; compiled form to possibly avoid compiling again.
220 ;; current module's body
414 ;; Create a new namespace to avoid retaining the instance that
696 (current-code-inspector)))))
1200 (parameterize ([current-namespace m-ns]
1366 #:with ([current-expand-context ctx])
[all …]
|
| H A D | expr.rkt | 37 (define phase (expand-context-phase ctx))
85 (if (expand-context-to-parsed? ctx)
97 (define ctx (get-current-expand-context #:fail-ok? #t))
130 (if (expand-context-to-parsed? ctx)
379 (if (expand-context-to-parsed? ctx)
560 (define context (expand-context-context ctx))
594 #:out-of-context-as-variable? (expand-context-in-local-expand? ctx)))
708 …(expand (avoid-current-expand-context (substitute-set!-rename s (m 'set!) (m 'rhs) id from-rename?…
719 …(expand (avoid-current-expand-context (substitute-set!-rename s (m 'set!) (m 'rhs) id from-rename?…
785 [(or (and (expand-context-in-local-expand? ctx)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | allowed-context.rkt | 6 "context.rkt"
11 not-in-this-expand-context?
12 avoid-current-expand-context)
27 (define (not-in-this-expand-context? t ctx)
29 (not (memq (context->symbol (expand-context-context ctx))
32 (define (context->symbol context)
34 context
37 (define (avoid-current-expand-context s t ctx)
41 (expand-context-phase ctx))
47 (context->symbol (expand-context-context ctx)))
[all …]
|
| H A D | context.rkt | 19 current-expand-context
20 get-current-expand-context
23 current-expand-observe
75 skip-visit-available?)) ; avoid instantiation cycles
143 (define-parameter-like current-expand-context #f)
145 (define (get-current-expand-context [who 'unexpected]
147 (or (force (current-expand-context))
154 #:with ([current-expand-context #f])
163 (define current-expand-observe (make-parameter #f
177 ;; current context
[all …]
|
| H A D | main.rkt | 232 " extra bindings or scopes in the current context")
308 ;; in the current context, whether to expand just once, etc.
313 (define adj-s (avoid-current-expand-context (substitute-alternate-id s id) t ctx))
388 ;; Call the transformer; the current expansion context may be needed
438 #:with ([current-expand-context m-ctx]
439 [current-module-code-inspector (or insp-of-t #;(current-module-code-inspector))])
476 (and current-frame-id
707 #:with ([current-expand-context ctx])
808 #:with ([current-expand-context ctx])
812 ;; current expansion context is available while installing a
[all …]
|
| H A D | module.rkt | 49 (unless (eq? (expand-context-context ctx) 'top-level)
66 (unless (eq? (expand-context-context ctx) 'module-begin)
75 (struct*-copy expand-context ctx
158 (define ctx (struct*-copy expand-context (copy-root-expand-context init-ctx root-ctx)
182 ;; compiled form to possibly avoid compiling again.
220 ;; current module's body
414 ;; Create a new namespace to avoid retaining the instance that
696 (current-code-inspector)))))
1200 (parameterize ([current-namespace m-ns]
1366 #:with ([current-expand-context ctx])
[all …]
|
| H A D | expr.rkt | 37 (define phase (expand-context-phase ctx))
85 (if (expand-context-to-parsed? ctx)
97 (define ctx (get-current-expand-context #:fail-ok? #t))
130 (if (expand-context-to-parsed? ctx)
379 (if (expand-context-to-parsed? ctx)
560 (define context (expand-context-context ctx))
594 #:out-of-context-as-variable? (expand-context-in-local-expand? ctx)))
708 …(expand (avoid-current-expand-context (substitute-set!-rename s (m 'set!) (m 'rhs) id from-rename?…
719 …(expand (avoid-current-expand-context (substitute-set!-rename s (m 'set!) (m 'rhs) id from-rename?…
785 [(or (and (expand-context-in-local-expand? ctx)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/guide/ |
| H A D | syntax-taints.scrbl | 8 of a macro defined in the module can expand into a reference of an
11 context, because using the identifier in a different context may break
23 (code:comment @#,t{to avoid disaster, @racket[n] must be a number})
40 changing the current @tech{code inspector} by setting the
41 @racket[current-code-inspector] parameter. @margin-note*{See also
44 @racket[module->namespace]. The current code inspector also gates
49 protected bindings, macro functions like @racket[local-expand] are
52 code inspector is the current code inspector. Functions like
53 @racket[expand], which are not used to implement macros but are used
57 @racket[expand] accept an optional inspector argument that determines
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/ |
| H A D | tc-setup.rkt | 21 (provide maybe-optimize init-current-type-names
26 ;; Check whether the current code inspector has sufficient
34 ;; only if the current module requested optimization,
36 ;; current code inspector has sufficient privileges
48 (define (init-current-type-names)
58 (define (tc-setup orig-stx stx expand-ctxt do-expand stop-forms k #:delay-errors? [delay-errors^? #…
59 (set-box! typed-context? #t)
69 ;; this is a parameter to avoid dependency issues
70 [current-type-names (init-current-type-names)]
74 (define expanded-stx (disarm* (do-expand stx expand-ctxt stop-forms)))
[all …]
|
| /dports/lang/racket/racket-8.3/collects/syntax/ |
| H A D | macro-testing.rkt | 4 syntax/strip-context
15 (current-continuation-marks)
16 ;; Lexical context must be stripped to avoid "unsealed local-definition context
19 #,(with-syntax ([(expr ...) (map strip-context (exn:fail:syntax-exprs e))])
26 (current-continuation-marks))))]
29 (current-continuation-marks)))])))
32 (if (eq? (syntax-local-context) 'expression)
41 #:context stx))
64 (if (eq? (syntax-local-context) 'expression)
72 (local-expand #'expr 'expression null))])
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/ |
| H A D | macro-testing.rkt | 4 syntax/strip-context
15 (current-continuation-marks)
16 ;; Lexical context must be stripped to avoid "unsealed local-definition context
19 #,(with-syntax ([(expr ...) (map strip-context (exn:fail:syntax-exprs e))])
26 (current-continuation-marks))))]
29 (current-continuation-marks)))])))
32 (if (eq? (syntax-local-context) 'expression)
41 #:context stx))
64 (if (eq? (syntax-local-context) 'expression)
72 (local-expand #'expr 'expression null))])
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/eval/ |
| H A D | module.rkt | 18 "../expand/context.rkt"
19 "../expand/root-expand-context.rkt"
103 (define create-root-expand-context-from-module ; might be used to create root-expand-context
104 (make-create-root-expand-context-from-module requires phases-h))
123 ;; Dummy callback to avoid retaining anything:
224 #:with ([current-expand-context (delay (make-expand-context
264 create-root-expand-context-from-module)
294 (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context
297 ;; Root expand context has been preserved; deserialize it on demand
298 (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/eval/ |
| H A D | module.rkt | 18 "../expand/context.rkt"
19 "../expand/root-expand-context.rkt"
103 (define create-root-expand-context-from-module ; might be used to create root-expand-context
104 (make-create-root-expand-context-from-module requires phases-h))
123 ;; Dummy callback to avoid retaining anything:
224 #:with ([current-expand-context (delay (make-expand-context
264 create-root-expand-context-from-module)
294 (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context
297 ;; Root expand context has been preserved; deserialize it on demand
298 (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context
[all …]
|
| /dports/games/craft/Craft-1.0fbsd/deps/glfw/docs/ |
| H A D | context.dox | 3 @page context Context handling guide
23 what kind of context is created. See
27 @section context_current Current context
29 Before you can use the OpenGL or OpenGL ES APIs, you need to have a current
30 context of the proper type. The context encapsulates all render state and all
33 Note that a context can only be current for a single thread at a time, and
36 A context is made current with @ref glfwMakeContextCurrent.
42 The current context is returned by @ref glfwGetCurrentContext.
58 expand upon the OpenGL standard before that functionality is included in a new
109 // The extension is supported by the current context
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/bc/src/ |
| H A D | startup.inc | 40181 " current-expand-context"
43747 " current-expand-context"
44560 "(avoid-current-expand-context)"
45550 "(avoid-current-expand-context(substitute-alternate-id s_0 id_0) t_0 ctx_0)))"
45771 " current-expand-context"
46358 " current-expand-context"
46551 " current-expand-context"
48855 " current-expand-context"
65735 " current-expand-context"
76355 "(avoid-current-expand-context"
[all …]
|
| /dports/lang/racket/racket-8.3/src/bc/src/ |
| H A D | startup.inc | 40181 " current-expand-context"
43747 " current-expand-context"
44560 "(avoid-current-expand-context)"
45550 "(avoid-current-expand-context(substitute-alternate-id s_0 id_0) t_0 ctx_0)))"
45771 " current-expand-context"
46358 " current-expand-context"
46551 " current-expand-context"
48855 " current-expand-context"
65735 " current-expand-context"
76355 "(avoid-current-expand-context"
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | stx-trans.scrbl | 298 binding but no binding in the current expansion context, the variable is left as-is (as opposed to
323 use-site scopes are recorded with the current expand context.
508 The @racket[context-v] argument is as in @racket[local-expand], and the
712 @racket[local-expand] or as reported by @racket[syntax-local-context],
889 for caching lift information to avoid redundant lifts.
923 eventually expanded in an expression context. If the current expression being
990 @tech{syntax transformer} call. See @secref["expand-context-model"]
1061 the current expansion context's module or top-level namespace. The
1078 in the current expansion context or could bind any identifier obtained
1145 scopes created during expansion in the current expansion context.
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/private/ |
| H A D | with-types.rkt | 50 (define old-context (unbox typed-context?))
51 (unless (not old-context)
53 (set-box! typed-context? #t)
75 (wt-expand #'(let () . body) ctx))
79 (wt-expand #'(let () (begin (: id ty) ... body ... (values id ...))) ctx))))
83 ;; this is a parameter to avoid dependency issues
84 [current-type-names
102 (set-box! typed-context? old-context)
148 (define (wt-expand stx ctx)
149 (syntax-parse (local-expand/capture* stx ctx null)
[all …]
|
| /dports/net/goreplay/goreplay-1.2.0/docs/css/ |
| H A D | fabric.css | 342 page-break-inside: avoid
351 page-break-inside: avoid
371 page-break-after: avoid
379 .wy-menu-vertical li.current>a span.toctree-expand:before,
459 .wy-menu-vertical li.current>a span.toctree-expand,
584 .wy-menu-vertical li.current>a span.toctree-expand,
638 .wy-menu-vertical li.current>a span.toctree-expand,
671 .btn .wy-menu-vertical li.current>a span.toctree-expand,
672 .wy-menu-vertical li.current>a .btn span.toctree-expand,
701 .nav .wy-menu-vertical li.current>a span.toctree-expand,
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/lang/ |
| H A D | run-teaching-program.rkt | 15 [expand-teaching-program (->* (input-port?
41 (define (expand-teaching-program port reader language-module teachpacks [module-name '#%htdp] [enab…
58 (expand mod))])
62 (expand
66 (#%module-begin ; avoid problems with macros in a 'module-begin context
95 (current-namespace (module->namespace ''#,module-name))))))))
|
| /dports/shells/zsh/zsh-5.8.1/Completion/Zsh/Command/ |
| H A D | _zstyle | 27 avoid-completer c:completer
44 expand c:
422 correct-word expand-word expand-alias-word history-words
542 … _wanted values expl 'ignore strings on the line' compadd true false current current-shown other
596 (user-context)
609 'b[the current branch]' \
611 'i[current revision no/id]' \
626 'b[the current branch]' \
627 'r[current revision number]'
637 'h[current revision hash (global)]' \
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | form.rkt | 11 "../expand/root-expand-context.rkt"
12 "../expand/parsed.rkt"
42 … #:encoded-root-expand-ctx-box [encoded-root-expand-ctx-box #f] ; encoded root context, if any
85 ;; rename locals as needed to avoid these names
216 ;; Register root-expand-context, if any, encoded as a syntax object;
218 (define encoded-root-expand-pos
219 (and encoded-root-expand-ctx-box
318 encoded-root-expand-pos))
333 (define top-level-bind-scope (root-expand-context-top-level-bind-scope
352 ;; the current namespace into a syntax object
[all …]
|