| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | def-id.rkt | 36 (define (select-defined-syms-and-bind! ids defined-syms
43 (define defined-syms-at-phase
44 (or (hash-ref defined-syms phase #f) (let ([ht (make-hasheq)])
45 (hash-set! defined-syms phase ht)
50 …(if (and (not (defined-as-other? (hash-ref defined-syms-at-phase sym #f) id phase top-level-bind-s…
59 … (if (defined-as-other? (hash-ref defined-syms-at-phase s #f) id phase top-level-bind-scope)
62 (hash-set! defined-syms-at-phase defined-sym id)
89 (select-defined-syms-and-bind! tl-ids (root-expand-context-defined-syms ctx)
100 (or (hash-ref defined-syms phase #f) (let ([ht (make-hasheq)])
101 (hash-set! defined-syms phase ht)
[all …]
|
| H A D | require+provide.rkt | 37 add-defined-syms!
100 (hash-clear! (requires+provides-phase-to-defined-syms r+p))
351 (not (hash-ref (hash-ref (requires+provides-phase-to-defined-syms r+p)
483 (define phase-to-defined-syms (requires+provides-phase-to-defined-syms r+p))
484 (define defined-syms (hash-ref phase-to-defined-syms phase #hasheq()))
486 (for/fold ([defined-syms defined-syms]) ([sym (in-list syms)])
487 (hash-set defined-syms sym (if as-transformer? 'transformer 'variable))))
488 (hash-set! phase-to-defined-syms phase new-defined-syms))
492 (define phase-to-defined-syms (requires+provides-phase-to-defined-syms r+p))
493 (define defined-syms (hash-ref phase-to-defined-syms phase #hasheq()))
[all …]
|
| H A D | root-expand-context.rkt | 32 defined-syms ; phase -> sym -> id; symbols picked for bindings
53 (make-hasheqv) ; defined-syms
83 … (for/hasheqv ([(phase ht) (in-hash (root-expand-context-defined-syms ctx))]) ; make immutable
97 (defined-syms-hash? (syntax-e (vector-ref vec 4)))
110 (unpack-defined-syms (vector-ref vec 4)) ; defined-syms
115 (define (defined-syms-hash? v)
118 (hash? (syntax-e ht-s))
137 (define (unpack-defined-syms v)
138 (hash-copy ; make mutable
141 (hash-copy ; make mutable
[all …]
|
| H A D | require.rkt | 286 (define done-syms (and adjust (make-hash)))
369 (hash-set! done-syms sym #t)
377 (hash-set! done-syms sym #t)))
383 (hash-set! done-syms sym #t)
396 (check-not-defined #:check-not-required? #t
404 (unless (eq? bound-status 'defined)
405 (add-defined-or-required-id! requires+provides
409 ;; don't bind if 'defined (definition should shadow requires)
433 (not (= (set-count need-syms) (hash-count done-syms))))
435 (unless (hash-ref done-syms sym #f)
[all …]
|
| H A D | module.rkt | 175 (define defined-syms (root-expand-context-defined-syms root-ctx)) ; phase -> sym -> id
251 [defined-syms (make-hasheq)])
349 #:defined-syms defined-syms
711 #:defined-syms defined-syms
798 (define syms (select-defined-syms-and-bind! ids defined-syms
806 (add-defined-syms! requires+provides syms phase)
820 (define syms (select-defined-syms-and-bind! ids defined-syms
826 (add-defined-syms! requires+provides syms phase #:as-transformer? #t)
924 defined-syms requires+provides)
929 (select-defined-syms-and-bind! scoped-ids defined-syms
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | def-id.rkt | 36 (define (select-defined-syms-and-bind! ids defined-syms
43 (define defined-syms-at-phase
44 (or (hash-ref defined-syms phase #f) (let ([ht (make-hasheq)])
45 (hash-set! defined-syms phase ht)
50 …(if (and (not (defined-as-other? (hash-ref defined-syms-at-phase sym #f) id phase top-level-bind-s…
59 … (if (defined-as-other? (hash-ref defined-syms-at-phase s #f) id phase top-level-bind-scope)
62 (hash-set! defined-syms-at-phase defined-sym id)
89 (select-defined-syms-and-bind! tl-ids (root-expand-context-defined-syms ctx)
100 (or (hash-ref defined-syms phase #f) (let ([ht (make-hasheq)])
101 (hash-set! defined-syms phase ht)
[all …]
|
| H A D | require+provide.rkt | 37 add-defined-syms!
100 (hash-clear! (requires+provides-phase-to-defined-syms r+p))
351 (not (hash-ref (hash-ref (requires+provides-phase-to-defined-syms r+p)
483 (define phase-to-defined-syms (requires+provides-phase-to-defined-syms r+p))
484 (define defined-syms (hash-ref phase-to-defined-syms phase #hasheq()))
486 (for/fold ([defined-syms defined-syms]) ([sym (in-list syms)])
487 (hash-set defined-syms sym (if as-transformer? 'transformer 'variable))))
488 (hash-set! phase-to-defined-syms phase new-defined-syms))
492 (define phase-to-defined-syms (requires+provides-phase-to-defined-syms r+p))
493 (define defined-syms (hash-ref phase-to-defined-syms phase #hasheq()))
[all …]
|
| H A D | root-expand-context.rkt | 32 defined-syms ; phase -> sym -> id; symbols picked for bindings
53 (make-hasheqv) ; defined-syms
83 … (for/hasheqv ([(phase ht) (in-hash (root-expand-context-defined-syms ctx))]) ; make immutable
97 (defined-syms-hash? (syntax-e (vector-ref vec 4)))
110 (unpack-defined-syms (vector-ref vec 4)) ; defined-syms
115 (define (defined-syms-hash? v)
118 (hash? (syntax-e ht-s))
137 (define (unpack-defined-syms v)
138 (hash-copy ; make mutable
141 (hash-copy ; make mutable
[all …]
|
| H A D | require.rkt | 286 (define done-syms (and adjust (make-hash)))
369 (hash-set! done-syms sym #t)
377 (hash-set! done-syms sym #t)))
383 (hash-set! done-syms sym #t)
396 (check-not-defined #:check-not-required? #t
404 (unless (eq? bound-status 'defined)
405 (add-defined-or-required-id! requires+provides
409 ;; don't bind if 'defined (definition should shadow requires)
433 (not (= (set-count need-syms) (hash-count done-syms))))
435 (unless (hash-ref done-syms sym #f)
[all …]
|
| H A D | module.rkt | 175 (define defined-syms (root-expand-context-defined-syms root-ctx)) ; phase -> sym -> id
251 [defined-syms (make-hasheq)])
349 #:defined-syms defined-syms
711 #:defined-syms defined-syms
798 (define syms (select-defined-syms-and-bind! ids defined-syms
806 (add-defined-syms! requires+provides syms phase)
820 (define syms (select-defined-syms-and-bind! ids defined-syms
826 (add-defined-syms! requires+provides syms phase #:as-transformer? #t)
924 defined-syms requires+provides)
929 (select-defined-syms-and-bind! scoped-ids defined-syms
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/extract/ |
| H A D | gc-defn.rkt | 64 (unless (hash-ref used-syms sym #f)
65 (hash-set! used-syms sym #t)
87 (unless (hash-ref used-syms sym #f)
89 (hash-set! used-syms sym #t)))
91 ;; Afterward, these identifiers are defined.
96 (hash-set! seen-defns sym (known-defined)))]
102 (known-defined/delay
105 (hash-set! seen-defns sym (known-defined)))
126 (hash-ref used-syms sym #f))
130 (log-status "Can remove ~s of ~s defined names, keeping ~s"
[all …]
|
| H A D | defn-known.rkt | 13 (for ([s (in-list syms)])
14 (unless (hash-ref seen-defns s #f)
15 (hash-set! seen-defns s (known-defined))))
17 [(for/or ([s (in-list syms)])
25 (hash-set! seen-defns
26 (car syms)
36 (for ([sym (in-list syms)]
38 (hash-set! seen-defns sym
72 (for/hash ([arg (in-list args)])
73 (values arg (known-defined))))
[all …]
|
| H A D | simplify-defn.rkt | 32 ;; UNSOUND --- assume that variables are defined before use
47 [(? hash?) (seteq)]))
68 [e #:when (or (hash? e) (boolean? e) (number? e) (string? e) (bytes? e))
97 ;; UNSOUND --- assume that variables are defined before use
114 ;; UNSOUND --- assume that variables are defined before use
115 (not (hash-ref vars x #f))]
140 (not (any-side-effects? (defn-rhs e) (length (defn-syms e)) #:known-defns seen-defns))
143 (define (safe-ref? s) (hash-ref seen-defns s #f))
151 (hash-ref seen-defns (car (defn-syms d)) #f))
154 (add-defn-known! seen-defns all-mutated-vars (defn-syms d) (defn-rhs d)))
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/extract/ |
| H A D | gc-defn.rkt | 64 (unless (hash-ref used-syms sym #f)
65 (hash-set! used-syms sym #t)
87 (unless (hash-ref used-syms sym #f)
89 (hash-set! used-syms sym #t)))
91 ;; Afterward, these identifiers are defined.
96 (hash-set! seen-defns sym (known-defined)))]
102 (known-defined/delay
105 (hash-set! seen-defns sym (known-defined)))
126 (hash-ref used-syms sym #f))
130 (log-status "Can remove ~s of ~s defined names, keeping ~s"
[all …]
|
| H A D | defn-known.rkt | 13 (for ([s (in-list syms)])
14 (unless (hash-ref seen-defns s #f)
15 (hash-set! seen-defns s (known-defined))))
17 [(for/or ([s (in-list syms)])
25 (hash-set! seen-defns
26 (car syms)
36 (for ([sym (in-list syms)]
38 (hash-set! seen-defns sym
72 (for/hash ([arg (in-list args)])
73 (values arg (known-defined))))
[all …]
|
| H A D | simplify-defn.rkt | 32 ;; UNSOUND --- assume that variables are defined before use
47 [(? hash?) (seteq)]))
68 [e #:when (or (hash? e) (boolean? e) (number? e) (string? e) (bytes? e))
97 ;; UNSOUND --- assume that variables are defined before use
114 ;; UNSOUND --- assume that variables are defined before use
115 (not (hash-ref vars x #f))]
140 (not (any-side-effects? (defn-rhs e) (length (defn-syms e)) #:known-defns seen-defns))
143 (define (safe-ref? s) (hash-ref seen-defns s #f))
151 (hash-ref seen-defns (car (defn-syms d)) #f))
154 (add-defn-known! seen-defns all-mutated-vars (defn-syms d) (defn-rhs d)))
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/namespace/ |
| H A D | provide-for-api.rkt | 14 (eq? verbosity 'defined-names))
15 (raise-argument-error who "(or/c #f 'defined-names)" verbosity)))
18 (define defined-names? (eq? verbosity 'defined-names))
21 (for*/list ([(phase at-phase) (in-hash provides)]
23 (for/list ([(sym b/p) (in-hash at-phase)]
42 (if defined-names?
55 (for/list ([(phase vars) (in-hash all-vars)]
58 (let ([syms (hash-ref provides phase #hasheq())])
60 #:unless (hash-ref syms var-sym #f))
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/namespace/ |
| H A D | provide-for-api.rkt | 14 (eq? verbosity 'defined-names))
15 (raise-argument-error who "(or/c #f 'defined-names)" verbosity)))
18 (define defined-names? (eq? verbosity 'defined-names))
21 (for*/list ([(phase at-phase) (in-hash provides)]
23 (for/list ([(sym b/p) (in-hash at-phase)]
42 (if defined-names?
55 (for/list ([(phase vars) (in-hash all-vars)]
58 (let ([syms (hash-ref provides phase #hasheq())])
60 #:unless (hash-ref syms var-sym #f))
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | form.rkt | 69 (or (hash-ref phase-to-header phase #f)
71 (hash-set! phase-to-header phase header)
98 (register-as-defined! header def-sym))]
114 (define binding-syms (parsed-define-values-syms body))
133 #:defined? #t))]))
147 ;; Not in a module; ensure that the defined names are
164 (define binding-syms (parsed-define-syntaxes-syms body))
168 (register-as-defined! next-header gen-sym)
301 (for*/hash ([(phase l+mu*s) (in-hash body-linklets+module-use*s)]
323 ;; adjusts the binding of defined identifiers. This mingling of
[all …]
|
| H A D | header.rkt | 33 register-as-defined!
55 … define-and-import-syms ; hash of sym -> 'defined/'imported, to select distinct symbols
67 null ; binding-syms-in-order
71 (make-hasheq) ; define-and-import-syms
75 (make-hash))
232 (hash-ref (header-define-and-import-syms header) sym #f)))
237 #:defined? [defined? #f])
248 (hash-set! (header-define-and-import-syms header) sym (if defined? 'defined 'required))
258 (define (register-as-defined! header def-sym)
259 (hash-set! (header-define-and-import-syms header) def-sym 'defined))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | form.rkt | 69 (or (hash-ref phase-to-header phase #f)
71 (hash-set! phase-to-header phase header)
98 (register-as-defined! header def-sym))]
114 (define binding-syms (parsed-define-values-syms body))
133 #:defined? #t))]))
147 ;; Not in a module; ensure that the defined names are
164 (define binding-syms (parsed-define-syntaxes-syms body))
168 (register-as-defined! next-header gen-sym)
301 (for*/hash ([(phase l+mu*s) (in-hash body-linklets+module-use*s)]
323 ;; adjusts the binding of defined identifiers. This mingling of
[all …]
|
| H A D | header.rkt | 33 register-as-defined!
55 … define-and-import-syms ; hash of sym -> 'defined/'imported, to select distinct symbols
67 null ; binding-syms-in-order
71 (make-hasheq) ; define-and-import-syms
75 (make-hash))
232 (hash-ref (header-define-and-import-syms header) sym #f)))
237 #:defined? [defined? #f])
248 (hash-set! (header-define-and-import-syms header) sym (if defined? 'defined 'required))
258 (define (register-as-defined! header def-sym)
259 (hash-set! (header-define-and-import-syms header) def-sym 'defined))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/parser-tools-lib/parser-tools/private-yacc/ |
| H A D | input-file-parser.rkt | 23 (let ((empty-table (make-hash-table))
68 (prec-table (make-hash-table)))
110 (let* ((start-syms (map syntax-e start))
120 (format "End token ~a not defined as a token"
147 (format "non-terminal ~a defined multiple times"
300 (hash-table-get
338 (format "Start symbol ~a not defined as a non-terminal" ssym)
340 start start-syms)
342 (let* ((starts (map (lambda (x) (make-non-term (gensym) #f)) start-syms))
343 (end-non-terms (map (lambda (x) (make-non-term (gensym) #f)) start-syms))
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/eval/ |
| H A D | root-context.rkt | 44 (define defined-syms (root-expand-context-defined-syms root-ctx))
45 (for ([(phase linklet) (in-hash evaled-ld-h)])
52 (add-defined-sym! defined-syms phase sym id)))
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/eval/ |
| H A D | root-context.rkt | 44 (define defined-syms (root-expand-context-defined-syms root-ctx))
45 (for ([(phase linklet) (in-hash evaled-ld-h)])
52 (add-defined-sym! defined-syms phase sym id)))
|