- cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] CMUCL commit: RELEASE-20B-BRANCH src/i18n/locale (3 files)
by Raymond Toy 21 Sep '10

21 Sep '10

Date: Monday, September 20, 2010 @ 20:12:16 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Tag: RELEASE-20B-BRANCH Modified: cmucl-x87.pot en(a)piglatin/LC_MESSAGES/cmucl-x87.po ko/LC_MESSAGES/cmucl-x87.po Regenerate from current sources. --------------------------------------+ cmucl-x87.pot | 184 ++++++++++++++++++++++++++++++++- en(a)piglatin/LC_MESSAGES/cmucl-x87.po | 184 ++++++++++++++++++++++++++++++++- ko/LC_MESSAGES/cmucl-x87.po | 184 ++++++++++++++++++++++++++++++++- 3 files changed, 549 insertions(+), 3 deletions(-) Index: src/i18n/locale/cmucl-x87.pot diff -u src/i18n/locale/cmucl-x87.pot:1.3 src/i18n/locale/cmucl-x87.pot:1.3.4.1 --- src/i18n/locale/cmucl-x87.pot:1.3 Tue Apr 20 14:05:43 2010 +++ src/i18n/locale/cmucl-x87.pot Mon Sep 20 20:12:16 2010 @@ -15,8 +15,190 @@ "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +" VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "" + Index: src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x87.po diff -u src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.4.4.2 src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.4.4.3 --- src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.4.4.2 Wed Sep 15 12:16:44 2010 +++ src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x87.po Mon Sep 20 20:12:16 2010 @@ -16,7 +16,189 @@ "Language: Pig Latin\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "Unknownway SC otay SC-Asecay orfay ~S:~% ~S" + +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +"\t VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "" Index: src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.3 src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.3.4.1 --- src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.3 Tue Apr 20 14:05:43 2010 +++ src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po Mon Sep 20 20:12:16 2010 @@ -14,7 +14,189 @@ "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +"\t VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr ""

1 0

[cmucl-cvs] CMUCL commit: RELEASE-20B-BRANCH src/compiler/x86 (float.lisp)
by Raymond Toy 21 Sep '10

21 Sep '10

Date: Monday, September 20, 2010 @ 20:11:32 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/x86 Tag: RELEASE-20B-BRANCH Modified: float.lisp Text domain should be cmucl-x87, not cmucl-x86-vm. ------------+ float.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/compiler/x86/float.lisp diff -u src/compiler/x86/float.lisp:1.60 src/compiler/x86/float.lisp:1.60.4.1 --- src/compiler/x86/float.lisp:1.60 Tue Apr 20 13:57:47 2010 +++ src/compiler/x86/float.lisp Mon Sep 20 20:11:32 2010 @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/x86/float.lisp,v 1.60 2010-04-20 17:57:47 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/x86/float.lisp,v 1.60.4.1 2010-09-21 00:11:32 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,7 +22,7 @@ ;;; (in-package :x86) -(intl:textdomain "cmucl-x86-vm") +(intl:textdomain "cmucl-x87")

1 0

[cmucl-cvs] CMUCL commit: src/code (string.lisp)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Monday, September 20, 2010 @ 19:01:15 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: string.lisp o Inhibit warnings from SURROGATEP; I'm tired seeing the code deletion notes now. o Tell the compiler what type the first return value of CODEPOINT is. Apparently, the compiler can't figure that out itself. -------------+ string.lisp | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) Index: src/code/string.lisp diff -u src/code/string.lisp:1.26 src/code/string.lisp:1.27 --- src/code/string.lisp:1.26 Wed Sep 15 17:06:38 2010 +++ src/code/string.lisp Mon Sep 20 19:01:15 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/string.lisp,v 1.26 2010-09-15 21:06:38 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/string.lisp,v 1.27 2010-09-20 23:01:15 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -40,7 +40,9 @@ for. :High means to test for the high (leading) surrogate; :Low tests for the low (trailing surrogate). A value of :Any or Nil tests for any surrogate value (high or low)." - (declare (type (or character codepoint) char-or-code)) + (declare (type (or character codepoint) char-or-code) + (type (or null (member :high :leading :low :trailing :any)) surrogate-type) + (optimize (inhibit-warnings 3))) (let ((code (if (characterp char-or-code) (char-code char-or-code) char-or-code))) @@ -74,14 +76,16 @@ (cond ((and (surrogatep code :high) (< (1+ i) end)) (let ((tmp (char-code (schar string (1+ i))))) (if (surrogatep tmp :low) - (values (+ (ash (- code #xD800) 10) tmp #x2400) +1) - (values code nil)))) + (values (truly-the codepoint (+ (ash (- code #xD800) 10) tmp #x2400)) + +1) + (values (truly-the codepoint code) nil)))) ((and (surrogatep code :low) (> i 0)) (let ((tmp (char-code (schar string (1- i))))) (if (surrogatep tmp :high) - (values (+ (ash (- tmp #xD800) 10) code #x2400) -1) - (values code nil)))) - (t (values code nil))))) + (values (truly-the codepoint (+ (ash (- tmp #xD800) 10) code #x2400)) + -1) + (values (truly-the codepoint code) nil)))) + (t (values (truly-the codepoint code) nil))))) (defun surrogates (codepoint) "Return the high and low surrogate characters for Codepoint. If

1 0

[cmucl-cvs] CMUCL commit: src/i18n/locale (4 files)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Monday, September 20, 2010 @ 16:34:06 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: en(a)piglatin/LC_MESSAGES/cmucl-x87.po en(a)piglatin/LC_MESSAGES/cmucl.po ko/LC_MESSAGES/cmucl-x87.po ko/LC_MESSAGES/cmucl.po Regenerate cmucl-x87.po and cmucl.po for each locale.from the latest pot files. --------------------------------------+ en(a)piglatin/LC_MESSAGES/cmucl-x87.po | 187 ++++++++++++++++++++++++++++++++- en(a)piglatin/LC_MESSAGES/cmucl.po | 85 ++++++++++++++- ko/LC_MESSAGES/cmucl-x87.po | 184 ++++++++++++++++++++++++++++++++ ko/LC_MESSAGES/cmucl.po | 47 ++++++++ 4 files changed, 498 insertions(+), 5 deletions(-) Index: src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x87.po diff -u src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.5 src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.6 --- src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x87.po:1.5 Wed Sep 15 11:50:21 2010 +++ src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x87.po Mon Sep 20 16:34:05 2010 @@ -16,7 +16,192 @@ "Language: Pig Latin\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "Ignoringway ogusbay i387 Onstantcay ~away" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "oatflay ovemay" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "Unknownway SC otay SC-Asecay orfay ~S:~% ~S" + +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "omplexcay oatflay ovemay" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "oatflay otay ointerpay oercioncay" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +"\t VM definition inconsistent, recompile and try again." +msgstr "" +"Oadlay TN allocatedway, utbay onay ovemay unctionfay?~@\n" +"\t VM efinitionday inconsistentway, ecompileray andway ytray " +"againway." + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "ointerpay otay oatflay oercioncay" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "omplexcay oatflay otay ointerpay oercioncay" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "omplexcay oubleday-oubleday oatflay otay ointerpay oercioncay" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "ointerpay otay omplexcay oatflay oercioncay" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "oatflay argumentway ovemay" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "omplexcay oatflay argumentway ovemay" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "omplexcay oubleday-oubleday-oatflay argumentway ovemay" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "inlineway oatflay arithmeticway" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "inlineway oatflay omparisoncay" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "inlineway oatflay oercioncay" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "inlineway oatflay uncatetray" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "inlineway NPX unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "inlineway antay unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "inlineway insay/oscay unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "inlineway expway unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "inlineway expmway1 unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "inlineway oglay unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "inlineway oglay10 unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "inlineway owpay unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "inlineway albnscay unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "inlineway albscay unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "inlineway oglay1p unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "inlineway oglay1p ithway imitedlay x angeray unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "inlineway ogblay unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "inlineway atanway unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "inlineway atanway2 unctionfay" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "inlineway omplexcay inglesay-oatflay eationcray" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "inlineway omplexcay oubleday-oatflay eationcray" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "inlineway omplexcay onglay-oatflay eationcray" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "omplexcay oatflay ealpartray" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "omplexcay oatflay imagpartway" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "inlineway ummyday FP egisterray iasbay" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "oubleday-oubleday oatflay ovemay" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "oubleday oubleday oatflay otay ointerpay oercioncay" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "ointerpay otay oubleday-oubleday-oatflay oercioncay" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "oubleday oubleday-oatflay argumentway ovemay" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "inlineway oubleday-oubleday-oatflay eationcray" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "oubleday-oubleday ighhay artpay" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "oubleday-oubleday owlay artpay" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "inlineway omplexcay oubleday-oubleday-oatflay eationcray" Index: src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po diff -u src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.9 src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.10 --- src/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po:1.9 Wed Sep 15 11:50:21 2010 +++ src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po Mon Sep 20 16:34:05 2010 @@ -5694,6 +5694,11 @@ " the basic multilingual plane (BMP) are converted into the\n" " corresponding surrogate pairs." msgstr "" +"Onvertcay away equencesay ofway odepointscay otay away ingstray. " +"Odepointscay outsideway\n" +" ethay asicbay ultilingualmay aneplay (BMP) areway onvertedcay intoway " +"ethay\n" +" orrespondingcay urrogatesay airspay." #: src/code/string.lisp msgid "" @@ -5701,6 +5706,11 @@ " pairs in the string are converted into the correspoinding\n" " codepoint." msgstr "" +"Onvertcay away ingstray otay away istlay ofway orrespondingcay odecay " +"ointspay. Urrogatesay\n" +" airspay inway ethay ingstray areway onvertedcay intoway ethay " +"orrespoindingcay\n" +" odepointcay." #: src/code/mipsstrops.lisp msgid "" @@ -7451,6 +7461,28 @@ msgstr "Unrecognizedway oclamationpray: ~S." #: src/code/unidata.lisp +msgid "" +"Search the Unicode name dictionary for the longest entry that\n" +" matches STRING. STRING must be in Unicode name format. That is, it\n" +" must be upper case with spaces separating each word.\n" +"\n" +" Two values are returned. The first value is index into the codebook\n" +" that continues the string.. The second value is the length of the\n" +" substring of string that matches the codebook. " +msgstr "" +"Earchsay ethay Unicodeway amenay ictionaryday orfay ethay ongestlay entryway " +"atthay\n" +" atchesmay STRING. STRING ustmay ebay inway Unicodeway amenay ormatfay. " +"Atthay isway, itway\n" +" ustmay ebay upperway asecay ithway acesspay eparatingsay eachway ordway.\n" +"\n" +" Wotay aluesvay areway eturnedray. Ethay irstfay aluevay isway indexway " +"intoway ethay odebookcay\n" +" atthay ontinuescay ethay ingstray.. Ethay econdsay aluevay isway ethay " +"engthlay ofway ethay\n" +" ubstringsay ofway ingstray atthay atchesmay ethay odebookcay. " + +#: src/code/unidata.lisp msgid "The Unicode data file is broken." msgstr "Ethay Unicodeway ataday ilefay isway okenbray." @@ -7462,6 +7494,49 @@ msgid "No data in file." msgstr "Onay ataday inway ilefay." +#: src/code/unidata.lisp +msgid "Dictionary of Hangul syllables" +msgstr "Ictionaryday ofway Angulhay yllablessay" + +#: src/code/unidata.lisp +msgid "Dictionary of CJK Unified ideographs" +msgstr "Ictionaryday ofway CJK Unifiedway ideographsway" + +#: src/code/unidata.lisp +msgid "" +"Try to complete the string Prefix using the dictionary in Dict.\n" +" Three values are returned: (1) The best match of prefix, (2) a list\n" +" of possible completions, (3) a boolean indicating whether the best\n" +" match is a complete unicode name. " +msgstr "" +"Ytray otay ompletecay ethay ingstray Efixpray usingway ethay ictionaryday " +"inway Ictday.\n" +" Reethay aluesvay areway eturnedray: (1) Ethay estbay atchmay ofway " +"efixpray, (2) away istlay\n" +" ofway ossiblepay ompletionscay, (3) away ooleanbay indicatingway etherwhay " +"ethay estbay\n" +" atchmay isway away ompletecay unicodeway amenay. " + +#: src/code/unidata.lisp +msgid "" +"Search the dictionary in Dict and return a list of the possible\n" +" completions starting with Prefix. If there is no match, NIL is\n" +" returned." +msgstr "" +"Earchsay ethay ictionaryday inway Ictday andway eturnray away istlay ofway " +"ethay ossiblepay\n" +" ompletionscay tartingsay ithway Efixpray. Ifway erethay isway onay " +"atchmay, NIL isway\n" +" eturnedray." + +#: src/code/unidata.lisp +msgid "Build the dictionary for Hangul syllables" +msgstr "Uildbay ethay ictionaryday orfay Angulhay yllablessay" + +#: src/code/unidata.lisp +msgid "Build the dictionary for CJK Unified Ideographs" +msgstr "Uildbay ethay ictionaryday orfay CJK Unifiedway Ideographsway" + #: src/code/char.lisp msgid "The upper exclusive bound on values produced by CHAR-CODE." msgstr "" @@ -18401,7 +18476,10 @@ "\tsame place as normal output.\n" " :status-hook -\n" " This is a function the system calls whenever the status of the\n" -" process changes. The function takes the process as an argument." +" process changes. The function takes the process as an argument.\n" +" :external-format -\n" +" This is the external-format used for communication with the " +"subprocess." msgstr "" "RUN-PROGRAM eatescray away ewnay ocesspray andway unsray ethay unixway " "ogrampray inway ethay\n" @@ -18487,7 +18565,10 @@ " Isthay isway away unctionfay ethay ystemsay allscay eneverwhay ethay " "tatussay ofway ethay\n" " ocesspray angeschay. Ethay unctionfay akestay ethay ocesspray asway " -"anway argumentway." +"anway argumentway.\n" +" :externalway-ormatfay -\n" +" Isthay isway ethay externalway-ormatfay usedway orfay " +"ommunicationcay ithway ethay ubprocesayssay." #: src/code/run-program.lisp msgid "All args to program must be simple strings -- ~S." Index: src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.4 src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.5 --- src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po:1.4 Wed Sep 15 16:09:45 2010 +++ src/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po Mon Sep 20 16:34:05 2010 @@ -15,7 +15,189 @@ "Content-Transfer-Encoding: 8bit\n" "Language: Korean\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +"\t VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "" Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.11 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.12 --- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.11 Wed Sep 15 16:09:45 2010 +++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Mon Sep 20 16:34:05 2010 @@ -5263,6 +5263,17 @@ msgstr "" #: src/code/unidata.lisp +msgid "" +"Search the Unicode name dictionary for the longest entry that\n" +" matches STRING. STRING must be in Unicode name format. That is, it\n" +" must be upper case with spaces separating each word.\n" +"\n" +" Two values are returned. The first value is index into the codebook\n" +" that continues the string.. The second value is the length of the\n" +" substring of string that matches the codebook. " +msgstr "" + +#: src/code/unidata.lisp msgid "The Unicode data file is broken." msgstr "" @@ -5274,6 +5285,37 @@ msgid "No data in file." msgstr "" +#: src/code/unidata.lisp +msgid "Dictionary of Hangul syllables" +msgstr "" + +#: src/code/unidata.lisp +msgid "Dictionary of CJK Unified ideographs" +msgstr "" + +#: src/code/unidata.lisp +msgid "" +"Try to complete the string Prefix using the dictionary in Dict.\n" +" Three values are returned: (1) The best match of prefix, (2) a list\n" +" of possible completions, (3) a boolean indicating whether the best\n" +" match is a complete unicode name. " +msgstr "" + +#: src/code/unidata.lisp +msgid "" +"Search the dictionary in Dict and return a list of the possible\n" +" completions starting with Prefix. If there is no match, NIL is\n" +" returned." +msgstr "" + +#: src/code/unidata.lisp +msgid "Build the dictionary for Hangul syllables" +msgstr "" + +#: src/code/unidata.lisp +msgid "Build the dictionary for CJK Unified Ideographs" +msgstr "" + #: src/code/char.lisp msgid "The upper exclusive bound on values produced by CHAR-CODE." msgstr "" @@ -12982,7 +13024,10 @@ "\tsame place as normal output.\n" " :status-hook -\n" " This is a function the system calls whenever the status of the\n" -" process changes. The function takes the process as an argument." +" process changes. The function takes the process as an argument.\n" +" :external-format -\n" +" This is the external-format used for communication with the " +"subprocess." msgstr "" #: src/code/run-program.lisp

1 0

[cmucl-cvs] CMUCL commit: src/i18n/locale (cmucl-x87.pot)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Monday, September 20, 2010 @ 16:32:23 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: cmucl-x87.pot Update from latest sources to get new messages strings from x86/float.lisp. ---------------+ cmucl-x87.pot | 184 +++++++++++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 183 insertions(+), 1 deletion(-) Index: src/i18n/locale/cmucl-x87.pot diff -u src/i18n/locale/cmucl-x87.pot:1.3 src/i18n/locale/cmucl-x87.pot:1.4 --- src/i18n/locale/cmucl-x87.pot:1.3 Tue Apr 20 14:05:43 2010 +++ src/i18n/locale/cmucl-x87.pot Mon Sep 20 16:32:23 2010 @@ -15,8 +15,190 @@ "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + #: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp -#: src/compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-sap.lisp src/compiler/x86/float.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +" VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "" +

1 0

[cmucl-cvs] CMUCL commit: src/i18n/locale (cmucl.pot)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Monday, September 20, 2010 @ 16:25:10 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: cmucl.pot Update from latest sources to get new messages strings. -----------+ cmucl.pot | 47 ++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 46 insertions(+), 1 deletion(-) Index: src/i18n/locale/cmucl.pot diff -u src/i18n/locale/cmucl.pot:1.13 src/i18n/locale/cmucl.pot:1.14 --- src/i18n/locale/cmucl.pot:1.13 Wed Sep 15 16:00:46 2010 +++ src/i18n/locale/cmucl.pot Mon Sep 20 16:25:09 2010 @@ -5265,6 +5265,17 @@ msgstr "" #: src/code/unidata.lisp +msgid "" +"Search the Unicode name dictionary for the longest entry that\n" +" matches STRING. STRING must be in Unicode name format. That is, it\n" +" must be upper case with spaces separating each word.\n" +"\n" +" Two values are returned. The first value is index into the codebook\n" +" that continues the string.. The second value is the length of the\n" +" substring of string that matches the codebook. " +msgstr "" + +#: src/code/unidata.lisp msgid "The Unicode data file is broken." msgstr "" @@ -5276,6 +5287,37 @@ msgid "No data in file." msgstr "" +#: src/code/unidata.lisp +msgid "Dictionary of Hangul syllables" +msgstr "" + +#: src/code/unidata.lisp +msgid "Dictionary of CJK Unified ideographs" +msgstr "" + +#: src/code/unidata.lisp +msgid "" +"Try to complete the string Prefix using the dictionary in Dict.\n" +" Three values are returned: (1) The best match of prefix, (2) a list\n" +" of possible completions, (3) a boolean indicating whether the best\n" +" match is a complete unicode name. " +msgstr "" + +#: src/code/unidata.lisp +msgid "" +"Search the dictionary in Dict and return a list of the possible\n" +" completions starting with Prefix. If there is no match, NIL is\n" +" returned." +msgstr "" + +#: src/code/unidata.lisp +msgid "Build the dictionary for Hangul syllables" +msgstr "" + +#: src/code/unidata.lisp +msgid "Build the dictionary for CJK Unified Ideographs" +msgstr "" + #: src/code/char.lisp msgid "The upper exclusive bound on values produced by CHAR-CODE." msgstr "" @@ -12956,7 +12998,10 @@ " same place as normal output.\n" " :status-hook -\n" " This is a function the system calls whenever the status of the\n" -" process changes. The function takes the process as an argument." +" process changes. The function takes the process as an argument.\n" +" :external-format -\n" +" This is the external-format used for communication with the subproce" +"ss." msgstr "" #: src/code/run-program.lisp

1 0

[cmucl-cvs] CMUCL commit: src/compiler/x86 (float.lisp)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Monday, September 20, 2010 @ 16:22:03 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/x86 Modified: float.lisp This entire file should be in the cmucl-x87 domain, not cmucl-x86-vm. ------------+ float.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) Index: src/compiler/x86/float.lisp diff -u src/compiler/x86/float.lisp:1.60 src/compiler/x86/float.lisp:1.61 --- src/compiler/x86/float.lisp:1.60 Tue Apr 20 13:57:47 2010 +++ src/compiler/x86/float.lisp Mon Sep 20 16:22:03 2010 @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/x86/float.lisp,v 1.60 2010-04-20 17:57:47 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/x86/float.lisp,v 1.61 2010-09-20 20:22:03 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,7 +22,7 @@ ;;; (in-package :x86) -(intl:textdomain "cmucl-x86-vm") +(intl:textdomain "cmucl-x87") @@ -1709,6 +1709,7 @@ ;;; Comparisons with 0 can use the FTST instruction. + (define-vop (float-test) (:args (x)) (:temporary (:sc word-reg :offset eax-offset :from :eval) temp)

1 0

[cmucl-cvs] CMUCL commit: src/code (run-program.lisp)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Monday, September 20, 2010 @ 09:50:53 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: run-program.lisp Add support for external formats for RUN-PROGRAM, which now takes an :EXTERNAL-FORMAT keyword argument to specify the format to use for any streams that RUN-PROGRAM needs to create. Patch from Paul Foley. ------------------+ run-program.lisp | 36 ++++++++++++++++++++++++------------ 1 file changed, 24 insertions(+), 12 deletions(-) Index: src/code/run-program.lisp diff -u src/code/run-program.lisp:1.31 src/code/run-program.lisp:1.32 --- src/code/run-program.lisp:1.31 Tue Apr 20 13:57:45 2010 +++ src/code/run-program.lisp Mon Sep 20 09:50:52 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/run-program.lisp,v 1.31 2010-04-20 17:57:45 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/run-program.lisp,v 1.32 2010-09-20 13:50:52 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -325,7 +325,7 @@ ;;; OPEN-PTY -- internal ;;; -(defun open-pty (pty cookie) +(defun open-pty (pty cookie &optional (external-format :default)) (when pty (multiple-value-bind (master slave name) @@ -340,7 +340,8 @@ (push new-fd *close-on-error*) (copy-descriptor-to-stream new-fd pty cookie))) (values name - (system:make-fd-stream master :input t :output t))))) + (system:make-fd-stream master :input t :output t + :external-format external-format))))) (defmacro round-bytes-to-words (n) @@ -454,7 +455,8 @@ (defun run-program (program args &key (env *environment-list*) (wait t) pty input if-input-does-not-exist output (if-output-exists :error) - (error :output) (if-error-exists :error) status-hook) + (error :output) (if-error-exists :error) status-hook + (external-format :default)) "RUN-PROGRAM creates a new process and runs the unix program in the file specified by the simple-string PROGRAM. ARGS are the standard arguments that can be passed to a Unix program, for no arguments @@ -506,14 +508,16 @@ same place as normal output. :status-hook - This is a function the system calls whenever the status of the - process changes. The function takes the process as an argument." + process changes. The function takes the process as an argument. + :external-format - + This is the external-format used for communication with the subprocess." ;; Make sure the interrupt handler is installed. (system:enable-interrupt unix:sigchld #'sigchld-handler) ;; Make sure all the args are okay. (unless (every #'simple-string-p args) (error (intl:gettext "All args to program must be simple strings -- ~S.") args)) - ;; Pre-pend the program to the argument list. + ;; Prepend the program to the argument list. (push (namestring program) args) ;; Clear random specials used by GET-DESCRIPTOR-FOR to communicate cleanup ;; info. Also, establish proc at this level so we can return it. @@ -526,21 +530,24 @@ (multiple-value-bind (stdin input-stream) (get-descriptor-for input cookie :direction :input - :if-does-not-exist if-input-does-not-exist) + :if-does-not-exist if-input-does-not-exist + :external-format external-format) (multiple-value-bind (stdout output-stream) (get-descriptor-for output cookie :direction :output :if-does-not-exist :create - :if-exists if-output-exists) + :if-exists if-output-exists + :external-format external-format) (multiple-value-bind (stderr error-stream) (if (eq error :output) (values stdout output-stream) (get-descriptor-for error cookie :direction :output :if-does-not-exist :create - :if-exists if-error-exists)) + :if-exists if-error-exists + :external-format external-format)) (multiple-value-bind (pty-name pty-stream) - (open-pty pty cookie) + (open-pty pty cookie external-format) ;; Make sure we are not notified about the child death before ;; we have installed the process struct in *active-processes* (system:without-interrupts @@ -644,6 +651,7 @@ ;;; second value. ;;; (defun get-descriptor-for (object cookie &rest keys &key direction + external-format &allow-other-keys) (cond ((eq object t) ;; No new descriptor is needed. @@ -674,12 +682,16 @@ (:input (push read-fd *close-in-parent*) (push write-fd *close-on-error*) - (let ((stream (system:make-fd-stream write-fd :output t))) + (let ((stream (system:make-fd-stream write-fd :output t + :external-format + external-format))) (values read-fd stream))) (:output (push read-fd *close-on-error*) (push write-fd *close-in-parent*) - (let ((stream (system:make-fd-stream read-fd :input t))) + (let ((stream (system:make-fd-stream read-fd :input t + :external-format + external-format))) (values write-fd stream))) (t (unix:unix-close read-fd)

1 0

[cmucl-cvs] CMUCL commit: src/code (unidata.lisp)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Sunday, September 19, 2010 @ 21:17:14 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: unidata.lisp Was mishandling the case where there are no more completions. In this case we were returning the prefix string, but that would be incorrect if the prefix string is not a valid character. So check that it is valid and return it. Otherwise do nothing (thereby returning nil) so slime can note the character is invalid. --------------+ unidata.lisp | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) Index: src/code/unidata.lisp diff -u src/code/unidata.lisp:1.20 src/code/unidata.lisp:1.21 --- src/code/unidata.lisp:1.20 Sun Sep 19 20:59:22 2010 +++ src/code/unidata.lisp Sun Sep 19 21:17:14 2010 @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.20 2010-09-20 00:59:22 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.21 2010-09-20 01:17:14 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -18,7 +18,7 @@ (defconstant +unidata-path+ #p"ext-formats:unidata.bin") -(defvar *unidata-version* "$Revision: 1.20 $") +(defvar *unidata-version* "$Revision: 1.21 $") (defstruct unidata range @@ -1291,7 +1291,12 @@ (if suffixes (loop for n in suffixes do (push (concatenate 'string full-prefix n) names)) - (push full-prefix names)))))) + ;; No suffixes. So either the prefix is the + ;; only possible completion or it's not valid. + ;; Figure that out. If it's valid, add it to + ;; names. + (when (search-dictionary (string-upcase prefix-tail) dictionary) + (push prefix-match names))))))) ;; Match prefix for Hangul syllables or CJK unified ideographs. (cond ((char= (char prefix-match 0) #\H) ;; Add "Hangul_Syllable_" as possible completion for @@ -1312,7 +1317,8 @@ (unless *cjk-unified-ideograph-dictionary* (build-cjk-unified-ideograph-dictionary)) (han-or-cjk-completion prefix-match "Cjk_Unified_Ideograph-" - *cjk-unified-ideograph-dictionary*))))) + *cjk-unified-ideograph-dictionary*) + )))) (setf names (mapcar #'string-capitalize names)) ;;(format t "Final names = ~S~%" names) names)))

1 0

[cmucl-cvs] CMUCL commit: src/code (unidata.lisp)
by Raymond Toy 20 Sep '10

20 Sep '10

Date: Sunday, September 19, 2010 @ 20:59:22 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: unidata.lisp Improve completion of Hangul syllables and CJK unified ideographs some more and fix some bugs in previous change. --------------+ unidata.lisp | 87 ++++++++++++++++++++++----------------------------------- 1 file changed, 35 insertions(+), 52 deletions(-) Index: src/code/unidata.lisp diff -u src/code/unidata.lisp:1.19 src/code/unidata.lisp:1.20 --- src/code/unidata.lisp:1.19 Sun Sep 19 19:07:46 2010 +++ src/code/unidata.lisp Sun Sep 19 20:59:22 2010 @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.19 2010-09-19 23:07:46 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.20 2010-09-20 00:59:22 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -18,7 +18,7 @@ (defconstant +unidata-path+ #p"ext-formats:unidata.bin") -(defvar *unidata-version* "$Revision: 1.19 $") +(defvar *unidata-version* "$Revision: 1.20 $") (defstruct unidata range @@ -1274,62 +1274,45 @@ completions starting with Prefix. If there is no match, NIL is returned." (let (names) - (cond ((search "Hangul_Syllable_" prefix) - (initialize-reverse-hangul-tables) - (unless *hangul-syllable-dictionary* - (build-hangul-syllable-dictionary)) - (multiple-value-bind (prefix-match next completep) - (unicode-complete-name (subseq prefix 16) - *hangul-syllable-dictionary*) - (loop for x in next - do (push (concatenate 'string "Hangul_Syllable_" prefix-match x) - names)) - (when completep - (push (concatenate 'string "Hangul_Syllable_" prefix-match) - names)))) - ((search "Cjk_Unified_Ideograph-" prefix) - (unless *cjk-unified-ideograph-dictionary* - (build-cjk-unified-ideograph-dictionary)) - (multiple-value-bind (prefix-match next completep) - (unicode-complete-name (subseq prefix 22) - *cjk-unified-ideograph-dictionary*) - (loop for x in next - do (push (concatenate 'string "Cjk_Unified_Ideograph-" prefix-match x) - names)) - (when completep - (push (concatenate 'string "Cjk_Unified_Ideograph-" prefix-match) - names))))) (multiple-value-bind (prefix-match next completep) (unicode-complete-name prefix dict) (loop for x in next do (push (concatenate 'string prefix-match x) names)) (when completep (push prefix-match names)) - ;; Match prefix against Hangul and/or Hangul_syllable - (cond ((search "Hangul_S" prefix-match - :end1 (min 8 (length prefix-match))) - ;; Add syllable as possible completion, and then try to - ;; complete some more so that we don't end up with slime - ;; saying "Hangul_Syllable_" is the only completion. - (multiple-value-bind (m suffixes) - (unicode-complete-name (subseq prefix-match (min 16 (length prefix-match))) - *hangul-syllable-dictionary*) - (declare (ignore m)) - (if suffixes - (loop for n in suffixes - do (push (concatenate 'string "Hangul_Syllable_" n) names)) - (push "Hangul_Syllable_" names)))) - ((or ;;(string= prefix-match "Cjk_") - (search "Cjk_Unified_Ideograph-" prefix-match - :end1 (min 22 (length prefix-match)))) - ;; Try to complete the first part so we don't get - ;; "Cjk_Unified_Ideograph-" as the only completion. - (multiple-value-bind (m suffixes) - (unicode-complete-name (subseq prefix-match (min 22 (length prefix-match))) - *cjk-unified-ideograph-dictionary*) - (declare (ignore m)) - (loop for n in suffixes - do (push (concatenate 'string "Cjk_Unified_Ideograph-" n) names))))) + (flet ((han-or-cjk-completion (prefix-match prefix dictionary) + (let* ((prefix-tail (subseq prefix-match + (min (length prefix) + (length prefix-match)))) + (full-prefix (concatenate 'string prefix prefix-tail))) + (multiple-value-bind (m suffixes) + (unicode-complete-name prefix-tail dictionary) + (declare (ignore m)) + (if suffixes + (loop for n in suffixes + do (push (concatenate 'string full-prefix n) names)) + (push full-prefix names)))))) + ;; Match prefix for Hangul syllables or CJK unified ideographs. + (cond ((char= (char prefix-match 0) #\H) + ;; Add "Hangul_Syllable_" as possible completion for + ;; anything beginning with "H". + (push "Hangul_Syllable_" names) + (when (<= (length names) 1) + ;; Hangul_Syllable is the only match, so let's extend it. + (unless *hangul-syllable-dictionary* + (initialize-reverse-hangul-tables) + (build-hangul-syllable-dictionary)) + (han-or-cjk-completion prefix-match "Hangul_Syllable_" + *hangul-syllable-dictionary*))) + ((char= (char prefix-match 0) #\C) + ;; Add "Cjk_Unified_Ideograph-" as possible completion + ;; for anything beginning with "C". + (push "Cjk_Unified_Ideograph-" names) + (when (<= (length names) 1) + (unless *cjk-unified-ideograph-dictionary* + (build-cjk-unified-ideograph-dictionary)) + (han-or-cjk-completion prefix-match "Cjk_Unified_Ideograph-" + *cjk-unified-ideograph-dictionary*))))) (setf names (mapcar #'string-capitalize names)) ;;(format t "Final names = ~S~%" names) names)))

1 0