From: Han-Wen Nienhuys Date: Thu, 24 Jul 2003 14:00:18 +0000 (+0000) Subject: * Documentation/user/internals.itely (Manipulating music X-Git-Tag: release/1.7.30~93 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=79a1d3e220b3d1238fe9f483c9960d4b82c28249;p=lilypond.git * Documentation/user/internals.itely (Manipulating music expressions): run lilypond on example too. * flower/include/libc-extension.hh: move lrint define to header. bugfix. --- diff --git a/ChangeLog b/ChangeLog index 8f94d194af..f7e99a0e64 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2003-07-24 Han-Wen Nienhuys + + * Documentation/user/internals.itely (Manipulating music + expressions): run lilypond on example too. + + * flower/include/libc-extension.hh: move lrint define to + header. bugfix. + 2003-07-24 Jan Nieuwenhuizen * stepmake/GNUmakefile.in (STEPMAKE_TEMPLATES): diff --git a/Documentation/user/internals.itely b/Documentation/user/internals.itely index 10c5ee88ab..f33af4ec27 100644 --- a/Documentation/user/internals.itely +++ b/Documentation/user/internals.itely @@ -755,13 +755,13 @@ properties using the functions @code{ly:get-music-property} and An example is a function that reverses the order of elements in its argument: -@example +@lilypond[verbatim,singleline] #(define (rev-music-1 m) (ly:set-music-property! 'elements (reverse (ly:get-music-property mus 'elements))) - ) - \apply #rev-music-1 @{ c4 d4 @} -@end example + m) + \apply #rev-music-1 { c4 d4 } +@end lilypond The use of such a function is very limited. The effect of this function is void when applied to an argument which is does not have diff --git a/flower/include/libc-extension.hh b/flower/include/libc-extension.hh index baf41bbd95..bfba8c9d03 100644 --- a/flower/include/libc-extension.hh +++ b/flower/include/libc-extension.hh @@ -37,6 +37,12 @@ int isinf (double x); #endif + +#if ! HAVE_LRINT +#define lrint(__x) ((long) (round (__x))) +#endif + + Byte *memrchr (Byte const * p, int n, char c); Byte *strrev (Byte* byte, int length_i); diff --git a/flower/libc-extension.cc b/flower/libc-extension.cc index e994344d7f..4d42ce44b3 100644 --- a/flower/libc-extension.cc +++ b/flower/libc-extension.cc @@ -36,10 +36,6 @@ strnupr (char* start, int n) } -#if ! HAVE_LRINT -#define lrint(__x) ((long) (round (__x) -#endif - #if !HAVE_ISINF int diff --git a/lily/staff-symbol-referencer.cc b/lily/staff-symbol-referencer.cc index 0ed60e616b..767aeb6d00 100644 --- a/lily/staff-symbol-referencer.cc +++ b/lily/staff-symbol-referencer.cc @@ -11,7 +11,7 @@ #include "staff-symbol-referencer.hh" #include "staff-symbol.hh" #include "paper-def.hh" - +#include "libc-extension.hh" int