mirror/ede
1
0
Fork 0
mirror of https://github.com/edeproject/ede.git synced 2023-08-10 21:13:03 +03:00
Code Issues Projects Releases Wiki Activity

Added clock and timeit functions

Browse Source 
Some musings with examples
This commit is contained in:
Sanel Zukan
2008-07-14 10:42:25 +00:00
parent 5a251cf812
commit af32224d5b
5 changed files with 61 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tools/capone/src/sys.cpp
View File

@@ -1,6 +1,7 @@
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <time.h>
#include <edelib/Missing.h>
extern "C" {
@@ -64,6 +65,10 @@ static pointer s_setenv(scheme* sc, pointer args) {
return sc->F;
}
static pointer s_clock(scheme* sc, pointer args) {
return mk_real(sc, (double)clock());
}
void register_sys_functions(scheme* sc) {
sc->vptr->scheme_define(
sc,
@@ -76,4 +81,10 @@ void register_sys_functions(scheme* sc) {
sc->global_env,
sc->vptr->mk_symbol(sc, "setenv"),
sc->vptr->mk_foreign_func(sc, s_setenv));
sc->vptr->scheme_define(
sc,
sc->global_env,
sc->vptr->mk_symbol(sc, "clock"),
sc->vptr->mk_foreign_func(sc, s_clock));
}