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 | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 27 | #include <stdlib.h> |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 28 | #include <assert.h> |
| 29 | |
Paul Sokolovsky | f54bcbf | 2014-05-02 17:47:01 +0300 | [diff] [blame] | 30 | #include "mpconfig.h" |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 31 | #include "nlr.h" |
| 32 | #include "misc.h" |
Damien George | 55baff4 | 2014-01-21 21:40:13 +0000 | [diff] [blame] | 33 | #include "qstr.h" |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 34 | #include "obj.h" |
| 35 | #include "runtime0.h" |
| 36 | |
Damien George | e9906ac | 2014-01-04 18:44:46 +0000 | [diff] [blame] | 37 | /******************************************************************************/ |
| 38 | /* ellipsis object, a singleton */ |
| 39 | |
| 40 | typedef struct _mp_obj_ellipsis_t { |
| 41 | mp_obj_base_t base; |
| 42 | } mp_obj_ellipsis_t; |
| 43 | |
Paul Sokolovsky | 76d982e | 2014-01-13 19:19:16 +0200 | [diff] [blame] | 44 | void ellipsis_print(void (*print)(void *env, const char *fmt, ...), void *env, mp_obj_t self_in, mp_print_kind_t kind) { |
Damien George | e9906ac | 2014-01-04 18:44:46 +0000 | [diff] [blame] | 45 | print(env, "Ellipsis"); |
| 46 | } |
| 47 | |
Damien George | 07ddab5 | 2014-03-29 13:15:08 +0000 | [diff] [blame] | 48 | const mp_obj_type_t mp_type_ellipsis = { |
Damien George | c596612 | 2014-02-15 16:10:44 +0000 | [diff] [blame] | 49 | { &mp_type_type }, |
Damien George | a71c83a | 2014-02-15 11:34:50 +0000 | [diff] [blame] | 50 | .name = MP_QSTR_Ellipsis, |
Damien George | 97209d3 | 2014-01-07 15:58:30 +0000 | [diff] [blame] | 51 | .print = ellipsis_print, |
Damien George | e9906ac | 2014-01-04 18:44:46 +0000 | [diff] [blame] | 52 | }; |
| 53 | |
Damien George | 07ddab5 | 2014-03-29 13:15:08 +0000 | [diff] [blame] | 54 | const mp_obj_ellipsis_t mp_const_ellipsis_obj = {{&mp_type_ellipsis}}; |
Damien George | e9906ac | 2014-01-04 18:44:46 +0000 | [diff] [blame] | 55 | |
| 56 | /******************************************************************************/ |
| 57 | /* slice object */ |
| 58 | |
Damien George | fb510b3 | 2014-06-01 13:32:54 +0100 | [diff] [blame] | 59 | #if MICROPY_PY_BUILTINS_SLICE |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 60 | |
| 61 | // TODO: This implements only variant of slice with 2 integer args only. |
| 62 | // CPython supports 3rd arg (step), plus args can be arbitrary Python objects. |
| 63 | typedef struct _mp_obj_slice_t { |
| 64 | mp_obj_base_t base; |
Paul Sokolovsky | afaaf53 | 2014-05-25 01:39:27 +0300 | [diff] [blame] | 65 | mp_obj_t start; |
| 66 | mp_obj_t stop; |
| 67 | mp_obj_t step; |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 68 | } mp_obj_slice_t; |
| 69 | |
Paul Sokolovsky | 76d982e | 2014-01-13 19:19:16 +0200 | [diff] [blame] | 70 | void slice_print(void (*print)(void *env, const char *fmt, ...), void *env, mp_obj_t o_in, mp_print_kind_t kind) { |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 71 | mp_obj_slice_t *o = o_in; |
Paul Sokolovsky | afaaf53 | 2014-05-25 01:39:27 +0300 | [diff] [blame] | 72 | print(env, "slice("); |
| 73 | mp_obj_print_helper(print, env, o->start, PRINT_REPR); |
| 74 | print(env, ", "); |
| 75 | mp_obj_print_helper(print, env, o->stop, PRINT_REPR); |
| 76 | print(env, ", "); |
| 77 | mp_obj_print_helper(print, env, o->step, PRINT_REPR); |
| 78 | print(env, ")"); |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 79 | } |
| 80 | |
Damien George | 3e1a5c1 | 2014-03-29 13:43:38 +0000 | [diff] [blame] | 81 | const mp_obj_type_t mp_type_slice = { |
Damien George | c596612 | 2014-02-15 16:10:44 +0000 | [diff] [blame] | 82 | { &mp_type_type }, |
Damien George | a71c83a | 2014-02-15 11:34:50 +0000 | [diff] [blame] | 83 | .name = MP_QSTR_slice, |
Paul Sokolovsky | 860ffb0 | 2014-01-05 22:34:09 +0200 | [diff] [blame] | 84 | .print = slice_print, |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 85 | }; |
| 86 | |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 87 | mp_obj_t mp_obj_new_slice(mp_obj_t ostart, mp_obj_t ostop, mp_obj_t ostep) { |
Paul Sokolovsky | afaaf53 | 2014-05-25 01:39:27 +0300 | [diff] [blame] | 88 | mp_obj_slice_t *o = m_new_obj(mp_obj_slice_t); |
Damien George | 3e1a5c1 | 2014-03-29 13:43:38 +0000 | [diff] [blame] | 89 | o->base.type = &mp_type_slice; |
Paul Sokolovsky | afaaf53 | 2014-05-25 01:39:27 +0300 | [diff] [blame] | 90 | o->start = ostart; |
| 91 | o->stop = ostop; |
| 92 | o->step = ostep; |
| 93 | return o; |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 94 | } |
| 95 | |
Paul Sokolovsky | afaaf53 | 2014-05-25 01:39:27 +0300 | [diff] [blame] | 96 | void mp_obj_slice_get(mp_obj_t self_in, mp_obj_t *start, mp_obj_t *stop, mp_obj_t *step) { |
Damien George | 3e1a5c1 | 2014-03-29 13:43:38 +0000 | [diff] [blame] | 97 | assert(MP_OBJ_IS_TYPE(self_in, &mp_type_slice)); |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 98 | mp_obj_slice_t *self = self_in; |
| 99 | *start = self->start; |
| 100 | *stop = self->stop; |
Paul Sokolovsky | afaaf53 | 2014-05-25 01:39:27 +0300 | [diff] [blame] | 101 | *step = self->step; |
Paul Sokolovsky | 1c6de11 | 2014-01-03 02:41:17 +0200 | [diff] [blame] | 102 | } |
| 103 | |
| 104 | #endif |