parse-help-text ( end -- seq )

Vocabulary

help.syntax.private

Inputs

end

an object

Outputs

seq

an object

Definition

USING: accessors arrays combinators.short-circuit help.markup
kernel lexer math namespaces sequences strings ;

IN: help.syntax.private

:: parse-help-text ( end -- seq )
    V{ } clone SBUF" " clone [
        lexer get line>> :> m end parse-help-token
        :> ( obj literal? ) lexer get line>> :> n obj string? n
        m - 1 > and [
            { [ dup empty? not ] [ over ?last string? ] } 0||
            [ \ $nl push-help-text ] when
        ] when obj [
            [
                literal? [ ?push-help-space ] unless
                dup string? not literal? or
                [ push-help-text ] [ append! ] if
            ] when*
        ] keep
    ] loop [ >string suffix! ] unless-empty >array ; inline