REBOL [
Title: "HTML Normalizer"
File: %normalize-html.r
Type: 'Module
Purpose: {
Normalizes a HTML tag stream (that is, balances start and end tags, fixes missing
end tags, and so on).
}
Author: "Gabriele Santilli"
License: {
=================================
A message from Qtask about this source code:
We have selected the MIT license (as of 2010-Jan-1) because
it is the closest “standard” license to our intent. If we had our way,
we would declare this source as public domain, with absolutely no
strings attached, not even the string that says you have to have
strings. We want to help people, so please feel free to contact us
at API@Qtask.com if you have questions.
(you only need to include the standard license text below in your
homage to this source code)
=================================
Copyright 2009 Qtask, Inc.
Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files
(the "Software"), to deal in the Software without restriction, including
without limitation the rights to use, copy, modify, merge, publish,
distribute, sublicense, and/or sell copies of the Software, and to
permit persons to whom the Software is furnished to do so, subject
to the following conditions:
The above copyright notice and this permission notice shall be included
in all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
OTHER DEALINGS IN THE SOFTWARE.
}
Version: 1.1.7
Imports: [
%dialects/fsm.r "Finite State Machine dialect"
]
Exports: [
normalize-html "Normalize HTML text"
init-normalizer "Initialize HTML normalizer state machine"
process-tag "Process a HTML tag"
reset-normalizer "Reset HTML normalizer state machine"
]
]
fsm: make-fsm [
initial-state: [
comment: declaration: xml-proc: (cb event data nl)
whitespace: ()
(cb data nl) in-html-prehead (cb none)
default: (cb none nl) continue in-html-prehead (cb none)
]
in-html-prehead: [
comment: (cb 'comment data)
whitespace: ()
(cb none nl) in-head
<isindex> <isindex/> <base> <base/> <script> <script/>
<style> <meta> <meta/> <link> <link/> <object> (cb <head> none nl) continue in-head
default: (foreach tag [<head> <title> ] [cb tag none] nl) continue in-html-prebody
]
in-head: [
comment: (cb 'comment data)
whitespace: ()
()
(cb none nl) in-html-prebody
default: (cb none nl) continue in-html-prebody
(cb <title> none) in-title (cb none nl)
()
(cb data)
return
default: continue return
]
in-hobject: [
return
]
in-style: [
comment: ()
text: whitespace: (cb event data)
return
default: continue return
]
in-html-prebody: [
comment: (cb 'comment data)
whitespace: ()
(cb data nl) in-block (close-all block-stack cb none nl)
default: (cb none nl) continue in-block (close-all block-stack cb none nl)
]
in-block: [
comment: (cb 'comment data)
whitespace: ()