From 2e16f9166745308fac179b13de4eb56a0c16a242 Mon Sep 17 00:00:00 2001 From: Kris Katterjohn Date: Mon, 3 May 2021 15:39:37 -0400 Subject: [PATCH] Reformat the lisp comments at the beginning of translated files This primarily puts all of the comments together instead of being split before and after the IN-PACKAGE form. There are some other small changes to wording, whitespace and leading semicolons. I think the comments are easier to read now. --- src/transs.lisp | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/src/transs.lisp b/src/transs.lisp index adef41621..155e261d8 100644 --- a/src/transs.lisp +++ b/src/transs.lisp @@ -222,7 +222,7 @@ translated." (setq *translation-msgs-files* (list warn-stream)) (if $tr_file_tty_messagesp (setq *translation-msgs-files* (cons *standard-output* *translation-msgs-files*))) - (format out-stream ";;; -*- Mode: Lisp; package:maxima; syntax:common-lisp ;Base: 10 -*- ;;;~%") + (format out-stream ";;; -*- Mode: Lisp; package:maxima; syntax:common-lisp ;Base: 10 -*- ;;;~%~%") (flet ((timezone-iso8601-name (dst tz) ;; This function was borrowed from CMUCL. (let ((tz (- tz))) @@ -237,18 +237,17 @@ translated." (multiple-value-bind (secs mins hours day month year dow dst tz) (decode-universal-time (get-universal-time)) (declare (ignore dow)) - (format out-stream (intl:gettext ";;; Translated on: ~D-~2,'0D-~2,'0D ~2,'0D:~2,'0D:~2,'0D~A~%") + (format out-stream (intl:gettext "; Translated on: ~D-~2,'0D-~2,'0D ~2,'0D:~2,'0D:~2,'0D~A~%") year month day hours mins secs (timezone-iso8601-name dst tz)))) - (format out-stream (intl:gettext ";;; Maxima version: ~A~%") *autoconf-version*) - (format out-stream (intl:gettext ";;; Lisp implementation: ~A~%") (lisp-implementation-type)) - (format out-stream (intl:gettext ";;; Lisp version: ~A~%") (lisp-implementation-version)) - (format out-stream "(in-package :maxima)~%") + (format out-stream (intl:gettext "; Maxima version: ~A~%") *autoconf-version*) + (format out-stream (intl:gettext "; Lisp implementation: ~A~%") (lisp-implementation-type)) + (format out-stream (intl:gettext "; Lisp version: ~A~%;~%") (lisp-implementation-version)) + (format out-stream (intl:gettext "; Translator state vars:~%;~%")) + (loop for v in (cdr $tr_state_vars) + do (mformat out-stream "; ~:M: ~:M;~%" v (symbol-value v))) + (format out-stream "~%(in-package :maxima)~%") (format warn-stream (intl:gettext "This is the unlisp file for ~A~%") (namestring (pathname in-stream))) - (mformat out-stream - (intl:gettext ";;** Translator flags were: **~%~%")) - (loop for v in (cdr $tr_state_vars) - do (mformat out-stream ";; ~:M: ~:M;~%" v (symbol-value v))) (mformat *terminal-io* (intl:gettext "translator: begin translating ~A.~%") (pathname in-stream)) (call-batch1 in-stream out-stream) -- 2.11.4.GIT