-
Notifications
You must be signed in to change notification settings - Fork 14
/
html5-parser-class.lisp
47 lines (44 loc) · 1.57 KB
/
html5-parser-class.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
;;;; HTML5 parser for Common Lisp
;;;;
;;;; Copyright (C) 2012 Thomas Bakketun <[email protected]>
;;;; Copyright (C) 2012 Asgeir Bjørlykke <[email protected]>
;;;; Copyright (C) 2012 Mathias Hellevang
;;;; Copyright (C) 2012 Stian Sletner <[email protected]>
;;;;
;;;; This library is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Lesser General Public License as published
;;;; by the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; This library is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public License
;;;; along with this library. If not, see <http://www.gnu.org/licenses/>.
(in-package :html5-parser)
(defvar *parser*)
(defclass html-parser ()
((html-namespace :initform (find-namespace "html"))
(strict :initarg :strict)
(inner-html-mode)
(container :initform "div")
(tokenizer)
(document :initform (make-document))
(errors :initform '())
(phase :accessor parser-phase)
first-start-tag
compat-mode
inner-html
last-phase
original-phase
before-rcdata-phase
(character-tokens :initform nil)
frameset-ok
open-elements
active-formatting-elements
head-pointer
form-pointer
insert-from-table
(in-body-process-space-characters-mode :initform :non-pre)))