make-etags ( alist -- seq )

Vocabulary

ctags.etags.private

Inputs

alist

an object

Outputs

seq

an object

Definition

USING: assocs io.encodings.ascii io.files kernel sequences ;

IN: ctags.etags.private

: make-etags ( alist -- seq )
    V{ } clone swap [
        over [
            [ ascii file-lines lines>bytes ] dip [ etag ] with
            map
        ] dip etag-header append!
    ] assoc-each ;