CMUCL commit: src/tools (piglatin.lisp)

[Raymond Toy]

    Date: Wednesday, September 15, 2010 @ 11:49:17
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/tools

Modified: piglatin.lisp

o Insert a Language field in the header.
o Remove the hard-coded version from Project-Id-Version.  Instead, use
  the fasl-file version of the compiling lisp instead.


---------------+
 piglatin.lisp |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)


Index: src/tools/piglatin.lisp
diff -u src/tools/piglatin.lisp:1.3 src/tools/piglatin.lisp:1.4
--- src/tools/piglatin.lisp:1.3	Mon Jul 12 11:00:24 2010
+++ src/tools/piglatin.lisp	Wed Sep 15 11:49:17 2010
@@ -77,13 +77,14 @@
 
 
 (defconstant +piglatin-header+
-  "\"Project-Id-Version: CMUCL 20A\\n\"
+  "\"Project-Id-Version: CMUCL ~X\\n\"
 \"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\\n\"
 \"Last-Translator: Automatic translation\\n\"
 \"Language-Team: Pig Latin (auto-translated)\\n\"
 \"MIME-Version: 1.0\\n\"
 \"Content-Type: text/plain; charset=UTF-8\\n\"
 \"Content-Transfer-Encoding: 8bit\\n\"
+\"Language: Pig Latin\\n\"
 \"Plural-Forms: nplurals=2; plural=(n != 1);\\n\"
 ")
 
@@ -125,7 +126,7 @@
 		     ((eq item 'msgstr)
 		      (write-string "msgstr " po)
 		      (when (equal string '(""))
-			(write-string +piglatin-header+ po)
+			(format po +piglatin-header+ (c::backend-fasl-file-version c::*native-backend*))
 			(setq string nil))
 		      (dolist (x string)
 			(write-char #\" po)