diff --git a/scheme/time.sld b/scheme/time.sld index b67287ab..17d2dd38 100644 --- a/scheme/time.sld +++ b/scheme/time.sld @@ -1,12 +1,25 @@ (define-library (scheme time) (export - current-jiffy ;; TODO: This is just temporary, of course + current-second + current-jiffy + jiffies-per-second ) (import (scheme base) ) (begin - (define-c prim-test - "(void *data, int argc, closure _, object k, object arg1, object arg2)" - " return_closcall1(data, k, arg1); ") - ;; End FFI + ;; Experimenting with what an FFI could look like + ;; TODO: also need a way to add #include's, and later on compiler options (may already have that, need to check) + ;; + ;; want the signature to be similar to this: + ;; static void __lambda_0(void *data, int argc, closure _,object k_7322, object arg1_737, object arg2_736) { + ;; lambda portion is computed, so we can't include that. + ;; compiler would need to insert the "static void (lambda)" part +;; TODO: maybe break up into two args, one being the args list and the other being the function body?? + (define-c current-jiffy + "(void *data, int argc, closure _, object k)" + ;; TODO: actually get the current jiffy + " make_int(temp, 0); + return_closcall1(data, k, &temp); ") + (define jiffies-per-second 0) ;; TODO: just a placeholder at the moment + (define current-second 0) ;; TODO: just a placeholder at the moment ))