Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57: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 append-dirs '())
(define prepend-dirs '()) (define prepend-dirs '())
;(define lib-dep '(tmp))
(define lib-dep '(scheme cyclone common2)) (define lib-dep '(scheme cyclone common2))
(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))
@ -14,15 +15,16 @@
) )
(write (list (write (list
(file-mtime sld-file) (file-mtime sld-file)
(file-mtime obj-file)))) (file-mtime obj-file)
(recompile? lib-dep)
)))
;(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))
; (obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs)) (obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs)) ;; TODO: update base name??
; ) )
; (write (list (> (file-mtime sld-file)
; (file-mtime sld-file) (file-mtime obj-file)))) ;; Is obj file out of date??
; (file-mtime obj-file))))
(define-c file-mtime (define-c file-mtime
"(void *data, int argc, closure _, object k, object filename)" "(void *data, int argc, closure _, object k, object filename)"