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

WIP

Browse source
This commit is contained in:
Justin Ethier 2020-01-09 23:00:09 -05:00
parent b28238f8dd
commit 192e8a094f
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
cyclone.scm
View file

@ -48,6 +48,7 @@
;; Do we need to recompile given library? ;; Do we need to recompile given library?
(define (recompile? lib-dep append-dirs prepend-dirs) (define (recompile? lib-dep append-dirs prepend-dirs)
(let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs)) (let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
;(included-files (lib:read-includes lib-dep append-dirs prepend-dirs))
(base (basename sld-file)) (base (basename sld-file))
(obj-file (string-append base ".o")) (obj-file (string-append base ".o"))
(sys-dir (Cyc-installation-dir 'sld)) (sys-dir (Cyc-installation-dir 'sld))
@ -56,6 +57,10 @@
(not (in-subdir? sys-dir sld-file)) ;; Never try to recompile installed libraries (not (in-subdir? sys-dir sld-file)) ;; Never try to recompile installed libraries
(or (or
(not (file-exists? obj-file)) ;; No obj file, must rebuild (not (file-exists? obj-file)) ;; No obj file, must rebuild
;(any (lambda (inc-file)
; TODO: do we have full path here? can we call file-mtime on the inc-file?
; )
; included-files)
(> (file-mtime sld-file) (> (file-mtime sld-file)
(file-mtime obj-file)))))) ;; obj file out of date (file-mtime obj-file)))))) ;; obj file out of date