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

WIP

Browse source
This commit is contained in:
Justin Ethier 2020-01-03 15:39:22 -05:00
parent d8c7593382
commit 89be82ec25
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test-lib-dep.scm
View file

@ -2,30 +2,33 @@
(scheme base)
(scheme write)
(scheme cyclone libraries)
(scheme cyclone pretty-print)
)
(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))
(obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs))
)
(write (list
(file-mtime sld-file)
(file-mtime obj-file)
(recompile? lib-dep)
)))
(pretty-print (list
(list '(tmp) (recompile? '(tmp)))
(list '(scheme cyclone common) (recompile? '(scheme cyclone common)))
(list lib-dep (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)) ;; TODO: update base name??
(base (basename sld-file ".sld"))
(obj-file (string-append base ".o"))
)
(> (file-mtime sld-file)
(file-mtime obj-file)))) ;; Is obj file out of date??
(define (basename filename ext)
(let* ((len (string-length filename))
(ext-len (string-length ext)))
(substring filename 0 (- len ext-len))))
(define-c file-mtime
"(void *data, int argc, closure _, object k, object filename)"
" make_double(box, 0.0);