xml-find-by ( obj quot: ( obj -- ? ) -- tag/f ) - Factor Documentation

xml-find-by ( obj quot: ( obj -- ? ) -- tag/f )

Vocabulary
modern .html

Inputs

obj an object

quot a quotation with stack effect ( obj -- ? )

Outputs

tag/f an object

Definition

IN: modern.html

GENERIC#: xml-find-by 1 ( obj quot: ( obj -- ? ) -- tag/f )

Methods

USING: kernel modern.html ;

M: close-tag xml-find-by 2drop f ;

USING: kernel modern.html ;

M: doctype xml-find-by 2drop f ;

USING: combinators kernel modern.html ;

M: open-tag xml-find-by
2dup ( obj -- ? ) call-effect
[ drop ] [ [ get-children ] dip xml-find-by ] if ; inline

USING: combinators kernel modern.html ;

M: self-close-tag xml-find-by
2dup ( obj -- ? ) call-effect
[ drop ] [ [ get-children ] dip xml-find-by ] if ; inline

USING: kernel modern.html sequences ;

M: sequence xml-find-by [ xml-find-by ] curry map-find drop ;

USING: combinators kernel modern.html strings ;

M: string xml-find-by
2dup ( obj -- ? ) call-effect [ drop ] [ 2drop f ] if ;