Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 1 | /* |
| 2 | * This file is part of the Micro Python project, http://micropython.org/ |
| 3 | * |
| 4 | * The MIT License (MIT) |
| 5 | * |
| 6 | * Copyright (c) 2013, 2014 Damien P. George |
| 7 | * |
| 8 | * Permission is hereby granted, free of charge, to any person obtaining a copy |
| 9 | * of this software and associated documentation files (the "Software"), to deal |
| 10 | * in the Software without restriction, including without limitation the rights |
| 11 | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
| 12 | * copies of the Software, and to permit persons to whom the Software is |
| 13 | * furnished to do so, subject to the following conditions: |
| 14 | * |
| 15 | * The above copyright notice and this permission notice shall be included in |
| 16 | * all copies or substantial portions of the Software. |
| 17 | * |
| 18 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| 19 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| 20 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
| 21 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| 22 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
| 23 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN |
| 24 | * THE SOFTWARE. |
| 25 | */ |
| 26 | |
Damien George | b4b10fd | 2015-01-01 23:30:53 +0000 | [diff] [blame^] | 27 | #include "py/mpstate.h" |
Damien George | 51dfcb4 | 2015-01-01 20:27:54 +0000 | [diff] [blame] | 28 | #include "py/obj.h" |
| 29 | #include "py/gc.h" |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 30 | |
Damien George | ee3fd46 | 2014-05-24 23:03:12 +0100 | [diff] [blame] | 31 | #if MICROPY_PY_GC && MICROPY_ENABLE_GC |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 32 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 33 | /// \module gc - control the garbage collector |
| 34 | |
Paul Sokolovsky | 755a55f | 2014-06-05 22:48:02 +0300 | [diff] [blame] | 35 | extern uint gc_collected; |
| 36 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 37 | /// \function collect() |
| 38 | /// Run a garbage collection. |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 39 | STATIC mp_obj_t py_gc_collect(void) { |
| 40 | gc_collect(); |
Paul Sokolovsky | 755a55f | 2014-06-05 22:48:02 +0300 | [diff] [blame] | 41 | #if MICROPY_PY_GC_COLLECT_RETVAL |
Damien George | bb4c6f3 | 2014-07-31 10:49:14 +0100 | [diff] [blame] | 42 | return MP_OBJ_NEW_SMALL_INT(gc_collected); |
Paul Sokolovsky | 755a55f | 2014-06-05 22:48:02 +0300 | [diff] [blame] | 43 | #else |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 44 | return mp_const_none; |
Paul Sokolovsky | 755a55f | 2014-06-05 22:48:02 +0300 | [diff] [blame] | 45 | #endif |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 46 | } |
| 47 | MP_DEFINE_CONST_FUN_OBJ_0(gc_collect_obj, py_gc_collect); |
| 48 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 49 | /// \function disable() |
| 50 | /// Disable the garbage collector. |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 51 | STATIC mp_obj_t gc_disable(void) { |
Damien George | b4b10fd | 2015-01-01 23:30:53 +0000 | [diff] [blame^] | 52 | MP_STATE_MEM(gc_auto_collect_enabled) = 0; |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 53 | return mp_const_none; |
| 54 | } |
| 55 | MP_DEFINE_CONST_FUN_OBJ_0(gc_disable_obj, gc_disable); |
| 56 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 57 | /// \function enable() |
| 58 | /// Enable the garbage collector. |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 59 | STATIC mp_obj_t gc_enable(void) { |
Damien George | b4b10fd | 2015-01-01 23:30:53 +0000 | [diff] [blame^] | 60 | MP_STATE_MEM(gc_auto_collect_enabled) = 1; |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 61 | return mp_const_none; |
| 62 | } |
| 63 | MP_DEFINE_CONST_FUN_OBJ_0(gc_enable_obj, gc_enable); |
| 64 | |
Damien George | 109c1de | 2014-10-31 21:30:46 +0000 | [diff] [blame] | 65 | STATIC mp_obj_t gc_isenabled(void) { |
Damien George | b4b10fd | 2015-01-01 23:30:53 +0000 | [diff] [blame^] | 66 | return MP_BOOL(MP_STATE_MEM(gc_auto_collect_enabled)); |
Damien George | 109c1de | 2014-10-31 21:30:46 +0000 | [diff] [blame] | 67 | } |
| 68 | MP_DEFINE_CONST_FUN_OBJ_0(gc_isenabled_obj, gc_isenabled); |
| 69 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 70 | /// \function mem_free() |
| 71 | /// Return the number of bytes of available heap RAM. |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 72 | STATIC mp_obj_t gc_mem_free(void) { |
| 73 | gc_info_t info; |
| 74 | gc_info(&info); |
Damien George | bb4c6f3 | 2014-07-31 10:49:14 +0100 | [diff] [blame] | 75 | return MP_OBJ_NEW_SMALL_INT(info.free); |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 76 | } |
| 77 | MP_DEFINE_CONST_FUN_OBJ_0(gc_mem_free_obj, gc_mem_free); |
| 78 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 79 | /// \function mem_alloc() |
| 80 | /// Return the number of bytes of heap RAM that are allocated. |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 81 | STATIC mp_obj_t gc_mem_alloc(void) { |
| 82 | gc_info_t info; |
| 83 | gc_info(&info); |
Damien George | bb4c6f3 | 2014-07-31 10:49:14 +0100 | [diff] [blame] | 84 | return MP_OBJ_NEW_SMALL_INT(info.used); |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 85 | } |
| 86 | MP_DEFINE_CONST_FUN_OBJ_0(gc_mem_alloc_obj, gc_mem_alloc); |
| 87 | |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 88 | STATIC const mp_map_elem_t mp_module_gc_globals_table[] = { |
| 89 | { MP_OBJ_NEW_QSTR(MP_QSTR___name__), MP_OBJ_NEW_QSTR(MP_QSTR_gc) }, |
| 90 | { MP_OBJ_NEW_QSTR(MP_QSTR_collect), (mp_obj_t)&gc_collect_obj }, |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 91 | { MP_OBJ_NEW_QSTR(MP_QSTR_disable), (mp_obj_t)&gc_disable_obj }, |
| 92 | { MP_OBJ_NEW_QSTR(MP_QSTR_enable), (mp_obj_t)&gc_enable_obj }, |
Damien George | 109c1de | 2014-10-31 21:30:46 +0000 | [diff] [blame] | 93 | { MP_OBJ_NEW_QSTR(MP_QSTR_isenabled), (mp_obj_t)&gc_isenabled_obj }, |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 94 | { MP_OBJ_NEW_QSTR(MP_QSTR_mem_free), (mp_obj_t)&gc_mem_free_obj }, |
| 95 | { MP_OBJ_NEW_QSTR(MP_QSTR_mem_alloc), (mp_obj_t)&gc_mem_alloc_obj }, |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 96 | }; |
| 97 | |
Damien George | 3b603f2 | 2014-11-29 14:39:27 +0000 | [diff] [blame] | 98 | STATIC MP_DEFINE_CONST_DICT(mp_module_gc_globals, mp_module_gc_globals_table); |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 99 | |
| 100 | const mp_obj_module_t mp_module_gc = { |
| 101 | .base = { &mp_type_module }, |
| 102 | .name = MP_QSTR_gc, |
| 103 | .globals = (mp_obj_dict_t*)&mp_module_gc_globals, |
| 104 | }; |
| 105 | |
| 106 | #endif |