Pierre Perol-Schneider <pierre.schneider.pa...@gmail.com> writes:
> Hi Squad,
>
> The following snippet :
> http://lsr.dsi.unimi.it/LSR/Item?id=197
> partially compile with warnings :
Conversion works after normalizing the awful Scheme formatting. Try
convert-ly on the following:
% originally made for
% \version "2.14.0"
%{ Display ly file information on the score, including file name, file size,
LilyPond version, date processed, time processed, time last modified, and
the LilyPond command line. %}
#(define comml (object->string (command-line)))
#(define loc (+ (string-rindex comml #\space ) 2))
#(define commllen (- (string-length comml) 2))
#(define filen (substring comml loc commllen))
#(define siz (object->string (stat:size (stat filen))))
#(define ver (object->string (lilypond-version)))
#(define dat (strftime "%m/%d/%Y" (localtime (current-time))))
#(define tim (strftime "%H:%M:%S" (localtime (current-time))))
#(define modt (stat:mtime (stat filen)))
#(define modts (strftime "%m/%d/%Y %H:%M:%S" (localtime modt)))
\header { dedication = \markup \column {
{ "- - - - - - Using Scheme \"define\"- - - - - -" } % "
\line { "File Name = " \filen }
\line { "File Size = " \siz }
\line { "LilyPond Version = " \ver }
\line { "Date Processed = " \dat }
\line { "Time Processed = " \tim }
\line { "Last Modified = " \modts }
\line { "Command Line = " \comml }
{ "" }
{ "- - - - - - Using \"ly:export\" - - - - - -" } % "
{ #(ly:export (string-append "File Name = "
(substring (object->string (command-line))
(+ (string-rindex (object->string (command-line)) #\sp ) 1)
(- (string-length (object->string (command-line))) 1)))) }
{ #(ly:export (string-append "File Size = "
(object->string (stat:size (stat filen))))) }
{ #(ly:export (string-append "LilyPond Version = "
(lilypond-version))) }
{ #(ly:export (string-append "Date Processed = "
(strftime "%m/%d/%Y" (localtime (current-time))))) }
{ #(ly:export (string-append "Time Processed = "
(strftime "%H:%M:%S" (localtime (current-time))))) }
{ #(ly:export (string-append "Last Modified = "
(strftime "%m/%d/%Y %H:%M:%S"
(localtime (stat:mtime (stat filen)))))) }
{ #(ly:export (string-append "Command Line = "
(object->string (command-line)))) }
} }
{ c''1_\markup { \column {
{ "- - - - - - In \"markup\" - - - - - -" } % "
\line { "File Name = " \filen }
\line { "File Size = " \siz }
\line { "LilyPond Version = " \ver }
\line { "Date Processed = " \dat }
\line { "Time Processed = " \tim }
\line { "Last Modified = " \modts }
\line { "Command Line = " \comml }
}}}
--
David Kastrup
_______________________________________________
bug-lilypond mailing list
bug-lilypond@gnu.org
https://lists.gnu.org/mailman/listinfo/bug-lilypond
