etag-header ( vec1 resource -- vec2 )

Vocabulary

ctags.etags.private

Inputs

vec1	an object
resource	an object

Outputs

vec2

an object

Definition

USING: io.backend kernel make math.parser sequences ;

IN: ctags.etags.private

: etag-header ( vec1 resource -- vec2 )
    [ normalize-path % "," % dup sum-lengths number>string % ]
    "" make prefix "\f" prefix ;