Lichen

templates/native/common.c

938:799711337453
5 months ago Paul Boddie Renamed the string class to str, replacing the str function with the new_str function, this being invoked specially by the string instantiation function. As with the Unicode type renaming, a more general instantiation mechanism might permit the new_str function to be part of the functionality of the str or basestring classes.
     1 /* Common operations for native functions.     2      3 Copyright (C) 2016, 2017, 2018, 2021 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 "types.h"    20 #include "exceptions.h"    21 #include "ops.h"    22 #include "progconsts.h"    23 #include "progops.h"    24 #include "progtypes.h"    25 #include "main.h"    26     27 /* Utility functions. */    28     29 __attr __new_str(char *s, int size)    30 {    31     /* Create a new string and mutate the __data__, __size__ and __key__ attributes. */    32     __attr attr = __NEWINSTANCE(__builtins___str_str);    33     __store_via_object(__VALUE(attr), __data__, (__attr) {.strvalue=s});    34     __store_via_object(__VALUE(attr), __size__, __INTVALUE(size));    35     __store_via_object(__VALUE(attr), __key__, __NULL);    36     return attr;    37 }    38     39 __attr __new_list(__fragment *f)    40 {    41     /* Create a new list and mutate the __data__ attribute. */    42     __attr attr = __NEWINSTANCE(__builtins___list_list);    43     __store_via_object(__VALUE(attr), __data__, (__attr) {.seqvalue=f});    44     return attr;    45 }    46     47 __fragment *__fragment_append(__fragment *data, __attr value)    48 {    49     __fragment *newdata = data;    50     unsigned int size = data->size, capacity = data->capacity;    51     unsigned int n;    52     53     /* Re-allocate the fragment if the capacity has been reached. */    54     if (size >= capacity)    55     {    56         /* NOTE: Consider various restrictions on capacity increases. */    57         n = capacity ? capacity * 2 : 1;    58         newdata = (__fragment *) __REALLOCATE(data, __FRAGMENT_SIZE(n));    59         newdata->capacity = n;    60     }    61     62     /* Insert the new element and increment the list size. */    63     newdata->attrs[size] = value;    64     newdata->size = size + 1;    65     66     return newdata;    67 }