Damien George | 04b9147 | 2014-05-03 23:27:38 +0100 | [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 | |
Paul Sokolovsky | 4e0eeeb | 2014-07-03 16:50:11 +0300 | [diff] [blame] | 27 | #include <stdint.h> |
Damien George | b92cbe6 | 2014-09-15 15:53:09 +0100 | [diff] [blame^] | 28 | |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 29 | #include "mpconfig.h" |
Damien George | b92cbe6 | 2014-09-15 15:53:09 +0100 | [diff] [blame^] | 30 | #include "nlr.h" |
Paul Sokolovsky | 59c675a | 2014-06-21 22:43:22 +0300 | [diff] [blame] | 31 | #include "misc.h" |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 32 | #include "qstr.h" |
| 33 | #include "obj.h" |
| 34 | #include "builtin.h" |
| 35 | #include "runtime.h" |
| 36 | #include "objlist.h" |
Paul Sokolovsky | baaaf65 | 2014-04-13 09:46:58 +0300 | [diff] [blame] | 37 | #include "objtuple.h" |
Paul Sokolovsky | bbae42d | 2014-04-14 01:46:45 +0300 | [diff] [blame] | 38 | #include "objstr.h" |
Paul Sokolovsky | 4e0eeeb | 2014-07-03 16:50:11 +0300 | [diff] [blame] | 39 | #include "mpz.h" |
| 40 | #include "objint.h" |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 41 | |
Damien George | ee3fd46 | 2014-05-24 23:03:12 +0100 | [diff] [blame] | 42 | #if MICROPY_PY_SYS |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 43 | |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 44 | /// \module sys - system specific functions |
| 45 | |
Damien George | b92cbe6 | 2014-09-15 15:53:09 +0100 | [diff] [blame^] | 46 | // These two lists must be initialised per port (after the call to mp_init). |
Damien George | 4ef26c1 | 2014-08-10 17:53:43 +0100 | [diff] [blame] | 47 | // TODO document these properly, they aren't constants or functions... |
| 48 | /// \constant path - a mutable list of directories to search for imported modules |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 49 | mp_obj_list_t mp_sys_path_obj; |
Damien George | 4ef26c1 | 2014-08-10 17:53:43 +0100 | [diff] [blame] | 50 | /// \constant argv - a mutable list of arguments this program started with |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 51 | mp_obj_list_t mp_sys_argv_obj; |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 52 | |
| 53 | /// \constant version - Python language version that this implementation conforms to, as a string |
| 54 | STATIC const MP_DEFINE_STR_OBJ(version_obj, "3.4.0"); |
| 55 | |
Damien George | 4ef26c1 | 2014-08-10 17:53:43 +0100 | [diff] [blame] | 56 | /// \constant version_info - Python language version that this implementation conforms to, as a tuple of ints |
Paul Sokolovsky | baaaf65 | 2014-04-13 09:46:58 +0300 | [diff] [blame] | 57 | #define I(n) MP_OBJ_NEW_SMALL_INT(n) |
| 58 | // TODO: CPython is now at 5-element array, but save 2 els so far... |
Paul Sokolovsky | bbae42d | 2014-04-14 01:46:45 +0300 | [diff] [blame] | 59 | STATIC const mp_obj_tuple_t mp_sys_version_info_obj = {{&mp_type_tuple}, 3, {I(3), I(4), I(0)}}; |
Paul Sokolovsky | baaaf65 | 2014-04-13 09:46:58 +0300 | [diff] [blame] | 60 | #undef I |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 61 | |
Paul Sokolovsky | b9b9354 | 2014-06-07 23:40:04 +0300 | [diff] [blame] | 62 | #ifdef MICROPY_PY_SYS_PLATFORM |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 63 | /// \constant platform - the platform that Micro Python is running on |
Paul Sokolovsky | b9b9354 | 2014-06-07 23:40:04 +0300 | [diff] [blame] | 64 | STATIC const MP_DEFINE_STR_OBJ(platform_obj, MICROPY_PY_SYS_PLATFORM); |
| 65 | #endif |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 66 | |
Damien George | b92cbe6 | 2014-09-15 15:53:09 +0100 | [diff] [blame^] | 67 | /// \function exit([retval]) |
| 68 | /// Raise a `SystemExit` exception. If an argument is given, it is the |
| 69 | /// value given to `SystemExit`. |
| 70 | STATIC mp_obj_t mp_sys_exit(mp_uint_t n_args, const mp_obj_t *args) { |
| 71 | mp_obj_t exc; |
| 72 | if (n_args == 0) { |
| 73 | exc = mp_obj_new_exception(&mp_type_SystemExit); |
| 74 | } else { |
| 75 | exc = mp_obj_new_exception_arg1(&mp_type_SystemExit, args[0]); |
| 76 | } |
| 77 | nlr_raise(exc); |
| 78 | } |
| 79 | MP_DEFINE_CONST_FUN_OBJ_VAR_BETWEEN(mp_sys_exit_obj, 0, 1, mp_sys_exit); |
| 80 | |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 81 | STATIC const mp_map_elem_t mp_module_sys_globals_table[] = { |
| 82 | { MP_OBJ_NEW_QSTR(MP_QSTR___name__), MP_OBJ_NEW_QSTR(MP_QSTR_sys) }, |
Paul Sokolovsky | d99e908 | 2014-05-10 16:50:45 +0300 | [diff] [blame] | 83 | |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 84 | { MP_OBJ_NEW_QSTR(MP_QSTR_path), (mp_obj_t)&mp_sys_path_obj }, |
| 85 | { MP_OBJ_NEW_QSTR(MP_QSTR_argv), (mp_obj_t)&mp_sys_argv_obj }, |
Paul Sokolovsky | bbae42d | 2014-04-14 01:46:45 +0300 | [diff] [blame] | 86 | { MP_OBJ_NEW_QSTR(MP_QSTR_version), (mp_obj_t)&version_obj }, |
Paul Sokolovsky | baaaf65 | 2014-04-13 09:46:58 +0300 | [diff] [blame] | 87 | { MP_OBJ_NEW_QSTR(MP_QSTR_version_info), (mp_obj_t)&mp_sys_version_info_obj }, |
Paul Sokolovsky | b9b9354 | 2014-06-07 23:40:04 +0300 | [diff] [blame] | 88 | #ifdef MICROPY_PY_SYS_PLATFORM |
| 89 | { MP_OBJ_NEW_QSTR(MP_QSTR_platform), (mp_obj_t)&platform_obj }, |
| 90 | #endif |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 91 | /// \constant byteorder - the byte order of the system ("little" or "big") |
Paul Sokolovsky | 978d2c0 | 2014-04-13 09:53:52 +0300 | [diff] [blame] | 92 | #if MP_ENDIANNESS_LITTLE |
| 93 | { MP_OBJ_NEW_QSTR(MP_QSTR_byteorder), MP_OBJ_NEW_QSTR(MP_QSTR_little) }, |
| 94 | #else |
| 95 | { MP_OBJ_NEW_QSTR(MP_QSTR_byteorder), MP_OBJ_NEW_QSTR(MP_QSTR_big) }, |
| 96 | #endif |
Paul Sokolovsky | 4e0eeeb | 2014-07-03 16:50:11 +0300 | [diff] [blame] | 97 | #if MICROPY_PY_SYS_MAXSIZE |
| 98 | #if MICROPY_LONGINT_IMPL == MICROPY_LONGINT_IMPL_NONE |
| 99 | // INT_MAX is not representable as small int, as we know that small int |
| 100 | // takes one bit for tag. So, we have little choice but to provide this |
| 101 | // value. Apps also should be careful to not try to compare sys.maxsize |
| 102 | // with some number (which may not fit in available int size), but instead |
| 103 | // count number of significant bits in sys.maxsize. |
| 104 | { MP_OBJ_NEW_QSTR(MP_QSTR_maxsize), MP_OBJ_NEW_SMALL_INT(INT_MAX >> 1) }, |
| 105 | #else |
| 106 | { MP_OBJ_NEW_QSTR(MP_QSTR_maxsize), (mp_obj_t)&mp_maxsize_obj }, |
| 107 | #endif |
| 108 | #endif |
| 109 | |
Damien George | ee3fd46 | 2014-05-24 23:03:12 +0100 | [diff] [blame] | 110 | #if MICROPY_PY_SYS_EXIT |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 111 | // documented per-port |
Damien George | 89755ae | 2014-05-11 17:35:43 +0100 | [diff] [blame] | 112 | { MP_OBJ_NEW_QSTR(MP_QSTR_exit), (mp_obj_t)&mp_sys_exit_obj }, |
| 113 | #endif |
| 114 | |
Damien George | ee3fd46 | 2014-05-24 23:03:12 +0100 | [diff] [blame] | 115 | #if MICROPY_PY_SYS_STDFILES |
Damien George | 30dd23a | 2014-08-10 17:50:28 +0100 | [diff] [blame] | 116 | // documented per-port |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 117 | { MP_OBJ_NEW_QSTR(MP_QSTR_stdin), (mp_obj_t)&mp_sys_stdin_obj }, |
| 118 | { MP_OBJ_NEW_QSTR(MP_QSTR_stdout), (mp_obj_t)&mp_sys_stdout_obj }, |
| 119 | { MP_OBJ_NEW_QSTR(MP_QSTR_stderr), (mp_obj_t)&mp_sys_stderr_obj }, |
Paul Sokolovsky | 4165cd1 | 2014-04-13 07:00:37 +0300 | [diff] [blame] | 120 | #endif |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 121 | }; |
| 122 | |
| 123 | STATIC const mp_obj_dict_t mp_module_sys_globals = { |
| 124 | .base = {&mp_type_dict}, |
| 125 | .map = { |
| 126 | .all_keys_are_qstrs = 1, |
| 127 | .table_is_fixed_array = 1, |
Emmanuel Blot | f6932d6 | 2014-06-19 18:54:34 +0200 | [diff] [blame] | 128 | .used = MP_ARRAY_SIZE(mp_module_sys_globals_table), |
| 129 | .alloc = MP_ARRAY_SIZE(mp_module_sys_globals_table), |
Paul Sokolovsky | 5500cde | 2014-04-13 06:43:18 +0300 | [diff] [blame] | 130 | .table = (mp_map_elem_t*)mp_module_sys_globals_table, |
| 131 | }, |
| 132 | }; |
| 133 | |
| 134 | const mp_obj_module_t mp_module_sys = { |
| 135 | .base = { &mp_type_module }, |
| 136 | .name = MP_QSTR_sys, |
| 137 | .globals = (mp_obj_dict_t*)&mp_module_sys_globals, |
| 138 | }; |
| 139 | |
| 140 | #endif |