[cmucl-cvs] CMUCL commit: src/code (fd-stream.lisp misc.lisp save.lisp string.lisp)

Raymond Toy rtoy at common-lisp.net
Wed Oct 13 18:00:44 UTC 2010


    Date: Wednesday, October 13, 2010 @ 14:00:44
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: fd-stream.lisp misc.lisp save.lisp string.lisp

Some changes to replace calls to gettext with _"" or _N"" for things
compiled with and without Unicode.  This is needed so that the pot
files have the same content for both unicode and non-unicode builds.
(The _"" and _N"" are handled by the reader, so things that are
conditionalized out still get processed, unlike using gettext.) 


----------------+
 fd-stream.lisp |   15 ++++++---------
 misc.lisp      |    4 ++--
 save.lisp      |    6 +++---
 string.lisp    |   16 ++++++++--------
 4 files changed, 19 insertions(+), 22 deletions(-)


Index: src/code/fd-stream.lisp
diff -u src/code/fd-stream.lisp:1.121 src/code/fd-stream.lisp:1.122
--- src/code/fd-stream.lisp:1.121	Tue Oct 12 17:52:44 2010
+++ src/code/fd-stream.lisp	Wed Oct 13 14:00:44 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/fd-stream.lisp,v 1.121 2010-10-12 21:52:44 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.122 2010-10-13 18:00:44 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1872,17 +1872,14 @@
 			  (d (cond ((characterp decoding-error)
 				    (constantly (char-code decoding-error)))
 				   ((eq t decoding-error)
-				    #+unicode
 				    #'(lambda (&rest args)
 					(apply 'cerror
-					       (intl:gettext "Use Unicode replacement character instead")
-					       args)
-					stream:+replacement-character-code+)
-				    #-unicode
-				    #'(lambda (&rest args)
-					(apply 'cerror
-					       (intl:gettext "Use question mark character instead")
+					       #+unicode _"Use Unicode replacement character instead"
+					       #-unicode _"Use question mark character instead"
 					       args)
+					#+unicode
+					stream:+replacement-character-code+
+					#-unicode
 					#\?))
 				   (t
 				    decoding-error))))
Index: src/code/misc.lisp
diff -u src/code/misc.lisp:1.41 src/code/misc.lisp:1.42
--- src/code/misc.lisp:1.41	Tue Apr 20 13:57:45 2010
+++ src/code/misc.lisp	Wed Oct 13 14:00:44 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/misc.lisp,v 1.41 2010-04-20 17:57:45 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.42 2010-10-13 18:00:44 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -182,7 +182,7 @@
 (defun lisp-implementation-version ()
   "Returns a string describing the implementation version."
   (format nil "~A (~X~A)" *lisp-implementation-version* c:byte-fasl-file-version
-	  #+unicode (intl:gettext " Unicode") #-unicode ""))
+	  #+unicode _" Unicode" #-unicode _""))
 
 (defun machine-instance ()
   "Returns a string giving the name of the local machine."
Index: src/code/save.lisp
diff -u src/code/save.lisp:1.71 src/code/save.lisp:1.72
--- src/code/save.lisp:1.71	Sun Sep 26 16:40:51 2010
+++ src/code/save.lisp	Wed Oct 13 14:00:44 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/save.lisp,v 1.71 2010-09-26 20:40:51 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/save.lisp,v 1.72 2010-10-13 18:00:44 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -364,14 +364,14 @@
 #+unicode
 (setf (getf *herald-items* :unicode)
       `(,#'(lambda (stream)
-	     (write-string (intl:gettext "    Unicode ") stream))
+	     (write-string _"    Unicode " stream))
 	,(if (and (boundp 'lisp::*unidata-version*)
 		  (>= (length lisp::*unidata-version*) 11))
 	     (subseq lisp::*unidata-version* 11
 		     (1- (length lisp::*unidata-version*)))
 	     " ")
 	,#'(lambda (stream)
-	     (write-string (intl:gettext "with Unicode version ") stream))
+	     (write-string _"with Unicode version " stream))
 	,#'(lambda (stream)
 	     (princ lisp::+unicode-major-version+ stream)
 	     (write-char #\. stream)
Index: src/code/string.lisp
diff -u src/code/string.lisp:1.27 src/code/string.lisp:1.28
--- src/code/string.lisp:1.27	Mon Sep 20 19:01:15 2010
+++ src/code/string.lisp	Wed Oct 13 14:00:44 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.27 2010-09-20 23:01:15 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/string.lisp,v 1.28 2010-10-13 18:00:44 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -990,7 +990,7 @@
 	    (when widep (incf index)))))))
 
 (defun string-left-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns
+  _N"Given a set of characters (a list or string) and a string, returns
   a copy of the string with the characters in the set removed from the
   left end.  If the set of characters is a string, surrogates will be
   properly handled."
@@ -1038,7 +1038,7 @@
 	    (when widep (decf index)))))))
 
 (defun string-right-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns
+  _N"Given a set of characters (a list or string) and a string, returns
   a copy of the string with the characters in the set removed from the
   right end.  If the set of characters is a string, surrogates will be
   properly handled."
@@ -1048,7 +1048,7 @@
       (subseq string start stop))))
 
 (defun string-trim (char-bag string)
-  "Given a set of characters (a list or string) and a string, returns a
+  _N"Given a set of characters (a list or string) and a string, returns a
   copy of the string with the characters in the set removed from both
   ends.  If the set of characters is a string, surrogates will be
   properly handled."
@@ -1352,17 +1352,17 @@
 	(shrink-vector target comp-pos)))))
 
 (defun string-to-nfd (string)
-  "Convert String to Unicode Normalization Form D (NFD) using the
+  _N"Convert String to Unicode Normalization Form D (NFD) using the
   canonical decomposition.  The NFD string is returned"
   (decompose string nil))
 
 (defun string-to-nfkd (string)
-  "Convert String to Unicode Normalization Form KD (NFKD) uisng the
+  _N"Convert String to Unicode Normalization Form KD (NFKD) uisng the
   compatible decomposition form.  The NFKD string is returned."
   (decompose string t))
 
 (defun string-to-nfc (string)
-  "Convert String to Unicode Normalization Form C (NFC).  If the
+  _N"Convert String to Unicode Normalization Form C (NFC).  If the
   string a simple string and is already normalized, the original
   string is returned."
   (if (normalized-form-p string :nfc)
@@ -1373,7 +1373,7 @@
 	      'simple-string)))
 
 (defun string-to-nfkc (string)
-  "Convert String to Unicode Normalization Form KC (NFKC).  If the
+  _N"Convert String to Unicode Normalization Form KC (NFKC).  If the
   string is a simple string and is already normalized, the original
   string is returned."
   (if (normalized-form-p string :nfkc)




More information about the cmucl-cvs mailing list