Searched +refs:correlated +refs:linklet +refs:vm +refs:bytes (Results 1 – 11 of 11) sorted by relevance
4 "correlated-linklet.rkt")9 (define (write-linklet-bundle b as-correlated-linklet? linklet-bundle->hash port)19 (let ([vm-bytes (if as-correlated-linklet?20 correlated-linklet-vm-bytes23 (write-bytes vm-bytes port))27 (if as-correlated-linklet?31 (define (linklet-bundle->bytes b as-correlated-linklet? linklet-bundle->hash)33 (write-linklet-bundle b as-correlated-linklet? linklet-bundle->hash o)55 (let ([vm-bytes (if as-correlated-linklet?56 correlated-linklet-vm-bytes[all …]
5 "correlated-linklet.rkt")25 (define vm-len (min 63 (read-byte in)))26 (define vm (read-bytes vm-len in))27 (define as-correlated-linklet? (equal? vm correlated-linklet-vm-bytes))28 (unless (or as-correlated-linklet?29 (equal? vm vm-bytes))32 "expected" (bytes->string/utf-8 vm-bytes)33 "found" (bytes->string/utf-8 vm #\?)43 (define b-ht (if as-correlated-linklet?44 (read-correlated-linklet-bundle-hash in)[all …]
6 (provide correlated-linklet?7 make-correlated-linklet9 correlated-linklet-expr10 correlated-linklet-name15 correlated-linklet-vm-bytes29 [(correlated-linklet? l)40 [(correlated-linklet? l)44 (compile-linklet (correlated-linklet-expr l)54 (define correlated-linklet-vm-bytes #"linklet")104 (faslable-correlated-linklet (->faslable (correlated-linklet-expr v))[all …]
2 (require racket/linklet11 ffi/unsafe/vm90 [(faslable-correlated-linklet? top)91 (strip-correlated (faslable-correlated-linklet-expr top))]219 [(struct faslable-correlated-linklet (expr name))220 (match (strip-correlated expr)224 (case (system-type 'vm)226 (define-values (fmt code literals) ((vm-primitive 'linklet-fasled-code+arguments) l))238 #:length ,(bytes-length code)269 [(struct faslable-correlated-linklet (expr name))[all …]
30086 "(define-values(vm-bytes$1)(1/linklet-virtual-machine-bytes))"30200 " (define-values (correlated-linklet-vm-bytes) #\"linklet\")"30580 "(let-values(((vm-bytes_0)(if as-correlated-linklet?_0 correlated-linklet-vm-bytes vm-bytes$1)))"30581 "(begin(write-bytes(bytes(bytes-length vm-bytes_0)) port_0)(write-bytes vm-bytes_0 port_0)))"30599 "(let-values(((vm-bytes_0)(if as-correlated-linklet?_0 correlated-linklet-vm-bytes vm-bytes$1)))"30685 "(+ 2 1(bytes-length version-bytes$1) 1(bytes-length vm-bytes_0) 1 4)))"64473 "(equal? vm_0 correlated-linklet-vm-bytes)))"64484 "(bytes->string/utf-8 vm-bytes$1)"68418 "(define-values(vm-bytes)(string->bytes/utf-8(symbol->string(system-type 'vm))))"68419 "(define-values(vm-length)(bytes-length vm-bytes))"[all …]
101 bstr : bytes?590 suffix : bytes?1017 (cons/c bytes? (non-empty-listof bytes?))))1024 (cons/c bytes? (non-empty-listof bytes?))))1036 rel : (or/c bytes?1045 rel : (or/c bytes?1113 mode : (or/c 'os 'word 'gc 'vm 'link 'machine = 'os1159 linklet? faslable-correlated-linklet?)1168 (zo-marshal top) -> bytes?1437 (struct faslable-correlated-linklet (expr name)[all …]
12502 linklet : linklet?12514 linklet : linklet?12525 (eval-linklet linklet) -> linklet?12526 linklet : linklet?12532 linklet : linklet?12540 linklet : linklet?12546 linklet : linklet?12549 linklet : linklet?12655 (datum->correlated v [srcloc prop]) -> correlated?12671 (correlated-property crlt key val) -> correlated?[all …]