fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 10:16:32 +00:00
Code Issues Releases Wiki Activity

feat(transducers): add DATA-LENS.TRANSDUCERS:INTO, with tests

Browse Source
This commit is contained in:
Edward
2021-01-09 03:19:38 -08:00
parent 47d7f624ad
commit bd9ef2fba3
4 changed files with 113 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
transducers.lisp
View File

@ -155,6 +155,9 @@
(destructuring-bind (k v) next
(setf (gethash k acc) v))
acc)))
(defmethod data-lens.transducers.internals:builder-for-input ((inp hash-table))
(values 'hash-table-builder
(alexandria:copy-hash-table inp)))
(defmethod init ((it (eql 'vector-builder)))
(make-array 0 :fill-pointer t :adjustable t))
@ -163,6 +166,12 @@
((acc next)
(vector-push-extend next acc)
acc)))
(defmethod data-lens.transducers.internals:builder-for-input ((inp vector))
(values 'vector-builder
(make-array (array-dimensions inp)
:initial-contents inp
:fill-pointer t)))
(defmethod init ((it (eql 'list-builder)))
(declare (optimize (speed 3)))
@ -180,6 +189,13 @@
acc)))
(defmethod unwrap ((it (eql 'list-builder)) obj)
(cdr (elt obj 0)))
(defmethod data-lens.transducers.internals:builder-for-input ((inp list))
(let ((builder 'list-builder))
(values builder
(if inp
(let ((inp (cons nil (copy-list inp))))
(vector inp (last inp)))
(init builder)))))
(defmacro comment (&body body)
(declare (ignore body))