misc.h 6.84 KB
Newer Older
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
/*
 * 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.
 */

Damien's avatar
Damien committed
27
28
29
30
31
32
33
// a mini library of useful types and functions

#ifndef _INCLUDED_MINILIB_H
#define _INCLUDED_MINILIB_H

/** types *******************************************************/

34
#include <stdbool.h>
Damien's avatar
Damien committed
35
36
37
38

typedef unsigned char byte;
typedef unsigned int uint;

39
40
/** generic ops *************************************************/

41
#ifndef MIN
42
#define MIN(x, y) ((x) < (y) ? (x) : (y))
43
44
#endif
#ifndef MAX
45
#define MAX(x, y) ((x) > (y) ? (x) : (y))
46
#endif
47

Damien's avatar
Damien committed
48
49
/** memomry allocation ******************************************/

50
51
// TODO make a lazy m_renew that can increase by a smaller amount than requested (but by at least 1 more element)

Damien's avatar
Damien committed
52
#define m_new(type, num) ((type*)(m_malloc(sizeof(type) * (num))))
53
#define m_new_maybe(type, num) ((type*)(m_malloc_maybe(sizeof(type) * (num))))
Damien's avatar
Damien committed
54
#define m_new0(type, num) ((type*)(m_malloc0(sizeof(type) * (num))))
55
56
#define m_new_obj(type) (m_new(type, 1))
#define m_new_obj_var(obj_type, var_type, var_num) ((obj_type*)m_malloc(sizeof(obj_type) + sizeof(var_type) * (var_num)))
57
#define m_new_obj_var_maybe(obj_type, var_type, var_num) ((obj_type*)m_malloc_maybe(sizeof(obj_type) + sizeof(var_type) * (var_num)))
58
59
60
61
62
#if MICROPY_ENABLE_FINALISER
#define m_new_obj_with_finaliser(type) ((type*)(m_malloc_with_finaliser(sizeof(type))))
#else
#define m_new_obj_with_finaliser(type) m_new_obj(type)
#endif
63
#define m_renew(type, ptr, old_num, new_num) ((type*)(m_realloc((ptr), sizeof(type) * (old_num), sizeof(type) * (new_num))))
64
#define m_renew_maybe(type, ptr, old_num, new_num) ((type*)(m_realloc_maybe((ptr), sizeof(type) * (old_num), sizeof(type) * (new_num))))
65
66
#define m_del(type, ptr, num) m_free(ptr, sizeof(type) * (num))
#define m_del_obj(type, ptr) (m_del(type, ptr, 1))
John R. Lenton's avatar
John R. Lenton committed
67
#define m_del_var(obj_type, var_type, var_num, ptr) (m_free(ptr, sizeof(obj_type) + sizeof(var_type) * (var_num)))
Damien's avatar
Damien committed
68
69

void *m_malloc(int num_bytes);
70
void *m_malloc_maybe(int num_bytes);
71
void *m_malloc_with_finaliser(int num_bytes);
Damien's avatar
Damien committed
72
void *m_malloc0(int num_bytes);
73
void *m_realloc(void *ptr, int old_num_bytes, int new_num_bytes);
74
void *m_realloc_maybe(void *ptr, int old_num_bytes, int new_num_bytes);
75
void m_free(void *ptr, int num_bytes);
76
void *m_malloc_fail(int num_bytes);
Damien's avatar
Damien committed
77

78
int m_get_total_bytes_allocated(void);
79
int m_get_current_bytes_allocated(void);
80
int m_get_peak_bytes_allocated(void);
Damien's avatar
Damien committed
81

82
83
84
/** array helpers ***********************************************/

// get the number of elements in a fixed-size array
85
#define MP_ARRAY_SIZE(a) (sizeof(a) / sizeof((a)[0]))
86

Damien's avatar
Damien committed
87
88
89
90
/** unichar / UTF-8 *********************************************/

typedef int unichar; // TODO

91
92
unichar utf8_get_char(const byte *s);
const byte *utf8_next_char(const byte *s);
Damien's avatar
Damien committed
93

94
95
96
97
bool unichar_isspace(unichar c);
bool unichar_isalpha(unichar c);
bool unichar_isprint(unichar c);
bool unichar_isdigit(unichar c);
98
bool unichar_isxdigit(unichar c);
99
100
bool unichar_isupper(unichar c);
bool unichar_islower(unichar c);
101
102
unichar unichar_tolower(unichar c);
unichar unichar_toupper(unichar c);
103
104
105
uint unichar_charlen(const char *str, uint len);
#define UTF8_IS_NONASCII(ch) ((ch) & 0x80)
#define UTF8_IS_CONT(ch) (((ch) & 0xC0) == 0x80)
Damien's avatar
Damien committed
106
107
108

/** variable string *********************************************/

Damien's avatar
Damien committed
109
typedef struct _vstr_t {
110
111
    uint alloc;
    uint len;
Damien's avatar
Damien committed
112
    char *buf;
113
114
    bool had_error : 1;
    bool fixed_buf : 1;
Damien's avatar
Damien committed
115
116
} vstr_t;

117
118
119
// convenience macro to declare a vstr with a fixed size buffer on the stack
#define VSTR_FIXED(vstr, alloc) vstr_t vstr; char vstr##_buf[(alloc)]; vstr_init_fixed_buf(&vstr, (alloc), vstr##_buf);

120
void vstr_init(vstr_t *vstr, int alloc);
121
void vstr_init_fixed_buf(vstr_t *vstr, int alloc, char *buf);
Damien's avatar
Damien committed
122
void vstr_clear(vstr_t *vstr);
123
vstr_t *vstr_new(void);
124
vstr_t *vstr_new_size(int alloc);
Damien's avatar
Damien committed
125
126
void vstr_free(vstr_t *vstr);
void vstr_reset(vstr_t *vstr);
127
bool vstr_had_error(vstr_t *vstr);
Damien's avatar
Damien committed
128
129
130
char *vstr_str(vstr_t *vstr);
int vstr_len(vstr_t *vstr);
void vstr_hint_size(vstr_t *vstr, int size);
131
char *vstr_extend(vstr_t *vstr, int size);
132
133
bool vstr_set_size(vstr_t *vstr, int size);
bool vstr_shrink(vstr_t *vstr);
Damien's avatar
Damien committed
134
char *vstr_add_len(vstr_t *vstr, int len);
Damien's avatar
Damien committed
135
136
void vstr_add_byte(vstr_t *vstr, byte v);
void vstr_add_char(vstr_t *vstr, unichar chr);
Damien's avatar
Damien committed
137
138
void vstr_add_str(vstr_t *vstr, const char *str);
void vstr_add_strn(vstr_t *vstr, const char *str, int len);
Damien's avatar
Damien committed
139
140
//void vstr_add_le16(vstr_t *vstr, unsigned short v);
//void vstr_add_le32(vstr_t *vstr, unsigned int v);
141
142
143
144
145
void vstr_ins_byte(vstr_t *vstr, uint byte_pos, byte b);
void vstr_ins_char(vstr_t *vstr, uint char_pos, unichar chr);
void vstr_cut_head_bytes(vstr_t *vstr, uint bytes_to_cut);
void vstr_cut_tail_bytes(vstr_t *vstr, uint bytes_to_cut);
void vstr_cut_out_bytes(vstr_t *vstr, uint byte_pos, uint bytes_to_cut);
146
void vstr_printf(vstr_t *vstr, const char *fmt, ...);
147

148
149
150
/** non-dynamic size-bounded variable buffer/string *************/

#define CHECKBUF(buf, max_size) char buf[max_size + 1]; uint buf##_len = max_size; char *buf##_p = buf;
151
#define CHECKBUF_RESET(buf, max_size) buf##_len = max_size; buf##_p = buf;
152
153
154
155
156
157
158
159
#define CHECKBUF_APPEND(buf, src, src_len) \
        { int l = MIN(src_len, buf##_len); \
        memcpy(buf##_p, src, l); \
        buf##_len -= l; \
        buf##_p += l; }
#define CHECKBUF_APPEND_0(buf) { *buf##_p = 0; }
#define CHECKBUF_LEN(buf) (buf##_p - buf)

160
#ifdef va_start
161
void vstr_vprintf(vstr_t *vstr, const char *fmt, va_list ap);
162
#endif
Damien's avatar
Damien committed
163

164
165
166
// Debugging helpers
int DEBUG_printf(const char *fmt, ...);

167
168
extern uint mp_verbose_flag;

169
170
171
172
173
174
175
176
177
178
179
180
181
// This is useful for unicode handling. Some CPU archs has
// special instructions for efficient implentation of this
// function (e.g. CLZ on ARM).
#ifndef count_lead_ones
static inline uint count_lead_ones(byte val) {
    uint c = 0;
    for (byte mask = 0x80; val & mask; mask >>= 1) {
        c++;
    }
    return c;
}
#endif

Damien's avatar
Damien committed
182
#endif // _INCLUDED_MINILIB_H