Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Test file

Browse source
This commit is contained in:
Justin Ethier 2020-01-03 14:47:03 -05:00
parent 3e9da5e291
commit 528844912f
1 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
test-lib-dep.scm Normal file
View file

@ -0,0 +1,32 @@
(import
(scheme base)
(scheme write)
(scheme cyclone libraries)
)
(define append-dirs '())
(define prepend-dirs '())
(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))))
;(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-c file-mtime
"(void *data, int argc, closure _, object k, object filename)"
" make_double(box, 0.0);
Cyc_check_str(data, filename);
double_value(&box) = Cyc_file_last_modified_time(string_str(filename));
return_closcall1(data, k, &box); ")