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 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 35 | /// \function collect() |
| 36 | /// Run a garbage collection. |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 37 | STATIC mp_obj_t py_gc_collect(void) { |
| 38 | gc_collect(); |
Paul Sokolovsky | 755a55f | 2014-06-05 22:48:02 +0300 | [diff] [blame] | 39 | #if MICROPY_PY_GC_COLLECT_RETVAL |
Damien George | e1e359f | 2015-02-07 17:24:10 +0000 | [diff] [blame] | 40 | return MP_OBJ_NEW_SMALL_INT(MP_STATE_MEM(gc_collected)); |
Paul Sokolovsky | 755a55f | 2014-06-05 22:48:02 +0300 | [diff] [blame] | 41 | #else |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 42 | return mp_const_none; |
Paul Sokolovsky | 755a55f | 2014-06-05 22:48:02 +0300 | [diff] [blame] | 43 | #endif |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 44 | } |
| 45 | MP_DEFINE_CONST_FUN_OBJ_0(gc_collect_obj, py_gc_collect); |
| 46 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 47 | /// \function disable() |
| 48 | /// Disable the garbage collector. |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 49 | STATIC mp_obj_t gc_disable(void) { |
Damien George | b4b10fd | 2015-01-01 23:30:53 +0000 | [diff] [blame] | 50 | MP_STATE_MEM(gc_auto_collect_enabled) = 0; |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 51 | return mp_const_none; |
| 52 | } |
| 53 | MP_DEFINE_CONST_FUN_OBJ_0(gc_disable_obj, gc_disable); |
| 54 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 55 | /// \function enable() |
| 56 | /// Enable the garbage collector. |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 57 | STATIC mp_obj_t gc_enable(void) { |
Damien George | b4b10fd | 2015-01-01 23:30:53 +0000 | [diff] [blame] | 58 | MP_STATE_MEM(gc_auto_collect_enabled) = 1; |
Damien George | 8c1c748 | 2014-05-08 23:04:49 +0100 | [diff] [blame] | 59 | return mp_const_none; |
| 60 | } |
| 61 | MP_DEFINE_CONST_FUN_OBJ_0(gc_enable_obj, gc_enable); |
| 62 | |
Damien George | 109c1de | 2014-10-31 21:30:46 +0000 | [diff] [blame] | 63 | STATIC mp_obj_t gc_isenabled(void) { |
Paul Sokolovsky | 1b586f3 | 2015-10-11 12:09:43 +0300 | [diff] [blame] | 64 | return mp_obj_new_bool(MP_STATE_MEM(gc_auto_collect_enabled)); |
Damien George | 109c1de | 2014-10-31 21:30:46 +0000 | [diff] [blame] | 65 | } |
| 66 | MP_DEFINE_CONST_FUN_OBJ_0(gc_isenabled_obj, gc_isenabled); |
| 67 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 68 | /// \function mem_free() |
| 69 | /// Return the number of bytes of available heap RAM. |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 70 | STATIC mp_obj_t gc_mem_free(void) { |
| 71 | gc_info_t info; |
| 72 | gc_info(&info); |
Damien George | bb4c6f3 | 2014-07-31 10:49:14 +0100 | [diff] [blame] | 73 | return MP_OBJ_NEW_SMALL_INT(info.free); |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 74 | } |
| 75 | MP_DEFINE_CONST_FUN_OBJ_0(gc_mem_free_obj, gc_mem_free); |
| 76 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 77 | /// \function mem_alloc() |
| 78 | /// Return the number of bytes of heap RAM that are allocated. |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 79 | STATIC mp_obj_t gc_mem_alloc(void) { |
| 80 | gc_info_t info; |
| 81 | gc_info(&info); |
Damien George | bb4c6f3 | 2014-07-31 10:49:14 +0100 | [diff] [blame] | 82 | return MP_OBJ_NEW_SMALL_INT(info.used); |
Paul Sokolovsky | 5aa740c | 2014-06-24 21:23:40 +0300 | [diff] [blame] | 83 | } |
| 84 | MP_DEFINE_CONST_FUN_OBJ_0(gc_mem_alloc_obj, gc_mem_alloc); |
| 85 | |
Damien George | cbf7674 | 2015-11-27 13:38:15 +0000 | [diff] [blame] | 86 | STATIC const mp_rom_map_elem_t mp_module_gc_globals_table[] = { |
| 87 | { MP_ROM_QSTR(MP_QSTR___name__), MP_ROM_QSTR(MP_QSTR_gc) }, |
| 88 | { MP_ROM_QSTR(MP_QSTR_collect), MP_ROM_PTR(&gc_collect_obj) }, |
| 89 | { MP_ROM_QSTR(MP_QSTR_disable), MP_ROM_PTR(&gc_disable_obj) }, |
| 90 | { MP_ROM_QSTR(MP_QSTR_enable), MP_ROM_PTR(&gc_enable_obj) }, |
| 91 | { MP_ROM_QSTR(MP_QSTR_isenabled), MP_ROM_PTR(&gc_isenabled_obj) }, |
| 92 | { MP_ROM_QSTR(MP_QSTR_mem_free), MP_ROM_PTR(&gc_mem_free_obj) }, |
| 93 | { MP_ROM_QSTR(MP_QSTR_mem_alloc), MP_ROM_PTR(&gc_mem_alloc_obj) }, |
Paul Sokolovsky | f9e54e0 | 2014-05-06 02:16:43 +0300 | [diff] [blame] | 94 | }; |
| 95 | |
Damien George | 3b603f2 | 2014-11-29 14:39:27 +0000 | [diff] [blame] | 96 | 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] | 97 | |
| 98 | const mp_obj_module_t mp_module_gc = { |
| 99 | .base = { &mp_type_module }, |
| 100 | .name = MP_QSTR_gc, |
| 101 | .globals = (mp_obj_dict_t*)&mp_module_gc_globals, |
| 102 | }; |
| 103 | |
| 104 | #endif |