FilesExpand file tree

 parse-bytecode

/

objboundmeth.c

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

107 lines (97 loc) · 3.63 KB

 parse-bytecode

/

objboundmeth.c

Copy path

Top

File metadata and controls

• Code
• Blame

107 lines (97 loc) · 3.63 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

/*

* This file is part of the Micro Python project, http://micropython.org/

*

* The MIT License (MIT)

*

* Copyright (c) 2013, 2014 Damien P. George

*

* Permission is hereby granted, free of charge, to any person obtaining a copy

* of this software and associated documentation files (the "Software"), to deal

* in the Software without restriction, including without limitation the rights

* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

* copies of the Software, and to permit persons to whom the Software is

* furnished to do so, subject to the following conditions:

*

* The above copyright notice and this permission notice shall be included in

* all copies or substantial portions of the Software.

*

* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE

* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN

* THE SOFTWARE.

*/

#include <string.h>

#include "py/obj.h"

#include "py/runtime.h"

typedef struct _mp_obj_bound_meth_t {

mp_obj_base_t base;

mp_obj_t meth;

mp_obj_t self;

} mp_obj_bound_meth_t;

#if MICROPY_ERROR_REPORTING == MICROPY_ERROR_REPORTING_DETAILED

STATIC void bound_meth_print(const mp_print_t *print, mp_obj_t o_in, mp_print_kind_t kind) {

(void)kind;

mp_obj_bound_meth_t *o = MP_OBJ_TO_PTR(o_in);

mp_printf(print, "<bound_method %p ", o);

mp_obj_print_helper(print, o->self, PRINT_REPR);

mp_print_str(print, ".");

mp_obj_print_helper(print, o->meth, PRINT_REPR);

mp_print_str(print, ">");

}

#endif

STATIC mp_obj_t bound_meth_call(mp_obj_t self_in, size_t n_args, size_t n_kw, const mp_obj_t *args) {

mp_obj_bound_meth_t *self = MP_OBJ_TO_PTR(self_in);

// need to insert self->self before all other args and then call self->meth

size_t n_total = n_args + 2 * n_kw;

mp_obj_t *args2 = NULL;

mp_obj_t *free_args2 = NULL;

if (n_total > 4) {

// try to use heap to allocate temporary args array

args2 = m_new_maybe(mp_obj_t, 1 + n_total);

free_args2 = args2;

}

if (args2 == NULL) {

// (fallback to) use stack to allocate temporary args array

args2 = alloca(sizeof(mp_obj_t) * (1 + n_total));

}

args2[0] = self->self;

memcpy(args2 + 1, args, n_total * sizeof(mp_obj_t));

mp_obj_t res = mp_call_function_n_kw(self->meth, n_args + 1, n_kw, &args2[0]);

if (free_args2 != NULL) {

m_del(mp_obj_t, free_args2, 1 + n_total);

}

return res;

}

#if MICROPY_PY_FUNCTION_ATTRS

STATIC void bound_meth_attr(mp_obj_t self_in, qstr attr, mp_obj_t *dest) {

if (dest[0] != MP_OBJ_NULL) {

// not load attribute

return;

}

if (attr == MP_QSTR___name__) {

mp_obj_bound_meth_t *o = MP_OBJ_TO_PTR(self_in);

dest[0] = MP_OBJ_NEW_QSTR(mp_obj_fun_get_name(o->meth));

}

}

#endif

STATIC const mp_obj_type_t mp_type_bound_meth = {

{ &mp_type_type },

.name = MP_QSTR_bound_method,

#if MICROPY_ERROR_REPORTING == MICROPY_ERROR_REPORTING_DETAILED

.print = bound_meth_print,

#endif

.call = bound_meth_call,

#if MICROPY_PY_FUNCTION_ATTRS

.attr = bound_meth_attr,

#endif

};

mp_obj_t mp_obj_new_bound_meth(mp_obj_t meth, mp_obj_t self) {

mp_obj_bound_meth_t *o = m_new_obj(mp_obj_bound_meth_t);

o->base.type = &mp_type_bound_meth;

o->meth = meth;

o->self = self;

return MP_OBJ_FROM_PTR(o);

}