Skip to content

Instantly share code, notes, and snippets.

@lpvm

lpvm/parse.red

Created December 3, 2018 14:55
Show Gist options
  • Save lpvm/45e3a656e1de97b2913d8e0b29db89b4 to your computer and use it in GitHub Desktop.
Save lpvm/45e3a656e1de97b2913d8e0b29db89b4 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. lpvm created this gist Dec 3, 2018.
    19 changes: 19 additions & 0 deletions parse.red
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,19 @@
    Red []

    html: {
    <html>
    <head><title>Test</title></head>
    <body><div><u>Hello</u> <b>World</b></div></body>
    </html>
    }

    ws: charset reduce [space tab cr lf]

    parse html tags: [
    collect [any [
    ws
    | "</" thru ">" break
    | "<" copy name to ">" skip keep (load name) opt tags
    | keep to "<"
    ]]
    ]