Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #354 - Cleanup

Browse source
This commit is contained in:
Justin Ethier 2020-01-10 17:17:43 -05:00
parent bc3ab62439
commit 77a02fe26d
1 changed files with 6 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
cyclone.scm
View file

@ -56,25 +56,16 @@
includes))
(base (basename sld-file))
(obj-file (string-append base ".o"))
(sys-dir (Cyc-installation-dir 'sld))
)
; DEBUG:
;(display (list lib-dep "includes" included-files) (current-error-port))
;(newline (current-error-port))
(sys-dir (Cyc-installation-dir 'sld)) )
(and
(not (in-subdir? sys-dir sld-file)) ;; Never try to recompile installed libraries
(or
(not (file-exists? obj-file)) ;; No obj file, must rebuild
(any (lambda (src-file)
(let ((result (> (file-mtime src-file)
(file-mtime obj-file))) ;; obj file out of date
)
; (when result
;(display (list "DEBUG src file newer than obj" src-file obj-file) (current-error-port))
;(newline (current-error-port)))
result))
(cons sld-file included-files))
))))
(any
(lambda (src-file)
(> (file-mtime src-file)
(file-mtime obj-file))) ;; obj file out of date
(cons sld-file included-files))))))
;; Is "path" under given subdirectory "dir"?
(define (in-subdir? dir path)
@ -288,8 +279,6 @@
(for-each
(lambda (lib-dep)
(when (recompile? lib-dep append-dirs prepend-dirs)
;(write `(DEBUG auto compile ,lib-dep) (current-error-port))
;(newline (current-error-port))
(system (string-append "cyclone "
(lib:import->filename lib-dep ".sld" append-dirs prepend-dirs)))))
lib-deps))