Re: Noms de fichiers de sortie

[Valentin Villenave]

On 4/3/20, Olivier Geay <address@hidden> wrote:
> Effectivement, il manquait les \book, mais une fois rajoutés c'est
> retour à la case départ avec

Pourtant chez moi j’obtiens bien -1.midi, -2.midi etc:

%%%%

#(define (my-print-book-with book process-procedure)
   (define (get-current-filename book)
     (or (paper-variable book 'output-filename)
         (ly:parser-output-name)))
   (define (get-current-suffix book)
     (let ((book-output-suffix (paper-variable book
                                               'output-suffix)))
       (if (not (string? book-output-suffix))
           (ly:parser-lookup 'output-suffix)
           book-output-suffix)))
   (define (get-outfile-name book)
     (let* ((base-name (get-current-filename book))
            (output-suffix (get-current-suffix book))
            (alist-key (format #f "~a~a" base-name output-suffix))
            (counter-alist (ly:parser-lookup 'counter-alist))
            (output-count (assoc-get alist-key
                                     counter-alist 1)) ; 0))
            (result base-name))
       (if (string? output-suffix)
           (set! result
                 (format #f "~a-~a"
                         result
                         (string-regexp-substitute
                          "[^-[:alnum:]]"
                          "_"
                          output-suffix))))
       ;  (if (> output-count 0)
       (set! result (format #f "~a-~a" result output-count)); )

       (ly:parser-define! 'counter-alist
                          (assoc-set! counter-alist alist-key
                                      (1+ output-count)))
       (set! current-outfile-name result)
       result)) ;)
   (let* ((paper (ly:parser-lookup '$defaultpaper))
          (layout (ly:parser-lookup '$defaultlayout))
          (outfile-name (get-outfile-name book)))
     (process-procedure book paper layout outfile-name)))

#(define-public (print-book-with-my-defaults book)
   (my-print-book-with book ly:book-process))

#(define toplevel-book-handler print-book-with-my-defaults)

\book {
  \score { b1 \midi {} }
}
\book {
  \score { b1 \midi {} }
}
\book {
  \score { b1 \midi {} }
}
\book {
  \score { b1 \midi {} }
}
\book {
  \score { b1 \midi {} }
}
\book {
  \score { b1 \midi {} }
}
\book {
  \score { b1 \midi {} }
}
\book {
  \score { b1 \midi {} }
}

%%%%

V.