lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

LSR - file information [0.24759]


From: MING TSANG
Subject: LSR - file information [0.24759]
Date: Sat, 26 Nov 2016 22:33:32 +0000 (UTC)

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
%}


reply via email to

[Prev in Thread] Current Thread [Next in Thread]