split out cl-l10n-cldr to simplify packaging with quicklisp
Sat Oct 30 16:55:29 PDT 2010 attila.lendvai@gmail.com
* split out cl-l10n-cldr to simplify packaging with quicklisp
diff -rN -u old-cl-l10n/bin/update-cldr.sh new-cl-l10n/bin/update-cldr.sh
--- old-cl-l10n/bin/update-cldr.sh 2014-08-01 06:54:27.000000000 -0700
+++ new-cl-l10n/bin/update-cldr.sh 1969-12-31 16:00:00.000000000 -0800
@@ -1,46 +0,0 @@
-#!/bin/bash
-
-PROJECT_HOME="`dirname $0`/.."
-
-absolutize ()
-{
- if [ ! -d "$1" ]; then
- echo
- echo "ERROR: '$1' doesn't exist or not a directory!"
- exit -1
- fi
-
- cd "$1"
- echo `pwd`
- cd - >/dev/null
-}
-
-PROJECT_HOME=`absolutize "$PROJECT_HOME"`
-
-echo "Assumin cl-l10n is in: '$PROJECT_HOME'"
-
-if [ ! -d "$PROJECT_HOME" ]; then
- echo Something is not ok, there is no "$PROJECT_HOME" directory?! Bailing out...
- exit 1
-fi
-
-read -p "About to recursively remove everything in $PROJECT_HOME/cldr/, continue (y/n)? "
-
-if [ "$REPLY" = "y" ]; then
- rm -rf "$PROJECT_HOME/cldr/"
- mkdir "$PROJECT_HOME/cldr/"
-else
- exit 2
-fi
-
-cd "$PROJECT_HOME/cldr/"
-
-wget http://unicode.org/Public/cldr/1.8.0/core.zip
-unzip core.zip
-rm core.zip
-
-wget http://unicode.org/Public/cldr/1.8.0/tests.zip
-unzip tests.zip
-rm tests.zip
-
-echo Done.
diff -rN -u old-cl-l10n/cl-l10n.asd new-cl-l10n/cl-l10n.asd
--- old-cl-l10n/cl-l10n.asd 2014-08-01 06:54:27.000000000 -0700
+++ new-cl-l10n/cl-l10n.asd 2014-08-01 06:54:28.000000000 -0700
@@ -38,6 +38,7 @@
:depends-on ("package" "utils" "load-locale")))
:depends-on ("flexml")))
:depends-on (:alexandria
+ :cl-l10n-cldr
:iterate
:cl-ppcre
:metabang-bind
diff -rN -u old-cl-l10n/src/cldr-parsing.lisp new-cl-l10n/src/cldr-parsing.lisp
--- old-cl-l10n/src/cldr-parsing.lisp 2014-08-01 06:54:27.000000000 -0700
+++ new-cl-l10n/src/cldr-parsing.lisp 2014-08-01 06:54:28.000000000 -0700
@@ -124,7 +124,7 @@
(puri:parse-uri "http://www.unicode.org/cldr/dtd/1.8.0/cldrTest.dtd")))
"cldr/common/dtd/cldrTest.dtd"))))
(when file
- (open (project-relative-pathname file) :element-type '(unsigned-byte 8) :direction :input))))
+ (open (cldr-relative-pathname file) :element-type '(unsigned-byte 8) :direction :input))))
(defmethod flexml:class-name-for-node-name ((parser cldr-parser) namespace-uri package (local-name string) qualified-name)
(let ((class-name (find-symbol (string-upcase (camel-case-to-hyphened local-name)) :ldml)))
diff -rN -u old-cl-l10n/src/variables.lisp new-cl-l10n/src/variables.lisp
--- old-cl-l10n/src/variables.lisp 2014-08-01 06:54:27.000000000 -0700
+++ new-cl-l10n/src/variables.lisp 2014-08-01 06:54:28.000000000 -0700
@@ -15,7 +15,10 @@
(defun project-relative-pathname (file)
(asdf:system-relative-pathname :cl-l10n file))
-(defparameter *cldr-root-directory* (project-relative-pathname "cldr/common/main/"))
+(defun cldr-relative-pathname (file)
+ (asdf:system-relative-pathname :cl-l10n-cldr file))
+
+(defparameter *cldr-root-directory* (cldr-relative-pathname "common/main/"))
;; TODO locking for thread safety
(defparameter *locale-cache* (make-hash-table :test #'equal)
diff -rN -u old-cl-l10n/test/cldr.lisp new-cl-l10n/test/cldr.lisp
--- old-cl-l10n/test/cldr.lisp 2014-08-01 06:54:27.000000000 -0700
+++ new-cl-l10n/test/cldr.lisp 2014-08-01 06:54:28.000000000 -0700
@@ -19,7 +19,7 @@
(deftest (test/cldr/run-cldr-tests :auto-call nil) ()
;; don't run the cldr tests by default, we are just not there yet...
- (cl-fad:walk-directory (project-relative-pathname "cldr/test/")
+ (cl-fad:walk-directory (cldr-relative-pathname "test/")
'test/cldr/run-cldr-test
:directories nil
:test (lambda (file)