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

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