Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 37 lines (30 sloc) 0.718 kB
d33ec81 @cpylua rename files, remove sc_ prefix
authored
1 #include "object.h"
2 #include "sform.h"
144a5ff @cpylua add integer cache
authored
3 #include "intcache.h"
964b1f9 @cpylua add character cache
authored
4 #include "charcache.h"
d33ec81 @cpylua rename files, remove sc_ prefix
authored
5
6 #define CALL_WITH_CHECK(fn) \
7 ret = fn(); \
8 if (ret != 0) { \
9 return ret; \
10 }
11
12 int init_obj(void) {
13 int ret;
14
144a5ff @cpylua add integer cache
authored
15 CALL_WITH_CHECK(intcache_init);
964b1f9 @cpylua add character cache
authored
16 CALL_WITH_CHECK(charcache_init);
d33ec81 @cpylua rename files, remove sc_ prefix
authored
17 CALL_WITH_CHECK(boolean_init);
18 CALL_WITH_CHECK(eof_init);
19 CALL_WITH_CHECK(empty_list_init);
20 CALL_WITH_CHECK(symbol_init);
21 CALL_WITH_CHECK(sform_init);
08ca47e @cpylua re-write frame using rbtree
authored
22 CALL_WITH_CHECK(env_frame_init);
d33ec81 @cpylua rename files, remove sc_ prefix
authored
23
24 return 0;
25 }
26
27 void dispose_obj(void) {
28 symbol_dispose();
9106b7b @cpylua fix hash table dispose bug
authored
29 boolean_dispose();
30 empty_list_dispose();
31 eof_dispose();
144a5ff @cpylua add integer cache
authored
32 intcache_dispose();
964b1f9 @cpylua add character cache
authored
33 charcache_dispose();
08ca47e @cpylua re-write frame using rbtree
authored
34 env_frame_dispose();
d33ec81 @cpylua rename files, remove sc_ prefix
authored
35 }
36
Something went wrong with that request. Please try again.