mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
32 lines
986 B
Scheme
32 lines
986 B
Scheme
(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); ")
|