repos
/
Oh, Ducks!
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
implicit-element is a better name than root
Annotate for file unify.lisp
2009-11-18 pix
1
(in-package #:oh-ducks)
2009-11-13 pix
2
2009-11-13 pix
3
(defmethod unify ((a css-selector-template) (b css-selector-template)
2009-11-13 pix
4
&optional (env (make-empty-environment))
2010-01-02 pix
5
&key &allow-other-keys)
2009-11-18 pix
6
(declare (ignore env))
2009-11-13 pix
7
(error 'unification-failure
2009-11-13 pix
8
:format-control "Do not know how to unify the two css-selector-templates ~S and ~S."
2009-11-13 pix
9
:format-arguments (list a b)))
01:43:02 '
10
2009-11-13 pix
11
(defmethod unify ((template css-selector-template) document
2009-11-13 pix
12
&optional (env (make-empty-environment))
2010-01-02 pix
13
&key &allow-other-keys)
2009-11-21 pix
14
(declare (optimize debug))
2009-11-13 pix
15
(loop :for (css-specifier . template) :in (specifiers template)
2009-11-23 pix
16
:do (typecase template
10:24:02 '
17
;; CSS selectors work backwards, not forwards
'
18
(css-selector-template
'
19
(unify template document env))
'
20
(t
2009-12-05 pix
21
(let* ((*implicit-element* document)
07:18:05 '
22
;; FIXME: this is UGLY!
'
23
(val (cond
'
24
((terminating-implicit-sibling-combinator-p css-specifier)
'
25
;; search remaining siblings
'
26
(find-matching-elements-in-list
'
27
css-specifier
'
28
(rest
'
29
(member document
'
30
(when-let* ((parent (element-parent document)))
'
31
(element-children parent))
'
32
:test #'eq))))
'
33
;; search subelements
'
34
;;; FIXME: this assumes if someone passes us a node they want to find
'
35
;;; subelements of that node. In the case of nested matches, that's probably
'
36
;;; true, but it hardly seems fair to assume it. Really we want some sort of
'
37
;;; descendant combinator to be sure, but the general one (#\Space) doesn't
'
38
;;; exactly show up all that well. Somebody might assume " b" was the same as
'
39
;;; "b" and get confused.
'
40
((element-parent document)
'
41
(find-matching-elements-in-list css-specifier (element-children document)))
'
42
;; root element includes itself
'
43
(t (find-matching-elements css-specifier document)))))
2009-11-23 pix
44
(cond
2009-11-23 pix
45
((null val)
13:19:59 '
46
(error 'unification-failure
'
47
:format-control "Unable to unify ~s and ~s"
'
48
:format-arguments (list css-specifier template)))
2009-11-23 pix
49
((unify::template-p template)
10:24:02 '
50
(unify template val env))
'
51
((unify::variablep template)
'
52
(unify::var-unify template val env))
2009-12-03 pix
53
(t (error "Don't know what to do with selector ~s and template ~s." css-specifier template)))))))
2009-11-13 pix
54
env)
01:43:02 '
55
2009-11-18 pix
56
(defmethod unify (document (template css-selector-template)
2009-11-13 pix
57
&optional (env (make-empty-environment))
2010-01-02 pix
58
&key &allow-other-keys)
2009-11-18 pix
59
(unify template document env))
2009-11-16 pix
60
2009-11-18 pix
61
(defmethod unify ((template css-selector-template) (document string)
2009-11-16 pix
62
&optional (env (make-empty-environment))
2010-01-02 pix
63
&key &allow-other-keys)
2009-11-21 pix
64
(unify template (funcall (slot-value template 'parser) document) env))
2009-11-18 pix
65
08:57:44 '
66
(defmethod unify ((template css-selector-template) (document pathname)
'
67
&optional (env (make-empty-environment))
2010-01-02 pix
68
&key &allow-other-keys)
2009-11-21 pix
69
(unify template (funcall (slot-value template 'parser) document) env))