Skip to content
Snippets Groups Projects
Commit b1c0708d authored by rtoy's avatar rtoy
Browse files

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.
parent de3da523
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment