}
%%%% message functions of the Input class:
-#(display "\nMessage functions of the Input class:\n")
+#(display "\nMessage functions of the Input class:\n" (current-error-port))
messageTest = #(define-music-function (parser location) ()
(ly:input-message location "Test ly:input-message" )
(make-music 'Music))
{
-% #(display "-) Testing message\n")
+% #(display "-) Testing message\n" (current-error-port))
\messageTest % message
-% #(display "-) Testing warning\n")
+% #(display "-) Testing warning\n" (current-error-port))
c4( c( c) % warning
-% #(display "-) Testing error\n")
+% #(display "-) Testing error\n" (current-error-port))
% sr % error
}
%%%% message functions in the warn.hh file:
-#(display "Message functions in the warn.hh file:\n")
+#(display "Message functions in the warn.hh file:\n" (current-error-port))
-% #(display "-) Testing debug\n")
+% #(display "-) Testing debug\n" (current-error-port))
#(ly:debug "Test debug\n")
-% #(display "-) Testing progress\n")
+% #(display "-) Testing progress\n" (current-error-port))
#(ly:progress "Test progress\n")
-% #(display "-) Testing message\n")
+% #(display "-) Testing message\n" (current-error-port))
#(ly:message "Test message\n")
-% #(display "-) Testing warning\n")
+% #(display "-) Testing warning\n" (current-error-port))
#(ly:warning "Test warning\n")
-% #(display "-) Testing error\n")
-% #(ly:error "Test error\n")
+% #(display "-) Testing error\n" (current-error-port))
+% #(ly:error "Test error\n" (current-error-port))
(lambda (trans)
(display (list "initialize"
(ly:context-current-moment
- (ly:translator-context trans)) "\n"))))
+ (ly:translator-context trans)) "\n") (current-error-port))))
(cons 'start-translation-timestep
(lambda (trans)
(display (list "start-trans"
(ly:context-current-moment
- (ly:translator-context trans)) "\n"))))
+ (ly:translator-context trans)) "\n") (current-error-port))))
(cons 'listeners
(list
(cons 'rest-event (lambda (engraver event)
(let*
((x (ly:engraver-make-grob engraver 'TextScript event)))
- (display (list "caught event" event "\ncreate:\n" x "\n"))
+ (display (list "caught event" event "\ncreate:\n" x "\n") (current-error-port))
(ly:grob-set-property! x 'text "hi"))
))
))
(list
(cons 'note-head-interface
(lambda (engraver grob source-engraver)
- (display (list "saw head: " grob " coming from " source-engraver))
+ (display (list "saw head: " grob " coming from " source-engraver) (current-error-port))
))
))
(cons 'end-acknowledgers
(list
(cons 'beam-interface
(lambda (engraver grob source-engraver)
- (display (list "saw end of beam: " grob " coming from " source-engraver))
+ (display (list "saw end of beam: " grob " coming from " source-engraver) (current-error-port))
))
))
(cons 'process-music
(lambda (trans)
(display (list "process-music"
(ly:context-current-moment
- (ly:translator-context trans)) "\n"))))
+ (ly:translator-context trans)) "\n") (current-error-port))))
(cons 'process-acknowledged
(lambda (trans)
(display (list "process-acknowledged"
(ly:context-current-moment
- (ly:translator-context trans)) "\n"))))
+ (ly:translator-context trans)) "\n") (current-error-port))))
(cons 'stop-translation-timestep
(lambda (trans)
(display (list "stop-trans"
(ly:context-current-moment
- (ly:translator-context trans)) "\n"))))
+ (ly:translator-context trans)) "\n") (current-error-port))))
(cons 'finalize
(lambda (trans)
(display (list "finalize"
(ly:context-current-moment
- (ly:translator-context trans)) "\n"))))
+ (ly:translator-context trans)) "\n") (current-error-port))))
)
}}