Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Build out recompilation logic

Browse source
This commit is contained in:
Justin Ethier 2020-01-03 18:02:38 -05:00
parent 89be82ec25
commit b8ec7c6bba
1 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
test-lib-dep.scm
View file

@ -1,5 +1,6 @@
(import (import
(scheme base) (scheme base)
(scheme file)
(scheme write) (scheme write)
(scheme cyclone libraries) (scheme cyclone libraries)
(scheme cyclone pretty-print) (scheme cyclone pretty-print)
@ -16,13 +17,26 @@
(list lib-dep (recompile? lib-dep)) (list lib-dep (recompile? lib-dep))
)) ))
;; recompile? :: [symbol] -> boolean
;; Do we need to recompile given library?
(define (recompile? lib-dep) (define (recompile? lib-dep)
(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))
(base (basename sld-file ".sld")) (base (basename sld-file ".sld"))
(obj-file (string-append base ".o")) (obj-file (string-append base ".o"))
(sys-dir (Cyc-installation-dir 'sld))
) )
(> (file-mtime sld-file) (and
(file-mtime obj-file)))) ;; Is obj file out of date?? (not (in-subdir? sys-dir sld-file)) ;; Never try to recompile installed libraries
(or
(not (file-exists? obj-file)) ;; No obj file, must rebuild
(> (file-mtime sld-file)
(file-mtime obj-file)))))) ;; obj file out of date
;; Is "path" under given subdirectory "dir"?
(define (in-subdir? dir path)
(and (>= (string-length path)
(string-length dir))
(equal? dir (substring path 0 (string-length dir)))))
(define (basename filename ext) (define (basename filename ext)
(let* ((len (string-length filename)) (let* ((len (string-length filename))