lpvm · December 3, 2018 14:55
diff --git a/parse.red b/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 "<"
        ]]
    ]
	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 "<"
	]]
	]