From 392cb901f633378be67cd10143fba1ebfde19d98 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 9 Jan 2009 11:10:43 +0100 Subject: [PATCH] Added more aliases which are compatible with iconv's --- contrib/encodings/generate.lisp | 35 +++++++++++++++++---------------- 1 file changed, 18 insertions(+), 17 deletions(-) diff --git a/contrib/encodings/generate.lisp b/contrib/encodings/generate.lisp index 95ad3f035..2729e522e 100644 --- a/contrib/encodings/generate.lisp +++ b/contrib/encodings/generate.lisp @@ -35,13 +35,13 @@ (:koi8-r :koi8r) - (:iso-8859-1 :latin-1 :latin1) + (:iso-8859-1 :latin-1 :latin1 :cp819 :ibm819) (:iso-8859-2 :latin-2 :latin2) (:iso-8859-3 :latin-3 :latin3) (:iso-8859-4 :latin-4 :latin4) (:iso-8859-5 :latin-5 :latin5 :cyrillic) (:iso-8859-6 :latin-6 :latin6 :arabic) - (:iso-8859-7 :latin-7 :latin7 :greek) + (:iso-8859-7 :latin-7 :latin7 :greek :ecma-118) (:iso-8859-8 :latin-8 :latin8 :hebrew) (:iso-8859-9 :latin-9 :latin9) (:iso-8859-10 :latin-10 :latin10) @@ -49,32 +49,32 @@ (:iso-8859-15 :latin-0 :latin0) (:dos-cp437 :ibm437) - (:dos-cp850 :ibm850) + (:dos-cp850 :ibm850 :cp850) (:dos-cp852 :ibm852) (:dos-cp855 :ibm855) (:dos-cp857 :ibm857) (:dos-cp860 :ibm860) (:dos-cp861 :ibm861) - (:dos-cp862 :ibm862) + (:dos-cp862 :ibm862 :cp862) (:dos-cp863 :ibm863) (:dos-cp864 :ibm864) (:dos-cp865 :ibm865) - (:dos-cp866 :ibm866) + (:dos-cp866 :ibm866 :cp866) (:dos-cp869 :ibm869) - (:windows-cp932 :windows-932) - (:windows-cp936 :windows-936) - (:windows-cp949 :windows-949) - (:windows-cp950 :windows-950) + (:windows-cp932 :windows-932 :cp932) + (:windows-cp936 :windows-936 :cp936) + (:windows-cp949 :windows-949 :cp949) + (:windows-cp950 :windows-950 :cp950) - (:windows-cp1250 :windows-1250) - (:windows-cp1251 :windows-1251) - (:windows-cp1252 :windows-1252) - (:windows-cp1253 :windows-1253) - (:windows-cp1254 :windows-1254) - (:windows-cp1255 :windows-1255) - (:windows-cp1256 :windows-1256) - (:windows-cp1257 :windows-1257) + (:windows-cp1250 :windows-1250 :ms-ee) + (:windows-cp1251 :windows-1251 :ms-cyrl) + (:windows-cp1252 :windows-1252 :ms-ansi) + (:windows-cp1253 :windows-1253 :ms-greek) + (:windows-cp1254 :windows-1254 :ms-turk) + (:windows-cp1255 :windows-1255 :ms-hebr) + (:windows-cp1256 :windows-1256 :ms-arab) + (:windows-cp1257 :windows-1257 :winbaltrim) (:windows-cp1258 :windows-1258) )) @@ -87,5 +87,6 @@ (format t "~%;;; Creating alias ~A -> ~A, ~A" alias name filename) (format out "(defparameter ext::~A 'ext::~A)" alias name)))) +(copy-file "ext:encodings;tools.lisp" "build:encodings;tools.lisp") (copy-file "ext:encodings;ISO-2022-JP" "build:encodings;ISO-2022-JP") (copy-file "ext:encodings;ISO-2022-JP-1" "build:encodings;ISO-2022-JP-1")