Hi Lily ponders
I try to user LSR to get file information. I assume the LSR is writen for
V2.18.2. Si I did a lily convert. The following is the LSR:
Thank you for the help.Immanuel,Ming.
\version "2.19.49"
%{ 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\" - - - - - -" } %
"{ $(string-append "File Name = " (substring (object->string
(command-line)) (+ (string-rindex (object->string (command-line))
#\sp ) 1) (- (string-length (object->string (command-line))) 1))) }{
$(string-append "File Size = " (object->string (stat:size (stat
filen)))) } { $(string-append "LilyPond Version = "
(lilypond-version)) } { $(string-append "Date Processed = "
(strftime "%m/%d/%Y" (localtime (current-time)))) }{ $(string-append "Time
Processed = " (strftime "%H:%M:%S" (localtime (current-time)))) }{
$(string-append "Last Modified = " (strftime "%m/%d/%Y
%H:%M:%S" (localtime (stat:mtime (stat filen))))) }{
$(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 }}}}
%{convert-ly.py (GNU LilyPond) 2.19.51 convert-ly.py: Processing `'...Applying
conversion: 2.19.2, 2.19.7, 2.19.11, 2.19.16, 2.19.22,2.19.24, 2.19.28,
2.19.29, 2.19.32, 2.19.40, 2.19.46, 2.19.49%}
I got the following error log. I am not a programer and cannot fix the error
code 1\version "2.19.49"
%{ 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\" - - - - - -" } %
"{ $(string-append "File Name = " (substring (object->string
(command-line)) (+ (string-rindex (object->string (command-line))
#\sp ) 1) (- (string-length (object->string (command-line))) 1))) }{
$(string-append "File Size = " (object->string (stat:size (stat
filen)))) } { $(string-append "LilyPond Version = "
(lilypond-version)) } { $(string-append "Date Processed = "
(strftime "%m/%d/%Y" (localtime (current-time)))) }{ $(string-append "Time
Processed = " (strftime "%H:%M:%S" (localtime (current-time)))) }{
$(string-append "Last Modified = " (strftime "%m/%d/%Y
%H:%M:%S" (localtime (stat:mtime (stat filen))))) }{
$(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 }}}}
%{convert-ly.py (GNU LilyPond) 2.19.51 convert-ly.py: Processing `'...Applying
conversion: 2.19.2, 2.19.7, 2.19.11, 2.19.16, 2.19.22,2.19.24, 2.19.28,
2.19.29, 2.19.32, 2.19.40, 2.19.46, 2.19.49%}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
