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
Raw
parse.red
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 "<"
]]
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment