From b1c0708d6c1371cc04fedc03b9d66cbdbab2c81e Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 15 Sep 2010 15:49:17 +0000 Subject: [PATCH] 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. --- tools/piglatin.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tools/piglatin.lisp b/tools/piglatin.lisp index b97a503dc..1b34bccc4 100644 --- a/tools/piglatin.lisp +++ b/tools/piglatin.lisp @@ -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) -- GitLab