Changeset 15328

Timestamp:

Apr 16, 2012, 10:34:17 AM (13 years ago)

Author:

R. Matthew Emerson

Message:

Define and export ccl:list-character-encodings. Use it
in ccl:describe-character-encodings.

Closes ticket:948.

Location:

trunk/source

Files:

• level-1/l1-unicode.lisp (modified) (2 diffs)
• lib/ccl-export-syms.lisp (modified) (1 diff)

trunk/source/level-1/l1-unicode.lisp

@@ -4697 +4697 @@
   )
 
+(defun list-character-encodings (&key include-aliases)
+  "Return a list of the names of supported character encodings."
+  (let ((names nil))
+    (maphash #'(lambda (name enc)
+                 (if (eq name (character-encoding-name enc))
+                   (push name names)
+                   (when include-aliases
+                     (push name names))))
+             *character-encodings*)
+    names))
+
 (defun describe-character-encoding (name)
   (let* ((enc (lookup-character-encoding name)))
@@ -4712 +4723 @@
       
 (defun describe-character-encodings ()
-  (let* ((names nil))
-    (maphash #'(lambda (name enc)
-                 (when (eq name (character-encoding-name enc))
-                   (push name names)))
-             *character-encodings*)
+  (let* ((names (list-character-encodings)))
     (dolist (name (sort names #'string<) (values))
       (describe-character-encoding name))))

trunk/source/lib/ccl-export-syms.lisp

@@ -710 +710 @@
      character-encoding
      define-character-encoding
+     list-character-encodings
      describe-character-encoding
      describe-character-encodings