Lichen

templates/progops.h

826:3ca76e669ee0
2018-06-22 Paul Boddie Introduced missing instance accessor testing for static access operations.
     1 /* Operations depending on program specifics.     2      3 Copyright (C) 2015, 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 #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 #ifdef __HAVE___builtins___dict_dict    42 __attr __newdata_dict(unsigned int number, __attr args[]);    43 #define __newliteral___builtins___dict_dict(NUM, ...) __newdata_dict(NUM, __ARGS(__VA_ARGS__))    44 #endif /* __HAVE___builtins___dict_dict */    45     46 /* Helpers for raising errors within common operations. */    47     48 void __raise_eof_error();    49     50 void __raise_io_error(__attr value);    51     52 void __raise_memory_error();    53     54 void __raise_os_error(__attr value, __attr arg);    55     56 void __raise_overflow_error();    57     58 void __raise_zero_division_error();    59     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     80 __attr __GETDEFAULT(__ref obj, int pos);    81     82 int __BOOL(__attr attr);    83     84 /* Convenience definitions. */    85     86 #define __INSTANCESIZE(CLS) sizeof(__obj_##CLS)    87 #define __INSTANCETABLE(CLS) (__InstanceTable_##CLS)    88 #define __NEWINSTANCE(CLS) __new(&__INSTANCETABLE(CLS), &CLS, __INSTANCESIZE(CLS), 0)    89 #define __NEWINSTANCEIM(CLS) __new(&__INSTANCETABLE(CLS), &CLS, __INSTANCESIZE(CLS), 1)    90 #define __ISINSTANCE(ATTR, TYPE) __BOOL(__fn_native_introspection_isinstance(__NULL, ATTR, TYPE))    91     92 #endif /* __PROGOPS_H__ */