diff options
author | Thomas Bushnell, BSG <tb@debian.org> | 2005-11-02 14:55:21 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:32 -0800 |
commit | 34c54a22ff7818bb8b38ef4d9c87dbbcb221ba73 (patch) | |
tree | 1189d06a81277bcf8539b0260a69a19f6038effb /mkclrnam.scm | |
parent | 611b3db17894e5fdc0db3d49eaf6743d27b44233 (diff) | |
parent | 5145dd3aa0c02c9fc496d1432fc4410674206e1d (diff) | |
download | slib-34c54a22ff7818bb8b38ef4d9c87dbbcb221ba73.tar.gz slib-34c54a22ff7818bb8b38ef4d9c87dbbcb221ba73.zip |
Import Debian changes 3a2-1debian/3a2-1
slib (3a2-1) unstable; urgency=low
* New upstream release.
* Acknowledge NMU. (Closes: #281809)
* Makefile: Don't hack Makefile; use rules instead.
* debian/rules: Set on make invocations: prefix, htmldir, TEXI2HTML.
* debian/rules (clean): Clean more stuff here.
* Makefile: Comment out old rule for $(htmldir)slib_toc.html. Instead,
specify directly that the texi2html invocation produces that file.
* debian/rules (binary-indep): Find web files in slib subdir.
* debian/control (Build-Depends-Indep): Go back to using scm.
Diffstat (limited to 'mkclrnam.scm')
-rw-r--r-- | mkclrnam.scm | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/mkclrnam.scm b/mkclrnam.scm index 7377f37..3e0c553 100644 --- a/mkclrnam.scm +++ b/mkclrnam.scm @@ -198,7 +198,7 @@ (define *rcs-header* (read-line port)) (do ((line (read-line port) (read-line port))) ((eof-object? line) - (display "Inserted ") (display *idx*) (display "colors") (newline) + (display "Inserted ") (display *idx*) (display " colors") (newline) *rcs-header*) (let ((colin (parse-rgb-line line))) (cond ((equal? "" line)) @@ -222,7 +222,7 @@ ;;This section has detailed the procedures for creating and loading ;;color dictionaries. So where are the dictionaries to load? ;; -;;@uref{http://swissnet.ai.mit.edu/~jaffer/Color/Dictionaries.html} +;;@uref{http://swiss.csail.mit.edu/~jaffer/Color/Dictionaries.html} ;; ;;@noindent ;;Describes and evaluates several color-name dictionaries on the web. @@ -234,13 +234,14 @@ ;;containing the @dfn{Resene} and @dfn{saturate} color-name ;;dictionaries. ;; -;;If the files @file{resenecolours.txt} and @file{saturate.txt} exist in -;;the @r{library-vicinity}, then they used as the source of color-name -;;data. Otherwise, @0 calls url->color-dictionary with the URLs of -;;appropriate source files. +;;If the files @file{resenecolours.txt}, @file{nbs-iscc.txt}, and +;;@file{saturate.txt} exist in the @r{library-vicinity}, then they +;;used as the source of color-name data. Otherwise, @0 calls +;;url->color-dictionary with the URLs of appropriate source files. (define (make-slib-color-name-db) (define cndb (create-database (in-vicinity (library-vicinity) "clrnamdb.scm") 'alist-table)) + (or cndb (slib:error 'cannot 'create 'database "clrnamdb.scm")) (for-each (lambda (lst) (apply @@ -250,10 +251,13 @@ (file->color-dictionary filename name cndb) (url->color-dictionary url name cndb))) lst)) - '(("http://swissnet.ai.mit.edu/~jaffer/Color/saturate.txt" + '(("http://swiss.csail.mit.edu/~jaffer/Color/saturate.txt" "saturate.txt" saturate) - ("http://swissnet.ai.mit.edu/~jaffer/Color/resenecolours.txt" + ("http://swiss.csail.mit.edu/~jaffer/Color/resenecolours.txt" "resenecolours.txt" - resene))) + resene) + ("http://swiss.csail.mit.edu/~jaffer/Color/nbs-iscc.txt" + "nbs-iscc.txt" + nbs-iscc))) (close-database cndb)) |