paul@354 | 1 | /* Native functions for buffer operations. |
paul@354 | 2 | |
paul@569 | 3 | Copyright (C) 2016, 2017 Paul Boddie <paul@boddie.org.uk> |
paul@354 | 4 | |
paul@354 | 5 | This program is free software; you can redistribute it and/or modify it under |
paul@354 | 6 | the terms of the GNU General Public License as published by the Free Software |
paul@354 | 7 | Foundation; either version 3 of the License, or (at your option) any later |
paul@354 | 8 | version. |
paul@354 | 9 | |
paul@354 | 10 | This program is distributed in the hope that it will be useful, but WITHOUT |
paul@354 | 11 | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
paul@354 | 12 | FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
paul@354 | 13 | details. |
paul@354 | 14 | |
paul@354 | 15 | You should have received a copy of the GNU General Public License along with |
paul@354 | 16 | this program. If not, see <http://www.gnu.org/licenses/>. |
paul@354 | 17 | */ |
paul@354 | 18 | |
paul@378 | 19 | #include <string.h> /* strcmp, memcpy */ |
paul@354 | 20 | #include "native/common.h" |
paul@354 | 21 | #include "types.h" |
paul@354 | 22 | #include "exceptions.h" |
paul@354 | 23 | #include "ops.h" |
paul@354 | 24 | #include "progconsts.h" |
paul@354 | 25 | #include "progops.h" |
paul@354 | 26 | #include "progtypes.h" |
paul@354 | 27 | #include "main.h" |
paul@354 | 28 | |
paul@664 | 29 | __attr __fn_native_buffer_buffer_str(__attr __self, __attr _data) |
paul@354 | 30 | { |
paul@664 | 31 | /* _data interpreted as buffer.__data__ */ |
paul@664 | 32 | __fragment *data = _data.seqvalue; |
paul@354 | 33 | unsigned int size = 0, i, j, n; |
paul@378 | 34 | char *s; |
paul@378 | 35 | __attr o; |
paul@354 | 36 | |
paul@354 | 37 | /* Calculate the size of the string. */ |
paul@354 | 38 | for (i = 0; i < data->size; i++) |
paul@758 | 39 | size += __TOINT(__load_via_object(__VALUE(data->attrs[i]), __size__)); |
paul@354 | 40 | |
paul@354 | 41 | /* Reserve space for a new string. */ |
paul@354 | 42 | s = (char *) __ALLOCATE(size + 1, sizeof(char)); |
paul@354 | 43 | |
paul@354 | 44 | /* Build a single string from the buffer contents. */ |
paul@354 | 45 | for (i = 0, j = 0; i < data->size; i++) |
paul@354 | 46 | { |
paul@758 | 47 | o = __load_via_object(__VALUE(data->attrs[i]), __data__); |
paul@758 | 48 | n = __TOINT(__load_via_object(__VALUE(data->attrs[i]), __size__)); |
paul@378 | 49 | memcpy(s + j, o.strvalue, n); /* does not null terminate but final byte should be zero */ |
paul@354 | 50 | j += n; |
paul@354 | 51 | } |
paul@354 | 52 | |
paul@354 | 53 | /* Return a new string. */ |
paul@583 | 54 | return __new_str(s, size); |
paul@354 | 55 | } |
paul@354 | 56 | |
paul@354 | 57 | /* Module initialisation. */ |
paul@354 | 58 | |
paul@354 | 59 | void __main_native_buffer() |
paul@354 | 60 | { |
paul@354 | 61 | } |