Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Stubbing out exception handling

Browse source
This commit is contained in:
Justin Ethier 2015-03-15 22:38:24 -04:00
parent 25c3cc68c3
commit dd7a8c1846
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
runtime.h
View file

@ -456,6 +456,31 @@ static void clear_mutations() {
} }
/* END mutation table */ /* END mutation table */
/* Exception handler */
list exception_handler_stack = nil;
static object default_exception_handler(object err) {
printf("Error: ");
Cyc_display(err);
printf("\n");
exit(1);
}
static object add_exception_handler(object handler) {
// TODO: error checking on handler?
exception_handler_stack = mcons(handler, exception_handler_stack);
return handler;
}
// TODO: remove ex handler, err if all are removed?
// TODO: raise - call current exception handler
static void init_exception_handler(){
// TODO: package default_exception_handler into a closure??
// add_exception_handler(
}
/* END exception handler */
/* Global variables. */ /* Global variables. */
static clock_t start; /* Starting time. */ static clock_t start; /* Starting time. */