Searched +refs:linklet +refs:directory +refs:ht (Results 1 – 22 of 22) sorted by relevance
7 (provide linklet-directory?10 hash->linklet-directory13 linklet-directory->hash16 (struct linklet-directory (ht)24 (struct linklet-bundle (ht)31 (define/who (hash->linklet-directory ht)47 (unless (linklet-directory? v)55 (linklet-directory ht))70 (linklet-bundle ht))73 (check who linklet-directory? ld)[all …]
11 ;; directory using labels |0|, |1|, etc., to map to the given linklet30 (define sequence-ht34 (compiled-in-memory-linklet-directory36 (define ht (if merge-serialization?37 (hash-set sequence-ht39 (hash->linklet-directory48 sequence-ht))49 (compiled-in-memory (hash->linklet-directory ht)64 ;; linklet directory into a list of linklet directories66 (define ht (linklet-directory->hash ld))[all …]
7 (provide read-linklet-bundle-or-directory)9 (define (read-linklet-bundle-or-directory in)10 (define (read-linklet-or-directory initial?)43 (define b-ht (if as-correlated-linklet?88 (list->bundle-directory accum hash->linklet-directory)]98 (read-linklet-or-directory #f)]107 (read-linklet-or-directory #t))136 (define (list->bundle-directory l hash->linklet-directory)164 (hash->linklet-directory accum)178 (hash->linklet-directory (if v[all …]
34 #:force-linklet-directory? [force-linklet-directory? #f]76 #:force-linklet-directory? force-linklet-directory?88 #:force-linklet-directory? force-linklet-directory?175 (and ht (hash-ref ht phase #f)))343 ;; Combine with submodules in a linklet directory348 (not force-linklet-directory?))352 (define ht354 (hash-set ht356 (compiled-in-memory-linklet-directory358 (hash->linklet-directory ht)]))[all …]
3 "../host/linklet.rkt"13 "linklet.rkt"43 #:to-correlated-linklet? [to-correlated-linklet? #f])75 #:to-correlated-linklet? to-correlated-linklet?87 (define (add-metadata ht)88 (let* ([ht (hash-set ht 'original-phase phase)]89 [ht (hash-set ht 'max-phase max-phase)])90 ht))93 (hash->linklet-bundle122 `(linklet[all …]
12 rebuild-linklet-directory13 compiled->linklet-directory-or-bundle)37 (define ld (compiled->linklet-directory-or-bundle c))40 (hash-ref (linklet-directory->hash ld) #f)))67 [linklet-directory (rebuild-linklet-directory77 [(linklet-directory? c)78 (hash->linklet-directory79 (for/hasheq ([(key val) (in-hash (linklet-directory->hash c))])96 (hash->linklet-directory100 [(hash-ref ht name #f)[all …]
33 [(linklet-directory? c)34 (define ht (linklet-directory->hash c))35 (define bh (linklet-bundle->hash (hash-ref ht #f)))38 (hash-ref ht name))]49 (or (linklet-bundle? (compiled->linklet-directory-or-bundle c))65 (define n-c (normalize-to-linklet-directory c))70 [linklet-directory (rebuild-linklet-directory72 … (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)82 (rebuild-linklet-directory84 (hash-ref (linklet-directory->hash (compiled->linklet-directory-or-bundle n-c)) #f)[all …]
141 ;; For "main.sps" to select the default ".zo" directory name:164 ;; "compiled" directory:970 (let ([ht (instance-hash inst)]972 (let ([raw-ht (hash->eq-hashtable ht)])984 (cons (or (eq-hashtable-ref raw-ht sym #f)1049 (let* ([ht (make-hasheq)]1050 [raw-ht (hash->eq-hashtable ht)] ; note: raw-ht isn't shared, yet1051 [inst (new-instance name data ht)]1254 (let ([ht (make-hasheq)])1255 (hash-set! ht 'id id) ...[all …]
53 [(linkl-directory? top)57 'linklet-directory60 (for/list ([(k v) (in-hash (linkl-directory-table top))])63 (define main (hash-ref (linkl-directory-table top) '() #f))106 (define ht (linkl-bundle-table l))107 (define phases (sort (for/list ([k (in-hash-keys ht)]120 `(module ,(hash-ref ht 'name 'unknown) ....128 (for/list ([(phase ht) (in-hash provides)])129 (phase-wrap phase (hash-keys ht)))))135 (decompile-linklet (hash-ref ht (car phases)) #:just-body? #t)[all …]
121 (define (read-linklet v)212 [(25) 'linklet-type]273 [19 linklet]463 (current-directory))])518 [(linklet)782 (define (remove-empty-root ht)784 (if (hash-ref ht '() #f)785 ht786 (hash-remove ht '())))787 (linkl-directory[all …]
30868 "(struct:linklet-directory linklet-directory1.1 linklet-directory?$1 linklet-directory-ht)"30873 " 'linklet-directory"30895 "(struct:linklet-bundle linklet-bundle2.1 1/linklet-bundle? linklet-bundle-ht)"31049 "(linklet-directory-ht ld_0)))))))"31061 "(linklet-bundle-ht ld_0)))))))"40849 "(if(linklet-directory?$1(compiled->linklet-directory-or-bundle c_0))"41193 "(linklet-directory->hash$1(compiled->linklet-directory-or-bundle n-c_0))"41369 "(let-values(((force-linklet-directory?_0) force-linklet-directory?1_0))"41472 "((force-linklet-directory?42_0) force-linklet-directory?_0)"41508 "(let-values(((force-linklet-directory?_0) force-linklet-directory?15_0))"[all …]
3 racket/linklet468 (define wrt-dir (or (current-load-relative-directory)469 (current-directory)))509 (define ht (constant-case516 (hash-set! ht (loop) (loop)))517 ht]519 (define ht (constant-case525 (for/fold ([ht ht]) ([j (in-range len)])526 (hash-set ht (loop) (loop)))]