CMUCL commit: intl-branch src (4 files)
Raymond Toy
rtoy at common-lisp.net
Tue Feb 9 21:07:04 CET 2010
Date: Tuesday, February 9, 2010 @ 15:07:04
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: code/fd-stream-extfmt.lisp code/format.lisp i18n/locale/cmucl.pot
i18n/locale/ko/LC_MESSAGES/cmucl.po
Mark translatable strings; update cmucl.pot and ko/cmucl.po
accordingly.
-------------------------------------+
code/fd-stream-extfmt.lisp | 8 -
code/format.lisp | 8 -
i18n/locale/cmucl.pot | 156 ++++++++++++++++++++++++++++++++++
i18n/locale/ko/LC_MESSAGES/cmucl.po | 155 +++++++++++++++++++++++++++++++++
4 files changed, 319 insertions(+), 8 deletions(-)
Index: src/code/fd-stream-extfmt.lisp
diff -u src/code/fd-stream-extfmt.lisp:1.6.2.1 src/code/fd-stream-extfmt.lisp:1.6.2.2
--- src/code/fd-stream-extfmt.lisp:1.6.2.1 Mon Feb 8 12:15:47 2010
+++ src/code/fd-stream-extfmt.lisp Tue Feb 9 15:07:04 2010
@@ -5,7 +5,7 @@
;;; domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.6.2.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/fd-stream-extfmt.lisp,v 1.6.2.2 2010-02-09 20:07:04 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -51,16 +51,16 @@
(declare (type stream stream))
(stream-dispatch stream
;; simple-stream
- (error "Loading simple-streams should redefine this")
+ (error _"Loading simple-streams should redefine this")
;; lisp-stream
(typecase stream
(fd-stream (%set-fd-stream-external-format stream extfmt))
(synonym-stream (setf (stream-external-format
(symbol-value (synonym-stream-symbol stream)))
extfmt))
- (t (error "Don't know how to set external-format for ~S." stream)))
+ (t (error _"Don't know how to set external-format for ~S." stream)))
;; fundamental-stream
- (error "Setting external-format on Gray streams not supported."))
+ (error _"Setting external-format on Gray streams not supported."))
extfmt)
(defun %set-fd-stream-external-format (stream extfmt &optional (updatep t))
Index: src/code/format.lisp
diff -u src/code/format.lisp:1.93.10.1 src/code/format.lisp:1.93.10.2
--- src/code/format.lisp:1.93.10.1 Mon Feb 8 12:15:47 2010
+++ src/code/format.lisp Tue Feb 9 15:07:04 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/format.lisp,v 1.93.10.1 2010-02-08 17:15:47 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/code/format.lisp,v 1.93.10.2 2010-02-09 20:07:04 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -267,7 +267,7 @@
;;;; FORMAT
(defun format (destination control-string &rest format-arguments)
- "Provides various facilities for formatting output.
+ _N"Provides various facilities for formatting output.
CONTROL-STRING contains a string to be output, possibly with embedded
directives, which are flagged with the escape character \"~\". Directives
generally expand into additional text to be output, usually consuming one
@@ -1378,12 +1378,12 @@
(defconstant ordinal-ones
#(nil "first" "second" "third" "fourth"
"fifth" "sixth" "seventh" "eighth" "ninth")
- "Table of ordinal ones-place digits in English")
+ _N"Table of ordinal ones-place digits in English")
(defconstant ordinal-tens
#(nil "tenth" "twentieth" "thirtieth" "fortieth"
"fiftieth" "sixtieth" "seventieth" "eightieth" "ninetieth")
- "Table of ordinal tens-place digits in English")
+ _N"Table of ordinal tens-place digits in English")
(defun format-print-small-cardinal (stream n)
(multiple-value-bind
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.6 src/i18n/locale/cmucl.pot:1.1.2.7
--- src/i18n/locale/cmucl.pot:1.1.2.6 Tue Feb 9 13:41:59 2010
+++ src/i18n/locale/cmucl.pot Tue Feb 9 15:07:04 2010
@@ -2737,6 +2737,162 @@
msgid "The external-format for encoding filenames is already set."
msgstr ""
+#: target:code/fd-stream.lisp
+msgid ""
+"List of available buffers. Each buffer is an sap pointing to\n"
+" bytes-per-buffer of memory."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Number of bytes per buffer."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The maximum supported byte size for a stream element-type."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available output routines. Each element is a list of the\n"
+" element-type output, the kind of buffering, the function name, and the "
+"number\n"
+" of bytes per element."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Write would have blocked, but SERVER told us to go."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "While writing ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Output THING to stream. THING can be any kind of vector or a sap. If "
+"THING\n"
+" is a SAP, END must be supplied (as length won't work)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available input routines. Each element is a list of the\n"
+" element-type input, the function name, and the number of bytes per "
+"element."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error reading ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any input routine for ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any output routine for ~S buffered ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Input type (~S) and output type (~S) are unrelated?"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error lseek'ing ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Invalid position given to file-position: ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Create a stream for the given unix file descriptor.\n"
+" If input is non-nil, allow input operations.\n"
+" If output is non-nil, allow output operations.\n"
+" If neither input nor output are specified, default to allowing input.\n"
+" Element-type indicates the element type to use (as for open).\n"
+" Buffering indicates the kind of buffering to use.\n"
+" Timeout (if true) is the number of seconds to wait for input. If NIL "
+"(the\n"
+" default), then wait forever. When we time out, we signal IO-TIMEOUT.\n"
+" File is the name of the file (will be returned by PATHNAME).\n"
+" Name is used to identify the stream when printed."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "File descriptor must be opened either for input or output."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"This is a string that OPEN tacks on the end of a file namestring to produce\n"
+" a name for the :if-exists :rename-and-delete and :rename options. Also,\n"
+" this can be a function that takes a namestring and returns a complete\n"
+" namestring."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return a stream which reads from or writes to Filename.\n"
+" Defined keywords:\n"
+" :direction - one of :input, :output, :io, or :probe\n"
+" :element-type - Type of object to read or write, default BASE-CHAR\n"
+" :if-exists - one of :error, :new-version, :rename, :rename-and-delete,\n"
+" :overwrite, :append, :supersede or nil\n"
+" :if-does-not-exist - one of :error, :create or nil\n"
+" :external-format - an external format name\n"
+" See the manual for details."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Unable to open streams of class ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"The stream connected to the controlling terminal or NIL if there is none."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard input (file descriptor 0)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard output (file descriptor 1)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard error output (file descriptor 2)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "This is called in BEEP to feep the user. It takes a stream."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return the delta in Stream's FILE-POSITION that would be caused by writing\n"
+" Object to Stream. Non-trivial only in implementations that support\n"
+" international character sets."
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Don't know how to set external-format for ~S."
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Loading simple-streams should redefine this"
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Setting external-format on Gray streams not supported."
+msgstr ""
+
#: target:code/filesys.lisp
msgid ""
"Remove any occurrences of \\ from the string because we've already\n"
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.6 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.7
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.6 Tue Feb 9 13:41:59 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Tue Feb 9 15:07:04 2010
@@ -2752,6 +2752,161 @@
msgid "The external-format for encoding filenames is already set."
msgstr ""
+#: target:code/fd-stream.lisp
+msgid ""
+"List of available buffers. Each buffer is an sap pointing to\n"
+" bytes-per-buffer of memory."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Number of bytes per buffer."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The maximum supported byte size for a stream element-type."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available output routines. Each element is a list of the\n"
+" element-type output, the kind of buffering, the function name, and the "
+"number\n"
+" of bytes per element."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Write would have blocked, but SERVER told us to go."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "While writing ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Output THING to stream. THING can be any kind of vector or a sap. If "
+"THING\n"
+" is a SAP, END must be supplied (as length won't work)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"List of all available input routines. Each element is a list of the\n"
+" element-type input, the function name, and the number of bytes per element."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error reading ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any input routine for ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Could not find any output routine for ~S buffered ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Input type (~S) and output type (~S) are unrelated?"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Error lseek'ing ~S: ~A"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Invalid position given to file-position: ~S"
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Create a stream for the given unix file descriptor.\n"
+" If input is non-nil, allow input operations.\n"
+" If output is non-nil, allow output operations.\n"
+" If neither input nor output are specified, default to allowing input.\n"
+" Element-type indicates the element type to use (as for open).\n"
+" Buffering indicates the kind of buffering to use.\n"
+" Timeout (if true) is the number of seconds to wait for input. If NIL "
+"(the\n"
+" default), then wait forever. When we time out, we signal IO-TIMEOUT.\n"
+" File is the name of the file (will be returned by PATHNAME).\n"
+" Name is used to identify the stream when printed."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "File descriptor must be opened either for input or output."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"This is a string that OPEN tacks on the end of a file namestring to produce\n"
+" a name for the :if-exists :rename-and-delete and :rename options. Also,\n"
+" this can be a function that takes a namestring and returns a complete\n"
+" namestring."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return a stream which reads from or writes to Filename.\n"
+" Defined keywords:\n"
+" :direction - one of :input, :output, :io, or :probe\n"
+" :element-type - Type of object to read or write, default BASE-CHAR\n"
+" :if-exists - one of :error, :new-version, :rename, :rename-and-delete,\n"
+" :overwrite, :append, :supersede or nil\n"
+" :if-does-not-exist - one of :error, :create or nil\n"
+" :external-format - an external format name\n"
+" See the manual for details."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "Unable to open streams of class ~S."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"The stream connected to the controlling terminal or NIL if there is none."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard input (file descriptor 0)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard output (file descriptor 1)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "The stream connected to the standard error output (file descriptor 2)."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid "This is called in BEEP to feep the user. It takes a stream."
+msgstr ""
+
+#: target:code/fd-stream.lisp
+msgid ""
+"Return the delta in Stream's FILE-POSITION that would be caused by writing\n"
+" Object to Stream. Non-trivial only in implementations that support\n"
+" international character sets."
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Don't know how to set external-format for ~S."
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Loading simple-streams should redefine this"
+msgstr ""
+
+#: target:code/fd-stream-extfmt.lisp
+msgid "Setting external-format on Gray streams not supported."
+msgstr ""
+
#: target:code/filesys.lisp
msgid ""
"Remove any occurrences of \\ from the string because we've already\n"
More information about the cmucl-commit
mailing list