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

WIP

Browse source
This commit is contained in:
Justin Ethier 2020-01-03 14:49:17 -05:00
parent 528844912f
commit d8c7593382
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
test-lib-dep.scm
View file

@ -7,6 +7,7 @@
(define append-dirs '())
(define prepend-dirs '())
;(define lib-dep '(tmp))
(define lib-dep '(scheme cyclone common2))
(let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
@ -14,15 +15,16 @@
)
(write (list
(file-mtime sld-file)
(file-mtime obj-file))))
(file-mtime obj-file)
(recompile? lib-dep)
)))
;(define (recompile? lib-dep)
; (let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
; (obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs))
; )
; (write (list
; (file-mtime sld-file)
; (file-mtime obj-file))))
(define (recompile? lib-dep)
(let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
(obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs)) ;; TODO: update base name??
)
(> (file-mtime sld-file)
(file-mtime obj-file)))) ;; Is obj file out of date??
(define-c file-mtime
"(void *data, int argc, closure _, object k, object filename)"