Mon Nov 30 05:04:06 UTC 2009 pix@kepibu.org

* Work for spaces between [+-] and B

--- old-Oh, Ducks!/selectors.lisp 2013-07-24 10:31:48.000000000 +0000

+++ new-Oh, Ducks!/selectors.lisp 2013-07-24 10:31:48.000000000 +0000

@@ -59,11 +59,12 @@

(list (make-instance 'descendant-combinator :matcher (parse-selector &rest))))

;; simple selectors

;; cyclic (An+B, n+B)

- (#T(regexp$ ":nth-child\\([ ]*([+-]?)([0-9]+)?n[ ]*([+-]?[0-9]+)?[ ]*\\)" (?asign ?a ?b))

+ (#T(regexp$ ":nth-child\\([ ]*([+-]?)([0-9]+)?n[ ]*([+-])[ ]*([0-9]+)?[ ]*\\)" (?asign ?a ?bsign ?b))

(cons (make-instance 'nth-child-selector

:arg (cons (funcall (if (string= "-" asign) #'- #'+)

(if (stringp a) (parse-integer a) 1))

- (if (stringp b) (parse-integer b) 0)))

+ (funcall (if (string= "-" bsign) #'- #'+)

+ (if (stringp b) (parse-integer b) 0))))

(parse-selector &rest)))

;; absolute (B)

(#T(regexp$ ":nth-child\\([ ]*([+-]?[0-9]+)[ ]*\\)" (?b))