You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
1.6 KiB
Racket
52 lines
1.6 KiB
Racket
#lang restructure/racket
|
|
(require racket/dict)
|
|
(provide (all-defined-out))
|
|
|
|
#|
|
|
approximates
|
|
https://github.com/mbutterick/restructure/blob/master/src/Struct.coffee
|
|
|#
|
|
|
|
(define-subclass RBase (RStruct [assocs (dictify)])
|
|
(field [key-index #f]
|
|
[fields (mhash)])
|
|
(for ([(k v) (in-dict assocs)])
|
|
(hash-set! fields k v))
|
|
|
|
(define/public (make-key-index! [fields assocs])
|
|
(set! key-index (map car fields)))
|
|
(make-key-index!)
|
|
|
|
(define/override (decode stream [parent #f] [length 0])
|
|
(define res (_setup stream parent length))
|
|
(_parseFields stream res fields)
|
|
#;(hash-set! (hash-ref res '_props) '_currentOffset (· stream pos))
|
|
(send this process res stream)
|
|
res)
|
|
|
|
(define/override (encode stream val [parent #f])
|
|
(for ([key (in-list key-index)])
|
|
(send (hash-ref fields key) encode stream (hash-ref val key))))
|
|
|
|
(define/public-final (_setup stream parent length)
|
|
(define res (mhasheq))
|
|
|
|
;; define hidden properties
|
|
#;(hash-set! res '_props
|
|
(mhasheq 'parent (mhasheq 'value parent)
|
|
'_startOffset (mhasheq 'value (· stream pos))
|
|
'_currentOffset (mhasheq 'value 0 'writable #t)
|
|
'_length (mhasheq 'value length)))
|
|
res)
|
|
|
|
(define/public-final (_parseFields stream res fields)
|
|
(for ([key (in-list key-index)])
|
|
(define dictvalue (dict-ref fields key))
|
|
(define val
|
|
(if (procedure? dictvalue)
|
|
(dictvalue res)
|
|
(send dictvalue decode stream res)))
|
|
(hash-set! res key val)))
|
|
|
|
)
|