Lichen

templates/native/tuple.c

934:2989aab1b4f7
10 months ago Paul Boddie Renamed the utf8string class to unicode, eliminating the unicode function. This means that the simple case of merely returning an object if it is already a Unicode object no longer occurs when using the unicode callable, but such behaviour might be better supported with more general customised instantiation functionality.
     1 /* Native functions for tuple operations.     2      3 Copyright (C) 2016, 2017 Paul Boddie <paul@boddie.org.uk>     4      5 This program is free software; you can redistribute it and/or modify it under     6 the terms of the GNU General Public License as published by the Free Software     7 Foundation; either version 3 of the License, or (at your option) any later     8 version.     9     10 This program is distributed in the hope that it will be useful, but WITHOUT    11 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS    12 FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more    13 details.    14     15 You should have received a copy of the GNU General Public License along with    16 this program.  If not, see <http://www.gnu.org/licenses/>.    17 */    18     19 #include "native/common.h"    20 #include "types.h"    21 #include "exceptions.h"    22 #include "ops.h"    23 #include "progconsts.h"    24 #include "progops.h"    25 #include "progtypes.h"    26 #include "main.h"    27     28 /* Tuple operations. */    29     30 static __fragment __empty_fragment = {.size=0, .capacity=0};    31     32 __attr __fn_native_tuple_tuple_init(__attr __self, __attr size)    33 {    34     /* size interpreted as int */    35     int n = __TOINT(size);    36     37     /* Return the __data__ attribute. */    38     if (n) return (__attr) {.seqvalue=__new_fragment(n)};    39     else return (__attr) {.seqvalue=&__empty_fragment};    40 }    41     42 /* Module initialisation. */    43     44 void __main_native_tuple()    45 {    46 }