Lichen

templates/progops.h

930:b47da767f704
10 months ago Paul Boddie Merged changes from the default branch. trailing-data
     1 /* Operations depending on program specifics.     2      3 Copyright (C) 2015-2019, 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 #ifndef __PROGOPS_H__    20 #define __PROGOPS_H__    21     22 #include <stdlib.h> /* size_t */    23 #include "types.h"    24 #include "main.h"    25     26 /* Generic instantiation operations, defining common members. */    27     28 __attr __new(const __table *table, __ref cls, size_t size, int immutable);    29 __attr __new_wrapper(__attr context, __attr attr);    30     31 /* Generic internal data allocation. */    32     33 __fragment *__new_fragment(unsigned int n);    34     35 __attr __newdata_list(unsigned int number, __attr args[]);    36 __attr __newdata_tuple(unsigned int number, __attr args[]);    37     38 #define __newliteral___builtins___list_list(NUM, ...) __newdata_list(NUM, __ARGS(__VA_ARGS__))    39 #define __newliteral___builtins___tuple_tuple(NUM, ...) __newdata_tuple(NUM, __ARGS(__VA_ARGS__))    40     41 /* Potentially superfluous operations. */    42     43 #ifdef __HAVE___builtins___dict_dict    44 __attr __newdata_dict(unsigned int number, __attr args[]);    45 #define __newliteral___builtins___dict_dict(NUM, ...) __newdata_dict(NUM, __ARGS(__VA_ARGS__))    46 #endif    47     48 /* Helpers for raising errors within common operations. */    49     50 void __raise_eof_error();    51 void __raise_floating_point_error();    52 void __raise_io_error(__attr value);    53 void __raise_memory_error();    54 void __raise_os_error(__attr value, __attr arg);    55 void __raise_overflow_error();    56 void __raise_unbound_method_error();    57 void __raise_underflow_error();    58 void __raise_value_error(__attr value);    59 void __raise_zero_division_error();    60 void __raise_type_error();    61     62 /* Helper for raising exception instances. */    63     64 __attr __ensure_instance(__attr arg);    65     66 /* Generic invocation operations. */    67     68 __attr __invoke(__attr callable, int always_callable,    69                    unsigned int nkwargs, __param kwcodes[], __attr kwargs[],    70                    unsigned int nargs, __attr args[]);    71     72 /* Error routines. */    73     74 __attr __unbound_method(__attr __self);    75     76 /* Generic operations depending on specific program details. */    77     78 void __SETDEFAULT(__ref obj, int pos, __attr value);    79 __attr __GETDEFAULT(__ref obj, int pos);    80 int __BOOL(__attr attr);    81     82 /* Convenience definitions. */    83     84 #define __OBJTYPE(CLS) __obj_##CLS    85 #define __INSTANCESIZE(CLS) sizeof(__OBJTYPE(CLS))    86 #define __INSTANCETABLE(CLS) (__InstanceTable_##CLS)    87 #define __NEWINSTANCE(CLS) __new(&__INSTANCETABLE(CLS), &CLS, __INSTANCESIZE(CLS), 0)    88 #define __NEWINSTANCEIM(CLS) __new(&__INSTANCETABLE(CLS), &CLS, __INSTANCESIZE(CLS), 1)    89 #define __ISINSTANCE(ATTR, TYPE) __BOOL(__fn_native_introspection_isinstance(__NULL, ATTR, TYPE))    90     91 /* Operations for accessing trailing data. */    92     93 #define __get_trailing_data(ATTR, TYPE) (((__OBJTYPE(TYPE) *) ((ATTR).value))->trailing)    94 #define __set_trailing_data(ATTR, TYPE, VALUE) ((__OBJTYPE(TYPE) *) ((ATTR).value))->trailing = VALUE;    95     96 #endif /* __PROGOPS_H__ */