I run LSR 197 and got the following error message. I don't know how to
interpret the error message. Can someone show me or make correction so that it
will run on v2.15.29? Thanks.
<><><><><><><><> error message ><><><><
% originally made for
% \version "2.12.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 }
}}}
Blessing in+,_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
