(parse-paragraph) ( string -- list )

Vocabulary

farkup

Inputs

string

an object

Outputs

list

an object

Definition

USING: combinators kernel lists sequences ;

IN: farkup

: (parse-paragraph) ( string -- list )
    [ nil ] [
        [ "*_^~%[\\" member? ] find-cut [
            {
                { 91 [ parse-big-link ] }
                { 92 [ escape ] }
                [ dup delimiter-class parse-delimiter ]
            } case cons
        ] [ drop "" like 1list ] if*
    ] if-empty ;