Prevent race condition in `-dfont-ps-resdir`

scm/framework-ps.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 2004--2020 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
 ;;;; the Free Software Foundation, either version 3 of the License, or
 ;;;; (at your option) any later version.
 ;;;;
 ;;;; LilyPond is distributed in the hope that it will be useful,
@@ skipping 263 matching lines @@
                           #t
                           #f)
                       #f)
                   #f)
               #f)))
     (close-port port)
     retval))
 
 (define (link-ps-resdir-font name file-name font-index)
   (ly:debug (_ "Preparing font ~a in PostScript resource directory\
- from file `~a' index ~a...")

[lemzwerg, 2020/05/09 13:30:15]

Maybe

  for subfont ~a of file ~a")

?

[trueroad, 2020/05/09 14:19:20]

Done.

-            name file-name font-index)
+ for subfont ~a of file `~a'...")
+            name font-index file-name)
   (let* ((index (if (number? font-index) font-index 0))
          (font-format (ly:get-font-format file-name index)))
     (cond
      ((and (eq? font-format 'CFF)
            (is-collection-font? file-name))
       ;; OpenType/CFF Collection (OTC)
       (let* ((newpath (if (ly:has-glyph-names? file-name index)
                           (format #f "~a/Font/~a"
                                   (ly:get-option 'font-ps-resdir) name)
                           (format #f "~a/CIDFont/~a"
@@ skipping 238 matching lines @@
       pfas))
 
   (define (font-export name body)
     (let* ((filename (format #f "~a/~a.font.ps"
                              (ly:get-option 'font-export-dir)
                              name))
            (port-excl (create-file-exclusive filename)))
       (if (not port-excl)
           (begin
             (ly:debug
-             (_ "Font file `~a' already exists, skipping.")

[lemzwerg, 2020/05/09 13:30:16]

s/\./.../ to be in sync with other, similar error messages.

Alternatively, you might do s/\.\.\././ in the other error messages :-)

[trueroad, 2020/05/09 14:19:21]

Done.

+             (_ "Font file `~a' already exists, skipping...")
              filename)
             #f)
           ;; MinGW hack: need to have "b"inary for fonts
           (let ((port (open-file filename "wb")))
             (close port-excl)
             (ly:debug (_ "Exporting font file `~a'.") filename)
             (if (or (ly:get-option 'gs-load-fonts)
                     (ly:get-option 'gs-load-lily-fonts))
                 (begin
                   (display "%%BeginProlog\n" port)
@@ skipping 408 matching lines @@
 
   lilypond -dbackend=eps FILE
 
 If you have cut & pasted a lilypond fragment from a webpage, be sure
 to only remove anything before
 
   %% ****************************************************************
   %% Start cut-&-pastable-section
   %% ****************************************************************
 ")))