artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

build: Configure: remove temp files.

Browse source 
* configure (gulp-pipe*): Remove .error.
(check-header-c): Remove .config.c.
(check-compile-c): Likewise.
(check-link-c): Likewise.
This commit is contained in:
Jan Nieuwenhuizen 2019-02-18 07:22:50 +01:00
parent 6eaba71161
commit d7159d607a
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
configure vendored
View file

@ -91,6 +91,8 @@ MES_ARENA=100000000 exec ${SCHEME-guile} -L . --no-auto-compile -e '(configure)'
(output (read-string port)) (output (read-string port))
(status (close-pipe port)) (status (close-pipe port))
(error (with-input-from-file ".error" read-string))) (error (with-input-from-file ".error" read-string)))
(when (file-exists? ".error")
(delete-file ".error"))
(set-current-error-port err) (set-current-error-port err)
(verbose "command[~a]: ~s => ~a [~a]\n" status command output error) (verbose "command[~a]: ~s => ~a [~a]\n" status command output error)
(if (not (zero? status)) "" (if (not (zero? status)) ""
@ -223,6 +225,8 @@ MES_ARENA=100000000 exec ${SCHEME-guile} -L . --no-auto-compile -e '(configure)'
(let ((name (dependency-name dependency))) (let ((name (dependency-name dependency)))
(stderr "checking for ~a..." name) (stderr "checking for ~a..." name)
(let ((result (check cc name))) (let ((result (check cc name)))
(when (file-exists? ".config.c")
(delete-file ".config.c"))
(stderr " ~a\n" (if result "yes" "no")) (stderr " ~a\n" (if result "yes" "no"))
(if result (set-field dependency (dependency-file-name) name) (if result (set-field dependency (dependency-file-name) name)
dependency)))) dependency))))
@ -231,6 +235,8 @@ MES_ARENA=100000000 exec ${SCHEME-guile} -L . --no-auto-compile -e '(configure)'
(let ((name (dependency-name dependency))) (let ((name (dependency-name dependency)))
(stderr "checking for ~a..." name) (stderr "checking for ~a..." name)
(let ((result (check cc (dependency-data dependency)))) (let ((result (check cc (dependency-data dependency))))
(when (file-exists? ".config.c")
(delete-file ".config.c"))
(stderr " ~a\n" (if result "yes" "no")) (stderr " ~a\n" (if result "yes" "no"))
(if result (set-field dependency (dependency-file-name) name) (if result (set-field dependency (dependency-file-name) name)
dependency)))) dependency))))
@ -239,6 +245,8 @@ MES_ARENA=100000000 exec ${SCHEME-guile} -L . --no-auto-compile -e '(configure)'
(let ((name (dependency-name dependency))) (let ((name (dependency-name dependency)))
(stderr "checking for ~a..." name) (stderr "checking for ~a..." name)
(let ((result (check cc (dependency-data dependency)))) (let ((result (check cc (dependency-data dependency))))
(when (file-exists? ".config.c")
(delete-file ".config.c"))
(stderr " ~a\n" (if result "yes" "no")) (stderr " ~a\n" (if result "yes" "no"))
(if result (set-field dependency (dependency-file-name) name) (if result (set-field dependency (dependency-file-name) name)
dependency)))) dependency))))