Branch data     Line data    Source code

       1                 :            : /*
       2                 :            :  * This file is part of the MicroPython 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                 :            : 
      27                 :            : #include "py/obj.h"
      28                 :            : 
      29                 :            : #if MICROPY_ERROR_REPORTING == MICROPY_ERROR_REPORTING_DETAILED
      30                 :          4 : static void cell_print(const mp_print_t *print, mp_obj_t o_in, mp_print_kind_t kind) {
      31                 :          4 :     (void)kind;
      32                 :          4 :     mp_obj_cell_t *o = MP_OBJ_TO_PTR(o_in);
      33                 :          4 :     mp_printf(print, "<cell %p ", o->obj);
      34         [ -  + ]:          4 :     if (o->obj == MP_OBJ_NULL) {
      35                 :          0 :         mp_print_str(print, "(nil)");
      36                 :            :     } else {
      37                 :          4 :         mp_obj_print_helper(print, o->obj, PRINT_REPR);
      38                 :            :     }
      39                 :          4 :     mp_print_str(print, ">");
      40                 :          4 : }
      41                 :            : #endif
      42                 :            : 
      43                 :            : #if MICROPY_ERROR_REPORTING == MICROPY_ERROR_REPORTING_DETAILED
      44                 :            : #define CELL_TYPE_PRINT , print, cell_print
      45                 :            : #else
      46                 :            : #define CELL_TYPE_PRINT
      47                 :            : #endif
      48                 :            : 
      49                 :            : static MP_DEFINE_CONST_OBJ_TYPE(
      50                 :            :     // cell representation is just value in < >
      51                 :            :     mp_type_cell, MP_QSTR_, MP_TYPE_FLAG_NONE
      52                 :            :     CELL_TYPE_PRINT
      53                 :            :     );
      54                 :            : 
      55                 :       1170 : mp_obj_t mp_obj_new_cell(mp_obj_t obj) {
      56                 :       1170 :     mp_obj_cell_t *o = mp_obj_malloc(mp_obj_cell_t, &mp_type_cell);
      57                 :       1170 :     o->obj = obj;
      58                 :       1170 :     return MP_OBJ_FROM_PTR(o);
      59                 :            : }