On Aug 31, 2014, at 5:14 AM, Phil Holmes m...@philholmes.net wrote:
- Original Message - From: Patrick or Cynthia Karl pck...@me.com
To: lilypond-user@gnu.org; Paul Morris p...@paulwmorris.com
Sent: Saturday, August 30, 2014 8:27 PM
Subject: Re:lilypond input filename access (Paul Morris)
Message: 8
Date: Sat, 30 Aug 2014 08:34:40 -0700 (PDT)
From: Paul Morris p...@paulwmorris.com
To: lilypond-user@gnu.org
Subject: Re: lilypond input filename access
Patrick or Cynthia Karl wrote
Is there a way to access the input filename that lilypond was invoked with
in order to include it in text output to the pdf file generated?
This snippet shows how:
http://lsr.di.unimi.it/LSR/Item?id=197
HTH
That helps a lot. However, that snippet begins:
% originally made for
% \version 2.14.0
% Modified by David Kastrup for V:2.18 on Feb. 2014
and doesn’t compile without errors. I added a '\version “2.14.0” ‘ statement
and ran the version 2.18.2 convert-ly on it and the result compiles without
error. It looks like David’s actual mods have gotten lost somehow.
Could you let us have a copy of the working version, please?
Yes, appended.
Note that although the result compiles without error, there appear to be
defects in the generated pdf in that several text strings lie partially outside
the page.
(It’s also curious that the comment in line 6 was changed from % \version
“2.14.0” to % \version “2.18.0”. I have manually changed this back to the
original comment.
The modified snippet:
\version 2.18.0
%% http://lsr.dsi.unimi.it/LSR/Item?id=197
%% see also
http://lilypond.1069038.n5.nabble.com/LSR-v-2-18-quot-File-Information-quot-strange-warnings-tc159399.html
% originally made for
% \version 2.14.0
% Modified by David Kastrup for V:2.18 on Feb. 2014
%{ 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-appendFile Name =
(substring (object-string (command-line))
(+ (string-rindex (object-string (command-line)) #\sp ) 1)
(- (string-length (object-string (command-line))) 1))) }
{ $(string-appendFile Size =
(object-string (stat:size (stat filen }
{ $(string-appendLilyPond Version =
(lilypond-version)) }
{ $(string-appendDate Processed =
(strftime %m/%d/%Y (localtime (current-time }
{ $(string-appendTime Processed =
(strftime %H:%M:%S (localtime (current-time }
{ $(string-appendLast Modified =
(strftime %m/%d/%Y %H:%M:%S
(localtime (stat:mtime (stat filen) }
{ $(string-appendCommand 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 }
}}}
--
Phil Holmes
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user