Fri Nov 13 08:32:55 UTC 2009 pix@kepibu.org
* Status checkin
hunk ./regexp-template.lisp 9
+ (declare (ignore re-kwd))
hunk ./regexp-template.lisp 11
- :spec (list* re-kwd
+ :spec (list* 'unify::regexp
hunk ./tests.lisp 37
+#+LATER
+(match (#t(lhtml ("div::content" . #t(regexp+ "^f(o+)" (?o))))
+ "<div>barbaz</div><div>fooooooobar</div>")
+ (values o &rest))
+
hunk ./unification-templates.lisp 66
+;; FIXME: rename to selector
hunk ./unification-templates.lisp 74
+;; FIXME: rename to simple-selector
hunk ./unification-templates.lisp 78
+#|| TODO
+ (defclass combinator (selector) ())
+ (defclass child-combinator (combinator) ())
+ (defclass descendant-combinator (combinator) ())
+ (defclass adjacent-combinator (combinator) ())
+ (defclass sibling-combinator (combinator) ())
+||#
+
hunk ./unification-templates.lisp 110
+;; FIXME: rename to select-subject?
+;; FIXME: make css-select methods use functions defined in traversal/implementation.lisp
hunk ./unification-templates.lisp 169
-
-[_^L_][_$_]
-
-;; type-defines-selectors
-;; Under this implementation strategy, CSS selectors themselves would be
-;; implemented for elements.
-#|
-(defgeneric css-combinator:child (a b))
-(defgeneric css-combinator:descendant (a b))
-(defgeneric css-combinator:adjacent (a b))
-(defgeneric css-combinator:sibling (a b))
-
-(defgeneric css-selector:element-type (element element-type))
-(defgeneric css-selector:class (element class))
-(defgeneric css-selector:id (element id))
-|#
-[_^L_][_$_]