| /dports/lang/racket/racket-8.3/src/expander/common/ |
| H A D | intern.rkt | 3 (provide make-weak-intern-table
4 weak-intern!)
12 (struct weak-intern-table (box)
14 (struct table (ht ; integer[hash code] -> list of weak boxes
19 (define (make-weak-intern-table)
20 (weak-intern-table (box (table (hasheqv) 0 128))))
23 (define b (weak-intern-table-box tt))
78 (struct val (key other)
85 (define tt (make-weak-intern-table))
109 (define t (unbox (weak-intern-table-box tt)))
[all …]
|
| H A D | module-path.rkt | 9 "intern.rkt")
49 (module+ for-intern
50 (provide (struct-out module-path-index)))
54 (struct resolved-module-path (name)
59 ;; interning table
106 (define resolved-module-paths (make-weak-intern-table))
126 (weak-intern! resolved-module-paths (resolved-module-path p)))
140 (struct module-path-index (path base [resolved #:mutable] [shift-cache #:mutable])
308 ;; the table locked
355 (define v (weak-box-value wb))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/common/ |
| H A D | intern.rkt | 3 (provide make-weak-intern-table
4 weak-intern!)
12 (struct weak-intern-table (box)
14 (struct table (ht ; integer[hash code] -> list of weak boxes
19 (define (make-weak-intern-table)
20 (weak-intern-table (box (table (hasheqv) 0 128))))
23 (define b (weak-intern-table-box tt))
78 (struct val (key other)
85 (define tt (make-weak-intern-table))
109 (define t (unbox (weak-intern-table-box tt)))
[all …]
|
| H A D | module-path.rkt | 9 "intern.rkt")
49 (module+ for-intern
50 (provide (struct-out module-path-index)))
54 (struct resolved-module-path (name)
59 ;; interning table
106 (define resolved-module-paths (make-weak-intern-table))
126 (weak-intern! resolved-module-paths (resolved-module-path p)))
140 (struct module-path-index (path base [resolved #:mutable] [shift-cache #:mutable])
308 ;; the table locked
355 (define v (weak-box-value wb))
[all …]
|
| /dports/security/arti/arti-9d0ede26801cdb182daa85c3eb5f0058dc178eb6/cargo-crates/weak-table-0.3.0/ |
| H A D | README.md | 1 # weak-table: weak hash maps and sets for Rust
3 …[Build Status](https://travis-ci.org/tov/weak-table-rs.svg?branch=master)](https://travis-ci.org/t…
4 …Crates.io](https://img.shields.io/crates/v/weak-table.svg?maxAge=2592000)](https://crates.io/crate…
7 This crate defines several kinds of weak hash maps and sets. See
8 the [full API documentation](http://docs.rs/weak-table/) for details.
50 pub struct Symbol(Rc<str>);
68 pub struct SymbolTable(WeakHashSet<Weak<str>>);
75 pub fn intern(&mut self, name: &str) -> Symbol {
90 let a0 = tab.intern("a");
91 let a1 = tab.intern("a");
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/private/ |
| H A D | custom-hash.rkt | 170 (define intern (custom-spec-intern spec))
172 (define e (hash-ref intern key #f))
176 (hash-set! intern key (make-ephemeron key wrapped-key))
196 [(hash-weak? table) (weak-custom-hash (custom-hash-spec d) table)]
206 (struct custom-key [contents])
208 (struct custom-spec [key? wrap intern])
210 (struct custom-hash [spec table]
227 (struct immutable-custom-hash custom-hash []
248 (struct imperative-custom-hash custom-hash []
272 (struct weak-custom-hash imperative-custom-hash [])
[all …]
|
| H A D | set-types.rkt | 315 (define intern (custom-spec-intern spec))
317 (hash-ref! intern x
342 [(hash-weak? table) (weak-custom-set (custom-set-spec s) table)]
415 (apply chaperone-struct without-props struct:immutable-custom-set prop-args)]
417 (apply chaperone-struct without-props struct:weak-custom-set prop-args)]
419 (apply chaperone-struct without-props struct:mutable-custom-set prop-args)]))
566 [(hash-weak? table) "weak-"]
653 (struct custom-spec [elem? wrap intern])
655 (serializable-struct custom-set [spec table]
761 (serializable-struct weak-custom-set imperative-custom-set [])
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
| H A D | custom-hash.rkt | 170 (define intern (custom-spec-intern spec))
172 (define e (hash-ref intern key #f))
176 (hash-set! intern key (make-ephemeron key wrapped-key))
196 [(hash-weak? table) (weak-custom-hash (custom-hash-spec d) table)]
206 (struct custom-key [contents])
208 (struct custom-spec [key? wrap intern])
210 (struct custom-hash [spec table]
227 (struct immutable-custom-hash custom-hash []
248 (struct imperative-custom-hash custom-hash []
272 (struct weak-custom-hash imperative-custom-hash [])
[all …]
|
| H A D | set-types.rkt | 315 (define intern (custom-spec-intern spec))
317 (hash-ref! intern x
342 [(hash-weak? table) (weak-custom-set (custom-set-spec s) table)]
415 (apply chaperone-struct without-props struct:immutable-custom-set prop-args)]
417 (apply chaperone-struct without-props struct:weak-custom-set prop-args)]
419 (apply chaperone-struct without-props struct:mutable-custom-set prop-args)]))
566 [(hash-weak? table) "weak-"]
653 (struct custom-spec [elem? wrap intern])
655 (serializable-struct custom-set [spec table]
761 (serializable-struct weak-custom-set imperative-custom-set [])
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/rep/ |
| H A D | rep-utils.rkt | 72 (define normal-id-table (make-free-id-table))
82 [(free-id-table-ref normal-id-table id #f)]
89 (free-id-table-set! normal-id-table id id)
120 (define-simple-macro (intern-single-ref! table-exp:expr
123 (let ([table table-exp])
125 (define intern-box (hash-ref table key #f))
127 [(and intern-box (weak-box-value intern-box #f))]
130 (hash-set! table key (make-weak-box val))
134 ;; see 'intern-single-ref!'
135 (define-simple-macro (intern-double-ref! table:id
[all …]
|
| H A D | object-rep.rkt | 67 (define/provide (-struct-idx-of t idx o)
93 (intern-double-ref!
94 Path-intern-table
97 (intern-double-ref!
98 Path-intern-table
102 (intern-double-ref!
103 Path-intern-table
108 (define Path-intern-table (make-weak-hash))
212 (intern-double-ref!
213 LExp-intern-table
[all …]
|
| H A D | type-rep.rkt | 25 syntax/id-table
134 (define Name-table (make-free-id-table))
149 (free-id-table-ref! Name-table id (λ () (make-Name id args struct?)))])
360 [#:mask mask:weak-hash]
364 [#:mask mask:weak-hash])
951 [_ (intern-double-ref!
952 union-intern-table
958 (define union-intern-table (make-weak-hash))
1085 (intern-double-ref!
1086 intersection-table
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/stepper/private/ |
| H A D | shared.rkt | 35 struct-flag
42 re-intern-identifier
45 (struct-out annotated-proc)
60 (define-struct *unevaluated-struct* ())
64 (define struct-flag (gensym "struct-flag-"))
72 (define-values (closure-table-put! closure-table-lookup in-closure-table)
73 (let ([closure-table (make-weak-hash)])
293 ;; re-intern-identifier : (identifier? -> identifier?)
297 (define (re-intern-identifier identifier)
336 (define finished-xml-box-table (make-weak-hash))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
| H A D | syntax.rkt | 16 (struct-out syntax) ; includes `syntax?`
23 (struct-out modified-content)
90 (intern-properties
101 (intern-context-triple (intern-scopes (syntax-scopes s) state)
103 (intern-mpi-shifts (syntax-mpi-shifts s) state)
209 (unsafe-struct*-cas! stx 0 old new))
242 (define-place-local known-syntax-pairs (make-weak-hasheq))
271 (let ([content (datum-intern-literal content)])
286 (struct-copy syntax result-s
301 ;; The optional `seen` argument is an `eq?`-based immutable hash table
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/syntax/ |
| H A D | syntax.rkt | 16 (struct-out syntax) ; includes `syntax?`
23 (struct-out modified-content)
90 (intern-properties
101 (intern-context-triple (intern-scopes (syntax-scopes s) state)
103 (intern-mpi-shifts (syntax-mpi-shifts s) state)
209 (unsafe-struct*-cas! stx 0 old new))
242 (define-place-local known-syntax-pairs (make-weak-hasheq))
271 (let ([content (datum-intern-literal content)])
286 (struct-copy syntax result-s
301 ;; The optional `seen` argument is an `eq?`-based immutable hash table
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/ |
| H A D | rumble.sls | 273 make-weak-hash make-weak-hasheq make-weak-hasheqv
286 unsafe-weak-hash-iterate-first unsafe-weak-hash-iterate-next
287 unsafe-weak-hash-iterate-key unsafe-weak-hash-iterate-value
288 unsafe-weak-hash-iterate-key+value unsafe-weak-hash-iterate-pair
294 hash? hash-eq? hash-equal? hash-eqv? hash-strong? hash-weak? hash-ephemeron?
300 datum-intern-literal
301 set-intern-regexp?! ; not exported to racket
376 make-weak-box weak-box? weak-box-value
629 unsafe-get-place-table
646 make-array-type make-cstruct-type make-ctype make-late-weak-box make-late-weak-hasheq
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/ |
| H A D | rumble.sls | 273 make-weak-hash make-weak-hasheq make-weak-hasheqv
286 unsafe-weak-hash-iterate-first unsafe-weak-hash-iterate-next
287 unsafe-weak-hash-iterate-key unsafe-weak-hash-iterate-value
288 unsafe-weak-hash-iterate-key+value unsafe-weak-hash-iterate-pair
294 hash? hash-eq? hash-equal? hash-eqv? hash-strong? hash-weak? hash-ephemeron?
300 datum-intern-literal
301 set-intern-regexp?! ; not exported to racket
376 make-weak-box weak-box? weak-box-value
629 unsafe-get-place-table
646 make-array-type make-cstruct-type make-ctype make-late-weak-box make-late-weak-hasheq
[all …]
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/util/ |
| H A D | gaol.jl | 69 intern lambda last length let let* letrec list list* listp logand logior
103 ;; make-table make-weak-table string-hash symbol-hash eq-hash
104 ;; equal-hash tablep table-ref table-set table-unset table-walk
106 downcase-table flatten-table upcase-table operating-system
109 ;; table containing all variables accessible by gaolled code
188 (define (gaol-open struct)
190 (eval `(,open-structures '(,struct)) gaol-structure))
194 (define (load-in filename struct)
200 (eval (read file) struct)))
|
| /dports/lang/racket/racket-8.3/share/pkgs/scribble-lib/scribble/ |
| H A D | racket.rkt | 144 (define id-element-cache (make-weak-hash))
145 (define element-cache (make-weak-hash))
164 (weak-box-value b))))
169 (let ([tag (intern-taglet tag)])
189 (intern-taglet key))])
199 (or (and b (weak-box-value b))
225 [(str val) (datum-intern-literal (format str val))]
226 [(str . vals) (datum-intern-literal (apply format str vals))]))
766 (out (if equal-table?
768 (if eqv-table?
[all …]
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/doc/ |
| H A D | Symbol-Table.text | 266 char-code-limit-table
290 array-limit-table
292 array-limit-table
634 weak-list
636 weak-list
638 weak-list
640 weak-list
678 weak-alist
780 def-c-struct
858 c-struct
[all …]
|
| /dports/editors/emacs/emacs-27.2/doc/lispref/ |
| H A D | internals.texi | 62 @table @samp
97 @end table
353 @c ??? Maybe add something describing weak hash tables here?
425 @table @var
516 @end table
876 @end table
878 @end table
976 @end table
1383 @acronym{API} function @code{intern} (@pxref{intern}) whose pointer is
1903 @anchor{intern}
[all …]
|
| /dports/lang/racket/racket-8.3/src/cs/primitive/ |
| H A D | kernel.ss | 2 ;; This table omits anything that the expander implements itself,
4 ;; `kernel-table` variant.
6 (define-primitive-table kernel-table
272 [datum-intern-literal (known-procedure/no-prompt 2)]
435 [hash-weak? (known-procedure/single-valued 2)]
552 [make-weak-box (known-procedure/allocates 2)]
554 [make-weak-hasheq (known-procedure/no-prompt 3)]
555 [make-weak-hasheqv (known-procedure/no-prompt 3)]
659 [print-hash-table (known-procedure/succeeds 3)]
981 [weak-box-value (known-procedure/no-prompt 6)]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/primitive/ |
| H A D | kernel.ss | 2 ;; This table omits anything that the expander implements itself,
4 ;; `kernel-table` variant.
6 (define-primitive-table kernel-table
272 [datum-intern-literal (known-procedure/no-prompt 2)]
435 [hash-weak? (known-procedure/single-valued 2)]
552 [make-weak-box (known-procedure/allocates 2)]
554 [make-weak-hasheq (known-procedure/no-prompt 3)]
555 [make-weak-hasheqv (known-procedure/no-prompt 3)]
659 [print-hash-table (known-procedure/succeeds 3)]
981 [weak-box-value (known-procedure/no-prompt 6)]
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/doc/lispref/ |
| H A D | internals.texi | 62 @table @samp
97 @end table
365 @c ??? Maybe add something describing weak hash tables here?
437 @table @var
528 @end table
901 @end table
903 @end table
1001 @end table
1413 @acronym{API} function @code{intern} (@pxref{intern}) whose pointer is
2011 @anchor{intern}
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/run/ |
| H A D | linklet.rkt | 51 (struct linklet () #:prefab)
53 (struct source-linklet linklet (src) #:prefab)
122 (define (primitive-table name)
142 (struct variable-reference (instance primitive-varref))
183 (namespace-set-variable-value! 'fasl->s-exp/intern (lambda (v)
184 (fasl->s-exp v #:datum-intern? #t))))
364 ;; Normal mode: compiled to struct
373 (define eval-cache (make-weak-hasheq))
426 (struct path-bytes (bstr) #:prefab)
427 (struct unreadable (str) #:prefab)
[all …]
|