Please, this is a very tedious method for your and everybody else to
help you debug .ly files for version 2.8, just because you only have
version 2.4 on your own machine.
I know you want to keep your installation of 2.4, but isn't there any
way for you to get access also to a recent version?
If your installation of LilyPond 2.4 is via a cygwin package, then you
can safely install the 2.8 package from www.lilypond.org. It shouldn't
interfere with cygwin, unless you expicitly modify your $PATH so that
cygwin sees the 2.8 version that's installed in C:\Program Files\LilyPond\.
Regarding this specific file, I got a backtrace from Guile unless I removed
all lines that refered to stat:size or stat:mtime. Still, it doesn't
compile
cleanly, but I don't have the time right now to look more into what you
are trying to do.
/Mats
Fairchild wrote:
The ly file below doesn't function in the LSR environment.
- Bruce
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%{ 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 slashloc ( + ( string-rindex comml #\/ ) 1 ))
#( define commllen ( - ( string-length comml ) 2 ))
#( define filen ( substring comml slashloc 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 "%T" ( localtime ( current-time ))))
#( define modt ( stat:mtime ( stat filen )))
#( define modts ( strftime "%m/%d/%Y %T" (localtime modt)))
\header { dedication = \markup \column <
{ "- - - - - - Using Scheme \"define\"- - - - - -" } % "
{ "File Name = " \filen }
{ "File Size = " \siz }
{ "LilyPond Version = " \ver }
{ "Date Processed = " \dat }
{ "Time Processed = " \tim }
{ "Last Modified = " \modts }
{ "Command Line = " \comml }
{ "" }
{ "- - - - - - Using \"ly:export\" - - - - - -" } % "
{ #( ly:export ( string-append "File Name = "
( substring ( object->string ( command-line ))
( + ( string-rindex ( object->string ( command-line )) #\/
) 1 )
( - ( string-length ( object->string ( command-line )) ) 2
)))) }
{ #( 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 "%T" ( localtime ( current-time ))))) }
{ #( ly:export ( string-append "Last Modified = "
( strftime "%m/%d/%Y %T"
( localtime ( stat:mtime ( stat filen )))))) }
{ #( ly:export ( string-append "Command Line = "
( object->string ( command-line )))) }
> }
{ c''1_\markup { \column <
{ "- - - - - - In \"markup\" - - - - - -" } % "
{ "File Name = " \filen }
{ "File Size = " \siz }
{ "LilyPond Version = " \ver }
{ "Date Processed = " \dat }
{ "Time Processed = " \tim }
{ "Last Modified = " \modts }
{ "Command Line = " \comml }
>}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
------------------------------------------------------------------------
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
--
=============================================
Mats Bengtsson
Signal Processing
Signals, Sensors and Systems
Royal Institute of Technology
SE-100 44 STOCKHOLM
Sweden
Phone: (+46) 8 790 8463
Fax: (+46) 8 790 7260
Email: [EMAIL PROTECTED]
WWW: http://www.s3.kth.se/~mabe
=============================================
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
