| /dports/lang/racket/racket-8.3/src/expander/syntax/ |
| H A D | binding-table.rkt | 25 binding-table-add
26 binding-table-add-bulk
78 (bulk-binding-at scopes bulk))
82 (define-values (prop:bulk-binding bulk-binding? bulk-binding-ref)
91 ((bulk-binding-class-get-symbols (bulk-binding-ref b))
95 (bulk-binding-class-create (bulk-binding-ref b)))
111 (define (binding-table-add bt scopes sym binding just-for-nominal?)
117 (binding-table-add (table-with-bulk-bindings-syms bt)
133 [else (binding-table-add (table-with-bulk-bindings-syms/serialize bt)
146 (define (binding-table-add-bulk bt scopes bulk
[all …]
|
| H A D | bulk-binding.rkt | 4 "binding-table.rkt" ; defines `prop:bulk-binding`
16 bulk-binding
18 bulk-provides-add-prefix-remove-exceptions
87 (bulk-binding-class
93 (unless (bulk-binding-bulk-binding-registry b)
96 (define table (bulk-binding-registry-table (bulk-binding-bulk-binding-registry b)))
106 ;; Remove exceptions and add prefix
112 (bulk-provides-add-prefix-remove-exceptions provides prefix excepts)]
122 binding (if (bulk-binding-prefix b)
158 (define (bulk-provides-add-prefix-remove-exceptions provides prefix excepts)
[all …]
|
| H A D | scope.rkt | 39 add-binding-in-scopes!
40 add-bulk-binding-in-scopes!
206 (reach sc bulk-shifts)))))
236 (lambda (s bulk-shifts reach)
238 (reach (representative-scope-owner s) bulk-shifts))
267 (lambda (sms bulk-shifts reach)
268 (reach (shifted-multi-scope-multi-scope sms) bulk-shifts)))
875 (define (add-binding-in-scopes! scopes sym binding #:just-for-nominal? [just-for-nominal? #f])
877 (define bt (binding-table-add (scope-binding-table max-sc) scopes sym binding just-for-nominal?))
881 (define (add-bulk-binding-in-scopes! scopes bulk-binding
[all …]
|
| H A D | debug.rkt | 6 "binding-table.rkt"
8 "binding.rkt"
9 "module-binding.rkt"
29 (define (extract-binding b)
31 [(local-binding? b) (local-binding-key b)]
45 [(scs b) (in-binding-table sym (scope-binding-table sc) s null)]
54 (classify-binding b) (extract-binding b))
56 (set-add covered-scope-sets scs))))
59 ;; All other bindings (but not other bulk bindings, currently)
63 [(o-sym scs b) (in-full-non-bulk-binding-table (scope-binding-table sc))]
[all …]
|
| H A D | serialize.rkt | 27 (add-module-path-index!/pos mpis base-mpi)))
66 (define bulk-binding-registry (and (serialized-syntax-need-registry? data)
67 (namespace-bulk-binding-registry (current-namespace))))
68 (deserialize-data shifted-mpis #f bulk-binding-registry (serialized-syntax-data data)))
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
| H A D | binding-table.rkt | 25 binding-table-add
26 binding-table-add-bulk
78 (bulk-binding-at scopes bulk))
82 (define-values (prop:bulk-binding bulk-binding? bulk-binding-ref)
91 ((bulk-binding-class-get-symbols (bulk-binding-ref b))
95 (bulk-binding-class-create (bulk-binding-ref b)))
111 (define (binding-table-add bt scopes sym binding just-for-nominal?)
117 (binding-table-add (table-with-bulk-bindings-syms bt)
133 [else (binding-table-add (table-with-bulk-bindings-syms/serialize bt)
146 (define (binding-table-add-bulk bt scopes bulk
[all …]
|
| H A D | bulk-binding.rkt | 4 "binding-table.rkt" ; defines `prop:bulk-binding`
16 bulk-binding
18 bulk-provides-add-prefix-remove-exceptions
87 (bulk-binding-class
93 (unless (bulk-binding-bulk-binding-registry b)
96 (define table (bulk-binding-registry-table (bulk-binding-bulk-binding-registry b)))
106 ;; Remove exceptions and add prefix
112 (bulk-provides-add-prefix-remove-exceptions provides prefix excepts)]
122 binding (if (bulk-binding-prefix b)
158 (define (bulk-provides-add-prefix-remove-exceptions provides prefix excepts)
[all …]
|
| H A D | scope.rkt | 39 add-binding-in-scopes!
40 add-bulk-binding-in-scopes!
206 (reach sc bulk-shifts)))))
236 (lambda (s bulk-shifts reach)
238 (reach (representative-scope-owner s) bulk-shifts))
267 (lambda (sms bulk-shifts reach)
268 (reach (shifted-multi-scope-multi-scope sms) bulk-shifts)))
875 (define (add-binding-in-scopes! scopes sym binding #:just-for-nominal? [just-for-nominal? #f])
877 (define bt (binding-table-add (scope-binding-table max-sc) scopes sym binding just-for-nominal?))
881 (define (add-bulk-binding-in-scopes! scopes bulk-binding
[all …]
|
| H A D | debug.rkt | 6 "binding-table.rkt"
8 "binding.rkt"
9 "module-binding.rkt"
29 (define (extract-binding b)
31 [(local-binding? b) (local-binding-key b)]
45 [(scs b) (in-binding-table sym (scope-binding-table sc) s null)]
54 (classify-binding b) (extract-binding b))
56 (set-add covered-scope-sets scs))))
59 ;; All other bindings (but not other bulk bindings, currently)
63 [(o-sym scs b) (in-full-non-bulk-binding-table (scope-binding-table sc))]
[all …]
|
| H A D | serialize.rkt | 27 (add-module-path-index!/pos mpis base-mpi)))
66 (define bulk-binding-registry (and (serialized-syntax-need-registry? data)
67 (namespace-bulk-binding-registry (current-namespace))))
68 (deserialize-data shifted-mpis #f bulk-binding-registry (serialized-syntax-data data)))
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | require+provide.rkt | 11 "../syntax/bulk-binding.rkt"
32 add-bulk-required-ids!
136 (define (add-defined-or-required-id! r+p id phase+space binding
169 (define (add-bulk-required-ids! r+p s self nominal-module phase-level provides provide-phase+space
235 (define binding/p (hash-ref (bulk-required-provides br) out-sym))
237 (required (add-space-scope (datum->syntax (bulk-required-s br) sym)
282 (add-binding! id (like-ambiguous-binding) phase))
337 (add-binding! id (like-ambiguous-binding) phase)
395 (add-binding!
479 (add-binding! space-id (like-ambiguous-binding) phase))))))
[all …]
|
| H A D | require.rkt | 19 "../syntax/bulk-binding.rkt")
335 (add-bulk-required-ids! requires+provides
480 (not can-bulk?)) ;; bulk binding added later
482 (add-binding! (add-space-scope (datum->syntax in-stx sym) space) b phase))))))
483 ;; Add bulk binding after all filtering
485 (define bulk-binding-registry (namespace-bulk-binding-registry ns))
486 (add-bulk-binding! (add-space-scope in-stx space)
487 (bulk-binding (or (and (not bulk-prefix)
494 … (and (not (registered-bulk-provide? bulk-binding-registry
496 (bulk-provides-add-prefix-remove-exceptions
[all …]
|
| H A D | env.rkt | 32 add-binding!
33 add-bulk-binding!
34 add-local-binding!
36 binding-lookup
59 ;; If a variable binding corresponds to a local binding, substitute
93 (define (add-binding! id binding phase #:in [in-s #f] #:just-for-nominal? [just-for-nominal? #f])
95 (add-binding-in-scopes! (syntax-scope-set id phase) (syntax-e id) binding
98 (define (add-bulk-binding! s binding phase
103 (add-bulk-binding-in-scopes! (syntax-scope-set s phase) binding
107 (define (add-local-binding! id phase counter
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | require+provide.rkt | 11 "../syntax/bulk-binding.rkt"
32 add-bulk-required-ids!
136 (define (add-defined-or-required-id! r+p id phase+space binding
169 (define (add-bulk-required-ids! r+p s self nominal-module phase-level provides provide-phase+space
235 (define binding/p (hash-ref (bulk-required-provides br) out-sym))
237 (required (add-space-scope (datum->syntax (bulk-required-s br) sym)
282 (add-binding! id (like-ambiguous-binding) phase))
337 (add-binding! id (like-ambiguous-binding) phase)
395 (add-binding!
479 (add-binding! space-id (like-ambiguous-binding) phase))))))
[all …]
|
| H A D | require.rkt | 19 "../syntax/bulk-binding.rkt")
335 (add-bulk-required-ids! requires+provides
480 (not can-bulk?)) ;; bulk binding added later
482 (add-binding! (add-space-scope (datum->syntax in-stx sym) space) b phase))))))
483 ;; Add bulk binding after all filtering
485 (define bulk-binding-registry (namespace-bulk-binding-registry ns))
486 (add-bulk-binding! (add-space-scope in-stx space)
487 (bulk-binding (or (and (not bulk-prefix)
494 … (and (not (registered-bulk-provide? bulk-binding-registry
496 (bulk-provides-add-prefix-remove-exceptions
[all …]
|
| H A D | env.rkt | 32 add-binding!
33 add-bulk-binding!
34 add-local-binding!
36 binding-lookup
59 ;; If a variable binding corresponds to a local binding, substitute
93 (define (add-binding! id binding phase #:in [in-s #f] #:just-for-nominal? [just-for-nominal? #f])
95 (add-binding-in-scopes! (syntax-scope-set id phase) (syntax-e id) binding
98 (define (add-bulk-binding! s binding phase
103 (add-bulk-binding-in-scopes! (syntax-scope-set s phase) binding
107 (define (add-local-binding! id phase counter
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | serialize.rkt | 13 "../syntax/bulk-binding.rkt"
64 ;; - #:inspector and #:bulk-binding-registry refer to
730 (deserialize mpis inspector bulk-binding-registry
770 [(#:bulk-binding-registry) (values bulk-binding-registry (add1 pos))]
855 [(#:bulk-binding-at)
856 (decode* (deserialize-bulk-binding-at scopes bulk))]
873 [(#:bulk-binding)
874 …(decode* (deserialize-bulk-binding prefix excepts mpi provide-phase-level phase-shift bulk-binding…
877 [(#:bulk-binding+provides)
878 …(decode* (deserialize-bulk-binding+provides provides self prefix excepts mpi provide-phase-level p…
[all …]
|
| H A D | header.rkt | 18 add-syntax-literal!
19 add-syntax-literals!
77 (define (add-syntax-literal! header-or-literals q)
89 (define (add-syntax-literals! sl vec)
92 (add-syntax-literal! sl e))
116 (,deserialize-syntax-id ,bulk-binding-registry-id))))
150 ;; instance-specific. As an exception, however, a bulk-binding
153 ;; provide the same information for bulk bindings.
154 (lambda (,bulk-binding-registry-id)
192 ,(add-module-path-index! mpis self)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | serialize.rkt | 13 "../syntax/bulk-binding.rkt"
64 ;; - #:inspector and #:bulk-binding-registry refer to
730 (deserialize mpis inspector bulk-binding-registry
770 [(#:bulk-binding-registry) (values bulk-binding-registry (add1 pos))]
855 [(#:bulk-binding-at)
856 (decode* (deserialize-bulk-binding-at scopes bulk))]
873 [(#:bulk-binding)
874 …(decode* (deserialize-bulk-binding prefix excepts mpi provide-phase-level phase-shift bulk-binding…
877 [(#:bulk-binding+provides)
878 …(decode* (deserialize-bulk-binding+provides provides self prefix excepts mpi provide-phase-level p…
[all …]
|
| H A D | header.rkt | 18 add-syntax-literal!
19 add-syntax-literals!
77 (define (add-syntax-literal! header-or-literals q)
89 (define (add-syntax-literals! sl vec)
92 (add-syntax-literal! sl e))
116 (,deserialize-syntax-id ,bulk-binding-registry-id))))
150 ;; instance-specific. As an exception, however, a bulk-binding
153 ;; provide the same information for bulk bindings.
154 (lambda (,bulk-binding-registry-id)
192 ,(add-module-path-index! mpis self)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/namespace/ |
| H A D | core.rkt | 6 "../syntax/binding.rkt"
17 add-core-form!
18 add-core-primitive!
70 (void (add-core-form!* sym proc)))
72 (define (add-core-form!* sym proc)
73 (add-core-binding! sym)
79 (add-core-binding! sym)
86 (define (add-core-binding! sym)
87 (add-binding! (datum->syntax core-stx sym)
121 (lambda (data-box ns phase phase-level self bulk-binding-registry insp)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/namespace/ |
| H A D | core.rkt | 6 "../syntax/binding.rkt"
17 add-core-form!
18 add-core-primitive!
70 (void (add-core-form!* sym proc)))
72 (define (add-core-form!* sym proc)
73 (add-core-binding! sym)
79 (add-core-binding! sym)
86 (define (add-core-binding! sym)
87 (add-binding! (datum->syntax core-stx sym)
121 (lambda (data-box ns phase phase-level self bulk-binding-registry insp)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/bc/src/ |
| H A D | startup.inc | 7142 "(struct:bulk-binding-at bulk-binding-at2.1 bulk-binding-at? bulk-binding-at-scopes bulk-binding-at…
7262 "(binding-table-add-bulk.1)"
7265 " 'binding-table-add-bulk"
7297 "(binding-table-add-bulk.1 #f temp36_0 scopes37_0 bulk38_0))))))))))))"
10700 "(add-bulk-binding-in-scopes!.1)"
10703 " 'add-bulk-binding-in-scopes!"
10714 "(binding-table-add-bulk.1 shadow-except84_0 temp81_0 scopes82_0 bulk-binding83_0))))"
11987 " bulk-binding-bulk-binding-registry"
15673 "(add-bulk-binding!.1)"
15676 " 'add-bulk-binding!"
[all …]
|
| /dports/lang/racket/racket-8.3/src/bc/src/ |
| H A D | startup.inc | 7142 "(struct:bulk-binding-at bulk-binding-at2.1 bulk-binding-at? bulk-binding-at-scopes bulk-binding-at…
7262 "(binding-table-add-bulk.1)"
7265 " 'binding-table-add-bulk"
7297 "(binding-table-add-bulk.1 #f temp36_0 scopes37_0 bulk38_0))))))))))))"
10700 "(add-bulk-binding-in-scopes!.1)"
10703 " 'add-bulk-binding-in-scopes!"
10714 "(binding-table-add-bulk.1 shadow-except84_0 temp81_0 scopes82_0 bulk-binding83_0))))"
11987 " bulk-binding-bulk-binding-registry"
15673 "(add-bulk-binding!.1)"
15676 " 'add-bulk-binding!"
[all …]
|
| /dports/sysutils/usb_modeswitch/usb-modeswitch-2.6.0/ |
| H A D | ChangeLog | 48 ATTENTION: All ad-hoc driver binding code (using new_id driver attribute)
54 devices; add device class 239 ("miscellaneous") to sanity check (thanks to
55 Daniel Drake for reporting); udev shell script - removed driver binding,
132 usb_modeswitch_dispatcher is to add simple services or tasks and start
189 driver binding to avoid possible conflict with usb-storage
209 Moved warm-boot driver binding to sh wrapper, was unreliable in 1.1.5;
215 (driver binding for old systems); in the C program, changed parameter
223 the convenience functions for driver binding and symlinking will now
225 capabilities of said convenience functions; add loading of "usbserial"
227 add workaround for bug in libusb1 which affects device search during
[all …]
|