Fri Nov 13 11:31:41 UTC 2009 pix@kepibu.org

* Status checkin

--- old-Oh, Ducks!/css-selector-unifier.asd 2013-08-15 15:27:31.000000000 +0000

+++ new-Oh, Ducks!/css-selector-unifier.asd 2013-08-15 15:27:31.000000000 +0000

@@ -1,15 +1,19 @@

+(defpackage #:css-selector-unifier.system

+ (:use #:cl #:asdf))

+(in-package #:css-selector-unifier.system)

+

(asdf:defsystem css-selector-unifier

:version "0"

:description "cl-unification templates using CSS-style selectors"

- :maintainer " <pix@kepibu.org>"

- :author " <pix@kepibu.org>"

+ :maintainer "pinterface <pix@kepibu.org>"

+ :author "pinterface <pix@kepibu.org>"

:licence "BSD-style"

;; TODO: submit a patch for cl-unification to use

;; asdf-system-connections. Getting an unmodified version of

;; cl-unification to load the cl-ppcre stuff is a PITA.

:depends-on (:cl-unification :cl-ppcre :cxml :closure-html :split-sequence)

:serial t

- ;; components likely need manual reordering

+ ;; FIXME: ordering

:components ((:file "package")

(:file "regexp-template")

#+(or) (:file "tests")

@@ -19,9 +23,3 @@

(:file "lhtml" :depends-on ("interface"))

(:file "pt" :depends-on ("interface"))))

(:file "unification-templates")))

-

-;; closure-html and cl-unification both indiscriminately set up #t as a

-;; reader. We ensure cl-unification's #t wins.

-#+(or)

-(eval-when (:load-toplevel :execute)

- (set-dispatch-macro-character #\# #\T 'unify::|sharp-T-reader|))

--- old-Oh, Ducks!/unification-templates.lisp 2013-08-15 15:27:31.000000000 +0000

+++ new-Oh, Ducks!/unification-templates.lisp 2013-08-15 15:27:31.000000000 +0000

@@ -1,4 +1,7 @@

(in-package #:css-selector-unifier)

+;; FIXME: this file crashes clisp when loading the fasl...wtf?

+

+#.(set-dispatch-macro-character #\# #\T 'unify::|sharp-T-reader|)

(defclass css-selector-template (unify::expression-template)

(#+(or)

@@ -15,7 +18,6 @@

(defclass pt-template (html-template) ())

(defmethod make-template ((kind (eql 'lhtml)) (spec cons))

- (format t "spec: ~s~%" spec)

(make-instance 'lhtml-template :spec spec))

(defmethod make-template ((kind (eql 'html)) (spec cons))

@@ -97,6 +99,9 @@

(let ((specifier (template-spec template)))

(setf (slot-value template 'matcher) (parse-css-specifier (string-trim " " specifier))))))

+;; FIXME: Apparently the #T() objects are causing clisp to crash during

+;; fasl-loading. Quite possibly clisp is unable to save objects to fasls.

+#+(or)

(defun parse-css-specifier (specifier)

(match-case (specifier)

;; combinators