/
redgpu
/
raygpu
Обзор
Документация
Войти
/
redgpu
/
raygpu
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
include/external/cc.h
9 591 строка
452 KB
manuel5975p
cc header and some things
03 май 2025, 18:10
03 май 2025, 18:10
83037f5
Код
Авторство
О чём код?
/*----------------------------------------- CC: CONVENIENT CONTAINERS v1.4.2 ------------------------------------------- This library provides ergonomic, high-performance generic containers (vectors, linked lists, unordered maps, unordered sets, ordered maps, ordered sets, and null-terminated strings). Features: * Fully generic API. * Type safety without boilerplate container-type definitions. * User-defined destructor, comparison, and hash functions associated with element and key types. * No assumption of successful memory allocation. * Single header. * Compiles in C and C++. It requires C23, or C11 and support for typeof (available in every major compiler), or C++11. It has been tested with GCC, Clang, MinGW, and MSVC. Simple usage example (for more advanced examples, see https://github.com/JacksonAllan/CC): +---------------------------------------------------------+----------------------------------------------------------+ | Vector: | List: | |---------------------------------------------------------|----------------------------------------------------------| | #include <stdio.h> | #include <stdio.h> | | #include "cc.h" | #include "cc.h" | | | | | int main( void ) | int main( void ) | | { | { | | vec( int ) our_vec; | list( int ) our_list; | | init( &our_vec ); | init( &our_list ); | | | | | // Adding elements to end. | // Adding elements to end. | | for( int i = 0; i < 10; ++i ) | for( int i = 0; i < 10; ++i ) | | if( !push( &our_vec, i ) ) | if( !push( &our_list, i ) ) | | { | { | | // Out of memory, so abort. | // Out of memory, so abort. | | cleanup( &our_vec ); | cleanup( &our_list ); | | return 1; | return 1; | | } | } | | | | | // Inserting an element at an index. | // Inserting an element before another element. | | for( int i = 0; i < 10; ++i ) | for( | | if( !insert( &our_vec, i * 2, i ) ) | int *el = first( &our_list ); | | { | el != end( &our_list ); | | // Out of memory, so abort. | el = next( &our_list, el ) | | cleanup( &our_vec ); | ) | | return 1; | if( !insert( &our_list, el, *el ) ) | | } | { | | | // Out of memory, so abort. | | // Retrieving and erasing elements. | cleanup( &our_list ); | | for( int i = 0; i < size( &our_vec ); ) | return 1; | | if( *get( &our_vec, i ) % 3 == 0 ) | } | | erase( &our_vec, i ); | | | else | // Erasing elements. | | ++i; | for( | | | int *el = first( &our_list ); | | // Iteration #1. | el != end( &our_list ); | | for_each( &our_vec, el ) | ) | | printf( "%d ", *el ); | if( *el % 3 == 0 ) | | // Printed: 1 1 2 2 4 4 5 5 7 7 8 8 | el = erase( &our_list, el ); | | | else | | // Iteration #2. | el = next( &our_list, el ); | | for( | | | int *el = first( &our_vec ); | // Iteration #1. | | el != end( &our_vec ); | for_each( &our_list, el ) | | el = next( &our_vec, el ) | printf( "%d ", *el ); | | ) | // Printed: 1 1 2 2 4 4 5 5 7 7 8 8 | | printf( "%d ", *el ); | | | // Printed: Same as above. | // Iteration #2. | | | for( | | cleanup( &our_vec ); | int *el = first( &our_list ); | | } | el != end( &our_list ); | | | el = next( &our_list, el ) | | | ) | | | printf( "%d ", *el ); | | | // Printed: Same as above. | | | | | | cleanup( &our_list ); | | | } | +---------------------------------------------------------+----------------------------------------------------------+ | Map: | Set: | |---------------------------------------------------------|----------------------------------------------------------| | #include <stdio.h> | #include <stdio.h> | | #include "cc.h" | #include "cc.h" | | | | | int main( void ) | int main( void ) | | { | { | | // Declare a map with int keys and short elements. | set( int ) our_set; | | map( int, short ) our_map; | init( &our_set ); | | init( &our_map ); | | | | // Inserting elements. | | // Inserting elements. | for( int i = 0; i < 10; ++i ) | | for( int i = 0; i < 10; ++i ) | if( !insert( &our_set, i ) ) | | if( !insert( &our_map, i, i + 1 ) ) | { | | { | // Out of memory, so abort. | | // Out of memory, so abort. | cleanup( &our_set ); | | cleanup( &our_map ); | return 1; | | return 1; | } | | } | | | | // Erasing elements. | | // Erasing elements. | for( int i = 0; i < 10; i += 3 ) | | for( int i = 0; i < 10; i += 3 ) | erase( &our_set, i ); | | erase( &our_map, i ); | | | | // Retrieving elements. | | // Retrieving elements. | for( int i = 0; i < 10; ++i ) | | for( int i = 0; i < 10; ++i ) | { | | { | int *el = get( &our_set, i ); | | short *el = get( &our_map, i ); | if( el ) | | if( el ) | printf( "%d ", *el ); | | printf( "%d:%d ", i, *el ); | } | | } | // Printed: 1 2 4 5 7 8 | | // Printed: 1:2 2:3 4:5 5:6 7:8 8:9 | | | | // Iteration #1. | | // Iteration #1 (elements only). | for_each( &our_set, el ) | | for_each( &our_map, el ) | printf( "%d ", *el ); | | printf( "%d ", *el ); | // Printed: 2 4 7 1 5 8 | | // Printed: 3 5 8 2 6 9 | | | | // Iteration #2. | | // Iteration #2 (elements and keys). | for( | | for_each( &our_map, key, el ) | int *el = first( &our_set ); | | printf( "%d:%d ", *key, *el ); | el != end( &our_set ); | | // Printed: 2:3 4:5 7:8 1:2 5:6 8:9 | el = next( &our_set, el ) | | | ) | | // Iteration #3. | printf( "%d ", *el ); | | for( | // Printed: Same as above. | | short *el = first( &our_map ); | | | el != end( &our_map ); | cleanup( &our_set ); | | el = next( &our_map, el ) | } | | ) | | | printf( "%d:%d ", *key_for( &our_map, el ), *el ); | | | // Printed: Same as above. | | | | | | cleanup( &our_map ); | | | } | | +---------------------------------------------------------+----------------------------------------------------------+ | Ordered map: | Ordered set: | |---------------------------------------------------------|----------------------------------------------------------| | #include <stdio.h> | #include <stdio.h> | | #include "cc.h" | #include "cc.h" | | | | | int main( void ) | int main( void ) | | { | { | | // Declare an ordered map with int keys and short | oset( int ) our_oset; | | // elements. | init( &our_oset ); | | omap( int, short ) our_omap; | | | init( &our_omap ); | // Inserting elements. | | | for( int i = 0; i < 10; ++i ) | | // Inserting elements. | if( !insert( &our_oset, i ) ) | | for( int i = 0; i < 10; ++i ) | { | | if( !insert( &our_omap, i, i + 1 ) ) | // Out of memory, so abort. | | { | cleanup( &our_oset ); | | // Out of memory, so abort. | return 1; | | cleanup( &our_omap ); | } | | return 1; | | | } | // Erasing elements. | | | for( int i = 0; i < 10; i += 3 ) | | // Erasing elements. | erase( &our_oset, i ); | | for( int i = 0; i < 10; i += 3 ) | | | erase( &our_omap, i ); | // Retrieving elements. | | | for( int i = 0; i < 10; ++i ) | | // Retrieving elements. | { | | for( int i = 0; i < 10; ++i ) | int *el = get( &our_oset, i ); | | { | if( el ) | | short *el = get( &our_omap, i ); | printf( "%d ", *el ); | | if( el ) | } | | printf( "%d:%d ", i, *el ); | // Printed: 1 2 4 5 7 8 | | } | | | // Printed: 1:2 2:3 4:5 5:6 7:8 8:9 | // Iteration #1. | | | for_each( &our_oset, el ) | | // Iteration #1 (elements only). | printf( "%d ", *el ); | | for_each( &our_omap, el ) | // Printed: 1 2 4 5 7 8 | | printf( "%d ", *el ); | | | // Printed: 2 3 5 6 8 9 | // Iteration #2. | | | for( | | // Iteration #2 (elements and keys). | int *el = first( &our_oset ); | | for_each( &our_omap, key, el ) | el != end( &our_oset ); | | printf( "%d:%d ", *key, *el ); | el = next( &our_oset, el ) | | // Printed: 1:2 2:3 4:5 5:6 7:8 8:9 | ) | | | printf( "%d ", *el ); | | // Iteration #3. | // Printed: Same as above. | | for( | | | short *el = first( &our_omap ); | // Iteration over an element range, namely from 2 | | el != end( &our_omap ); | // (inclusive) to 7 (exclusive). | | el = next( &our_omap, el ) | for( | | ) | int *el = first( &our_oset, 2 ), | | printf( "%d:%d ", *key_for( &our_omap, el ), *el ); | *range_end = first( &our_oset, 7 ); | | // Printed: Same as above. | el != range_end; | | | el = next( &our_oset, el ) | | // Iteration over a key range, namely from 2 | ) | | // (inclusive) to 7 (exclusive). | printf( "%d ", *el ); | | for( | // Printed: 2 4 5 | | short *el = first( &our_omap, 2 ), | | | *range_end = first( &our_omap, 7 ); | cleanup( &our_oset ); | | el != range_end; | } | | el = next( &our_omap, el ) | | | ) | | | printf( "%d:%d ", *key_for( &our_omap, el ), *el ); | | | // Printed: 2:3 4:5 5:6 | | | | | | cleanup( &our_omap ); | | | } | | +---------------------------------------------------------+----------------------------------------------------------+ | String: | |---------------------------------------------------------| | #include <stdio.h> | | #include "cc.h" | | | | int main( void ) | | { | | str( char ) our_str; | | init( &our_str ); | | | | // Appending formatted data. | | const char model[] = "Hornet CB900F"; | | const char manufacturer[] = "Honda"; | | unsigned int year_introduced = 2002; | | unsigned int year_discontinued = 2007; | | double horsepower = 103.0; | | double torque = 84.9; | | if( | | !push_fmt( | | &our_str, "The ", model, | | " is a motorcycle that was manufactured by ", | | manufacturer, " from ", year_introduced, " to ", | | year_discontinued, ".\nIt makes ", horsepower, | | "hp and ", torque, "Nm of torque.\n" | | ) | | ) | | { | | // Out of memory, so abort. | | cleanup( &our_str ); | | return 1; | | } | | | | // Inserting formatted data at an index. | | const char alternative_model_name[] = "919"; | | if( | | !insert_fmt( | | &our_str, 17, ", also known as the ", | | alternative_model_name, "," | | ) | | ) | | { | | // Out of memory, so abort. | | cleanup( &our_str ); | | return 1; | | } | | | | printf( first( &our_str ) ); | | // Printed: | | // The Hornet CB900F, also known as the 919, is a | | // motorcycle that was manufactured by Honda from | | // 2002 to 2007. | | // It makes 103.00hp and 84.90Nm of torque. | | | | // Erasing elements. | | erase_n( &our_str, 108, 41 ); | | | | printf( first( &our_str ) ); | | // Printed: | | // The Hornet CB900F, also known as the 919, is a | | // motorcycle that was manufactured by Honda from | | // 2002 to 2007. | | | | // Iteration #1. | | for_each( &our_str, el ) | | printf( "%c", *el ); | | // Printed: Same as above. | | | | // Iteration #2. | | for( | | char *el = first( &our_str ); | | el != end( &our_str ); | | el = next( &our_str, el ) | | ) | | printf( "%c", *el ); | | // Printed: Same as above. | | | | cleanup( &our_str ); | | } | +---------------------------------------------------------+ Including the library: Place this at the top of your file/s: #include "cc.h" The following can be defined before including the library in any file: #define CC_NO_SHORT_NAMES By default, CC exposes API macros without the "cc_" prefix. Define this flag to withhold the unprefixed names. The following can be defined anywhere and affect all calls to API macros where the definition is visible: #define CC_REALLOC our_realloc Causes API macros to use a custom realloc function rather than the one in the standard library. #define CC_FREE our_free Causes API macros to use a custom free function rather than the one in the standard library. API: General notes: * API macros may evaluate their first argument - the pointer to the container - multiple times, so never use expressions with side effects (e.g. &our_containers[ ++i ] ) for that argument. In GCC and Clang, attempting to do so will cause a compiler warning. All other arguments are only evaluated once. * If CC_NO_SHORT_NAMES was declared, all API macros and functions are prefixed with "cc_". * Duplicating a container handle via assignment and then operating on the duplicate will invalidate the original. Hence, only create a duplicate via assignment (including through function parameters and return values) if you have finished with the original. * An iterator is a pointer to an element in the container or to the associated end (or r_end, if the container supports it). In the documentation below, these pointers are referred to as "pointer-iterators". * In the documentation below, el_ty is the container's element type and key_ty is the container's key type (where applicable). All containers: The following function-like macros operate on all containers: void init( <any container type> *cntr ) Initializes cntr for use. This call cannot fail (it does not allocate memory). <any container type> initialized( <same container type> *cntr ) Returns an initialized instance of the same type as cntr. This call cannot fail (it does not allocate memory). The call is a constant expression and can therefore be used to initialize global containers at the site of their declaration, e.g.: vec( int ) our_vec = initialized( &our_vec ); bool init_clone( <any container type> *cntr, <same container type> *src ) Initializes cntr as a shallow copy of src. Returns true, or false if unsuccessful due to memory allocation failure. size_t size( <any container type> *cntr ) Returns the number of elements. void clear( <any container type> *cntr ) Erases all elements, calling the element and key types' destructors if they exist (unless the container is a string). void cleanup( <any container type> *cntr ) Erases all elements (calling the element and key types' destructors if they exist, unless the container is a string), frees any other memory associated with the container, and initializes the container for reuse. el_ty *first( <any container type> *cntr ) Returns a pointer-iterator to the first element, or an end pointer-iterator if the container is empty. el_ty *next( <any container type> *cntr, el_ty *i ) Returns a pointer-iterator to the element after the one pointed to by i. If i points to the last element, the return value is an end pointer-iterator. If i points to r_end (for the containers that support reverse iteration), the return value is a pointer-iterator to the first element, or an end pointer-iterator if the container is empty. el_ty *end( <any container type> *cntr ) Returns an end pointer-iterator for the container. for_each( <any container type> *cntr, i_name ) Creates a loop iterating over all elements from first to last. This macro declares a pointer-iterator (el_ty *) named i_name. It is equivalent to for( el_ty *i_name = first( cntr ); i_name != end( cntr ); i_name = next( cntr, i_name ) ) and should be followed by the loop body. Vector (a dynamic array that stores elements in contiguous memory): vec( el_ty ) cntr Declares an uninitialized vector named cntr. size_t cap( vec( el_ty ) *cntr ) Returns the current capacity. bool reserve( vec( el_ty ) *cntr, size_t n ) Ensures that the capacity is large enough to accommodate n elements. Returns true, or false if unsuccessful due to memory allocation failure. bool resize( vec( el_ty ) *cntr, size_t n ) Sets the number of elements to n. If n is above the current size, the new elements are uninitialized. If n is below the current size, the element type's destructor (if it exists) is called for each erased element. Returns true, or false if unsuccessful due to memory allocation failure. bool shrink( vec( el_ty ) *cntr ) Shrinks the capacity to the current size. Returns true, or false if unsuccessful due to memory allocation failure. el_ty *get( vec( el_ty ) *cntr, size_t i ) Returns a pointer-iterator to the element at index i. el_ty *push( vec( el_ty ) *cntr, el_ty el ) Inserts el at the end of the vector. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *push_n( vec( el_ty ) *cntr, el_ty *els, size_t n ) Inserts n elements from array els at the end of the vector. Returns a pointer-iterator to the first new element, or NULL in the case of memory allocation failure. el_ty *insert( vec( el_ty ) *cntr, size_t i, el_ty el ) Inserts el at index i. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *insert_n( vec( el_ty ) *cntr, size_t i, el_ty *els, size_t n ) Inserts n elements from array els at index i. Returns a pointer-iterator to the first new element, or NULL in the case of memory allocation failure. el_ty *erase( vec( el_ty ) *cntr, size_t i ) Erases the element at index i, calling the element type's destructor if it exists. Returns a pointer-iterator to the element after the erased element, or an end pointer-iterator if there is no subsequent element. el_ty *erase_n( vec( el_ty ) *cntr, size_t i, size_t n ) Erases n elements beginning at index i, calling the element type's destructor, if it exists, for each erased element. Returns a pointer-iterator to the element after the erased elements, or an end pointer-iterator if there is no subsequent element. el_ty *last( vec( el_ty ) *cntr ) Returns a pointer-iterator to the last element. This call is synonymous with get( cntr, size( cntr ) - 1 ) and assumes that the vector is not empty. Notes: * Vector pointer-iterators (including end) are invalidated by any API calls that cause memory reallocation. List (a doubly linked list): list( el_ty ) cntr Declares an uninitialized list named cntr. el_ty *insert( list( el_ty ) *cntr, el_ty *i, el_ty el ) Inserts el before pointer-iterator i. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *push( list( el_ty ) *cntr, el_ty el ) Inserts el at the end of the list. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. This call is synonymous with insert( cntr, end( cntr ), el ). el_ty *erase( list( el_ty ) *cntr, el_ty *i ) Erases the element pointed to by pointer-iterator i, calling the element type's destructor if it exists. Returns a pointer-iterator to the element after i, or an end pointer-iterator if i was the last element. bool splice( list( el_ty ) *cntr, el_ty *i, list( el_ty ) src, el_ty *src_i ) Removes the element pointed to by pointer-iterator src_i from src and inserts it before the element pointed to by pointer-iterator i in cntr. Returns true, or false if unsuccessful. This call only allocates memory, and therefore can only fail, if the list has not had any element inserted, pushed, or spliced into it since it was initialized. el_ty *last( list( el_ty ) *cntr ) Returns a pointer-iterator to the last element, or an r_end pointer-iterator if the list is empty. el_ty *prev( list( el_ty ) *cntr, el_ty *i ) Returns a pointer-iterator to the element before the one pointed to by i. If i points to the first element, the return value is an r_end pointer-iterator. If i points to end, then the return value is a pointer-iterator to the last element, or an r_end pointer-iterator if the list is empty. el_ty *r_end( list( el_ty ) *cntr ) Returns an r_end (reverse end) pointer-iterator for the list. r_for_each( list( el_ty ) *cntr, i_name ) Creates a loop iterating over all elements from last to first. This macro declares an el_ty * pointer-iterator named i_name. It is equivalent to for( el_ty *i_name = last( cntr ); i_name != r_end( cntr ); i_name = prev( cntr, i_name ) ) and should be followed by the body of the loop. Notes: * List pointer-iterators (including r_end and end) are not invalidated by any API calls besides init and cleanup, unless they point to erased elements. Map (an unordered associative container mapping elements to keys, implemented as a hybrid open-addressing, chained hash table): map( key_ty, el_ty ) cntr Declares an uninitialized map named cntr. key_ty must be a type, or alias for a type, for which comparison and hash functions have been defined (this requirement is enforced internally such that neglecting it causes a compiler error). For types with in-built comparison and hash functions, and for details on how to declare new comparison and hash functions, see "Destructor, comparison, and hash functions and custom max load factors" below. size_t cap( map( key_ty, el_ty ) *cntr ) Returns the current capacity, i.e. bucket count. Note that the number of elements a map can accommodate without rehashing is not its capacity but its capacity multiplied by the max load factor associated with its key type. bool reserve( map( key_ty, el_ty ) *cntr, size_t n ) Ensures that the capacity is large enough to accommodate n elements without rehashing. Returns true, or false if unsuccessful due to memory allocation failure. bool shrink( map( key_ty, el_ty ) *cntr ) Shrinks the capacity to best accommodate the current size. Returns true, or false if unsuccessful due to memory allocation failure. el_ty *insert( map( key_ty, el_ty ) *cntr, key_ty key, el_ty el ) Inserts element el with the specified key. If an element with the same key already exists, the existing element is replaced. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *get( map( key_ty, el_ty ) *cntr, key_ty key ) Returns a pointer-iterator to the element with the specified key, or NULL if no such element exists. el_ty *get_or_insert( map( key_ty, el_ty ) *cntr, key_ty key, el_ty el ) Inserts element el if no element with the specified key already exist. Returns a pointer-iterator to the new element if it was inserted, or a pointer-iterator to the existing element with the same key, or NULL in the case of memory allocation failure. Determine whether an element was inserted by comparing the map's size before and after the call. const key_ty *key_for( map( key_ty, el_ty ) *cntr, el_ty *i ) Returns a const pointer to the key for the element pointed to by pointer-iterator i. bool erase( map( key_ty, el_ty ) *cntr, key_ty key ) Erases the element with the specified key, if it exists. Returns true if an element was erased, or false if no such element exists. el_ty *erase_itr( map( key_ty, el_ty ) *cntr, el_ty *i ) Erases the element pointed to by pointer-iterator i. Returns a pointer-iterator to the next element in the map, or an end pointer-iterator if the erased element was the last one. for_each( map( key_ty, el_ty ) *cntr, key_ptr_name, i_name ) Creates a loop iterating over all elements from first to last, with easy access to the corresponding keys. This macro declares a pointer to the key (const key_ty *) named key_ptr_name and a pointer-iterator (el_ty *) named i_name. It should be followed by the body of the loop. Notes: * Map pointer-iterators (including end) may be invalidated by any API calls that cause memory reallocation. Set (an unordered associative container for elements without a separate key, implemented as a hybrid open-addressing, chained hash table): set( el_ty ) cntr Declares an uninitialized set named cntr. el_ty must be a type, or alias for a type, for which comparison and hash functions have been defined (this requirement is enforced internally such that neglecting it causes a compiler error). For types with in-built comparison and hash functions, and for details on how to declare new comparison and hash functions, see "Destructor, comparison, and hash functions and custom max load factors" below. size_t cap( set( el_ty ) *cntr ) Returns the current capacity, i.e. bucket count. Note that the number of elements a set can accommodate without rehashing is not its capacity but its capacity multiplied by the max load factor associated with its key type. bool reserve( set( el_ty ) *cntr, size_t n ) Ensures that the capacity is large enough to accommodate n elements without rehashing. Returns true, or false if unsuccessful due to memory allocation failure. bool shrink( set( el_ty ) *cntr ) Shrinks the capacity to best accommodate the current size. Returns true, or false if unsuccessful due to memory allocation failure. el_ty *insert( set( el_ty ) *cntr, el_ty el ) Inserts element el. If the element already exists, the existing element is replaced. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *get( set( el_ty ) *cntr, el_ty el ) Returns a pointer-iterator to element el, or NULL if no such element exists. el_ty *get_or_insert( set( el_ty ) *cntr, el_ty el ) Inserts element el if it does not already exist. Returns a pointer-iterator to the new element if it was inserted, or a pointer-iterator to the existing element, or NULL in the case of memory allocation failure. Determine whether an element was inserted by comparing the set's size before and after the call. bool erase( set( el_ty ) *cntr, el_ty el ) Erases the element el, if it exists. Returns true if an element was erased, or false if no such element exists. el_ty *erase_itr( set( el_ty ) *cntr, el_ty *i ) Erases the element pointed to by pointer-iterator i. Returns a pointer-iterator to the next element in the set, or an end pointer-iterator if the erased element was the last one. Notes: * Set pointer-iterators (including end) may be invalidated by any API calls that cause memory reallocation. Ordered map (an ordered associative container mapping elements to keys, implemented as a red-black tree): omap( key_ty, el_ty ) cntr Declares an uninitialized ordered map named cntr. key_ty must be a type, or alias for a type, for which a comparison function has been defined (this requirement is enforced internally such that neglecting it causes a compiler error). For types with in-built comparison functions, and for details on how to declare new comparison functions, see "Destructor, comparison, and hash functions and custom max load factors" below. el_ty *insert( omap( key_ty, el_ty ) *cntr, key_ty key, el_ty el ) Inserts element el with the specified key. If an element with the same key already exists, the existing element is replaced. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *get( omap( key_ty, el_ty ) *cntr, key_ty key ) Returns a pointer-iterator to the element with the specified key, or NULL if no such element exists. el_ty *get_or_insert( omap( key_ty, el_ty ) *cntr, key_ty key, el_ty el ) Inserts element el if no element with the specified key already exists. Returns a pointer-iterator to the new element if it was inserted, or a pointer-iterator to the existing element with the same key, or NULL in the case of memory allocation failure. Determine whether an element was inserted by comparing the ordered map's size before and after the call. const key_ty *key_for( omap( key_ty, el_ty ) *cntr, el_ty *i ) Returns a const pointer to the key for the element pointed to by pointer-iterator i. bool erase( omap( key_ty, el_ty ) *cntr, key_ty key ) Erases the element with the specified key, if it exists. Returns true if an element was erased, or false if no such element exists. el_ty *erase_itr( omap( key_ty, el_ty ) *cntr, el_ty *i ) Erases the element pointed to by pointer-iterator i. Returns a pointer-iterator to the next element in the ordered map, or an end pointer-iterator if the erased element was the last one. el_ty *first( omap( key_ty, el_ty ) *cntr, key_ty key ) Returns a pointer-iterator to the first element with a key greater than or equal to the specified key, or an end pointer-iterator if no such element exists. el_ty *last( omap( key_ty, el_ty ) *cntr ) Returns a pointer-iterator to the last element, or an r_end pointer-iterator if the ordered map is empty. el_ty *last( omap( key_ty, el_ty ) *cntr, key_ty key ) Returns a pointer-iterator to the last element with a key less than or equal to the specified key, or an r_end pointer-iterator if the ordered map is empty. el_ty *prev( omap( key_ty, el_ty ) *cntr, el_ty *i ) Returns a pointer-iterator to the element before the one pointed to by i. If i points to the first element, the value returned is an r_end pointer-iterator. If i points to end, then the value returned points to the last element, or is an r_end pointer-iterator if the ordered map is empty. el_ty *r_end( omap( key_ty, el_ty ) *cntr ) Returns an r_end (reverse end) pointer-iterator for the ordered map. for_each( omap( key_ty, el_ty ) *cntr, key_ptr_name, i_name ) Creates a loop iterating over all elements from first to last, with easy access to the corresponding keys. This macro declares a pointer to the key (const key_ty *) named key_ptr_name and a pointer-iterator (el_ty *) named i_name. It should be followed by the body of the loop. r_for_each( omap( key_ty, el_ty ) *cntr, i_name ) Creates a loop iterating over all elements from last to first. This macro declares an el_ty * pointer-iterator named i_name. It is equivalent to for( el_ty *i_name = last( cntr ); i_name != r_end( cntr ); i_name = prev( cntr, i_name ) ) and should be followed by the body of the loop. r_for_each( omap( key_ty, el_ty ) *cntr, key_ptr_name, i_name ) Creates a loop iterating over all elements from last to first, with easy access to the corresponding keys. This macro declares a pointer to the key (const key_ty *) named key_ptr_name and a pointer-iterator (el_ty *) named i_name. It should be followed by the body of the loop. Notes: * Ordered map pointer-iterators (including r_end and end) are not invalidated by any API calls besides init and cleanup, unless they point to erased elements. Ordered set (an ordered associative container for elements without a separate key, implemented as a red-black tree): oset( el_ty ) cntr Declares an uninitialized ordered set named cntr. el_ty must be a type, or alias for a type, for which a comparison function has been defined (this requirement is enforced internally such that neglecting it causes a compiler error). For types with in-built comparison functions, and for details on how to declare new comparison functions, see "Destructor, comparison, and hash functions and custom max load factors" below. el_ty *insert( oset( el_ty ) *cntr, el_ty el ) Inserts element el. If the element already exists, the existing element is replaced. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *get( oset( el_ty ) *cntr, el_ty el ) Returns a pointer-iterator to element el, or NULL if no such element exists. el_ty *get_or_insert( oset( el_ty ) *cntr, el_ty el ) Inserts element el if it does not already exist. Returns a pointer-iterator to the new element if it was inserted, or a pointer-iterator to the existing element, or NULL in the case of memory allocation failure. Determine whether an element was inserted by comparing the ordered set's size before and after the call. bool erase( oset( el_ty ) *cntr, el_ty el ) Erases the element el, if it exists. Returns true if an element was erased, or false if no such element exists. el_ty *erase_itr( oset( el_ty ) *cntr, el_ty *i ) Erases the element pointed to by pointer-iterator i. Returns a pointer-iterator to the next element in the ordered set, or an end pointer-iterator if the erased element was the last one. el_ty *first( oset( key_ty, el_ty ) *cntr, el_ty el ) Returns a pointer-iterator to the first element greater than or equal to el, or an end pointer-iterator if no such element exists. el_ty *last( oset( el_ty ) *cntr ) Returns a pointer-iterator to the last element, or an r_end pointer-iterator if the ordered set is empty. el_ty *last( oset( key_ty, el_ty ) *cntr, el_ty el ) Returns a pointer-iterator to the last element less than or equal to el, or an end pointer-iterator if no such element exists. el_ty *prev( oset( el_ty ) *cntr, el_ty *i ) Returns a pointer-iterator to the element before the one pointed to by i. If i points to the first element, the return value is an r_end pointer-iterator. If i points to end, then the pointer-iterator returned points to the last element, or is an r_end pointer-iterator if the ordered set is empty. el_ty *r_end( oset( el_ty ) *cntr ) Returns an r_end (reverse end) pointer-iterator for the ordered set. r_for_each( oset( el_ty ) *cntr, i_name ) Creates a loop iterating over all elements from last to first. This macro declares an el_ty * pointer-iterator named i_name. It is equivalent to for( el_ty *i_name = last( cntr ); i_name != r_end( cntr ); i_name = prev( cntr, i_name ) ) and should be followed by the body of the loop. Notes: * Ordered set pointer-iterators (including r_end and end) may be invalidated by any API calls that cause memory reallocation. String (a dynamic, null-terminated array representing a sequence of characters): str( el_ty ) cntr Declares an uninitialized string named cntr. el_ty must be char, unsigned char, signed char, char8_t, char16_t, char32_t, or an alias for one of these types. size_t cap( str( el_ty ) *cntr ) Returns the current capacity, i.e. the number of elements that the string can accommodate (not including the null terminator) without reallocating its internal buffer. bool reserve( str( el_ty ) *cntr, size_t n ) Ensures that the the capacity is large enough to accommodate n elements. Returns true, or false if unsuccessful due to memory allocation failure. bool resize( str( el_ty ) *cntr, size_t n, el_ty fill_character ) Sets the number of elements to n. If n is above the current size, the new elements are initialized to fill_character. If n is below the current size, no destructor is called for any erased element, even if a destructor for the element type has been defined. Returns true, or false if unsuccessful due to memory allocation failure. bool shrink( str( el_ty ) *cntr ) Shrinks the capacity to the current size. Returns true, or false if unsuccessful due to memory allocation failure. el_ty *get( str( el_ty ) *cntr, size_t i ) Returns a pointer-iterator to the element at index i. el_ty *push( str( el_ty ) *cntr, el_ty el ) Inserts el at the end of the string. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *push_fmt( str( el_ty ) *cntr, ... ) Inserts up to 32 formatted values, provided as variadic arguments, at the end of the string. Returns a pointer-iterator to the first new element, or NULL in the case of memory allocation failure. Each variadic argument must be one of the following: * A null-terminated array of elements of the same type as el_ty (i.e. a C string). * A CC string with the same element type. * A fundamental integer type (bool, char, unsigned char, signed char, unsigned short, short, unsigned int, int, unsigned long, long, unsigned long long, or long long) or alias for such a type. * A fundamental floating-point type (float or double). * A void pointer (to be formatted as a memory address). * The return value of one of the following functions: * integer_dec( int min_digits ) Causes subsequent integer arguments to be formatted as decimal integers. min_digits specifies the minimum number of digits, and if the formatted integer is shorter than this number, it is padded with leading zeros. * integer_hex( int min_digits ) Causes subsequent integer arguments to be formatted as unsigned hexadecimal integers. min_digits specifies the minimum number of digits, and if the formatted integer is shorter than this number, it is padded with leading zeros. * integer_oct( int min_digits ) Causes subsequent integer arguments to be formatted as unsigned octal integers. min_digits specifies the minimum number of digits, and if the formatted integer is shorter than this number, it is padded with leading zeros. * float_dec( int precision ) Causes subsequent floating-point arguments to be formatted as decimal floating-point numbers. precision specifies the number of decimal places to include. * float_hex( int precision ) Causes subsequent floating-point arguments to be formatted as hexadecimal floating-point numbers. precision specifies the number of decimal places to include. * float_sci( int precision ) Causes subsequent floating-point arguments to be formatted using scientific notation. precision specifies the number of decimal places to include. * float_shortest( int significant_digits ) Causes subsequent floating-point arguments to be formatted as decimal floating-point numbers or using scientific notation, depending on which representation is shorter. significant_digits specifies the maximum number of significant digits to include. Arguments are type-promoted as follows: * bool, unsigned char, unsigned short, unsigned int, unsigned long -> unsigned long long. * signed char, short, int, long, -> long long. * char -> long long or unsigned long long, depending on whether char is signed. * float -> double. By default, integer arguments are formatted as decimal integers with a minimum of one digit, and floating-point arguments are formatted as decimal floating-point numbers with two decimal places. For formatting, C and CC strings of char16_t and char32_t elements are assumed to be encoded as UTF-16 and UTF-32, respectively. el_ty *push_n( str( el_ty ) *cntr, el_ty *els, size_t n ) Inserts n elements from array els at the end of the string. Returns a pointer-iterator to the first new element, or NULL in the case of memory allocation failure. el_ty *insert( str( el_ty ) *cntr, size_t i, el_ty el ) Inserts el at index i. Returns a pointer-iterator to the new element, or NULL in the case of memory allocation failure. el_ty *insert_fmt( str( el_ty ) *cntr, size_t i, ... ) Inserts up to 32 formatted values, provided as variadic arguments, at index i. Each variadic argument must be one of the possibilities listed in the above documentation for push_fmt, and the same type-promotions and encoding assumptions apply. Returns a pointer-iterator to the first new element, or NULL in the case of memory allocation failure. el_ty *insert_n( str( el_ty ) *cntr, size_t i, el_ty *els, size_t n ) Inserts n elements from array els at index i. Returns a pointer-iterator to the first new element, or NULL in the case of memory allocation failure. el_ty *erase( str( el_ty ) *cntr, size_t i ) Erases the element at index i. No destructor is called for the erased element, even if a destructor for the element type has been defined. Returns a pointer-iterator to the element after the erased element, or an end pointer-iterator if there is no subsequent element. el_ty *erase_n( str( el_ty ) *cntr, size_t i, size_t n ) Erases n elements beginning at index i. No destructor is called for erased elements, even if a destructor for the element type has been defined. Returns a pointer-iterator to the element after the erased elements, or an end pointer-iterator if there is no subsequent element. el_ty *last( str( el_ty ) *cntr ) Returns a pointer-iterator to the last element. This call is synonymous with get( cntr, size( cntr ) - 1 ) and assumes that the string is not empty. Notes: * String pointer-iterators (including end) are invalidated by any API calls that cause memory reallocation. Destructor, comparison, and hash functions and custom max load factors: This part of the API allows the user to define custom destructor, comparison, and hash functions and max load factors for a type. Once these functions are defined, any container (except strings) using that type for its elements or keys will call them automatically. Once the max load factor is defined, any map using the type for its keys and any set using the type for its elements will use the defined load factor to determine when rehashing is necessary. #define CC_DTOR ty, { function body } #include "cc.h" Defines a destructor for type ty. The signature of the function is void ( ty val ). #define CC_CMPR ty, { function body } #include "cc.h" Defines a comparison function for type ty. The signature of the function is int ( ty val_1, ty val_2 ). The function should return 0 if val_1 and val_2 are equal, a negative integer if val_1 is less than val_2, and a positive integer if val_1 is greater than val_2. #define CC_HASH ty, { function body } #include "cc.h" Defines a hash function for type ty. The signature of the function is size_t ( ty val ). The function should return the hash of val. #define CC_LOAD ty, max_load_factor Defines the max load factor for type ty. max_load_factor should be a float or double between 0.0 and 1.0. The default max load factor is 0.9. Trivial example: typedef struct { int x; } our_type; #define CC_DTOR our_type, { printf( "!%d\n", val.x ); } #define CC_CMPR our_type, { return val_1.x < val_2.x ? -1 : val_1.x > val_2.x; } #define CC_HASH our_type, { return val.x * 2654435761ull; } #define CC_LOAD our_type, 0.5 #include "cc.h" Notes: * These functions are inline and have static scope, so you need to either redefine them in each translation unit from which they should be called or (preferably) define them in a shared header. For structs or unions, a sensible place to define them is immediately after the definition of the struct or union. * Only one destructor, comparison, or hash function or max load factor should be defined by the user for each type. * Including cc.h in these cases does not include the full header, so you still need to include it separately at the top of your files. * In-built comparison and hash functions are already defined for the following types: char, unsigned char, signed char, unsigned short, short, unsigned int, int, unsigned long, long, unsigned long long, long long, size_t, null-terminated C strings (char * and const char *), and CC strings. Defining a comparison or hash function for one of these types will overwrite the in-built function. * In-built, memory-freeing destructor functions are already defined for CC strings. Defining a destructor for a CC string type will overwrite the in-built destructor. Heterogeneous string insertion and lookup: When CC strings are used as the key and/or element type of another container, most API macros that operate on the container may alternatively take, as their key and/or element argument, a regular C string of the corresponding character type. In this case, the library automatically converts the C string into a CC string. The API macros that support heterogeneous insertion are: * push * insert * get_or_insert The API macros that support heterogeneous lookup are: * get * erase In the lookup case, CC performs no memory allocations. Trivial example: map( str( char ), str( char ) ) our_map = initialized( &our_map ); if( insert( &our_map, "France", "Paris" ) ) // Heterogeneous insertion. { str( char ) *el = get( &our_map, "France" ); // Heterogeneous lookup. printf( first( el ) ); // Printed: Paris } Version history: --/04/2025 1.4.2: Fixed unreachable-code-generic-assoc warning generated by cc_splice and cc_init_clone in Clang. 21/04/2025 1.4.1: Removed dependency on uchar.h because the header is missing on macOS. Fixed the internal cc_unmove function to be compatible with C++23. Fixed incorrect handling of char8_t * arguments in cc_push_fmt and cc_insert_fmt in C++. Removed superfluous handling of const cc_str arguments in cc_push_fmt and cc_insert_fmt in C. 10/04/2025 1.4.0: Added CC strings. Added cc_initialized for in-situ initialization of global containers. Added support for const char * map and omap keys and set and oset elements. Added support for const source arguments in cc_splice and cc_init_clone. Added support for -Wextra and -Wconversion compiler flags. 11/02/2025 1.3.2: Fixed a critical bug causing maps to call the wrong destructors during cleanup. 23/08/2024 1.3.1: Fixed missing static inline qualifier on an internal omap function. 29/07/2024 1.3.0: Added ordered map and ordered set. Fixed cc_erase_itr to return a correctly typed pointer-iterator instead of void *. Fixed a bug in list that caused cc_next and cc_prev to behave incorrectly when passed an r_end and end pointer-iterator, respectively. Deprecated reverse iteration (cc_last, cc_prev, and cc_r_end) for maps and sets. 12/07/2024 1.2.0: Added MSVC support. Added README examples to the documentation in the header. 27/05/2024 1.1.1: Fixed a bug in map and set that could theoretically cause a crash on rehash (triggerable in testing using cc_shrink with a maximum load factor significantly higher than 1.0). 18/03/2024 1.1.0: Replaced the Robin Hood implementations of map and set with Verstable implementations. Added branch-prediction optimizations. Improved documentation. 23/01/2024 1.0.4: Fixed critical bug causing undefined behavior upon iteration of empty maps with nonzero capacities. Fixed formatting inconsistencies and improved code comments. 04/05/2023 1.0.3: Completed a refractor that reduces compile speed by approximately 53% in C with GCC. This was achieved by: * Reducing the number of _Generic expressions in API calls by extracting multiple key-related data from a single expression). * Reducing the work done inside _Generic expressions (this seemed to be a bottleneck). * Changing the API macro function-selection mechanism so that only the function itself varies based on container type (all parallel functions now use the same parameter interface) and each macro contains only one argument list (unused arguments are discarded). Also introduced performance improvements into maps and sets, changed the default integer hash functions to more robust ones, and corrected a bug that could cause map and set probe-length integers to be unaligned for small elements and keys. 04/02/2023 1.0.2: Fixed bug preventing custom hash table load factors from taking effect when CC_LOAD is defined in isolation of CC_HASH, CC_CMPR, or CC_DTOR. Made minor adjustment to code comments and documentation so that they are more consistent. 27/01/2023 1.0.1: Made minor corrections to code comments. 26/12/2022 1.0.0: Initial release. License (MIT): Copyright (c) 2022-2024 Jackson L. Allan Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */ #if !defined( CC_DTOR ) && !defined( CC_CMPR ) && !defined( CC_HASH ) && !defined( CC_LOAD )/*------------------------*/ /* */ /* REGULAR HEADER MODE */ /* */ /*--------------------------------------------------------------------------------------------------------------------*/ // Standard headers must be included before the unprefixed names are defined below in case they clash with identifiers // used in those headers. // This does not prevent clashes with identifiers used in headers that the user includes after including cc.h. // In that case, CC_NO_SHORT_NAMES is a necessity. #ifndef CC_H #include <limits.h> #include <stdalign.h> #include <stdbool.h> #include <stddef.h> #include <stdint.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #ifdef __cplusplus #include <type_traits> #endif #endif #ifndef CC_NO_SHORT_NAMES #define vec( ... ) CC_MSVC_PP_FIX( cc_vec( __VA_ARGS__ ) ) #define list( ... ) CC_MSVC_PP_FIX( cc_list( __VA_ARGS__ ) ) #define map( ... ) CC_MSVC_PP_FIX( cc_map( __VA_ARGS__ ) ) #define set( ... ) CC_MSVC_PP_FIX( cc_set( __VA_ARGS__ ) ) #define omap( ... ) CC_MSVC_PP_FIX( cc_omap( __VA_ARGS__ ) ) #define oset( ... ) CC_MSVC_PP_FIX( cc_oset( __VA_ARGS__ ) ) #define str( ... ) CC_MSVC_PP_FIX( cc_str( __VA_ARGS__ ) ) #define initialized( ... ) CC_MSVC_PP_FIX( cc_initialized( __VA_ARGS__ ) ) #define init( ... ) CC_MSVC_PP_FIX( cc_init( __VA_ARGS__ ) ) #define init_clone( ... ) CC_MSVC_PP_FIX( cc_init_clone( __VA_ARGS__ ) ) #define size( ... ) CC_MSVC_PP_FIX( cc_size( __VA_ARGS__ ) ) #define cap( ... ) CC_MSVC_PP_FIX( cc_cap( __VA_ARGS__ ) ) #define reserve( ... ) CC_MSVC_PP_FIX( cc_reserve( __VA_ARGS__ ) ) #define resize( ... ) CC_MSVC_PP_FIX( cc_resize( __VA_ARGS__ ) ) #define shrink( ... ) CC_MSVC_PP_FIX( cc_shrink( __VA_ARGS__ ) ) #define insert( ... ) CC_MSVC_PP_FIX( cc_insert( __VA_ARGS__ ) ) #define insert_n( ... ) CC_MSVC_PP_FIX( cc_insert_n( __VA_ARGS__ ) ) #define insert_fmt( ... ) CC_MSVC_PP_FIX( cc_insert_fmt( __VA_ARGS__ ) ) #define get_or_insert( ... ) CC_MSVC_PP_FIX( cc_get_or_insert( __VA_ARGS__ ) ) #define push( ... ) CC_MSVC_PP_FIX( cc_push( __VA_ARGS__ ) ) #define push_n( ... ) CC_MSVC_PP_FIX( cc_push_n( __VA_ARGS__ ) ) #define push_fmt( ... ) CC_MSVC_PP_FIX( cc_push_fmt( __VA_ARGS__ ) ) #define splice( ... ) CC_MSVC_PP_FIX( cc_splice( __VA_ARGS__ ) ) #define get( ... ) CC_MSVC_PP_FIX( cc_get( __VA_ARGS__ ) ) #define key_for( ... ) CC_MSVC_PP_FIX( cc_key_for( __VA_ARGS__ ) ) #define erase( ... ) CC_MSVC_PP_FIX( cc_erase( __VA_ARGS__ ) ) #define erase_n( ... ) CC_MSVC_PP_FIX( cc_erase_n( __VA_ARGS__ ) ) #define erase_itr( ... ) CC_MSVC_PP_FIX( cc_erase_itr( __VA_ARGS__ ) ) #define clear( ... ) CC_MSVC_PP_FIX( cc_clear( __VA_ARGS__ ) ) #define cleanup( ... ) CC_MSVC_PP_FIX( cc_cleanup( __VA_ARGS__ ) ) #define first( ... ) CC_MSVC_PP_FIX( cc_first( __VA_ARGS__ ) ) #define last( ... ) CC_MSVC_PP_FIX( cc_last( __VA_ARGS__ ) ) #define r_end( ... ) CC_MSVC_PP_FIX( cc_r_end( __VA_ARGS__ ) ) #define end( ... ) CC_MSVC_PP_FIX( cc_end( __VA_ARGS__ ) ) #define next( ... ) CC_MSVC_PP_FIX( cc_next( __VA_ARGS__ ) ) #define prev( ... ) CC_MSVC_PP_FIX( cc_prev( __VA_ARGS__ ) ) #define for_each( ... ) CC_MSVC_PP_FIX( cc_for_each( __VA_ARGS__ ) ) #define r_for_each( ... ) CC_MSVC_PP_FIX( cc_r_for_each( __VA_ARGS__ ) ) #define integer_dec( ... ) CC_MSVC_PP_FIX( cc_integer_dec( __VA_ARGS__ ) ) #define integer_hex( ... ) CC_MSVC_PP_FIX( cc_integer_hex( __VA_ARGS__ ) ) #define integer_oct( ... ) CC_MSVC_PP_FIX( cc_integer_oct( __VA_ARGS__ ) ) #define float_dec( ... ) CC_MSVC_PP_FIX( cc_float_dec( __VA_ARGS__ ) ) #define float_hex( ... ) CC_MSVC_PP_FIX( cc_float_hex( __VA_ARGS__ ) ) #define float_sci( ... ) CC_MSVC_PP_FIX( cc_float_sci( __VA_ARGS__ ) ) #define float_shortest( ... ) CC_MSVC_PP_FIX( cc_float_shortest( __VA_ARGS__ ) ) #endif #ifndef CC_H #define CC_H /*--------------------------------------------------------------------------------------------------------------------*/ /* Preliminary */ /*--------------------------------------------------------------------------------------------------------------------*/ // _Static_assert alternative that can be used inside an expression. #define CC_STATIC_ASSERT( xp ) (void)sizeof( char[ (xp) ? 1 : -1 ] ) // Ensures inlining if possible. #if defined( __GNUC__ ) #define CC_ALWAYS_INLINE __attribute__((always_inline)) #elif defined( _MSC_VER ) #define CC_ALWAYS_INLINE __forceinline #else #define CC_ALWAYS_INLINE #endif // Branch optimization macros. #ifdef __GNUC__ #define CC_LIKELY( xp ) __builtin_expect( (bool)( xp ), true ) #define CC_UNLIKELY( xp ) __builtin_expect( (bool)( xp ), false ) #else #define CC_LIKELY( xp ) ( xp ) #define CC_UNLIKELY( xp ) ( xp ) #endif // Marks a point where the program never reaches. #ifdef __GNUC__ #define CC_UNREACHABLE __builtin_unreachable() #elif defined( _MSC_VER ) #define CC_UNREACHABLE __assume( false ) #else #define CC_UNREACHABLE (void)0 #endif // CC_MAKE_LVAL_COPY macro for making an addressable temporary copy of a variable or expression. // The copy is valid until at least the end of full expression surrounding the macro call. // In C, this is accomplished using a compound literal. // In C++, we use rvalue reference magic. // This is used to pass pointers to elements and keys (which the user may have provided as rvalues) into container // functions. #ifdef __cplusplus template<typename ty> ty& cc_unmove( ty&& var ) { return (ty&)var; } #define CC_MAKE_LVAL_COPY( ty, xp ) cc_unmove( (ty)( xp ) ) #else #define CC_MAKE_LVAL_COPY( ty, xp ) *( ty[ 1 ] ){ xp } #endif // Macro used primarily for silencing unused-expression warnings for macros that return cast pointers. // This issue seems to affect Clang in particular. // GCC, on the other hand, seems to accept that pointer casts may be redundant. #ifdef __cplusplus template<typename ty_1, typename ty_2> ty_1 cc_maybe_unused( ty_2 xp ){ return (ty_1)xp; } #define CC_CAST_MAYBE_UNUSED( ty, xp ) cc_maybe_unused<ty>( xp ) #else #define CC_CAST_MAYBE_UNUSED( ty, xp ) ( ( ty ){ 0 } = ( (ty)( xp ) ) ) #endif // Typeof for expressions and abstract declarators. #ifdef __cplusplus #define CC_TYPEOF_XP( xp ) std::decay<std::remove_reference<decltype( xp )>::type>::type #define CC_TYPEOF_TY( ty ) std::decay<std::remove_reference<decltype( std::declval<ty>() )>::type>::type #elif __STDC_VERSION__ >= 202311L // C23. #define CC_TYPEOF_XP( xp ) typeof( xp ) #define CC_TYPEOF_TY( ty ) typeof( ty ) #else // GNU. #define CC_TYPEOF_XP( xp ) __typeof__( xp ) #define CC_TYPEOF_TY( ty ) __typeof__( ty ) #endif // CC_IF_THEN_CAST_TY_1_ELSE_CAST_TY_2 is the same as above, except that it selects the type to which to cast based on // a condition. // This is necessary because some API macros (e.g. cc_erase) return either a pointer-iterator or a bool depending on the // container type. #ifdef __cplusplus template<bool cond, typename ty_1, typename ty_2, typename xp_ty, typename std::enable_if<cond, bool>::type = true> \ ty_1 cc_if_then_cast_ty_1_else_cast_ty_2( xp_ty xp ){ return (ty_1)xp; } \ template<bool cond, typename ty_1, typename ty_2, typename xp_ty, typename std::enable_if<!cond, bool>::type = true> \ ty_2 cc_if_then_cast_ty_1_else_cast_ty_2( xp_ty xp ){ return (ty_2)xp; } \ #define CC_IF_THEN_CAST_TY_1_ELSE_CAST_TY_2( cond, ty_1, ty_2, xp ) \ cc_if_then_cast_ty_1_else_cast_ty_2<cond, ty_1, ty_2>( xp ) \ #else #define CC_IF_THEN_CAST_TY_1_ELSE_CAST_TY_2( cond, ty_1, ty_2, xp ) \ CC_CAST_MAYBE_UNUSED( \ CC_TYPEOF_XP( \ _Generic( (char (*)[ 1 + (bool)( cond ) ]){ 0 }, \ char (*)[ 1 ]: (ty_2){ 0 }, \ char (*)[ 2 ]: (ty_1){ 0 } \ ) \ ), \ ( xp ) \ ) \ #endif // In GCC and Clang, we can generate a warning if the user passes an expression that may have side effects as the first // argument of API macros. // If the expression could have side effects, the compiler will be unable to resolve a comparison of it with itself at // compile time, which we can check using __builtin_constant_p. // The warning itself is generated via a division by zero. // This macro may produce false positives (e.g. for &our_containers[ our_func() ] where our_func is a pure function that // always returns the same value), but that is a reasonable price to pay for more macro safety. #ifdef __GNUC__ #define CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ) \ (void)( \ "WARNING: CONTAINER ARGUMENT MAY HAVE DUPLICATED SIDE EFFECTS" &&1/__builtin_constant_p((cntr)==(cntr)) \ ) \ #else #define CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ) (void)0 #endif // We also generate a warning (GCC, Clang) or error (MSVC) if the user makes a deprecated API macro call. // Disable this warning or error by defining CC_ALLOW_DEPRECATED. #define CC_COMMA() , #define CC_IS_DEFINED( macro ) CC_2ND_ARG( CC_COMMA macro () true, false, ) #define CC_WARN_DEPRECATED_IF( cond ) \ (void)( \ "WARNING: THIS API CALL IS DEPRECATED" &&1/(int)(CC_IS_DEFINED(CC_ALLOW_DEPRECATED)||!(cond)) \ ) \ // MSVC has traditionally provided a nonconforming preprocessor, which requires an extra level of expansion in some // variadic macros. // While the compiler uses a newer, conforming preprocessor by default in C11 mode or later, the traditional // preprocessor remains the default for C++ builds. // For user convenience, we support the traditional preprocessor, although enabling the conforming preprocessor via // /Zc:preprocessor is recommended. #define CC_MSVC_PP_FIX( xp ) xp // CC_SELECT_ON_NUM_ARGS macro for overloading API macros based on the number of arguments. #define CC_CAT_2_( a, b ) a##b #define CC_CAT_2( a, b ) CC_CAT_2_( a, b ) #define CC_N_ARGS_( \ _1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11, _12, _13, _14, _15, _16, _17, _18, _19, _20, _21, _22, _23, _24, _25, \ _26, _27, _28, _29, _30, _31, _32, _33, _34, n, ... \ ) n #define CC_N_ARGS( ... ) CC_MSVC_PP_FIX( \ CC_N_ARGS_( \ __VA_ARGS__, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, \ 9, 8, 7, 6, 5, 4, 3, 2, 1, x \ ) \ ) \ #define CC_SELECT_ON_NUM_ARGS( func, ... ) CC_MSVC_PP_FIX( CC_CAT_2( func, CC_N_ARGS( __VA_ARGS__ ) )( __VA_ARGS__ ) ) // If the user has defined CC_REALLOC and CC_FREE, then CC_GET_REALLOC and CC_GET_FREE are replaced with those macros. // Otherwise, they are replaced by realloc and free from the standard library. #define CC_2ND_ARG_( _1, _2, ... ) _2 #define CC_2ND_ARG( ... ) CC_MSVC_PP_FIX( CC_2ND_ARG_( __VA_ARGS__ ) ) #define CC_REALLOC_COMMA , #define CC_REALLOC_FN CC_2ND_ARG( CC_CAT_2( CC_REALLOC, _COMMA ) realloc, CC_REALLOC, ) #define CC_FREE_COMMA , #define CC_FREE_FN CC_2ND_ARG( CC_CAT_2( CC_FREE, _COMMA ) free, CC_FREE, ) // Macro used with CC_STATIC_ASSERT to provide type safety in cc_init_clone and cc_splice API macros. #ifdef __cplusplus #define CC_IS_SAME_TY( a, b ) std::is_same<CC_TYPEOF_XP( b ), CC_TYPEOF_XP( a )>::value #else #define CC_IS_SAME_TY( a, b ) _Generic( (b), CC_TYPEOF_XP( a ): true, default: false ) #endif // Returns arg but generates a warning or error if it is not a pointer to the container's element type. // This macro is used by cc_push_n and cc_insert_n to ensure that the source is an array matching the element type. #define CC_CHECKED_EL_TY_PTR( cntr, arg ) ( true ? (arg) : (const CC_EL_TY( cntr ) *)NULL ) // Macro for handling unused parameters in most container functions that plug directly into API macros. // These functions must provide a standardized signature across containers. // The compiler should optimize away unused parameters anyway, but we can nevertheless mark them as redundant. #ifdef __cplusplus #define CC_UNUSED( ty, name ) ty #else #ifdef __GNUC__ #define CC_UNUSED( ty, name ) __attribute__((unused)) ty name #else #define CC_UNUSED( ty, name ) ty name #endif #endif // MSVC does not define max_align_t in stddef.h, contrary to the C11 Standard. // Moreover, even in C++, the alignment of std::max_align_t under MSVC is only 8, not 16, even though // __STDCPP_DEFAULT_NEW_ALIGNMENT__ is 16 on x64. // Hence, we define our own version of the type. #if defined( _MSC_VER ) && !defined( __clang__ ) typedef struct { alignas( 16 ) char nothing[ 16 ]; } cc_max_align_ty; #else typedef max_align_t cc_max_align_ty; #endif // Some functions that must return true or false must return the value in the form of a pointer. // This is because they are paired in ternary expressions inside API macros with other functions for other containers // that return a pointer (primarily cc_erase). // While any suitably aligned pointer - e.g. the container handle - would do, we declare a global cc_dummy_true_ptr for // the sake of code readability. static cc_max_align_ty cc_dummy_true; static void *cc_dummy_true_ptr = &cc_dummy_true; // Default max load factor for maps and sets. #define CC_DEFAULT_LOAD 0.9 // Types for comparison, hash, destructor, realloc, and free functions. // These are only for internal use as user-provided comparison, hash, and destructor functions have different signatures // (see above documentation). typedef void *( *cc_realloc_fnptr_ty )( void *, size_t ); typedef void ( *cc_free_fnptr_ty )( void * ); typedef int ( *cc_cmpr_fnptr_ty )( void *, void * ); typedef size_t ( *cc_hash_fnptr_ty )( void * ); typedef void ( *cc_dtor_fnptr_ty )( void *, cc_free_fnptr_ty ); // Container ids to identify container type at compile-time. #define CC_VEC 1 #define CC_LIST 2 #define CC_MAP 3 #define CC_SET 4 #define CC_OMAP 5 #define CC_OSET 6 #define CC_STR 7 // Produces the underlying function pointer type for a given element/key type pair. #define CC_MAKE_BASE_FNPTR_TY( el_ty, key_ty ) CC_TYPEOF_TY( CC_TYPEOF_TY( el_ty ) (*)( CC_TYPEOF_TY( key_ty )* ) ) // Produces the container handle type for a given element type, key type, and container id. // In other words, this macro creates a pointer that carries all the information needed to identify and operate on a // container at compile time: el_ty (*(*)[ cntr_id ])( key_ty * ). // That is a pointer to an array of function pointers whose signature is el_ty ( key_ty * ). #define CC_MAKE_CNTR_TY( el_ty, key_ty, cntr_id ) CC_TYPEOF_TY( CC_MAKE_BASE_FNPTR_TY( el_ty, key_ty )(*)[ cntr_id ] ) // API macros for declaring containers. // The key type is the type used to look up elements, even in non-associative containers. // This simplifies API macros by eliminating the need to treat non-associative containers as special cases. #define cc_vec( el_ty ) CC_MAKE_CNTR_TY( el_ty, size_t, CC_VEC ) // Vector key type is size_t. #define cc_list( el_ty ) CC_MAKE_CNTR_TY( el_ty, void *, CC_LIST ) // List key is a pointer-iterator. #define cc_map( key_ty, el_ty ) CC_MAKE_CNTR_TY( \ el_ty, \ key_ty, \ CC_MAP * ( ( \ /* Compiler error if key type lacks comparison and hash functions. */ \ CC_HAS_CMPR( key_ty ) && CC_HAS_HASH( key_ty ) && \ /* Compiler error if bucket layout constraints are violated. */ \ CC_SATISFIES_LAYOUT_CONSTRAINTS( key_ty, el_ty ) \ ) ? 1 : -1 ) \ ) \ #define cc_set( el_ty ) CC_MAKE_CNTR_TY( \ /* As set simply wraps map, we use el_ty as both the element and key types. */ \ /* This allows minimal changes to map function arguments to make sets work. */ \ el_ty, \ el_ty, \ CC_SET * ( ( \ /* Compiler error if key type lacks comparison and hash functions. */ \ CC_HAS_CMPR( el_ty ) && CC_HAS_HASH( el_ty ) && \ /* Compiler error if bucket layout constraints are violated. */ \ CC_SATISFIES_LAYOUT_CONSTRAINTS( el_ty, el_ty ) \ ) ? 1 : -1 ) \ ) \ #define cc_omap( key_ty, el_ty ) CC_MAKE_CNTR_TY( \ el_ty, \ key_ty, \ CC_OMAP * ( ( \ /* Compiler error if key type lacks a comparison function. */ \ CC_HAS_CMPR( key_ty ) && \ /* Compiler error if bucket layout constraints are violated. */ \ CC_SATISFIES_LAYOUT_CONSTRAINTS( key_ty, el_ty ) \ ) ? 1 : -1 ) \ ) \ #define cc_oset( el_ty ) CC_MAKE_CNTR_TY( \ /* As oset simply wraps omap, we use el_ty as both the element and key types. */ \ /* This allows minimal changes to omap function arguments to make osets work. */ \ el_ty, \ el_ty, \ CC_OSET * ( ( \ /* Compiler error if key type lacks a comparison function. */ \ CC_HAS_CMPR( el_ty ) && \ /* Compiler error if bucket layout constraints are violated. */ \ CC_SATISFIES_LAYOUT_CONSTRAINTS( el_ty, el_ty ) \ ) ? 1 : -1 ) \ ) \ #define cc_str( el_ty ) CC_MAKE_CNTR_TY( \ el_ty, \ size_t, /* String key type is size_t. */ \ CC_STR * ( CC_IS_STR_EL_TY( el_ty ) ? 1 : -1 ) \ ) \ // Creates a string type without checking that the element type is one of the compatible character types. // This macro is used to reduce compilation time and avoid errors when string types are generated from incompatible // element types in dead _Generic paths. #define CC_STR_RAW( el_ty ) CC_TYPEOF_TY( el_ty (*(*)[ CC_STR ])( size_t * ) ) // Retrieves a container's id (e.g. CC_VEC) from its handle. #define CC_CNTR_ID( cntr ) ( sizeof( *cntr ) / sizeof( **cntr ) ) // Retrieves a container's element type from its handle. #define CC_EL_TY( cntr ) CC_TYPEOF_XP( (**cntr)( NULL ) ) // Easy access to a container's element and key sizes. #define CC_EL_SIZE( cntr ) sizeof( CC_EL_TY( cntr ) ) // CC_KEY_TY macros for retrieving a container's key type from its handle (i.e. from the argument of the base function // pointer). #ifdef __cplusplus // For C++, this can be done easily with the help of a template function. template<typename el_ty, typename key_ty> key_ty cc_key_ty( el_ty (*)( key_ty * ) ) { key_ty dummy; return dummy; } #define CC_KEY_TY( cntr ) CC_TYPEOF_XP( cc_key_ty( **cntr ) ) #else // For C, we need to use _Generic trickery to match the base function pointer type with a key type previously // coupled with a comparison function. #define CC_KEY_TY_SLOT( n, arg ) CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( arg ), cc_cmpr_##n##_ty ): ( cc_cmpr_##n##_ty ){ 0 }, #define CC_KEY_TY( cntr ) \ CC_TYPEOF_XP( \ _Generic( (**cntr), \ CC_FOR_EACH_CMPR( CC_KEY_TY_SLOT, cntr ) \ default: _Generic( (**cntr), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), cc_maybe_char ): ( char ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned char ): ( unsigned char ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), signed char ): ( signed char ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned short ): ( unsigned short ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), short ): ( short ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned int ): ( unsigned int ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), int ): ( int ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long ): ( unsigned long ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long ): ( long ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long long ): ( unsigned long long ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long long ): ( long long ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), cc_maybe_size_t ): ( size_t ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), char * ): ( char * ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), const char * ): ( const char * ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), void * ): ( void * ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ): ( CC_STR_RAW( char ) ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ): ( CC_STR_RAW( unsigned char ) ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ): ( CC_STR_RAW( signed char ) ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ): ( CC_STR_RAW( char16_t ) ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ): ( CC_STR_RAW( char32_t ) ){ 0 }, \ default: (char){ 0 } /* Nothing. */ \ ) \ ) \ ) \ #endif // In MSVC under C, char is an alias for unsigned char or signed char, contrary to the C Standard, which requires all // three to be distinct types. // To accommodate this bug, we have to ensure that char doesn't clash with either of the other two types in _Generic // statements. // If char is an alias, cc_maybe_char will be a dummy type used in no other context. // Otherwise, it will be an alias for char. // size_t needs to be handled in a similar way because it could be an alias for a fundamental integer type or a distinct // builtin type. #ifndef __cplusplus typedef struct { char nothing; } cc_char_dummy; typedef CC_TYPEOF_XP( _Generic( (char){ 0 }, unsigned char: (cc_char_dummy){ 0 }, signed char: (cc_char_dummy){ 0 }, default: (char){ 0 } ) ) cc_maybe_char; typedef struct { char nothing; } cc_size_t_dummy; typedef CC_TYPEOF_XP( _Generic( (size_t){ 0 }, unsigned short: (cc_size_t_dummy){ 0 }, short: (cc_size_t_dummy){ 0 }, unsigned int: (cc_size_t_dummy){ 0 }, int: (cc_size_t_dummy){ 0 }, unsigned long: (cc_size_t_dummy){ 0 }, long: (cc_size_t_dummy){ 0 }, unsigned long long: (cc_size_t_dummy){ 0 }, long long: (cc_size_t_dummy){ 0 }, default: (size_t){ 0 } ) ) cc_maybe_size_t; #endif // Since macOS lacks uchar.h, we define char8_t, char16_t, and char32_t ourselves in accordance with the C Standard. #ifndef __cplusplus #if __STDC_VERSION__ >= 202311L typedef unsigned char char8_t; #endif typedef uint_least16_t char16_t; typedef uint_least32_t char32_t; #endif // Includes the code between parentheses in the case of C++20 or later. // This macro is used inside certain macros to optionally include char8_t functionality. // In C++20, char8_t is a distinct type and must therefore be handled explicitly (unlike in C23, wherein char8_t is an // alias for unsigned char and can therefore be handled implicitly). #ifdef __cplusplus #if __cplusplus >= 202101L #define CC_IF_CPP20( ... ) __VA_ARGS__ #else #define CC_IF_CPP20( ... ) #endif #endif // CC_IS_STR_EL_TY macro for determining whether a type is one of the limited number that string supports. // In C, char16_t and char32_t are aliases for uint_least16_t and uint_least32_t, respectively, and could therefore be // the same type on exotic systems that lack a fundamental 16-bit integer type. // However, because CC's map implementation requires uint16_t and uint32_t, we can be sure that char16_t and char32_t // are distinct types on any platform with which CC is compatible, and we treat them thusly. // This assumption is especially necessary because without it, the encoding of strings of the largest type would be // ambiguous in some instances (e.g. string literals). #ifdef __cplusplus #define CC_IS_STR_EL_TY( ty ) \ ( \ std::is_same<ty, char>::value ? true : \ std::is_same<ty, unsigned char>::value ? true : \ std::is_same<ty, signed char>::value ? true : \ CC_IF_CPP20( \ std::is_same<ty, char8_t>::value ? true : \ ) \ std::is_same<ty, char16_t>::value ? true : \ std::is_same<ty, char32_t>::value ? true : \ false \ ) \ #else #define CC_IS_STR_EL_TY( ty ) \ _Generic( (ty){ 0 }, \ cc_maybe_char: true, \ unsigned char: true, \ signed char: true, \ char16_t: true, \ char32_t: true, \ default: false \ ) \ #endif // The functions associated with some containers require extra information about how elements and/or keys and other data // are laid out in memory. // Specifically, maps - and by extension sets - need information about their bucket layouts, which depend on their // element and/or key types. // Ordered maps and sets require similar information for the "bucket" that follows each node header. // This data is formed by extracting the key size and alignment and passing it, along with the element size and // alignment and the container type id, into the cc_layout function, which returns a uint64_t describing the layout. // The key size and alignment are inferred via a _Generic macro that looks up the key type based on the default // and user-supplied comparison functions, since all containers that require layout information also require a // comparison function. // Although this mechanism is convoluted, it has proven to compile much faster than other approaches (e.g. calculating // the layout inside the _Generic macro). // The compiler should optimize the entire mechanism into compile-time constants. // // The layout for a map bucket is: // +------------+----+------------+----+ // | #1 | #2 | #3 | #4 | // +------------+----+------------+----+ // #1 Element. // #2 Element padding to key_ty alignment. // #3 Key. // #4 Key padding to the larger of el_ty and key_ty alignments. // // The layout for an ordered map bucket is: // +------------+----+------------+ // | #1 | #2 | #3 | // +------------+----+------------+ // #1 Element. // #2 Element padding to key_ty alignment. // #3 Key. // // For sets and ordered sets, the layout collapses to just: // +------------+ // | #1 | // +------------+ // #1 Element. // // The layout data passed into a container function is a uint64_t composed of a uint32_t denoting the key size, a // uint16_t denoting the padding after the element, and a uint16_t denoting the padding after the key. // The reason that a uint64_t, rather than a struct, is used is that GCC seems to have trouble properly optimizing the // passing of the struct - even if only 8 bytes - into some container functions (e.g. cc_map_insert), apparently because // it declines to pass by register. // Macro for ensuring valid layout on container declaration. // Since the key size occupies four bytes and the padding values each occupy two bytes, the key size must be <= // UINT32_MAX (about 4.3GB) and the alignment of the element and key must be <= UINT16_MAX + 1 (i.e. 65536). // It unlikely that these constraints would be violated in practice, but we can check anyway. #define CC_SATISFIES_LAYOUT_CONSTRAINTS( key_ty, el_ty ) \ ( sizeof( key_ty ) <= UINT32_MAX && alignof( el_ty ) <= UINT16_MAX + 1 && alignof( key_ty ) <= UINT16_MAX + 1 ) \ // Macros and functions for constructing a map bucket layout. #define CC_PADDING( size, align ) ( ( ~(size) + 1 ) & ( (align) - 1 ) ) #define CC_MAX( a, b ) ( (a) > (b) ? (a) : (b) ) #define CC_MAP_EL_PADDING( el_size, key_align ) \ CC_PADDING( el_size, key_align ) \ #define CC_MAP_KEY_PADDING( el_size, el_align, key_size, key_align ) \ CC_PADDING( el_size + CC_MAP_EL_PADDING( el_size, key_align ) + key_size, CC_MAX( el_align, key_align ) ) \ // Struct for conveying key-related information from the _Generic macro into the function below. typedef struct { uint64_t size; uint64_t align; } cc_key_details_ty; // Function for creating the uint64_t layout descriptor. // This function must be inlined in order for layout calculations to be optimized into a compile-time constant. static inline CC_ALWAYS_INLINE uint64_t cc_layout( size_t cntr_id, uint64_t el_size, uint64_t el_align, cc_key_details_ty key_details ) { if( cntr_id == CC_MAP ) return key_details.size | CC_MAP_EL_PADDING( el_size, key_details.align ) << 32 | CC_MAP_KEY_PADDING( el_size, el_align, key_details.size, key_details.align ) << 48; if( cntr_id == CC_OMAP ) return key_details.size | CC_MAP_EL_PADDING( el_size, key_details.align ) << 32; if( cntr_id == CC_SET || cntr_id == CC_OSET ) return el_size; return 0; // Other container types don't require layout data. } // Macros for extracting data from a uint64_t layout descriptor. #define CC_KEY_SIZE( layout ) (uint32_t)( layout ) #define CC_KEY_OFFSET( el_size, layout ) ( (el_size) + (uint16_t)( layout >> 32 ) ) #define CC_BUCKET_SIZE( el_size, layout ) \ ( CC_KEY_OFFSET( el_size, layout ) + (uint32_t)( layout ) + (uint16_t)( layout >> 48 ) ) \ // Return type for all functions that could reallocate a container's memory. // It contains a new container handle (the pointer may have changed to due reallocation) and an additional pointer whose // purpose depends on the function. // For functions that insert elements, that pointer points to the newly inserted elements, or NULL in the case of // allocation failure. // For other functions, that pointer is a dummy pointer that evaluates to true, or NULL in the case of allocation // failure (i.e. its only purpose is to convey whether the operation was successful). // The struct is aligned to max_align_t because the container handle must temporarily point to it (see // CC_POINT_HNDL_TO_ALLOCING_FN_RESULT below). typedef struct { alignas( cc_max_align_ty ) void *new_cntr; void *other_ptr; } cc_allocing_fn_result_ty; // Helper function for creating a cc_allocing_fn_result_ty in one line. static inline cc_allocing_fn_result_ty cc_make_allocing_fn_result( void *new_cntr, void *other_ptr ) { cc_allocing_fn_result_ty result; result.new_cntr = new_cntr; result.other_ptr = other_ptr; return result; } // Performs memcpy and returns ptr. // This is used in conjunction with cc_allocing_fn_result_ty (see below). static inline void *cc_memcpy_and_return_ptr( void *dest, void *src, size_t size, void *ptr ) { memcpy( dest, src, size ); return ptr; } // Macros that call functions that could cause memory reallocation must generally do two things to circumvent // limitations of ISO C (such as the inability to declare variables in expressions and _Thread_local linking issues). // Firstly, they temporarily set the container handle to point to a temporary cc_insert_result object returned by the // call to the function (see CC_MAKE_LVAL_COPY above). #define CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( cntr, fn_call ) \ cntr = (CC_TYPEOF_XP( cntr ))&CC_MAKE_LVAL_COPY( cc_allocing_fn_result_ty, fn_call ) \ // Secondly, they call cc_memcpy_and_return_ptr to restore the correct container handle (a new pointer in the case of // reallocation) and return a pointer, either to any new elements or to signify success/failure, to the user. // (In the latter case, that pointer is cast to bool in the API macro before being passed to the user.) // Without this call, we would be unable to access the new elements/success-or-failure pointer stored in the // cc_allocing_fn_result_ty after restoring the correct container handle. // Note that outside the function, a temporary container handle is created from the new handle stored in the // cc_allocing_fn_result_ty so that the later (void *) is properly converted to the correct handle type. // This new, correctly typed handle is then memcpy-ed over the user-supplied handle inside the function. #define CC_FIX_HNDL_AND_RETURN_OTHER_PTR( cntr ) \ cc_memcpy_and_return_ptr( \ &cntr, \ &CC_MAKE_LVAL_COPY( CC_TYPEOF_XP( cntr ), ( (cc_allocing_fn_result_ty *)cntr )->new_cntr ), \ sizeof( cntr ), \ ( (cc_allocing_fn_result_ty *)cntr )->other_ptr \ ) \ // In the case of insertion operations (such as cc_insert, cc_push, and cc_get_or_insert), the process described above // is complicated by the fact that to support heterogeneous insertion of C strings into containers that expect CC // strings, we also need to convert the C string and check and potentially free the result. // This could apply to the user-supplied key, element, or key and element. // Consequently, we need somewhere to store pointers to the converted key and or element. // To this end, rather than temporarily pointing the container handle at a cc_allocing_fn_result_ty struct, we point it // at one of several "helper" structs that contain a cc_allocing_fn_result_ty struct and several other members. // At the same time, we populate the helper struct's members with the converted key and/or element, a copy of the // original handle (as the cc_allocing_fn_result_ty "new_cntr" member), and the current size of the container, when // necessary. // This way, we can check for conversion failure, pass the container handle and converted key and/or element into the // relevant container function and store the result, and free the converted key and/or element if necessary. // Because the cc_allocing_fn_result_ty is the helper struct's first member, CC_FIX_HNDL_AND_RETURN_OTHER_PTR is then // called to restore the correct container handle. // Below, the various helper structs and macros to point the container at them are defined. // For the other macros that assist in heterogeneous insertion and lookup, see the section "Heterogeneous string // insertion and lookup conversion". #ifdef __cplusplus #define CC_COMPOUND_LITERAL( ty, ... ) cc_unmove<ty>( __VA_ARGS__ ) #else #define CC_COMPOUND_LITERAL( ty, ... ) (ty) __VA_ARGS__ #endif typedef struct { alignas( cc_max_align_ty ) cc_allocing_fn_result_ty result; void *converted_el; void *converted_key; } cc_heteroinsert_helper_el_key_ty; #define CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_KEY( cntr, converted_el, converted_key ) \ cntr = (CC_TYPEOF_XP( cntr ))&CC_COMPOUND_LITERAL( \ cc_heteroinsert_helper_el_key_ty, \ { \ { cntr, NULL }, \ &CC_MAKE_LVAL_COPY( CC_EL_TY( *(cntr) ), converted_el ), \ &CC_MAKE_LVAL_COPY( CC_KEY_TY( *(cntr) ), converted_key ) \ } \ ) \ typedef struct { alignas( cc_max_align_ty ) cc_allocing_fn_result_ty result; void *converted_el; } cc_heterinsert_helper_el_only_ty; #define CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_ONLY( cntr, converted_el ) \ cntr = (CC_TYPEOF_XP( cntr ))&CC_COMPOUND_LITERAL( \ cc_heterinsert_helper_el_only_ty, { { cntr, NULL }, &CC_MAKE_LVAL_COPY( CC_EL_TY( *(cntr) ), converted_el ) } \ ) \ typedef struct { alignas( cc_max_align_ty ) cc_allocing_fn_result_ty result; void *converted_el; size_t cntr_size; } cc_heteroinsert_helper_el_cntr_size_ty; #define CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_AND_CNTR_SIZE( cntr, converted_el, cntr_size ) \ cntr = (CC_TYPEOF_XP( cntr ))&CC_COMPOUND_LITERAL( \ cc_heteroinsert_helper_el_cntr_size_ty, \ { \ { cntr, NULL }, \ &CC_MAKE_LVAL_COPY( CC_EL_TY( *(cntr) ), converted_el ), \ cntr_size \ } \ ) typedef struct { alignas( cc_max_align_ty ) cc_allocing_fn_result_ty result; void *converted_el; void *converted_key; size_t cntr_size; } cc_heteroinsert_helper_el_key_cntr_size_ty; #define CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_KEY_CNTR_SIZE( cntr, converted_el, converted_key, cntr_size ) \ cntr = (CC_TYPEOF_XP( cntr ))&CC_COMPOUND_LITERAL( \ cc_heteroinsert_helper_el_key_cntr_size_ty, \ { \ { cntr, NULL }, \ &CC_MAKE_LVAL_COPY( CC_EL_TY( *(cntr) ), converted_el ), \ &CC_MAKE_LVAL_COPY( CC_KEY_TY( *(cntr) ), converted_key ), \ cntr_size \ } \ ) \ // Functions to find the first and last non-zero uint16_t in a uint64_t. // These functions are used when we scan four buckets at a time while iterating over maps and sets. // They rely on compiler intrinsics if possible. // The compiler will optimize away the endian check at -O1 and above. static inline bool cc_is_little_endian( void ) { const uint16_t endian_checker = 0x0001; return *(const char *)&endian_checker; } #if defined( __GNUC__ ) && ULLONG_MAX == 0xFFFFFFFFFFFFFFFF static inline unsigned int cc_first_nonzero_uint16( uint64_t a ) { if( cc_is_little_endian() ) return (unsigned int)__builtin_ctzll( a ) / 16; return (unsigned int)__builtin_clzll( a ) / 16; } // DEPRECATED. static inline unsigned int cc_last_nonzero_uint16( uint64_t a ) { if( cc_is_little_endian() ) return (unsigned int)__builtin_clzll( a ) / 16; return (unsigned int)__builtin_ctzll( a ) / 16; } #elif defined( _MSC_VER ) && ( defined( _M_X64 ) || defined( _M_ARM64 ) ) #include <intrin.h> #pragma intrinsic(_BitScanForward64) #pragma intrinsic(_BitScanReverse64) static inline unsigned int cc_first_nonzero_uint16( uint64_t a ) { unsigned long result; if( cc_is_little_endian() ) _BitScanForward64( &result, a ); else { _BitScanReverse64( &result, a ); result = 63 - result; } return result / 16; } // DEPRECATED. static inline unsigned int cc_last_nonzero_uint16( uint64_t a ) { unsigned long result; if( cc_is_little_endian() ) { _BitScanReverse64( &result, a ); result = 63 - result; } else _BitScanForward64( &result, a ); return result / 16; } #else static inline unsigned int cc_first_nonzero_uint16( uint64_t a ) { unsigned int result = 0; uint32_t half; memcpy( &half, &a, sizeof( uint32_t ) ); if( !half ) result += 2; uint16_t quarter; memcpy( &quarter, (char *)&a + result * sizeof( uint16_t ), sizeof( uint16_t ) ); if( !quarter ) result += 1; return result; } // DEPRECATED. static inline unsigned int cc_last_nonzero_uint16( uint64_t a ) { unsigned int result = 3; uint32_t half; memcpy( &half, (char *)&a + sizeof( uint32_t ), sizeof( uint32_t ) ); if( !half ) result -= 2; uint16_t quarter; memcpy( &quarter, (char *)&a + result * sizeof( uint16_t ), sizeof( uint16_t ) ); if( !quarter ) result -= 1; return 3 - result; } #endif /*--------------------------------------------------------------------------------------------------------------------*/ /* Vector */ /*--------------------------------------------------------------------------------------------------------------------*/ // Vector header. typedef struct { alignas( cc_max_align_ty ) size_t size; size_t cap; } cc_vec_hdr_ty; // Global placeholder for vector with no allocated storage. // In the case of vectors, the placeholder allows us to avoid checking for a NULL container handle inside functions. static const cc_vec_hdr_ty cc_vec_placeholder = { 0, 0 }; // Easy header access function. static inline cc_vec_hdr_ty *cc_vec_hdr( void *cntr ) { return (cc_vec_hdr_ty *)cntr; } static inline size_t cc_vec_size( void *cntr ) { return cc_vec_hdr( cntr )->size; } static inline size_t cc_vec_cap( void *cntr ) { return cc_vec_hdr( cntr )->cap; } static inline bool cc_vec_is_placeholder( void *cntr ) { return cc_vec_hdr( cntr )->cap == 0; } // Returns a pointer-iterator to the element at a specified index. static inline void *cc_vec_get( void *cntr, void *key, // Pointer to a size_t index. size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( cc_cmpr_fnptr_ty, cmpr ) ) { return (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * *(size_t *)key; } // Ensures that the capacity is large enough to accommodate n elements without reallocation. // Returns a cc_allocing_fn_result_ty containing the new handle and a pointer that evaluates to true if the operation // was successful. static inline cc_allocing_fn_result_ty cc_vec_reserve( void *cntr, size_t n, size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( double, max_load ), cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { if( cc_vec_cap( cntr ) >= n ) return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); bool is_placeholder = cc_vec_is_placeholder( cntr ); cc_vec_hdr_ty *new_cntr = (cc_vec_hdr_ty *)realloc_( is_placeholder ? NULL : cntr, sizeof( cc_vec_hdr_ty ) + el_size * n ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); if( is_placeholder ) new_cntr->size = 0; new_cntr->cap = n; return cc_make_allocing_fn_result( new_cntr, cc_dummy_true_ptr ); } // Inserts elements at the specified index. // Returns a cc_allocing_fn_result_ty containing the new handle and a pointer-iterator to the newly inserted elements. // If the underlying storage needed to be expanded and an allocation failure occurred, or if n is zero, the latter // pointer will be NULL. static inline cc_allocing_fn_result_ty cc_vec_insert_n( void *cntr, size_t index, const void *els, size_t n, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { if( n == 0 ) return cc_make_allocing_fn_result( cntr, NULL ); if( cc_vec_size( cntr ) + n > cc_vec_cap( cntr ) ) { size_t cap = cc_vec_cap( cntr ); if( !cap ) cap = 2; while( cap < cc_vec_size( cntr ) + n ) cap *= 2; cc_allocing_fn_result_ty result = cc_vec_reserve( cntr, cap, el_size, 0, // Dummy. NULL, // Dummy. 0.0, // Dummy. realloc_, NULL // Dummy. ); if( CC_UNLIKELY( !result.other_ptr ) ) return result; cntr = result.new_cntr; } char *new_els = (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * index; memmove( new_els + n * el_size, new_els, el_size * ( cc_vec_hdr( cntr )->size - index ) ); memcpy( new_els, els, el_size * n ); cc_vec_hdr( cntr )->size += n; return cc_make_allocing_fn_result( cntr, new_els ); } static inline cc_allocing_fn_result_ty cc_vec_insert( void *cntr, void *el, void *key, // Pointer to size_t index. CC_UNUSED( bool, replace ), size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( cc_cmpr_fnptr_ty, cmpr ), CC_UNUSED( double, max_load ), CC_UNUSED( cc_dtor_fnptr_ty, el_dtor ), CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { return cc_vec_insert_n( cntr, *(size_t *)key, el, 1, el_size, realloc_ ); } static inline cc_allocing_fn_result_ty cc_vec_push_n( void *cntr, const void *els, size_t n, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { return cc_vec_insert_n( cntr, cc_vec_size( cntr ), els, n, el_size, realloc_ ); } static inline cc_allocing_fn_result_ty cc_vec_push( void *cntr, void *el, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { return cc_vec_push_n( cntr, el, 1, el_size, realloc_ ); } // Erases n elements at the specified index. // Returns a pointer-iterator to the element after the erased elements, or an end pointer-iterator if there is no // subsequent element. static inline void *cc_vec_erase_n( void *cntr, size_t index, size_t n, size_t el_size, cc_dtor_fnptr_ty el_dtor, cc_free_fnptr_ty free_ ) { if( n == 0 ) return (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * index; if( el_dtor ) for( size_t j = 0; j < n; ++j ) el_dtor( (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * ( index + j ), free_ ); memmove( (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * index, (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * ( index + n ), ( cc_vec_hdr( cntr )->size - n - index ) * el_size ); cc_vec_hdr( cntr )->size -= n; return (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * index; } static inline void *cc_vec_erase( void *cntr, void *key, // Pointer to size_t index. size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( cc_cmpr_fnptr_ty, cmpr ), cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { return cc_vec_erase_n( cntr, *(size_t *)key, 1, el_size, el_dtor, free_ ); } // Sets the number of elements in the vector. // If n is below the current size, then the destructor is called for all erased elements. // In this case, the vector's capacity is not changed. // If n is above the current size, the new elements are uninitialized. // Returns a cc_allocing_fn_result_ty containing new container handle and a pointer that evaluates to true if the // operation was successful or false in the case of allocation failure. static inline cc_allocing_fn_result_ty cc_vec_resize( void *cntr, size_t n, size_t el_size, cc_dtor_fnptr_ty el_dtor, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { // No resize necessary (also handles placeholder). if( n == cc_vec_size( cntr ) ) return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); // Downsizing. if( n < cc_vec_size( cntr ) ) { cc_vec_erase_n( cntr, n, cc_vec_size( cntr ) - n, el_size, el_dtor, free_ ); return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); } // Up-sizing. cc_allocing_fn_result_ty result = cc_vec_reserve( cntr, n, el_size, 0, // Dummy. NULL, // Dummy. 0.0, // Dummy. realloc_, NULL // Dummy. ); if( CC_UNLIKELY( !result.other_ptr ) ) return result; cc_vec_hdr( result.new_cntr )->size = n; return result; } // Shrinks the vector's capacity to its current size. // Returns a cc_allocing_fn_result_ty containing the new container handle and a pointer that evaluates to true if the // operation was successful or false in the case of allocation failure. static inline cc_allocing_fn_result_ty cc_vec_shrink( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( double, max_load ), cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { if( cc_vec_size( cntr ) == cc_vec_cap( cntr ) ) // Also handles placeholder. return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); if( cc_vec_size( cntr ) == 0 ) { // Restore placeholder. free_( cntr ); return cc_make_allocing_fn_result( (void *)&cc_vec_placeholder, cc_dummy_true_ptr ); } cc_vec_hdr_ty *new_cntr = (cc_vec_hdr_ty *)realloc_( cntr, sizeof( cc_vec_hdr_ty ) + el_size * cc_vec_size( cntr ) ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); cc_vec_hdr( new_cntr )->cap = cc_vec_size( new_cntr ); return cc_make_allocing_fn_result( new_cntr, cc_dummy_true_ptr ); } // Initializes a shallow copy of the source vector. // The capacity of the new vector is the size of the source vector, not its capacity. // Returns a pointer to the copy, or NULL in the case of allocation failure. // The return value is cast to bool in the corresponding macro. static inline void *cc_vec_init_clone( void *src, size_t el_size, CC_UNUSED( uint64_t, layout ), cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { if( cc_vec_size( src ) == 0 ) return (void *)&cc_vec_placeholder; cc_allocing_fn_result_ty result = cc_vec_resize( (void *)&cc_vec_placeholder, cc_vec_size( src ), el_size, NULL, // Destructor unused. realloc_, NULL // Free function unused. ); if( CC_UNLIKELY( !result.other_ptr ) ) return NULL; memcpy( (char *)result.new_cntr + sizeof( cc_vec_hdr_ty ), (char *)src + sizeof( cc_vec_hdr_ty ), el_size * cc_vec_size( src ) ); return result.new_cntr; } // Erases all elements, calling their destructors if necessary. static inline void cc_vec_clear( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ), cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { cc_vec_erase_n( cntr, 0, cc_vec_size( cntr ), el_size, el_dtor, free_ ); } // Clears the vector and frees its memory if it is not a placeholder. static inline void cc_vec_cleanup( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ), cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { cc_vec_clear( cntr, el_size, 0, // Dummy. el_dtor, NULL, // Dummy. free_ ); if( !cc_vec_is_placeholder( cntr ) ) free_( cntr ); } static inline void *cc_vec_end( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ) ) { return (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * cc_vec_size( cntr ); } static inline void *cc_vec_next( CC_UNUSED( void *, cntr ), void *itr, size_t el_size, CC_UNUSED( uint64_t, layout ) ) { return (char *)itr + el_size; } static inline void *cc_vec_first( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return (char *)cntr + sizeof( cc_vec_hdr_ty ); } static inline void *cc_vec_last( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ) ) { return (char *)cntr + sizeof( cc_vec_hdr_ty ) + el_size * ( cc_vec_size( cntr ) - 1 ); } /*--------------------------------------------------------------------------------------------------------------------*/ /* List */ /*--------------------------------------------------------------------------------------------------------------------*/ // List is implemented as a doubly linked list with sentinel nodes. // Node header. typedef struct cc_listnode_hdr_ty { alignas( cc_max_align_ty ) struct cc_listnode_hdr_ty *prev; struct cc_listnode_hdr_ty *next; } cc_listnode_hdr_ty; // List header. // It does not need to be aligned to alignof( cc_max_align_ty ) because no memory is allocated after the header. typedef struct { size_t size; cc_listnode_hdr_ty r_end; cc_listnode_hdr_ty end; } cc_list_hdr_ty; // Placeholder for a list with no allocated header. // The main purpose this serves is to provide every list with stable r_end and end pointer-iterators across translation // units and irrespective of whether any memory has been allocated for its header. // Every list initially (after cc_init) points to this placeholder, which differs across translation units, and is then // associated with that placeholder until cc_cleanup is called. // Calls to cc_r_end and cc_end on a list return pointers to the associated placeholder's r_end and end nodes even after // a header has been dynamically allocated for it. // The way this works is that the placeholder's r_end.prev pointer points to the placeholder's r_end (i.e. a circular // link), and ditto for end.next. // Meanwhile, a list with an allocated header has it's r_end.prev pointer point to the placeholder's r_end, and ditto // for it's end.next pointer. // Therefore cc_list_hdr( cntr )->r_end.prev always produces the associated placeholder's r_end, and ditto for // cc_list_hdr( cntr )->end.next. // Unfortunately, this means that r_end and end must be handled as special cases during inserts, splices, and iteration. static const cc_list_hdr_ty cc_list_placeholder = { 0, { (cc_listnode_hdr_ty *)&cc_list_placeholder.r_end, // Circular link. (cc_listnode_hdr_ty *)&cc_list_placeholder.end }, { (cc_listnode_hdr_ty *)&cc_list_placeholder.r_end, (cc_listnode_hdr_ty *)&cc_list_placeholder.end // Circular link. } }; // Easy access to the list header. static inline cc_list_hdr_ty *cc_list_hdr( void *cntr ) { return (cc_list_hdr_ty *)cntr; } // Easy access to a list node header from a pointer-iterator. static inline cc_listnode_hdr_ty *cc_listnode_hdr( void *itr ) { return (cc_listnode_hdr_ty *)( (char *)itr - sizeof( cc_listnode_hdr_ty ) ); } // Easy access to a pointer-iterator from a pointer to a list node header. static inline void *cc_list_el( void *hdr ) { return (char *)hdr + sizeof( cc_listnode_hdr_ty ); } static inline bool cc_list_is_placeholder( void *cntr ) { return cc_list_hdr( cntr )->r_end.prev == &cc_list_hdr( cntr )->r_end; } static inline size_t cc_list_size( void *cntr ) { return cc_list_hdr( cntr )->size; } static inline void *cc_list_r_end( void *cntr ) { return cc_list_el( cc_list_hdr( cntr )->r_end.prev ); } static inline void *cc_list_end( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_list_el( cc_list_hdr( cntr )->end.next ); } static inline void *cc_list_prev( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { cc_listnode_hdr_ty *prev; // If itr is an end iterator, then we need to escape the placeholder originally associated with the list by retrieving // the previous node from the allocated header, if a header has been allocated. if( itr == cc_list_end( cntr, 0 /* Dummy */, 0 /* Dummy */ ) ) prev = cc_list_hdr( cntr )->end.prev; else prev = cc_listnode_hdr( itr )->prev; // If prev is r_end, then we need to decrement the pointer-iterator once more to ensure that the returned // pointer-iterator is the r_end of the placeholder originally associated with the list. if( prev == &cc_list_hdr( cntr )->r_end ) prev = prev->prev; return cc_list_el( prev ); } static inline void *cc_list_next( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { cc_listnode_hdr_ty *next; // See the comment in cc_list_prev above. if( itr == cc_list_r_end( cntr ) ) next = cc_list_hdr( cntr )->r_end.next; else next = cc_listnode_hdr( itr )->next; // Again, see the comment in cc_list_prev above. if( next == &cc_list_hdr( cntr )->end ) next = next->next; return cc_list_el( next ); } static inline void *cc_list_first( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_list_next( cntr, cc_list_el( &cc_list_hdr( cntr )->r_end ), 0, // Dummy. 0 // Dummy. ); } static inline void *cc_list_last( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_list_prev( cntr, cc_list_el( &cc_list_hdr( cntr )->end ), 0, // Dummy. 0 // Dummy. ); } // Allocates a header for a list that is currently a placeholder. // Returns the new container handle, or NULL in the case of allocation failure. static inline void *cc_list_alloc_hdr( void *cntr, cc_realloc_fnptr_ty realloc_ ) { cc_list_hdr_ty *new_cntr = (cc_list_hdr_ty *)realloc_( NULL, sizeof( cc_list_hdr_ty ) ); if( CC_UNLIKELY( !new_cntr ) ) return NULL; new_cntr->r_end.next = &new_cntr->end; new_cntr->end.prev = &new_cntr->r_end; // Link the new header's r_end and end with the original placeholder's r_end and end. new_cntr->r_end.prev = &cc_list_hdr( cntr )->r_end; new_cntr->end.next = &cc_list_hdr( cntr )->end; new_cntr->size = 0; return new_cntr; } // Attaches a node to the list before the node pointed to by the specified pointer-iterator. static inline void cc_list_attach( void *cntr, void *itr, cc_listnode_hdr_ty *node ) { // Handle r_end and end pointer-iterators as a special case. // We need to convert the pointer-iterator from the global placeholder's r_end or end to the local r_end or end. if( itr == cc_list_r_end( cntr ) ) itr = cc_list_el( &cc_list_hdr( cntr )->r_end ); else if( itr == cc_list_end( cntr, 0 /* Dummy */, 0 /* Dummy */ ) ) itr = cc_list_el( &cc_list_hdr( cntr )->end ); // Link node. node->next = cc_listnode_hdr( itr ); node->prev = node->next->prev; node->next->prev = node; node->prev->next = node; } // Inserts an element into the list before the node pointed to by a given pointer-iterator. // Returns a cc_allocing_fn_result_ty containing the new container handle and a pointer-iterator to the newly inserted // element (or NULL in the case of allocation failure). static inline cc_allocing_fn_result_ty cc_list_insert( void *cntr, void *el, void *key, // Pointer to void pointer-iterator. CC_UNUSED( bool, replace ), size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( cc_cmpr_fnptr_ty, cmpr ), CC_UNUSED( double, max_load ), CC_UNUSED( cc_dtor_fnptr_ty, el_dtor ), CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { if( cc_list_is_placeholder( cntr ) ) { void *new_cntr = cc_list_alloc_hdr( cntr, realloc_ ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); cntr = new_cntr; } cc_listnode_hdr_ty *new_node = (cc_listnode_hdr_ty *)realloc_( NULL, sizeof( cc_listnode_hdr_ty ) + el_size ); if( CC_UNLIKELY( !new_node ) ) return cc_make_allocing_fn_result( cntr, NULL ); memcpy( cc_list_el( new_node ), el, el_size ); // Handle r_end and end pointer-iterators as a special case. // We need to convert the pointer-iterator from the associated placeholder's r_end or end to the local r_end or end. if( *(void **)key == cc_list_r_end( cntr ) ) *(void **)key = cc_list_el( &cc_list_hdr( cntr )->r_end ); else if( *(void **)key == cc_list_end( cntr, 0 /* Dummy */, 0 /* Dummy */ ) ) *(void **)key = cc_list_el( &cc_list_hdr( cntr )->end ); cc_list_attach( cntr, *(void **)key, new_node ); ++cc_list_hdr( cntr )->size; return cc_make_allocing_fn_result( cntr, cc_list_el( new_node ) ); } static inline cc_allocing_fn_result_ty cc_list_push( void *cntr, void *el, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { return cc_list_insert( cntr, el, &CC_MAKE_LVAL_COPY( void *, cc_list_end( cntr, 0 /* Dummy */, 0 /* Dummy */ ) ), false, // Dummy. el_size, 0, // Dummy. NULL, // Dummy. NULL, // Dummy. 0.0, // Dummy. NULL, // Dummy. NULL, // Dummy. realloc_, NULL // Dummy. ); } // Erases the element pointed to by a given pointer-iterator and returns a pointer-iterator to next element (or end if // the element was the last element in the list). static inline void *cc_list_erase( void *cntr, void *key, // Pointer to void pointer-iterator. CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( cc_cmpr_fnptr_ty, cmpr ), cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { cc_listnode_hdr_ty *hdr = cc_listnode_hdr( *(void **)key ); cc_listnode_hdr_ty *next = hdr->next; hdr->prev->next = next; next->prev = hdr->prev; if( el_dtor ) el_dtor( *(void **)key, free_ ); free_( hdr ); --cc_list_hdr( cntr )->size; // If next is end, we need to make sure we're returning the associated placeholder's end. if( next == &cc_list_hdr( cntr )->end ) next = next->next; return cc_list_el( next ); } // Removes the element pointed to by pointer-iterator src_itr from the source list and attaches it to the list before // pointer-iterator itr. // Although this function never allocates memory for the element/node itself, it must allocate the list's header if the // list is currently a placeholder. // Returns a cc_allocing_fn_result_ty containing the new container handle and a pointer that evaluates to true if the // operation was successful or false in the case of allocation failure. static inline cc_allocing_fn_result_ty cc_list_splice( void *cntr, void *itr, void *src, void *src_itr, cc_realloc_fnptr_ty realloc_ ) { if( cc_list_is_placeholder( cntr ) ) { void *new_cntr = cc_list_alloc_hdr( cntr, realloc_ ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); cntr = new_cntr; } cc_listnode_hdr( src_itr )->prev->next = cc_listnode_hdr( src_itr )->next; cc_listnode_hdr( src_itr )->next->prev = cc_listnode_hdr( src_itr )->prev; cc_list_attach( cntr, itr, cc_listnode_hdr( src_itr ) ); --cc_list_hdr( src )->size; ++cc_list_hdr( cntr )->size; return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); } // Initializes a shallow copy of the source list. // This requires allocating memory for every node, as well as for the list's header unless src is a placeholder. // Returns a pointer to the copy, or NULL in the case of allocation failure. // That return value is cast to bool in the corresponding macro. static inline void *cc_list_init_clone( void *src, size_t el_size, CC_UNUSED( uint64_t, layout ), cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { cc_allocing_fn_result_ty result = { (void *)&cc_list_placeholder, cc_dummy_true_ptr }; for( void *i = cc_list_first( src, 0 /* Dummy */, 0 /* Dummy */ ); i != cc_list_end( src, 0 /* Dummy */, 0 /* Dummy */ ); i = cc_list_next( src, i, 0 /* Dummy */, 0 /* Dummy */ ) ) { result = cc_list_insert( result.new_cntr, i, &CC_MAKE_LVAL_COPY( void *, cc_list_end( result.new_cntr, 0 /* Dummy */, 0 /* Dummy */ ) ), false, // Dummy. el_size, 0, // Dummy. NULL, // Dummy. NULL, // Dummy. 0.0, // Dummy. NULL, // Dummy. NULL, // Dummy. realloc_, NULL // Dummy. ); if( !result.other_ptr ) { // Erase incomplete clone without invoking destructors. void *j = cc_list_first( result.new_cntr, 0 /* Dummy */, 0 /* Dummy */ ); while( j != cc_list_end( result.new_cntr, 0 /* Dummy */, 0 /* Dummy */ ) ) { void *next = cc_list_next( result.new_cntr, j, 0 /* Dummy */, 0 /* Dummy */ ); free_( cc_listnode_hdr( j ) ); j = next; } if( !cc_list_is_placeholder( result.new_cntr ) ) free_( result.new_cntr ); return NULL; } } return result.new_cntr; } // Erases all elements, calling their destructors if necessary. static inline void cc_list_clear( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ), cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { while( cc_list_first( cntr, 0 /* Dummy */, 0 /* Dummy */ ) != cc_list_end( cntr, 0 /* Dummy */, 0 /* Dummy */ ) ) cc_list_erase( cntr, &CC_MAKE_LVAL_COPY( void *, cc_list_first( cntr, 0 /* Dummy */, 0 /* Dummy */ ) ), 0, // Dummy. 0, // Dummy. NULL, // Dummy. NULL, // Dummy. el_dtor, NULL, // Dummy. free_ ); } // Erases all elements, calling their destructors if necessary, and frees the memory for the list's header if it is not // a placeholder. static inline void cc_list_cleanup( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ), cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { cc_list_clear( cntr, 0 /* Dummy */, 0 /* Dummy */, el_dtor, NULL /* Dummy */, free_ ); if( !cc_list_is_placeholder( cntr ) ) free_( cntr ); } /*--------------------------------------------------------------------------------------------------------------------*/ /* Map */ /*--------------------------------------------------------------------------------------------------------------------*/ // cc_map implements Verstable (https://github.com/JacksonAllan/Verstable) within the constraints of the CC API. // As explained in its documentation, Verstable is an open-addressing hash table using quadratic probing and the // following additions: // // * All keys that hash (i.e. "belong") to the same bucket (their "home bucket") are linked together by an 11-bit // integer specifying the quadratic displacement, relative to that bucket, of the next key in the chain. // * If a chain of keys exists for a given bucket, then it always begins at that bucket. To maintain this policy, a // 1-bit flag is used to mark whether the key occupying a bucket belongs there. When inserting a new key, if the // bucket it belongs to is occupied by a key that does not belong there, then the occupying key is evicted and the new // key takes the bucket. // * A 4-bit fragment of each key's hash code is also stored. // * The aforementioned metadata associated with each bucket (the 4-bit hash fragment, the 1-bit flag, and the 11-bit // link to the next key in the chain) are stored together in a uint16_t array rather than in the bucket alongside the // key and (optionally) the value. // // One way to conceptualize this scheme is as a chained hash table in which overflowing keys are stored not in separate // memory allocations but in otherwise unused buckets. In this regard, it shares similarities with Malte Skarupke's // Bytell hash table (https://www.youtube.com/watch?v=M2fKMP47slQ) and traditional "coalesced hashing". // // Advantages of this scheme include: // // * Fast lookups impervious to load factor: If the table contains any key belonging to the lookup key's home bucket, // then that bucket contains the first in a traversable chain of all keys belonging to it. Hence, only the home bucket // and other buckets containing keys belonging to it are ever probed. Moreover, the stored hash fragments allow // skipping most non-matching keys in the chain without accessing the actual buckets array or calling the (potentially // expensive) key comparison function. // * Fast insertions: Insertions are faster than they are in other schemes that move keys around (e.g. Robin Hood) // because they only move, at most, one existing key. // * Fast, tombstone-free deletions: Deletions, which usually require tombstones in quadratic-probing hash tables, are // tombstone-free and only move, at most, one existing key. // * Fast iteration: The separate metadata array allows keys in sparsely populated tables to be found without incurring // the frequent cache misses that would result from traversing the buckets array. // // Adapting Verstable to the CC API necessitates some compromises, including: // // * Slower iteration: As a pointer-iterator in CC cannot store a pointer to the metadatum associated with the bucket to // which it points, the metadatum's address must be calculated every iteration. // * Slower iterator-based erasure: As CC pointer-iterators cannot store a key's home bucket, CC must rehash the key // being deleted in cases wherein Verstable does not need to. // Masks for manipulating and extracting data from a bucket's uint16_t metadatum. #define CC_MAP_EMPTY 0x0000 #define CC_MAP_HASH_FRAG_MASK 0xF000 // 0b1111000000000000. #define CC_MAP_IN_HOME_BUCKET_MASK 0x0800 // 0b0000100000000000. #define CC_MAP_DISPLACEMENT_MASK 0x07FF // 0b0000011111111111, also denotes the displacement limit. Set to CC_LOAD to // 1.0 to test proper handling of encroachment on the displacement limit // during inserts. // Extracts a hash fragment from a uint64_t hash code. // We take the highest four bits so that keys that map (via modulo) to the same bucket have distinct hash fragments. static inline uint16_t cc_hash_frag( size_t hash ) { return ( hash >> ( sizeof( size_t ) - sizeof( uint16_t ) ) * CHAR_BIT ) & CC_MAP_HASH_FRAG_MASK; } // Standard quadratic probing formula that guarantees that all buckets are visited when the bucket count is a power of // two (at least in theory, because the displacement limit could terminate the search early when the bucket count is // high). static inline size_t cc_quadratic( uint16_t displacement ) { return ( (size_t)displacement * displacement + displacement ) / 2; } #define CC_MAP_MIN_NONZERO_BUCKET_COUNT 8 // Must be a power of two. // Map header. typedef struct { alignas( cc_max_align_ty ) size_t size; size_t cap_mask; // Rather than storing the capacity (i.e. bucket count) directly, we store the bit mask used to // reduce a hash code or displacement-derived bucket index to the buckets array, i.e. the capacity // minus one. // Consequently, a zero bucket count (i.e. a placeholder map) constitutes a special case, represented // by all bits unset (i.e. zero). uint16_t *metadata; // As described above, each metadatum consists of a 4-bit hash-code fragment (X), a 1-bit flag // indicating whether the key in this bucket begins a chain associated with the bucket (Y), and // an 11-bit value indicating the quadratic displacement of the next key in the chain (Z): // XXXXYZZZZZZZZZZZ. // The metadata array lives in the same allocation as the header and buckets array, but we // store a pointer to it to avoid constantly recalculating its offset. } cc_map_hdr_ty; // In the case of maps, this placeholder allows us to avoid checking for a NULL handle inside functions. // Setting the placeholder's metadata pointer to point to a CC_MAP_EMPTY placeholder, rather than NULL, allows us to // avoid checking for a zero bucket count during insertion and lookup. static const uint16_t cc_map_placeholder_metadatum = CC_MAP_EMPTY; static const cc_map_hdr_ty cc_map_placeholder = { 0, 0x0000000000000000ull, (uint16_t *)&cc_map_placeholder_metadatum }; static inline cc_map_hdr_ty *cc_map_hdr( void *cntr ) { return (cc_map_hdr_ty *)cntr; } static inline size_t cc_map_size( void *cntr ) { return cc_map_hdr( cntr )->size; } static inline size_t cc_map_cap( void *cntr ) { // If the capacity is zero, cap_mask will be zero, not the capacity minus one. // We account for this special case by adding (bool)cap_mask rather than one. return cc_map_hdr( cntr )->cap_mask + (bool)cc_map_hdr( cntr )->cap_mask; } static inline bool cc_map_is_placeholder( void *cntr ) { return !cc_map_hdr( cntr )->cap_mask; } static inline void *cc_map_el( void *cntr, size_t bucket, size_t el_size, uint64_t layout ) { return (char *)cntr + sizeof( cc_map_hdr_ty ) + CC_BUCKET_SIZE( el_size, layout ) * bucket; } static inline void *cc_map_key( void *cntr, size_t bucket, size_t el_size, uint64_t layout ) { return (char *)cc_map_el( cntr, bucket, el_size, layout ) + CC_KEY_OFFSET( el_size, layout ); } static inline void *cc_map_key_for( void *itr, size_t el_size, uint64_t layout ) { return (char *)itr + CC_KEY_OFFSET( el_size, layout ); } static inline size_t cc_map_bucket_index_from_itr( void *cntr, void *itr, size_t el_size, uint64_t layout ) { return (size_t)( (char *)itr - (char *)cc_map_el( cntr, 0, el_size, layout ) ) / CC_BUCKET_SIZE( el_size, layout ); } static inline size_t cc_map_min_cap_for_n_els( size_t n, double max_load ) { if( n == 0 ) return 0; // Round up to a power of two. size_t cap = CC_MAP_MIN_NONZERO_BUCKET_COUNT; while( n > (size_t)( (double)cap * max_load ) ) cap *= 2; return cap; } // Calculates the metadata array offset and total allocation size for a map with a given non-zero capacity. // The data is organized in memory as follows: // +--------+-----------------------------+-----+----------------+--------+ // | Header | Buckets | Pad | Metadata | Excess | // +--------+-----------------------------+-----+----------------+--------+ // The metadata array requires four excess elements to ensure that iteration functions, which read four metadata at a // time, never read beyond the end of it. static inline void cc_map_allocation_details( size_t cap, size_t el_size, uint64_t layout, size_t *metadata_offset, size_t *allocation_size ) { size_t buckets_size = CC_BUCKET_SIZE( el_size, layout ) * cap; *metadata_offset = sizeof( cc_map_hdr_ty ) + buckets_size + CC_PADDING( buckets_size, alignof( uint16_t ) ); *allocation_size = *metadata_offset + sizeof( uint16_t ) * ( cap + 4 ); } // Finds the earliest empty bucket in which a key-element pair belonging to home_bucket can be placed, assuming that // home_bucket is already occupied. // The reason to begin the search at home_bucket, rather than the end of the existing chain, is that key-element pairs // deleted from other chains might have freed up buckets that could fall in this chain before the final key. // Returns true if an empty bucket within the range of the displacement limit was found, in which case the final two // pointer arguments contain the index of the empty bucket and its quadratic displacement from home_bucket. static inline bool cc_map_find_first_empty( void *cntr, size_t home_bucket, size_t *empty, uint16_t *displacement ) { *displacement = 1; size_t linear_dispacement = 1; while( true ) { *empty = ( home_bucket + linear_dispacement ) & cc_map_hdr( cntr )->cap_mask; if( cc_map_hdr( cntr )->metadata[ *empty ] == CC_MAP_EMPTY ) return true; if( CC_UNLIKELY( ++*displacement == CC_MAP_DISPLACEMENT_MASK ) ) return false; linear_dispacement += *displacement; } } // Finds the key-element pair in the chain beginning in home_bucket after which to link a new key-element pair with // displacement_to_empty quadratic displacement and returns the index of the bucket containing that key-element pair. // Although the new key-element pair could simply be linked to the end of the chain, keeping the chain ordered by // displacement theoretically improves cache locality during lookups. static inline size_t cc_map_find_insert_location_in_chain( void *cntr, size_t home_bucket, uint16_t displacement_to_empty ) { size_t candidate = home_bucket; while( true ) { uint16_t displacement = cc_map_hdr( cntr )->metadata[ candidate ] & CC_MAP_DISPLACEMENT_MASK; if( displacement > displacement_to_empty ) return candidate; candidate = ( home_bucket + cc_quadratic( displacement ) ) & cc_map_hdr( cntr )->cap_mask; } } // Frees up a bucket occupied by a key-element pair not belonging there so that a new key-element pair belonging there // can be placed there as the beginning of a new chain. // This requires: // * Finding the previous key-element pair in the chain to which the occupying key-element pair belongs by rehashing the // key and traversing the chain. // * Disconnecting the key-element pair from the chain. // * Finding the appropriate empty bucket to which to move the key-element pair. // * Moving the key-element pair to the empty bucket. // * Re-linking the key-element pair to the chain. // Returns true if the eviction succeeded, or false if no empty bucket to which to evict the occupying key-element pair // could be found within the displacement limit. static inline bool cc_map_evict( void *cntr, size_t bucket, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash ) { // Find the previous key-element pair in chain. size_t home_bucket = hash( cc_map_key( cntr, bucket, el_size, layout ) ) & cc_map_hdr( cntr )->cap_mask; size_t prev = home_bucket; while( true ) { size_t next = ( home_bucket + cc_quadratic( cc_map_hdr( cntr )->metadata[ prev ] & CC_MAP_DISPLACEMENT_MASK ) ) & cc_map_hdr( cntr )->cap_mask; if( next == bucket ) break; prev = next; } // Disconnect the key-element pair from chain. cc_map_hdr( cntr )->metadata[ prev ] = (uint16_t)( cc_map_hdr( cntr )->metadata[ prev ] & ~CC_MAP_DISPLACEMENT_MASK ) | ( cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_DISPLACEMENT_MASK ); // Find the empty bucket to which to move the key-element pair. size_t empty; uint16_t displacement; if( CC_UNLIKELY( !cc_map_find_first_empty( cntr, home_bucket, &empty, &displacement ) ) ) return false; // Find the key-element pair in the chain after which to link the moved key-element pair. prev = cc_map_find_insert_location_in_chain( cntr, home_bucket, displacement ); // Move the key and element. memcpy( cc_map_el( cntr, empty, el_size, layout ), cc_map_el( cntr, bucket, el_size, layout ), CC_BUCKET_SIZE( el_size, layout ) ); // Re-link the key-element pair to the chain from its new bucket. cc_map_hdr( cntr )->metadata[ empty ] = ( cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_HASH_FRAG_MASK ) | ( cc_map_hdr( cntr )->metadata[ prev ] & CC_MAP_DISPLACEMENT_MASK ); cc_map_hdr( cntr )->metadata[ prev ] = (uint16_t)( ( cc_map_hdr( cntr )->metadata[ prev ] & ~CC_MAP_DISPLACEMENT_MASK ) | displacement ); return true; } // Inserts a key-element pair, optionally replacing the existing key-element pair containing the same key if it exists. // There are two main cases that must be handled: // * If the key-element pair's home bucket is empty or occupied by a key-element pair that does not belong there, then // the key-element pair is inserted there, evicting the occupying key-element pair if there is one. // * Otherwise, the chain of key-element pairs beginning at the home bucket is traversed in search of a matching key. // If none is found, then the new key-element pair is inserted at the earliest available bucket, per quadratic probing // from the home bucket, and then linked to the chain in a manner that maintains its quadratic order. // The replace argument tells the function whether to replace an existing key-element pair. // If replace is true, the function returns a pointer-iterator to the inserted element, or NULL if the key-element pair // was not inserted because of the max load factor or displacement limit constraints. // If replace is false, then the return value is as described above, except that if the key already exists, the function // returns a pointer-iterator to the associated element. static inline void *cc_map_insert_raw( void *cntr, void *el, void *key, bool replace, size_t el_size, uint64_t layout, double max_load, cc_hash_fnptr_ty hash, cc_cmpr_fnptr_ty cmpr, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { size_t key_hash = hash( key ); uint16_t hashfrag = cc_hash_frag( key_hash ); size_t home_bucket = key_hash & cc_map_hdr( cntr )->cap_mask; // Case 1: The home bucket is empty or contains a key-element pair that doesn't belong there. // This case also implicitly handles the case of a zero-capacity placeholder map, since home_bucket will be zero and // metadata[ 0 ] will be the empty placeholder metadatum. // In that scenario, the zero cap_mask triggers the below load-factor check. if( !( cc_map_hdr( cntr )->metadata[ home_bucket ] & CC_MAP_IN_HOME_BUCKET_MASK ) ) { // Load-factor check. if( CC_UNLIKELY( cc_map_hdr( cntr )->size + 1 > (size_t)( max_load * (double)cc_map_cap( cntr ) ) ) ) return NULL; // Vacate the home bucket if it contains a key-element pair. if( cc_map_hdr( cntr )->metadata[ home_bucket ] != CC_MAP_EMPTY && CC_UNLIKELY( !cc_map_evict( cntr, home_bucket, el_size, layout, hash ) ) ) return NULL; memcpy( cc_map_key( cntr, home_bucket, el_size, layout ), key, CC_KEY_SIZE( layout ) ); memcpy( cc_map_el( cntr, home_bucket, el_size, layout ), el, el_size ); cc_map_hdr( cntr )->metadata[ home_bucket ] = hashfrag | CC_MAP_IN_HOME_BUCKET_MASK | CC_MAP_DISPLACEMENT_MASK; ++cc_map_hdr( cntr )->size; return cc_map_el( cntr, home_bucket, el_size, layout ); } // Case 2: The home bucket contains the beginning of a chain. // Check the existing chain. size_t bucket = home_bucket; while( true ) { if( ( cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_HASH_FRAG_MASK ) == hashfrag && CC_LIKELY( cmpr( cc_map_key( cntr, bucket, el_size, layout ), key ) ) ) { if( replace ) { if( key_dtor ) key_dtor( cc_map_key( cntr, bucket, el_size, layout ), free_ ); if( el_dtor ) el_dtor( cc_map_el( cntr, bucket, el_size, layout ), free_ ); memcpy( cc_map_key( cntr, bucket, el_size, layout ), key, CC_KEY_SIZE( layout ) ); memcpy( cc_map_el( cntr, bucket, el_size, layout ), el, el_size ); } return cc_map_el( cntr, bucket, el_size, layout ); } uint16_t displacement = cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_DISPLACEMENT_MASK; if( displacement == CC_MAP_DISPLACEMENT_MASK ) break; bucket = ( home_bucket + cc_quadratic( displacement ) ) & cc_map_hdr( cntr )->cap_mask; } // Load-factor check. if( CC_UNLIKELY( cc_map_hdr( cntr )->size + 1 > (size_t)( max_load * (double)cc_map_cap( cntr ) ) ) ) return NULL; // Find the earliest empty bucket, per quadratic probing. size_t empty; uint16_t displacement; if( CC_UNLIKELY( !cc_map_find_first_empty( cntr, home_bucket, &empty, &displacement ) ) ) return NULL; size_t prev = cc_map_find_insert_location_in_chain( cntr, home_bucket, displacement ); // Insert the new key and element in the empty bucket and link it to the chain. memcpy( cc_map_key( cntr, empty, el_size, layout ), key, CC_KEY_SIZE( layout ) ); memcpy( cc_map_el( cntr, empty, el_size, layout ), el, el_size ); cc_map_hdr( cntr )->metadata[ empty ] = hashfrag | ( cc_map_hdr( cntr )->metadata[ prev ] & CC_MAP_DISPLACEMENT_MASK ); cc_map_hdr( cntr )->metadata[ prev ] = (uint16_t)( ( cc_map_hdr( cntr )->metadata[ prev ] & ~CC_MAP_DISPLACEMENT_MASK ) | displacement ); ++cc_map_hdr( cntr )->size; return cc_map_el( cntr, empty, el_size, layout ); } // Inserts a key-element pair, assuming that the key does not already exist and that the map's capacity is large enough // to accommodate it without violating the load factor constraint. // These conditions are met during map resizing and rehashing. // This function is the same as cc_map_insert_raw, except that no load-factor check or check of the existing chain is // performed. // It returns a pointer-iterator to the inserted element, or NULL if the key-element pair was not inserted because of // the max load factor or displacement limit constraints. static inline void *cc_map_reinsert( void *cntr, void *el, void *key, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash ) { size_t key_hash = hash( key ); uint16_t hashfrag = cc_hash_frag( key_hash ); size_t home_bucket = key_hash & cc_map_hdr( cntr )->cap_mask; if( !( cc_map_hdr( cntr )->metadata[ home_bucket ] & CC_MAP_IN_HOME_BUCKET_MASK ) ) { if( cc_map_hdr( cntr )->metadata[ home_bucket ] != CC_MAP_EMPTY && CC_UNLIKELY( !cc_map_evict( cntr, home_bucket, el_size, layout, hash ) ) ) return NULL; memcpy( cc_map_key( cntr, home_bucket, el_size, layout ), key, CC_KEY_SIZE( layout ) ); memcpy( cc_map_el( cntr, home_bucket, el_size, layout ), el, el_size ); cc_map_hdr( cntr )->metadata[ home_bucket ] = hashfrag | CC_MAP_IN_HOME_BUCKET_MASK | CC_MAP_DISPLACEMENT_MASK; ++cc_map_hdr( cntr )->size; return cc_map_el( cntr, home_bucket, el_size, layout ); } size_t empty; uint16_t displacement; if( CC_UNLIKELY( !cc_map_find_first_empty( cntr, home_bucket, &empty, &displacement ) ) ) return NULL; size_t prev = cc_map_find_insert_location_in_chain( cntr, home_bucket, displacement ); memcpy( cc_map_key( cntr, empty, el_size, layout ), key, CC_KEY_SIZE( layout ) ); memcpy( cc_map_el( cntr, empty, el_size, layout ), el, el_size ); cc_map_hdr( cntr )->metadata[ empty ] = hashfrag | ( cc_map_hdr( cntr )->metadata[ prev ] & CC_MAP_DISPLACEMENT_MASK ); cc_map_hdr( cntr )->metadata[ prev ] = (uint16_t)( ( cc_map_hdr( cntr )->metadata[ prev ] & ~CC_MAP_DISPLACEMENT_MASK ) | displacement ); ++cc_map_hdr( cntr )->size; return cc_map_el( cntr, empty, el_size, layout ); } // Creates a rehashed duplicate of cntr with capacity cap. // Assumes that cap is a power of two large enough to accommodate all key-element pairs without violating the max load // factor. // Returns a pointer to the duplicate, or NULL in the case of allocation failure. // As this function is called very rarely in cc_map_insert and cc_map_get_or_insert, ideally it should not be inlined // into those functions. #ifdef __GNUC__ #pragma GCC diagnostic push #pragma GCC diagnostic ignored "-Wattributes" // Silence warning about combining noinline with static inline. __attribute__((noinline)) #endif static inline void *cc_map_make_rehash( void *cntr, size_t cap, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { // The attempt to resize and rehash must occur inside a loop that incrementally doubles the target bucket count // because a failure could theoretically occur at any load factor due to the displacement limit. while( true ) { size_t metadata_offset; size_t allocation_size; cc_map_allocation_details( cap, el_size, layout, &metadata_offset, &allocation_size ); cc_map_hdr_ty *new_cntr = (cc_map_hdr_ty *)realloc_( NULL, allocation_size ); if( CC_UNLIKELY( !new_cntr ) ) return NULL; new_cntr->size = 0; new_cntr->cap_mask = cap - 1; new_cntr->metadata = (uint16_t *)( (char *)new_cntr + metadata_offset ); memset( new_cntr->metadata, 0x00, ( cap + 4 ) * sizeof( uint16_t ) ); // Iteration stopper at the end of the actual metadata array (i.e. the first of the four excess metadata). new_cntr->metadata[ cap ] = 0x01; for( size_t i = 0; i < cc_map_cap( cntr ); ++i ) if( cc_map_hdr( cntr )->metadata[ i ] != CC_MAP_EMPTY ) { void *key = cc_map_key( cntr, i, el_size, layout ); if( CC_UNLIKELY( !cc_map_reinsert( new_cntr, cc_map_el( cntr, i, el_size, layout ), key, el_size, layout, hash ) ) ) break; } // If a key could not be reinserted due to the displacement limit, double the bucket count and retry. if( CC_UNLIKELY( new_cntr->size < cc_map_size( cntr ) ) ) { free_( new_cntr ); cap *= 2; continue; } return new_cntr; } } #ifdef __GNUC__ #pragma GCC diagnostic pop #endif // Reserves capacity such that the map can accommodate n key-element pairs without reallocation (i.e. without violating // the max load factor). // Returns a cc_allocing_fn_result_ty containing the new container handle and a pointer that evaluates to true if the // operation was successful or false in the case of allocation failure. static inline cc_allocing_fn_result_ty cc_map_reserve( void *cntr, size_t n, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash, double max_load, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { size_t cap = cc_map_min_cap_for_n_els( n, max_load ); if( cc_map_cap( cntr ) >= cap ) return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); void *new_cntr = cc_map_make_rehash( cntr, cap, el_size, layout, hash, realloc_, free_ ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); if( !cc_map_is_placeholder( cntr ) ) free_( cntr ); return cc_make_allocing_fn_result( new_cntr, cc_dummy_true_ptr ); } // Inserts a key-element pair. // If replace is true, then the new key-element pair replaces any existing key-element pair containing the same key. // This function wraps cc_map_insert_raw in a loop that handles growing and rehashing the table if a new key-element // pair cannot be inserted because of the max load factor or displacement limit constraints. // Returns a cc_allocing_fn_result_ty containing the new container handle and a pointer-iterator to the newly inserted // element, or to the existing element with the matching key if replace is false. // If the underlying storage needed to be expanded and an allocation failure occurred, the latter pointer will be NULL. static inline cc_allocing_fn_result_ty cc_map_insert( void *cntr, void *el, void *key, bool replace, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash, cc_cmpr_fnptr_ty cmpr, double max_load, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { while( true ) { void *itr = cc_map_insert_raw( cntr, el, key, replace, el_size, layout, max_load, hash, cmpr, el_dtor, key_dtor, free_ ); if( CC_LIKELY( itr ) ) return cc_make_allocing_fn_result( cntr, itr ); void *new_cntr = cc_map_make_rehash( cntr, cc_map_hdr( cntr )->cap_mask ? cc_map_cap( cntr ) * 2 : CC_MAP_MIN_NONZERO_BUCKET_COUNT, el_size, layout, hash, realloc_, free_ ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); if( !cc_map_is_placeholder( cntr ) ) free_( cntr ); cntr = new_cntr; } } static inline void *cc_map_get( void *cntr, void *key, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash, cc_cmpr_fnptr_ty cmpr ) { size_t key_hash = hash( key ); size_t home_bucket = key_hash & cc_map_hdr( cntr )->cap_mask; // If the home bucket is empty or contains a key-element pair that does not belong there, then our key does not exist. // This check also implicitly handles the case of a zero bucket count, since home_bucket will be zero and // metadata[ 0 ] will be the empty placeholder. if( !( cc_map_hdr( cntr )->metadata[ home_bucket ] & CC_MAP_IN_HOME_BUCKET_MASK ) ) return NULL; // Traverse the chain of key-element pairs belonging to the home bucket. uint16_t hashfrag = cc_hash_frag( key_hash ); size_t bucket = home_bucket; while( true ) { if( ( cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_HASH_FRAG_MASK ) == hashfrag && CC_LIKELY( cmpr( cc_map_key( cntr, bucket, el_size, layout ), key ) ) ) return cc_map_el( cntr, bucket, el_size, layout ); uint16_t displacement = cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_DISPLACEMENT_MASK; if( displacement == CC_MAP_DISPLACEMENT_MASK ) return NULL; bucket = ( home_bucket + cc_quadratic( displacement ) ) & cc_map_hdr( cntr )->cap_mask; } } // DEPRECATED. // For maps, the container handle doubles up as r_end. static inline void *cc_map_r_end( void *cntr ) { return cntr; } static inline void *cc_map_end( void *cntr, size_t el_size, uint64_t layout ) { return cc_map_el( cntr, cc_map_cap( cntr ), el_size, layout ); } // Finds the first occupied bucket at or after the bucket pointed to by itr. // This function scans four buckets at a time, ideally using intrinsics. static inline void *cc_map_leap_forward( void *cntr, void *itr, size_t el_size, uint64_t layout ) { uint16_t *itr_metadatum = cc_map_hdr( cntr )->metadata + cc_map_bucket_index_from_itr( cntr, itr, el_size, layout ); while( true ) { uint64_t metadata; memcpy( &metadata, itr_metadatum, sizeof( uint64_t ) ); if( metadata ) return (char *)itr + CC_BUCKET_SIZE( el_size, layout ) * cc_first_nonzero_uint16( metadata ); itr = (char *)itr + CC_BUCKET_SIZE( el_size, layout ) * 4; itr_metadatum += 4; } } // DEPRECATED. // Finds the first occupied bucket before the bucket pointed to by itr. // This function also scans four buckets at a time, ideally using intrinsics. // However, because the r_end pointer-iterator, unlike end, constitutes a special case, this function is less efficient // cc_map_leap_forward. static inline void *cc_map_leap_backward( void *cntr, void *itr, size_t el_size, uint64_t layout ) { size_t bucket = cc_map_bucket_index_from_itr( cntr, itr, el_size, layout ); while( true ) { if( bucket < 4 ) { while( bucket-- ) if( cc_map_hdr( cntr )->metadata[ bucket ] ) return cc_map_el( cntr, bucket, el_size, layout ); return cc_map_r_end( cntr ); } // This check is only necessary to silence a superfluous array-bounds warning under GCC. // In practice, the case of a placeholder map is caught by the above check for bucket < 4. if( cc_map_hdr( cntr )->metadata == &cc_map_placeholder_metadatum ) CC_UNREACHABLE; uint64_t metadatum; memcpy( &metadatum, cc_map_hdr( cntr )->metadata + bucket - 4, sizeof( uint64_t ) ); if( metadatum ) return cc_map_el( cntr, bucket - 1 - cc_last_nonzero_uint16( metadatum ), el_size, layout ); bucket -= 4; } } static inline void *cc_map_first( void *cntr, size_t el_size, uint64_t layout ) { void *itr = cc_map_el( cntr, 0, el_size, layout ); if( !cc_map_hdr( cntr )->cap_mask ) return itr; return cc_map_leap_forward( cntr, itr, el_size, layout ); } // DEPRECATED. static inline void *cc_map_last( void *cntr, size_t el_size, uint64_t layout ) { return cc_map_leap_backward( cntr, cc_map_end( cntr, el_size, layout ), el_size, layout ); } // DEPRECATED. static inline void *cc_map_prev( void *cntr, void *itr, size_t el_size, uint64_t layout ) { return cc_map_leap_backward( cntr, itr, el_size, layout ); } static inline void *cc_map_next( void *cntr, void *itr, size_t el_size, uint64_t layout ) { itr = (char *)itr + CC_BUCKET_SIZE( el_size, layout ); return cc_map_leap_forward( cntr, itr, el_size, layout ); } // Erases the key-element pair in the specified bucket. // The erasure always occurs at the end of the chain to which the key-element pair belongs. // If the key-element pair to be erased is not the last in the chain, it is swapped with the last so that erasure occurs // at the end. // This helps keep a chain's key-element pairs close to their home bucket for the sake of cache locality. // Returns true if, in the case of iteration from first to end, cc_map_next should now be called on the pointer-iterator // to find the next key-element pair. // This return value is necessary because at the iterator location, the erasure could result in an empty bucket, a // bucket containing a moved key-element pair already visited during the iteration, or a bucket containing a moved // key-element pair not yet visited. static inline bool cc_map_erase_raw( void *cntr, size_t erase_bucket, size_t home_bucket, // SIZE_MAX if unknown. size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { --cc_map_hdr( cntr )->size; // Case 1: The key-element pair is the only one in its chain, so just remove it. if( cc_map_hdr( cntr )->metadata[ erase_bucket ] & CC_MAP_IN_HOME_BUCKET_MASK && ( cc_map_hdr( cntr )->metadata[ erase_bucket ] & CC_MAP_DISPLACEMENT_MASK ) == CC_MAP_DISPLACEMENT_MASK ) { if( el_dtor ) el_dtor( cc_map_el( cntr, erase_bucket, el_size, layout ), free_ ); if( key_dtor ) key_dtor( cc_map_key( cntr, erase_bucket, el_size, layout ), free_ ); cc_map_hdr( cntr )->metadata[ erase_bucket ] = CC_MAP_EMPTY; return true; } // Case 2 and 3 require that we know the key-element pair's home bucket. if( home_bucket == SIZE_MAX ) { if( cc_map_hdr( cntr )->metadata[ erase_bucket ] & CC_MAP_IN_HOME_BUCKET_MASK ) home_bucket = erase_bucket; else home_bucket = hash( cc_map_key( cntr, erase_bucket, el_size, layout ) ) & cc_map_hdr( cntr )->cap_mask; } if( el_dtor ) el_dtor( cc_map_el( cntr, erase_bucket, el_size, layout ), free_ ); if( key_dtor ) key_dtor( cc_map_key( cntr, erase_bucket, el_size, layout ), free_ ); // Case 2: The key-element pair is the last in a chain containing multiple key-element pairs. // Traverse the chain from the beginning and find the penultimate key-element pair. // Then disconnect the key-element pair and erase. if( ( cc_map_hdr( cntr )->metadata[ erase_bucket ] & CC_MAP_DISPLACEMENT_MASK ) == CC_MAP_DISPLACEMENT_MASK ) { size_t bucket = home_bucket; while( true ) { uint16_t displacement = cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_DISPLACEMENT_MASK; size_t next = ( home_bucket + cc_quadratic( displacement ) ) & cc_map_hdr( cntr )->cap_mask; if( next == erase_bucket ) { cc_map_hdr( cntr )->metadata[ bucket ] |= CC_MAP_DISPLACEMENT_MASK; cc_map_hdr( cntr )->metadata[ erase_bucket ] = CC_MAP_EMPTY; return true; } bucket = next; } } // Case 3: The chain has multiple key-element pairs, and the key-element pair is not the last one. // Traverse the chain from the key-element pair to be erased and find the last and penultimate key-element pairs. // Disconnect the last key-element pair from the chain, and swap it with the key-element pair to erase. size_t bucket = erase_bucket; while( true ) { size_t prev = bucket; bucket = ( home_bucket + cc_quadratic( cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_DISPLACEMENT_MASK ) ) & cc_map_hdr( cntr )->cap_mask; if( ( cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_DISPLACEMENT_MASK ) == CC_MAP_DISPLACEMENT_MASK ) { memcpy( cc_map_el( cntr, erase_bucket, el_size, layout ), cc_map_el( cntr, bucket, el_size, layout ), CC_BUCKET_SIZE( el_size, layout ) ); cc_map_hdr( cntr )->metadata[ erase_bucket ] = (uint16_t)( ( cc_map_hdr( cntr )->metadata[ erase_bucket ] & ~CC_MAP_HASH_FRAG_MASK ) | ( cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_HASH_FRAG_MASK ) ); cc_map_hdr( cntr )->metadata[ prev ] |= CC_MAP_DISPLACEMENT_MASK; cc_map_hdr( cntr )->metadata[ bucket ] = CC_MAP_EMPTY; // Whether a pointer-iterator pointing to erase_bucket should be advanced depends on whether the key-element pair // moved to the erase_bucket came from before or after that bucket. // In the former case, the iteration would already have hit the moved key-element pair, so the pointer-iterator // should still be advanced. if( bucket > erase_bucket ) return false; return true; } } } // Erases the key-element pair pointed to by itr and returns a pointer-iterator to the next key-element pair in the // table. // This function must be inlined to ensure that the compiler optimizes away the cc_map_next call if the returned // pointer-iterator is discarded. static inline CC_ALWAYS_INLINE void *cc_map_erase_itr( void *cntr, void *itr, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { size_t bucket = cc_map_bucket_index_from_itr( cntr, itr, el_size, layout ); if( cc_map_erase_raw( cntr, bucket, SIZE_MAX, el_size, layout, hash, el_dtor, key_dtor, free_ ) ) return cc_map_next( cntr, itr, el_size, layout ); return itr; } // Erases the key-element pair containing the specified key, if it exists. // Returns a pointer that evaluates to true if a key-element pair was erased, or else NULL. // This pointer is eventually cast to bool by the cc_erase API macro. static inline void *cc_map_erase( void *cntr, void *key, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash, cc_cmpr_fnptr_ty cmpr, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { size_t key_hash = hash( key ); size_t home_bucket = key_hash & cc_map_hdr( cntr )->cap_mask; if( !( cc_map_hdr( cntr )->metadata[ home_bucket ] & CC_MAP_IN_HOME_BUCKET_MASK ) ) return NULL; uint16_t hashfrag = cc_hash_frag( key_hash ); size_t bucket = home_bucket; while( true ) { if( ( cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_HASH_FRAG_MASK ) == hashfrag && CC_LIKELY( cmpr( cc_map_key( cntr, bucket, el_size, layout ), key ) ) ) { cc_map_erase_raw( cntr, bucket, home_bucket, el_size, layout, hash, el_dtor, key_dtor, free_ ); return &cc_dummy_true; } uint16_t displacement = cc_map_hdr( cntr )->metadata[ bucket ] & CC_MAP_DISPLACEMENT_MASK; if( displacement == CC_MAP_DISPLACEMENT_MASK ) return NULL; bucket = ( home_bucket + cc_quadratic( displacement ) ) & cc_map_hdr( cntr )->cap_mask; } } // Shrinks the map's capacity to the minimum possible without violating the max load factor associated with the key // type. // If shrinking is necessary, then a complete rehash occurs. // Returns a cc_allocing_fn_result_ty containing the new container handle and a pointer that evaluates to true if the // operation was successful or false in the case of allocation failure. static inline cc_allocing_fn_result_ty cc_map_shrink( void *cntr, size_t el_size, uint64_t layout, cc_hash_fnptr_ty hash, double max_load, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { size_t cap = cc_map_min_cap_for_n_els( cc_map_size( cntr ), max_load ); if( cap == cc_map_cap( cntr ) ) // Shrink unnecessary. return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); if( cap == 0 ) // Restore placeholder. { if( !cc_map_is_placeholder( cntr ) ) free_( cntr ); return cc_make_allocing_fn_result( (void *)&cc_map_placeholder, cc_dummy_true_ptr ); } void *new_cntr = cc_map_make_rehash( cntr, cap, el_size, layout, hash, realloc_, free_ ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); if( !cc_map_is_placeholder( cntr ) ) free_( cntr ); return cc_make_allocing_fn_result( new_cntr, cc_dummy_true_ptr ); } // Initializes a shallow copy of the source map. // The capacity of the copy is the same as the capacity of the source map, unless the source map is empty, in which case // the copy is a placeholder. // Hence, this function does no rehashing. // Returns a pointer to the copy, or NULL in the case of allocation failure. // That return value is cast to bool in the corresponding API macro. static inline void *cc_map_init_clone( void *src, size_t el_size, uint64_t layout, cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { if( cc_map_size( src ) == 0 ) // Also handles placeholder. return (void *)&cc_map_placeholder; size_t buckets_size = CC_BUCKET_SIZE( el_size, layout ) * cc_map_cap( src ); size_t metadata_offset = sizeof( cc_map_hdr_ty ) + buckets_size + CC_PADDING( buckets_size, alignof( uint16_t ) ); size_t allocation_size = metadata_offset + sizeof( uint16_t ) * ( cc_map_cap( src ) + 4 ); cc_map_hdr_ty *new_cntr = (cc_map_hdr_ty*)realloc_( NULL, allocation_size ); if( CC_UNLIKELY( !new_cntr ) ) return NULL; memcpy( new_cntr, src, allocation_size ); new_cntr->metadata = (uint16_t *)( (char *)new_cntr + metadata_offset ); return new_cntr; } // Erases all key-element pairs, calling the destructors for the key and element types if necessary, without changing // the map's capacity. static inline void cc_map_clear( void *cntr, size_t el_size, uint64_t layout, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { if( cc_map_size( cntr ) == 0 ) // Also handles placeholder. return; for( size_t bucket = 0; bucket < cc_map_cap( cntr ); ++bucket ) if( cc_map_hdr( cntr )->metadata[ bucket ] ) { if( key_dtor ) key_dtor( cc_map_key( cntr, bucket, el_size, layout ), free_ ); if( el_dtor ) el_dtor( cc_map_el( cntr, bucket, el_size, layout ), free_ ); cc_map_hdr( cntr )->metadata[ bucket ] = CC_MAP_EMPTY; } cc_map_hdr( cntr )->size = 0; } // Clears the map and frees its memory if is not a placeholder. static inline void cc_map_cleanup( void *cntr, size_t el_size, uint64_t layout, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { cc_map_clear( cntr, el_size, layout, el_dtor, key_dtor, free_ ); if( !cc_map_is_placeholder( cntr ) ) free_( cntr ); } /*--------------------------------------------------------------------------------------------------------------------*/ /* Set */ /*--------------------------------------------------------------------------------------------------------------------*/ // A set is implemented as a map where the key and element are combined into one space in memory. // Hence, it reuses the functions for map, except: // * The key offset inside the bucket is zero. // This is handled at the API-macro level via the cc_layout function and associated macros. // * The element size passed into map functions is zero in order to avoid double memcpy-ing. static inline size_t cc_set_size( void *cntr ) { return cc_map_size( cntr ); } static inline size_t cc_set_cap( void *cntr ) { return cc_map_cap( cntr ); } static inline cc_allocing_fn_result_ty cc_set_reserve( void *cntr, size_t n, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_hash_fnptr_ty hash, double max_load, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { return cc_map_reserve( cntr, n, 0 /* Zero element size */, layout, hash, max_load, realloc_, free_ ); } static inline cc_allocing_fn_result_ty cc_set_insert( void *cntr, void *key, bool replace, uint64_t layout, cc_hash_fnptr_ty hash, cc_cmpr_fnptr_ty cmpr, double max_load, cc_dtor_fnptr_ty el_dtor, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { return cc_map_insert( cntr, cntr, // Dummy pointer for element as memcpy-ing to a NULL pointer is undefined behavior even when size is zero. key, replace, 0, // Zero element size. layout, hash, cmpr, max_load, el_dtor, NULL, // Only one destructor. realloc_, free_ ); } static inline void *cc_set_get( void *cntr, void *key, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_hash_fnptr_ty hash, cc_cmpr_fnptr_ty cmpr ) { return cc_map_get( cntr, key, 0 /* Zero element size */, layout, hash, cmpr ); } static inline void *cc_set_erase_itr( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_hash_fnptr_ty hash, cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { return cc_map_erase_itr( cntr, itr, 0, // Zero element size. layout, hash, el_dtor, NULL, // Only one destructor. free_ ); } static inline void *cc_set_erase( void *cntr, void *key, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_hash_fnptr_ty hash, cc_cmpr_fnptr_ty cmpr, cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { return cc_map_erase( cntr, key, 0, // Zero element size. layout, hash, cmpr, el_dtor, NULL, // Only one destructor. free_ ); } static inline cc_allocing_fn_result_ty cc_set_shrink( void *cntr, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_hash_fnptr_ty hash, double max_load, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { return cc_map_shrink( cntr, 0 /* Zero element size */, layout, hash, max_load, realloc_, free_ ); } static inline void *cc_set_init_clone( void *src, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { return cc_map_init_clone( src, 0 /* Zero element size */, layout, realloc_, NULL /* Dummy */ ); } static inline void cc_set_clear( void *cntr, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { cc_map_clear( cntr, 0 /* Zero element size */, layout, el_dtor, NULL /* Only one destructor */, free_ ); } static inline void cc_set_cleanup( void *cntr, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { cc_map_cleanup( cntr, 0 /* Zero element size */, layout, el_dtor, NULL /* Only one destructor */, free_ ); } // DEPRECATED. static inline void *cc_set_r_end( void *cntr ) { return cc_map_r_end( cntr ); } static inline void *cc_set_end( void *cntr, CC_UNUSED( size_t, el_size ), uint64_t layout ) { return cc_map_end( cntr, 0 /* Zero element size */, layout ); } static inline void *cc_set_first( void *cntr, CC_UNUSED( size_t, el_size ), uint64_t layout ) { return cc_map_first( cntr, 0 /* Zero element size */, layout ); } // DEPRECATED. static inline void *cc_set_last( void *cntr, CC_UNUSED( size_t, el_size ), uint64_t layout ) { return cc_map_last( cntr, 0 /* Zero element size */, layout ); } // DEPRECATED. static inline void *cc_set_prev( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), uint64_t layout ) { return cc_map_prev( cntr, itr, 0 /* Zero element size */, layout ); } static inline void *cc_set_next( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), uint64_t layout ) { return cc_map_next( cntr, itr, 0 /* Zero element size */, layout ); } /*--------------------------------------------------------------------------------------------------------------------*/ /* Ordered map */ /*--------------------------------------------------------------------------------------------------------------------*/ // cc_omap is implemented as a red-black tree. The implementation is partially based on Thomas Niemann's canonical // public-domain implementation, which is available at https://www.darkridge.com/~jpr5/mirror/alg/node21.html and has // been incorporated into PostgreSQL. However, it differs from Niemann's in several important ways: // // * It uses an array of two child pointers, rather than separate left and right child pointers. This allows us to // eliminate much repetitive code, especially in the post-insert and post-erase fix-up functions. // * Niemann's implementation of erasure may write to the sentinel node's parent pointer. Consequently, in // multi-threaded applications, either the sentinel must be declared as a thread-local variable or a separate sentinel // must be embedded into every tree, padding out the header struct. Instead, we use a global sentinel node per // translation unit. This choice requires, in particular, significant changes to the erase and post-erase fix-up // functions. // * Niemann's implementation of erasure may also overwrite the key stored by the target node with the key stored by its // in-order successor and delete the latter node. This invalidates any external pointers to the in-order successor. // Instead, we supplant the in-order successor into the position of the node targeted for erasure. // Node header. typedef struct cc_omapnode_hdr_ty { alignas( cc_max_align_ty ) bool is_red; struct cc_omapnode_hdr_ty *parent; struct cc_omapnode_hdr_ty *children[ 2 ]; } cc_omapnode_hdr_ty; // Ordered map header. typedef struct { size_t size; // SIZE_MAX, combined with a NULL root, indicates a placeholder. cc_omapnode_hdr_ty *root; cc_omapnode_hdr_ty *sentinel; } cc_omap_hdr_ty; // Global sentinel node. // The beginning and end of the sentinel also serve as r_end and end, respectively. static const cc_omapnode_hdr_ty cc_omap_sentinel = { false, NULL, { NULL, NULL } }; // Global placeholder for an ordered map with no allocated header. // This placeholder allows us to avoid checking for a NULL container handle inside functions. static const cc_omap_hdr_ty cc_omap_placeholder = { SIZE_MAX, (cc_omapnode_hdr_ty *)&cc_omap_sentinel, (cc_omapnode_hdr_ty *)&cc_omap_sentinel }; // Easy access to the ordered map header. static inline cc_omap_hdr_ty *cc_omap_hdr( void *cntr ) { return (cc_omap_hdr_ty *)cntr; } // Easy access to an ordered map node header from a pointer-iterator. static inline cc_omapnode_hdr_ty *cc_omapnode_hdr( void *itr ) { return (cc_omapnode_hdr_ty *)( (char *)itr - sizeof( cc_omapnode_hdr_ty ) ); } static inline bool cc_omap_is_placeholder( void *cntr ) { if( cc_omap_hdr( cntr )->size == SIZE_MAX && cc_omap_hdr( cntr )->root == cc_omap_hdr( cntr )->sentinel ) return true; return false; } // Easy access to a pointer-iterator from a pointer to an ordered map node header. static inline void *cc_omap_el( void *hdr ) { return (char *)hdr + sizeof( cc_omapnode_hdr_ty ); } // Easy access to a key from a pointer to an ordered map node header. static inline void *cc_omap_key( void *hdr, size_t el_size, uint64_t layout ) { return (char *)hdr + sizeof( cc_omapnode_hdr_ty ) + CC_KEY_OFFSET( el_size, layout ); } static inline void *cc_omap_key_for( void *itr, size_t el_size, uint64_t layout ) { return (char *)itr + CC_KEY_OFFSET( el_size, layout ); } static inline size_t cc_omap_size( void *cntr ) { // Special case: If the header is a placeholder, the size member will be SIZE_MAX. if( cc_omap_is_placeholder( cntr ) ) return 0; return cc_omap_hdr( cntr )->size; } // An r_end pointer-iterator points to the sentinel. // An end pointer-iterator points to the end of the sentinel. static inline void *cc_omap_r_end_or_end( void *cntr, bool dir ) { return cc_omap_hdr( cntr )->sentinel + dir; } static inline void *cc_omap_r_end( void *cntr ) { return cc_omap_r_end_or_end( cntr, false ); } static inline void *cc_omap_end( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_r_end_or_end( cntr, true ); } static inline void *cc_omap_first_or_last( void *cntr, bool dir ) { cc_omapnode_hdr_ty *node = cc_omap_hdr( cntr )->root; if( node == cc_omap_hdr( cntr )->sentinel ) return cc_omap_hdr( cntr )->sentinel + dir; while( node->children[ !dir ] != cc_omap_hdr( cntr )->sentinel ) node = node->children[ !dir ]; return cc_omap_el( node ); } static inline void *cc_omap_first( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_first_or_last( cntr, true ); } static inline void *cc_omap_last( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_first_or_last( cntr, false ); } static inline void *cc_omap_iterate( void *cntr, void *itr, bool dir ) { // Handle the case of an end or r_end iterator. if( itr == cc_omap_r_end_or_end( cntr, !dir ) ) return cc_omap_first_or_last( cntr, dir ); cc_omapnode_hdr_ty *node = cc_omapnode_hdr( itr ); if( node->children[ dir ] != cc_omap_hdr( cntr )->sentinel ) { node = node->children[ dir ]; while( node->children[ !dir ] != cc_omap_hdr( cntr )->sentinel ) node = node->children[ !dir ]; return cc_omap_el( node ); } while( node->parent != cc_omap_hdr( cntr )->sentinel ) { if( node->parent->children[ !dir ] == node ) return cc_omap_el( node->parent ); node = node->parent; } return cc_omap_r_end_or_end( cntr, dir ); } static inline void *cc_omap_prev( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_iterate( cntr, itr, false ); } static inline void *cc_omap_next( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_iterate( cntr, itr, true ); } // Allocates a header for an ordered map that is currently a placeholder. // Returns the new container handle, or NULL in the case of allocation failure. static inline void *cc_omap_alloc_hdr( void *cntr, cc_realloc_fnptr_ty realloc_ ) { cc_omap_hdr_ty *new_cntr = (cc_omap_hdr_ty *)realloc_( NULL, sizeof( cc_omap_hdr_ty ) ); if( CC_UNLIKELY( !new_cntr ) ) return NULL; new_cntr->size = 0; new_cntr->root = cc_omap_hdr( cntr )->sentinel;; // Link the new header's sentinel with the sentinel associated new_cntr->sentinel = cc_omap_hdr( cntr )->sentinel; // with the placeholder. // This ensures that the end and r_end iterator-pointers remain // stable in the transition from a placeholder to a real header. return new_cntr; } // Standard binary search tree rotation. static inline void cc_omap_rotate( void *cntr, cc_omapnode_hdr_ty *node, bool dir ) { cc_omapnode_hdr_ty *child = node->children[ !dir ]; node->children[ !dir ] = child->children[ dir ]; if( child->children[ dir ] != cc_omap_hdr( cntr )->sentinel ) child->children[ dir ]->parent = node; if( child != cc_omap_hdr( cntr )->sentinel ) child->parent = node->parent; if( node->parent != cc_omap_hdr( cntr )->sentinel ) node->parent->children[ node == node->parent->children[ 1 ] ] = child; else cc_omap_hdr( cntr )->root = child; child->children[ dir ] = node; if( node != cc_omap_hdr( cntr )->sentinel ) node->parent = child; } // Post-insert fix-up function to restore the red-black tree balance. static inline void cc_omap_post_insert_fixup( void *cntr, cc_omapnode_hdr_ty *node ) { while( node != cc_omap_hdr( cntr )->root && node->parent->is_red ) { bool dir = node->parent == node->parent->parent->children[ 0 ]; cc_omapnode_hdr_ty *uncle = node->parent->parent->children[ dir ]; if( uncle->is_red ) { node->parent->is_red = false; uncle->is_red = false; node->parent->parent->is_red = true; node = node->parent->parent; } else { if( node == node->parent->children[ dir ] ) { node = node->parent; cc_omap_rotate( cntr, node, !dir ); } node->parent->is_red = false; node->parent->parent->is_red = true; cc_omap_rotate( cntr, node->parent->parent, dir ); } } cc_omap_hdr( cntr )->root->is_red = false; } // Inserts a key-element pair into the ordered map, optionally replacing the existing key-element pair containing the // same key if it exists. // If replace is true, the function returns a cc_allocing_fn_result_ty containing the new container handle and a // pointer-iterator to the newly inserted element (or NULL in the case of allocation failure). // If replace is false, then the return value is as described above, except that if the key already exists, the // pointer-iterator returned points to the associated element. static inline cc_allocing_fn_result_ty cc_omap_insert( void *cntr, void *el, void *key, bool replace, size_t el_size, uint64_t layout, CC_UNUSED( cc_hash_fnptr_ty, hash ), cc_cmpr_fnptr_ty cmpr, CC_UNUSED( double, max_load ), cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { // Allocate a header if necessary. if( cc_omap_is_placeholder( cntr ) ) { void *new_cntr = cc_omap_alloc_hdr( cntr, realloc_ ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); cntr = new_cntr; } // Find the node with the same key, or the parent of the node to be created. cc_omapnode_hdr_ty *node = cc_omap_hdr( cntr )->root; cc_omapnode_hdr_ty *parent = cc_omap_hdr( cntr )->sentinel; int cmpr_result = 0; // This initialization is redundant, but it silences a GCC warning when cmpr_result is used after // the loop below to determine whether the new node should be its parent's left or right child. // In reality, if that determination occurs, then cmpr_result was set inside the loop. while( node != cc_omap_hdr( cntr )->sentinel ) { cmpr_result = cmpr( key, cc_omap_key( node, el_size, layout ) ); // Matching key. if( cmpr_result == 0 ) { if( replace ) { if( key_dtor ) key_dtor( cc_omap_key( node, el_size, layout ), free_ ); if( el_dtor ) el_dtor( cc_omap_el( node ), free_ ); memcpy( cc_omap_key( node, el_size, layout ), key, CC_KEY_SIZE( layout ) ); memcpy( cc_omap_el( node ), el, el_size ); } return cc_make_allocing_fn_result( cntr, cc_omap_el( node ) ); } parent = node; node = node->children[ cmpr_result > 0 ]; } // Allocate and insert the new node. cc_omapnode_hdr_ty *new_node = (cc_omapnode_hdr_ty *)realloc_( NULL, sizeof( cc_omapnode_hdr_ty ) + CC_BUCKET_SIZE( el_size, layout ) ); if( CC_UNLIKELY( !new_node ) ) return cc_make_allocing_fn_result( cntr, NULL ); new_node->parent = parent; new_node->children[ 0 ] = cc_omap_hdr( cntr )->sentinel; new_node->children[ 1 ] = cc_omap_hdr( cntr )->sentinel; new_node->is_red = true; memcpy( cc_omap_key( new_node, el_size, layout ), key, CC_KEY_SIZE( layout ) ); memcpy( cc_omap_el( new_node ), el, el_size ); if( parent != cc_omap_hdr( cntr )->sentinel ) parent->children[ cmpr_result > 0 ] = new_node; else cc_omap_hdr( cntr )->root = new_node; cc_omap_post_insert_fixup( cntr, new_node ); ++cc_omap_hdr( cntr )->size; return cc_make_allocing_fn_result( cntr, cc_omap_el( new_node ) ); } // Standard binary search tree lookup. static inline void *cc_omap_get( void *cntr, void *key, size_t el_size, uint64_t layout, CC_UNUSED( cc_hash_fnptr_ty, hash ), cc_cmpr_fnptr_ty cmpr ) { cc_omapnode_hdr_ty *node = cc_omap_hdr( cntr )->root; while( node != cc_omap_hdr( cntr )->sentinel ) { int cmpr_result = cmpr( key, cc_omap_key( node, el_size, layout ) ); if( cmpr_result == 0 ) return cc_omap_el( node ); else node = node->children[ cmpr_result > 0 ]; } return NULL; } // If dir is true, this function returns a pointer-iterator to the first element with a key greater than or equal to the // specified key, or an end pointer-iterator if no such element exists. // If dir is false, then the returned pointer-iterator is the last element with a key less than or equal to the // specified key, or an r_end pointer-iterator if no such element exists. // This function is the basis of the cc_first and cc_last API macros when overloaded with two arguments. static inline void *cc_omap_bounded_first_or_last( void *cntr, void *key, bool dir, size_t el_size, uint64_t layout, cc_cmpr_fnptr_ty cmpr ) { cc_omapnode_hdr_ty *node = cc_omap_hdr( cntr )->root; void *result = cc_omap_r_end_or_end( cntr, dir ); while( node != cc_omap_hdr( cntr )->sentinel ) { int cmpr_result = cmpr( cc_omap_key( node, el_size, layout ), key ); if( cmpr_result == 0 ) return cc_omap_el( node ); if( ( cmpr_result > 0 ) == dir ) result = cc_omap_el( node ); node = node->children[ cmpr_result < 0 ]; } return result; } // Post-erase fix-up function to restore the red-black tree balance. // Niemann's implementation of this function assumes that if the starting node is a sentinel, its parent pointer has // been temporarily set to point to the appropriate parent. // Since we never write to the sentinel, we instead pass the initial parent into the function via a parameter. static inline void cc_omap_post_erase_fixup( void *cntr, cc_omapnode_hdr_ty *node, cc_omapnode_hdr_ty *parent ) { while( node != cc_omap_hdr( cntr )->root && !node->is_red ) { bool dir = ( node == parent->children[ 0 ] ); cc_omapnode_hdr_ty *sibling = parent->children[ dir ]; if( sibling->is_red ) { sibling->is_red = false; parent->is_red = true; cc_omap_rotate( cntr, parent, !dir ); sibling = parent->children[ dir ]; } if( !sibling->children[ 0 ]->is_red && !sibling->children[ 1 ]->is_red ) { sibling->is_red = true; node = parent; parent = node->parent; // At this point, node can no longer be a sentinel, so we can use its parent pointer. } else { if( !sibling->children[ dir ]->is_red ) { sibling->children[ !dir ]->is_red = false; sibling->is_red = true; cc_omap_rotate( cntr, sibling, dir ); sibling = parent->children[ dir ]; } sibling->is_red = parent->is_red; parent->is_red = false; sibling->children[ dir ]->is_red = false; cc_omap_rotate( cntr, parent, !dir ); node = cc_omap_hdr( cntr )->root; } } if( node != cc_omap_hdr( cntr )->sentinel ) node->is_red = false; } // Erases the key-element pair denoted by node. static inline void cc_omap_erase_raw( void *cntr, cc_omapnode_hdr_ty *node, size_t el_size, uint64_t layout, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { cc_omapnode_hdr_ty *to_detach; if( node->children[ 0 ] == cc_omap_hdr( cntr )->sentinel || node->children[ 1 ] == cc_omap_hdr( cntr )->sentinel ) to_detach = node; else { to_detach = node->children[ 1 ]; while( to_detach->children[ 0 ] != cc_omap_hdr( cntr )->sentinel ) to_detach = to_detach->children[ 0 ]; } cc_omapnode_hdr_ty *child = to_detach->children[ to_detach->children[ 0 ] == cc_omap_hdr( cntr )->sentinel ]; if( child != cc_omap_hdr( cntr )->sentinel ) child->parent = to_detach->parent; if( to_detach->parent != cc_omap_hdr( cntr )->sentinel ) to_detach->parent->children[ to_detach == to_detach->parent->children[ 1 ] ] = child; else cc_omap_hdr( cntr )->root = child; if( !to_detach->is_red ) cc_omap_post_erase_fixup( cntr, child, to_detach->parent ); // Since child's parent pointer will be invalid if // child is a sentinel, we must pass child's // theoretical parent into the fix-up function. // Here, most red-black tree implementations, including Niemann's, copy the data stored by to_detach into node and // then free to_detach. // Instead, we supplant to_detach into node's position and then free node. // This prevents the invalidation of any external pointer-iterators pointing to to_detach. if( to_detach != node ) { to_detach->parent = node->parent; to_detach->children[ 0 ] = node->children[ 0 ]; to_detach->children[ 1 ] = node->children[ 1 ]; if( node->parent != cc_omap_hdr( cntr )->sentinel ) node->parent->children[ node->parent->children[ 1 ] == node ] = to_detach; else cc_omap_hdr( cntr )->root = to_detach; if( node->children[ 0 ] != cc_omap_hdr( cntr )->sentinel ) node->children[ 0 ]->parent = to_detach; if( node->children[ 1 ] != cc_omap_hdr( cntr )->sentinel ) node->children[ 1 ]->parent = to_detach; to_detach->is_red = node->is_red; } if( key_dtor ) key_dtor( cc_omap_key( node, el_size, layout ), free_ ); if( el_dtor ) el_dtor( cc_omap_el( node ), free_ ); free_( node ); --cc_omap_hdr( cntr )->size; } // Erases the key-element pair containing the specified key, if it exists. // Returns a pointer that evaluates to true if a key-element pair was erased, or else NULL. // This pointer is eventually cast to bool by the cc_erase API macro. static inline void *cc_omap_erase( void *cntr, void *key, size_t el_size, uint64_t layout, CC_UNUSED( cc_hash_fnptr_ty, hash ), cc_cmpr_fnptr_ty cmpr, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { void *itr = cc_omap_get( cntr, key, el_size, layout, NULL /* Dummy */, cmpr ); if( !itr ) return NULL; cc_omap_erase_raw( cntr, cc_omapnode_hdr( itr ), el_size, layout, el_dtor, key_dtor, free_ ); return &cc_dummy_true; } // Erases the key-element pair pointed to by itr and returns a pointer-iterator to the next key-element pair in the // tree. // This function must be inlined to ensure that the compiler optimizes away the cc_omap_next call if the returned // pointer-iterator is discarded. static inline CC_ALWAYS_INLINE void *cc_omap_erase_itr( void *cntr, void *itr, size_t el_size, uint64_t layout, CC_UNUSED( cc_hash_fnptr_ty, hash ), cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { void *next = cc_omap_next( cntr, itr, 0 /* Dummy */, 0 /* Dummy */ ); cc_omap_erase_raw( cntr, cc_omapnode_hdr( itr ), el_size, layout, el_dtor, key_dtor, free_ ); return next; } // Erases all key-element pairs, calling the destructors for the key and element types if necessary. static inline void cc_omap_clear( void *cntr, size_t el_size, uint64_t layout, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { cc_omapnode_hdr_ty *node = cc_omap_hdr( cntr )->root; while( node != cc_omap_hdr( cntr )->sentinel ) { cc_omapnode_hdr_ty *next; if( node->children[ 0 ] != cc_omap_hdr( cntr )->sentinel ) { next = node->children[ 0 ]; node->children[ 0 ] = cc_omap_hdr( cntr )->sentinel; } else if( node->children[ 1 ] != cc_omap_hdr( cntr )->sentinel ) { next = node->children[ 1 ]; node->children[ 1 ] = cc_omap_hdr( cntr )->sentinel; } else { next = node->parent; if( key_dtor ) key_dtor( cc_omap_key( node, el_size, layout ), free_ ); if( el_dtor ) el_dtor( cc_omap_el( node ), free_ ); free_( node ); } node = next; } if( !cc_omap_is_placeholder( cntr ) ) { cc_omap_hdr( cntr )->size = 0; cc_omap_hdr( cntr )->root = cc_omap_hdr( cntr )->sentinel; } } // Erases all key-element pairs, calling their destructors if necessary, and frees the memory for the ordered map's // header if it is not a placeholder. static inline void cc_omap_cleanup( void *cntr, size_t el_size, uint64_t layout, cc_dtor_fnptr_ty el_dtor, cc_dtor_fnptr_ty key_dtor, cc_free_fnptr_ty free_ ) { cc_omap_clear( cntr, el_size, layout, el_dtor, key_dtor, free_ ); if( !cc_omap_is_placeholder( cntr ) ) free_( cntr ); } // Initializes a shallow copy of the source ordered map. // The return value is cast to bool in the corresponding macro. static inline void *cc_omap_init_clone( void *src, size_t el_size, uint64_t layout, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { if( cc_omap_size( src ) == 0 ) // Also handles placeholder. return (void *)&cc_omap_placeholder; // Create a header. cc_omap_hdr_ty *new_cntr = (cc_omap_hdr_ty *)realloc_( NULL, sizeof( cc_omap_hdr_ty ) ); if( CC_UNLIKELY( !new_cntr ) ) return NULL; new_cntr->sentinel = (cc_omapnode_hdr_ty *)&cc_omap_sentinel; // Clone the root node. new_cntr->root = (cc_omapnode_hdr_ty *)realloc_( NULL, sizeof( cc_omapnode_hdr_ty ) + CC_BUCKET_SIZE( el_size, layout ) ); if( CC_UNLIKELY( !new_cntr->root ) ) { free_( new_cntr ); return NULL; } new_cntr->root->is_red = false; new_cntr->root->parent = cc_omap_hdr( new_cntr )->sentinel; new_cntr->root->children[ 0 ] = cc_omap_hdr( new_cntr )->sentinel; new_cntr->root->children[ 1 ] = cc_omap_hdr( new_cntr )->sentinel; memcpy( cc_omap_el( new_cntr->root ), cc_omap_el( cc_omap_hdr( src )->root ), CC_BUCKET_SIZE( el_size, layout ) ); // Clone every non-root node iteratively. cc_omapnode_hdr_ty *src_node = cc_omap_hdr( src )->root; cc_omapnode_hdr_ty *new_node = new_cntr->root; while( src_node != cc_omap_hdr( src )->sentinel ) { int dir; for( dir = 0; dir < 2; ++dir ) if( src_node->children[ dir ] != cc_omap_hdr( src )->sentinel && new_node->children[ dir ] == new_cntr->sentinel ) break; if( dir == 2 ) { src_node = src_node->parent; new_node = new_node->parent; continue; } new_node->children[ dir ] = (cc_omapnode_hdr_ty *)realloc_( NULL, sizeof( cc_omapnode_hdr_ty ) + CC_BUCKET_SIZE( el_size, layout ) ); if( !new_node->children[ dir ] ) { // Free the partially formed clone tree without calling destructors. new_node->children[ dir ] = new_cntr->sentinel; cc_omap_cleanup( new_cntr, el_size, layout, NULL /* No destructor */, NULL /* No destructor */, free_ ); return NULL; } new_node->children[ dir ]->parent = new_node; new_node->children[ dir ]->children[ 0 ] = new_cntr->sentinel; new_node->children[ dir ]->children[ 1 ] = new_cntr->sentinel; new_node->children[ dir ]->is_red = src_node->children[ dir ]->is_red; memcpy( cc_omap_el( new_node->children[ dir ] ), cc_omap_el( src_node->children[ dir ] ), CC_BUCKET_SIZE( el_size, layout ) ); src_node = src_node->children[ dir ]; new_node = new_node->children[ dir ]; } new_cntr->size = cc_omap_hdr( src )->size; return new_cntr; } /*--------------------------------------------------------------------------------------------------------------------*/ /* Ordered set */ /*--------------------------------------------------------------------------------------------------------------------*/ // An ordered set is implemented as an ordered map where the key and element are combined into one space in memory. // Hence, it reuses the functions for omap, except: // * The key offset inside the bucket is zero. // This is handled at the API-macro level via the cc_layout function and associated macros. // * The element size passed into map functions is zero in order to avoid double memcpy-ing. static inline size_t cc_oset_size( void *cntr ) { return cc_omap_size( cntr ); } static inline cc_allocing_fn_result_ty cc_oset_insert( void *cntr, void *key, bool replace, uint64_t layout, CC_UNUSED( cc_hash_fnptr_ty, hash ), cc_cmpr_fnptr_ty cmpr, CC_UNUSED( double, max_load ), cc_dtor_fnptr_ty el_dtor, cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { return cc_omap_insert( cntr, cntr, // Dummy pointer for element as memcpy-ing to a NULL pointer is undefined behavior even when size is zero. key, replace, 0, // Zero element size. layout, NULL, // Dummy. cmpr, 0.0, // Dummy. el_dtor, NULL, // Only one destructor. realloc_, NULL // Dummy. ); } static inline void *cc_oset_get( void *cntr, void *key, CC_UNUSED( size_t, el_size ), uint64_t layout, CC_UNUSED( cc_hash_fnptr_ty, hash ), cc_cmpr_fnptr_ty cmpr ) { return cc_omap_get( cntr, key, 0 /* Zero element size */, layout, NULL /* Dummy */, cmpr ); } static inline void *cc_oset_bounded_first_or_last( void *cntr, void *key, bool dir, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_cmpr_fnptr_ty cmpr ) { return cc_omap_bounded_first_or_last( cntr, key, dir, 0 /* Zero element size */, layout, cmpr ); } static inline void *cc_oset_erase_itr( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), uint64_t layout, CC_UNUSED( cc_hash_fnptr_ty, hash ), cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { return cc_omap_erase_itr( cntr, itr, 0, // Zero element size. layout, NULL, // Dummy. el_dtor, NULL, // Only one destructor. free_ ); } static inline void *cc_oset_erase( void *cntr, void *key, CC_UNUSED( size_t, el_size ), uint64_t layout, CC_UNUSED( cc_hash_fnptr_ty, hash ), cc_cmpr_fnptr_ty cmpr, cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { return cc_omap_erase( cntr, key, 0, // Zero element size. layout, NULL, // Dummy. cmpr, el_dtor, NULL, // Only one destructor. free_ ); } static inline void *cc_oset_init_clone( void *src, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { return cc_omap_init_clone( src, 0 /* Zero element size */, layout, realloc_, free_ ); } static inline void cc_oset_clear( void *cntr, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { cc_omap_clear( cntr, 0 /* Zero element size */, layout, el_dtor, NULL /* Only one destructor */, free_ ); } static inline void cc_oset_cleanup( void *cntr, CC_UNUSED( size_t, el_size ), uint64_t layout, cc_dtor_fnptr_ty el_dtor, CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { cc_omap_cleanup( cntr, 0 /* Zero element size */, layout, el_dtor, NULL /* Only one destructor */, free_ ); } static inline void *cc_oset_r_end( void *cntr ) { return cc_omap_r_end( cntr ); } static inline void *cc_oset_end( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_end( cntr, 0 /* Zero element size */, 0 /* Dummy */ ); } static inline void *cc_oset_first( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_first( cntr, 0 /* Zero element size */, 0 /* Dummy */ ); } static inline void *cc_oset_last( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_last( cntr, 0 /* Zero element size */, 0 /* Dummy */ ); } static inline void *cc_oset_prev( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_prev( cntr, itr, 0 /* Zero element size */, 0 /* Dummy */ ); } static inline void *cc_oset_next( void *cntr, void *itr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return cc_omap_next( cntr, itr, 0 /* Zero element size */, 0 /* Dummy */ ); } /*--------------------------------------------------------------------------------------------------------------------*/ /* String */ /*--------------------------------------------------------------------------------------------------------------------*/ // cc_str is based largely on the implementation of cc_vec. However, besides null-termination, there are some other // major differences: // * cc_str's header contains a pointer to its data buffer. Usually, this pointer simply points to the end of the header // inside the same memory allocation. However, in the case of a temporary string constructed by the library for the // purpose of heterogeneous lookup in associative containers, the pointer points to a separate buffer supplied by the // user. This approach avoids unnecessary allocations at the expense of a slightly larger header struct. // * cc_str never calls destructors on its elements. This choice allows cc_str itself to have a default destructor so // that it can easily be used as the key or element type of other containers. // * cc_str includes formatted push and insertion functions for easy string building. // String header. typedef struct { alignas( alignof( char32_t ) > alignof( size_t ) ? alignof( char32_t ) : alignof( size_t ) ) size_t size; size_t cap; void *data; } cc_str_hdr_ty; // Global placeholders for strings with no allocated storage. // To avoid any strict-aliasing violations, we need specialized placeholders for different element types. #if defined( __cplusplus ) && __cplusplus >= 202101L static const cc_str_hdr_ty cc_str_placeholder_char8 = { 0, 0, (void *)u8"" }; #else static const cc_str_hdr_ty cc_str_placeholder_char8 = { 0, 0, (void *)"" }; #endif static const cc_str_hdr_ty cc_str_placeholder_char16 = { 0, 0, (void *)u"" }; static const cc_str_hdr_ty cc_str_placeholder_char32 = { 0, 0, (void *)U"" }; // CC_STR_PLACEHOLDER macro for obtaining the correct placeholder. #ifdef __cplusplus #define CC_STR_PLACEHOLDER( ty ) \ ( \ std::is_same<ty, char16_t>::value ? (void *)&cc_str_placeholder_char16 : \ std::is_same<ty, char32_t>::value ? (void *)&cc_str_placeholder_char32 : \ /* char, unsigned char, signed char, and char8_t: */ \ (void *)&cc_str_placeholder_char8 \ ) \ #else #define CC_STR_PLACEHOLDER( ty ) \ _Generic( (ty){ 0 }, \ char16_t: &cc_str_placeholder_char16, \ char32_t: &cc_str_placeholder_char32, \ /* char, unsigned char, signed char, and char8_t: */ \ default: &cc_str_placeholder_char8 \ ) \ #endif // Easy header access function. static inline cc_str_hdr_ty *cc_str_hdr( void *cntr ) { return (cc_str_hdr_ty *)cntr; } static inline size_t cc_str_size( void *cntr ) { return cc_str_hdr( cntr )->size; } static inline size_t cc_str_cap( void *cntr ) { return cc_str_hdr( cntr )->cap; } static inline bool cc_str_is_placeholder( void *cntr ) { return cc_str_hdr( cntr )->cap == 0; } // Returns a pointer-iterator to the element at a specified index. static inline void *cc_str_get( void *cntr, void *key, // Pointer to a size_t index. size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( cc_cmpr_fnptr_ty, cmpr ) ) { return (char *)cc_str_hdr( cntr )->data + el_size * *(size_t *)key; } // Ensures that the capacity is large enough to accommodate n elements without reallocation. // Returns a cc_allocing_fn_result_ty containing the new handle and a pointer that evaluates to true if the operation // was successful. static inline cc_allocing_fn_result_ty cc_str_reserve( void *cntr, size_t n, size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( double, max_load ), cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { if( cc_str_cap( cntr ) >= n ) return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); bool is_placeholder = cc_str_is_placeholder( cntr ); cc_str_hdr_ty *new_cntr = (cc_str_hdr_ty *)realloc_( is_placeholder ? NULL : cntr, sizeof( cc_str_hdr_ty ) + el_size * n + el_size // Terminator. ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); new_cntr->data = new_cntr + 1; // Set the internal pointer to point to the end of the header. if( is_placeholder ) { new_cntr->size = 0; memset( new_cntr->data, 0, el_size ); // Ensure null termination. } new_cntr->cap = n; return cc_make_allocing_fn_result( new_cntr, cc_dummy_true_ptr ); } // Inserts elements at the specified index. // Returns a cc_allocing_fn_result_ty containing the new handle and a pointer-iterator to the newly inserted elements. // If the underlying storage needed to be expanded and an allocation failure occurred, or if n is zero, the latter // pointer will be NULL. static inline cc_allocing_fn_result_ty cc_str_insert_n( void *cntr, size_t index, const void *els, size_t n, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { if( n == 0 ) return cc_make_allocing_fn_result( cntr, NULL ); if( cc_str_size( cntr ) + n > cc_str_cap( cntr ) ) { size_t cap = cc_str_cap( cntr ); if( !cap ) cap = 2; while( cap < cc_str_size( cntr ) + n ) cap *= 2; cc_allocing_fn_result_ty result = cc_str_reserve( cntr, cap, el_size, 0, // Dummy. NULL, // Dummy. 0.0, // Dummy. realloc_, NULL // Dummy. ); if( CC_UNLIKELY( !result.other_ptr ) ) return result; cntr = result.new_cntr; } char *new_els = (char *)cc_str_hdr( cntr )->data + el_size * index; memmove( new_els + n * el_size, new_els, el_size * ( cc_str_hdr( cntr )->size - index ) + el_size /* Terminator */ ); memcpy( new_els, els, el_size * n ); cc_str_hdr( cntr )->size += n; return cc_make_allocing_fn_result( cntr, new_els ); } static inline cc_allocing_fn_result_ty cc_str_insert( void *cntr, void *el, void *key, // Pointer to size_t index. CC_UNUSED( bool, replace ), size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( cc_cmpr_fnptr_ty, cmpr ), CC_UNUSED( double, max_load ), CC_UNUSED( cc_dtor_fnptr_ty, el_dtor ), CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { return cc_str_insert_n( cntr, *(size_t *)key, el, 1, el_size, realloc_ ); } static inline cc_allocing_fn_result_ty cc_str_push_n( void *cntr, const void *els, size_t n, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { return cc_str_insert_n( cntr, cc_str_size( cntr ), els, n, el_size, realloc_ ); } static inline cc_allocing_fn_result_ty cc_str_push( void *cntr, void *el, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { return cc_str_push_n( cntr, el, 1, el_size, realloc_ ); } // Generic formatted insertion into strings requires that each argument provided to cc_str_insert_wrapped_fmt_args be // wrapped in a tagged union (cc_wrapped_str_fmt_arg_ty). // Format mode-modifying functions also return the same tagged-union type so that they can be passed in alongside other // insertion arguments. #define CC_STR_FMT_ARG_UNSIGNED_INTEGER 0 #define CC_STR_FMT_ARG_INTEGER 1 #define CC_STR_FMT_ARG_FLOATING 2 #define CC_STR_FMT_ARG_C_STRING 3 #define CC_STR_FMT_ARG_STR 4 #define CC_STR_FMT_ARG_VOID_POINTER 5 #define CC_STR_FMT_ARG_MODE_INTEGER_DEC 6 #define CC_STR_FMT_ARG_MODE_INTEGER_HEX 7 #define CC_STR_FMT_ARG_MODE_INTEGER_OCT 8 #define CC_STR_FMT_ARG_MODE_FLOATING_DEC 9 #define CC_STR_FMT_ARG_MODE_FLOATING_HEX 10 #define CC_STR_FMT_ARG_MODE_FLOATING_SCI 11 #define CC_STR_FMT_ARG_MODE_FLOATING_SHORTEST 12 typedef struct { unsigned char type; bool is_final; size_t formatted_length; union { unsigned long long unsigned_integer; long long integer; double floating; const void *pointer; }; } cc_wrapped_str_fmt_arg_ty; // CC_WRAP_STR_FMT_ARG macro to wrap an argument to be formatted and inserted into a string in a tagged union also // indicating the argument type and whether or not it is the final argument. // This macro also handles the type promotions described in the string API documentation for cc_push_fmt and // cc_insert_fmt. // In C++, the wrapping is achieved via template functions. // In C, we use a _Generic expression to dispatch the argument to the correct wrapping function. #ifdef __cplusplus template< typename el_ty, typename arg_ty, typename std::enable_if<std::is_integral<arg_ty>::value && std::is_unsigned<arg_ty>::value, bool>::type = true > cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg( arg_ty arg, bool is_final ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_UNSIGNED_INTEGER; wrapped_arg.is_final = is_final; wrapped_arg.formatted_length = 0; wrapped_arg.unsigned_integer = arg; return wrapped_arg; } template< typename el_ty, typename arg_ty, typename std::enable_if<std::is_integral<arg_ty>::value && std::is_signed<arg_ty>::value, bool>::type = true > cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg( arg_ty arg, bool is_final ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_INTEGER; wrapped_arg.is_final = is_final; wrapped_arg.formatted_length = 0; wrapped_arg.integer = arg; return wrapped_arg; } template< typename el_ty, typename arg_ty, typename std::enable_if<std::is_floating_point<arg_ty>::value, bool>::type = true > cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg( arg_ty arg, bool is_final ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_FLOATING; wrapped_arg.is_final = is_final; wrapped_arg.formatted_length = 0; wrapped_arg.floating = arg; return wrapped_arg; } template< typename el_ty, typename arg_ty, typename std::enable_if< ( std::is_same<el_ty, char>::value && std::is_same<arg_ty, char *>::value) || ( std::is_same<el_ty, char>::value && std::is_same<arg_ty, const char *>::value) || ( std::is_same<el_ty, unsigned char>::value && std::is_same<arg_ty, unsigned char *>::value ) || ( std::is_same<el_ty, unsigned char>::value && std::is_same<arg_ty, const unsigned char *>::value ) || ( std::is_same<el_ty, signed char>::value && std::is_same<arg_ty, signed char *>::value ) || ( std::is_same<el_ty, signed char>::value && std::is_same<arg_ty, const signed char *>::value ) || #if __cplusplus >= 202101L ( std::is_same<el_ty, char8_t>::value && std::is_same<arg_ty, char8_t *>::value ) || ( std::is_same<el_ty, char8_t>::value && std::is_same<arg_ty, const char8_t *>::value ) || #endif ( std::is_same<el_ty, char16_t>::value && std::is_same<arg_ty, char16_t *>::value ) || ( std::is_same<el_ty, char16_t>::value && std::is_same<arg_ty, const char16_t *>::value ) || ( std::is_same<el_ty, char32_t>::value && std::is_same<arg_ty, char32_t *>::value ) || ( std::is_same<el_ty, char32_t>::value && std::is_same<arg_ty, const char32_t *>::value ) , bool>::type = true > cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg( arg_ty arg, bool is_final ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_C_STRING; wrapped_arg.is_final = is_final; wrapped_arg.formatted_length = 0; wrapped_arg.pointer = arg; return wrapped_arg; } // For CC strings, we must specify the container type manually rather than relying on the CC_STR_RAW macro because of // template argument-deduction issues. template< typename el_ty, typename arg_ty, typename std::enable_if<std::is_same<arg_ty, el_ty (*(*)[ CC_STR ])( size_t * )>::value, bool>::type = true > cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg( arg_ty arg, bool is_final ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_STR; wrapped_arg.is_final = is_final; wrapped_arg.formatted_length = 0; wrapped_arg.pointer = *arg; return wrapped_arg; } template< typename el_ty, typename arg_ty, typename std::enable_if< std::is_same<arg_ty, void *>::value || std::is_same<arg_ty, const void *>::value, bool >::type = true > cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg( arg_ty arg, bool is_final ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_VOID_POINTER; wrapped_arg.is_final = is_final; wrapped_arg.formatted_length = 0; wrapped_arg.pointer = arg; return wrapped_arg; } template< typename el_ty, typename arg_ty, typename std::enable_if<std::is_same<arg_ty, cc_wrapped_str_fmt_arg_ty>::value, bool>::type = true > cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg( arg_ty arg, bool is_final ) { arg.is_final = is_final; return arg; } #define CC_WRAP_STR_FMT_ARG( el_ty, arg, is_final ) cc_wrap_str_fmt_arg<el_ty>( arg, is_final ) #else static inline cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg_char( char arg, bool is_final ) { if( CHAR_MIN < 0 ) return (cc_wrapped_str_fmt_arg_ty){ CC_STR_FMT_ARG_INTEGER, is_final, .integer = (signed long long )arg }; return (cc_wrapped_str_fmt_arg_ty){ CC_STR_FMT_ARG_UNSIGNED_INTEGER, is_final, 0, .unsigned_integer = (unsigned long long)arg }; } static inline cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg_unsigned_integer( unsigned long long arg, bool is_final ) { return (cc_wrapped_str_fmt_arg_ty){ CC_STR_FMT_ARG_UNSIGNED_INTEGER, is_final, 0, .unsigned_integer = arg }; } static inline cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg_integer( long long arg, bool is_final ) { return (cc_wrapped_str_fmt_arg_ty){ CC_STR_FMT_ARG_INTEGER, is_final, 0, .integer = arg }; } static inline cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg_floating( double arg, bool is_final ) { return (cc_wrapped_str_fmt_arg_ty){ CC_STR_FMT_ARG_FLOATING, is_final, 0, .floating = arg }; } static inline cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg_cstring( const void *arg, bool is_final ) { return (cc_wrapped_str_fmt_arg_ty){ CC_STR_FMT_ARG_C_STRING, is_final, 0, .pointer = arg }; } static inline cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg_str( const void *arg, bool is_final ) { return (cc_wrapped_str_fmt_arg_ty){ CC_STR_FMT_ARG_STR, is_final, 0, .pointer = arg }; } static inline cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg_void_pointer( const void *arg, bool is_final ) { return (cc_wrapped_str_fmt_arg_ty){ CC_STR_FMT_ARG_VOID_POINTER, is_final, 0, .pointer = arg }; } static inline cc_wrapped_str_fmt_arg_ty cc_wrap_str_fmt_arg_passthrough( cc_wrapped_str_fmt_arg_ty arg, bool is_final ) { arg.is_final = is_final; return arg; } #define CC_WRAP_STR_FMT_ARG( el_ty, arg, is_final ) _Generic( (arg), \ bool: cc_wrap_str_fmt_arg_unsigned_integer, \ cc_maybe_char: cc_wrap_str_fmt_arg_char, \ unsigned char: cc_wrap_str_fmt_arg_unsigned_integer, \ signed char: cc_wrap_str_fmt_arg_integer, \ unsigned short: cc_wrap_str_fmt_arg_unsigned_integer, \ short: cc_wrap_str_fmt_arg_integer, \ unsigned int: cc_wrap_str_fmt_arg_unsigned_integer, \ int: cc_wrap_str_fmt_arg_integer, \ unsigned long: cc_wrap_str_fmt_arg_unsigned_integer, \ long: cc_wrap_str_fmt_arg_integer, \ unsigned long long: cc_wrap_str_fmt_arg_unsigned_integer, \ long long: cc_wrap_str_fmt_arg_integer, \ cc_maybe_size_t: cc_wrap_str_fmt_arg_unsigned_integer, \ float: cc_wrap_str_fmt_arg_floating, \ double: cc_wrap_str_fmt_arg_floating, \ el_ty *: cc_wrap_str_fmt_arg_cstring, \ const el_ty *: cc_wrap_str_fmt_arg_cstring, \ cc_wrapped_str_fmt_arg_ty: cc_wrap_str_fmt_arg_passthrough, \ void *: cc_wrap_str_fmt_arg_void_pointer, \ const void *: cc_wrap_str_fmt_arg_void_pointer, \ CC_STR_RAW( el_ty ): cc_wrap_str_fmt_arg_str \ )( arg, is_final ) \ #endif // CC_WRAPPED_STR_FMT_ARGS_ARRAY macro for transforming a __VA_ARGS__ of raw string formatted insertion arguments into // an array of wrapped arguments. #define CC_WRAPPED_STR_FMT_ARGS_1( el_ty, arg ) CC_WRAP_STR_FMT_ARG( el_ty, arg, true ) #define CC_WRAPPED_STR_FMT_ARGS_2( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_1( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_3( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_2( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_4( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_3( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_5( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_4( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_6( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_5( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_7( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_6( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_8( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_7( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_9( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_8( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_10( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_9( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_11( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_10( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_12( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_11( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_13( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_12( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_14( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_13( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_15( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_14( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_16( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_15( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_17( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_16( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_18( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_17( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_19( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_18( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_20( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_19( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_21( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_20( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_22( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_21( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_23( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_22( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_24( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_23( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_25( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_24( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_26( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_25( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_27( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_26( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_28( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_27( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_29( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_28( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_30( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_29( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_31( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_30( el_ty, __VA_ARGS__ ) ) \ #define CC_WRAPPED_STR_FMT_ARGS_32( el_ty, arg, ... ) \ CC_WRAP_STR_FMT_ARG( el_ty, arg, false ), CC_MSVC_PP_FIX( CC_WRAPPED_STR_FMT_ARGS_31( el_ty, __VA_ARGS__ ) ) \ #ifdef __cplusplus #define CC_WRAPPED_STR_FMT_ARGS_ARRAY( el_ty, ... ) \ decltype( std::declval<cc_wrapped_str_fmt_arg_ty[ CC_N_ARGS( __VA_ARGS__ ) ]>() ){ \ CC_CAT_2( CC_WRAPPED_STR_FMT_ARGS_, CC_N_ARGS( __VA_ARGS__ ) )( el_ty, __VA_ARGS__ ) \ } \ #else #define CC_WRAPPED_STR_FMT_ARGS_ARRAY( el_ty, ... ) \ (cc_wrapped_str_fmt_arg_ty[]){ \ CC_MSVC_PP_FIX( CC_CAT_2( CC_WRAPPED_STR_FMT_ARGS_, CC_N_ARGS( __VA_ARGS__ ) )( el_ty, __VA_ARGS__ ) ) \ } \ #endif // Functions for setting the formatting mode of integer and floating-point arguments. static inline cc_wrapped_str_fmt_arg_ty cc_integer_dec( int min_digits ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_MODE_INTEGER_DEC; wrapped_arg.formatted_length = 0; wrapped_arg.integer = min_digits; return wrapped_arg; } static inline cc_wrapped_str_fmt_arg_ty cc_integer_hex( int min_digits ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_MODE_INTEGER_HEX; wrapped_arg.formatted_length = 0; wrapped_arg.integer = min_digits; return wrapped_arg; } static inline cc_wrapped_str_fmt_arg_ty cc_integer_oct( int min_digits ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_MODE_INTEGER_OCT; wrapped_arg.formatted_length = 0; wrapped_arg.integer = min_digits; return wrapped_arg; } static inline cc_wrapped_str_fmt_arg_ty cc_float_dec( int precision ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_MODE_FLOATING_DEC; wrapped_arg.formatted_length = 0; wrapped_arg.integer = precision; return wrapped_arg; } static inline cc_wrapped_str_fmt_arg_ty cc_float_hex( int precision ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_MODE_FLOATING_HEX; wrapped_arg.formatted_length = 0; wrapped_arg.integer = precision; return wrapped_arg; } static inline cc_wrapped_str_fmt_arg_ty cc_float_sci( int precision ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_MODE_FLOATING_SCI; wrapped_arg.formatted_length = 0; wrapped_arg.integer = precision; return wrapped_arg; } static inline cc_wrapped_str_fmt_arg_ty cc_float_shortest( int significant_digits ) { cc_wrapped_str_fmt_arg_ty wrapped_arg; wrapped_arg.type = CC_STR_FMT_ARG_MODE_FLOATING_SHORTEST; wrapped_arg.formatted_length = 0; wrapped_arg.integer = significant_digits; return wrapped_arg; } // Functions for determining the length of char16_t and char32_t C strings. static inline size_t cc_strlen_char16( const char16_t *string ) { const char16_t *index = string; while( *index ) ++index; return (size_t)( index - string ); } static inline size_t cc_strlen_char32( const char32_t *string ) { const char32_t *index = string; while( *index ) ++index; return (size_t)( index - string ); } // To avoid the need for a temporary buffer, formatted insertions into char16_t and char32_t strings initially print as // ASCII into the string's own buffer. // Hence, a post-print fix-up step is needed to distribute the characters properly. static inline void cc_snprintf_fixup_char16( char *first_char, size_t char_count ) { char *src_char = first_char + ( char_count - 1 ); char16_t *dest_char32 = (char16_t *)( first_char + sizeof( char16_t ) * ( char_count - 1 ) ); while( char_count > 0 ) { *dest_char32 = (char16_t)*src_char; --src_char; --dest_char32; --char_count; } } static inline void cc_snprintf_fixup_char32( char *first_char, size_t char_count ) { char *src_char = first_char + ( char_count - 1 ); char32_t *dest_char32 = (char32_t *)( first_char + sizeof( char32_t ) * ( char_count - 1 ) ); while( char_count > 0 ) { *dest_char32 = (char32_t)*src_char; --src_char; --dest_char32; --char_count; } } // Inserts formatted arguments into a string. // This requires: // * Iterating over the array of arguments and counting the number of characters that each one comprises when formatted. // * Growing the string's buffer to accommodate all the insertions, if necessary. // * Reiterating over the arguments again and performing the insertions. // Returns a cc_allocing_fn_result_ty containing the new handle and a pointer-iterator to the first newly inserted // element. // If the underlying storage needed to be expanded and an allocation failure occurred, the latter pointer will be NULL. static inline cc_allocing_fn_result_ty cc_str_insert_wrapped_fmt_args( void *cntr, cc_wrapped_str_fmt_arg_ty *wrapped_args, size_t index, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { unsigned int integer_mode = CC_STR_FMT_ARG_MODE_INTEGER_DEC; unsigned int floating_mode = CC_STR_FMT_ARG_MODE_FLOATING_DEC; int integer_min_digits = 1; int floating_precision_or_significant_digits = 2; // First count the number of characters needed to complete all the insertions, along with the total. size_t total = 0; cc_wrapped_str_fmt_arg_ty *wrapped_arg = wrapped_args; while( true ) { switch( wrapped_arg->type ) { case CC_STR_FMT_ARG_UNSIGNED_INTEGER: { int result = snprintf( NULL, 0, integer_mode == CC_STR_FMT_ARG_MODE_INTEGER_DEC ? "%.*llu" : integer_mode == CC_STR_FMT_ARG_MODE_INTEGER_HEX ? "%.*llx" : /* CC_STR_FMT_ARG_MODE_INTEGER_OCT */ "%.*llo" , integer_min_digits, wrapped_arg->unsigned_integer ); wrapped_arg->formatted_length = result > 0 ? (size_t)result : SIZE_MAX; } break; case CC_STR_FMT_ARG_INTEGER: { int result; if( integer_mode == CC_STR_FMT_ARG_MODE_INTEGER_DEC ) result = snprintf( NULL, 0, "%.*lld", integer_min_digits, wrapped_arg->integer ); else result = snprintf( NULL, 0, integer_mode == CC_STR_FMT_ARG_MODE_INTEGER_HEX ? "%.*llx" : /* CC_STR_FMT_ARG_MODE_INTEGER_OCT */ "%.*llo", integer_min_digits, (unsigned long long)wrapped_arg->integer ); wrapped_arg->formatted_length = result > 0 ? (size_t)result : SIZE_MAX; } break; case CC_STR_FMT_ARG_FLOATING: { int result = snprintf( NULL, 0, floating_mode == CC_STR_FMT_ARG_MODE_FLOATING_DEC ? "%.*f" : floating_mode == CC_STR_FMT_ARG_MODE_FLOATING_HEX ? "%.*a" : floating_mode == CC_STR_FMT_ARG_MODE_FLOATING_SCI ? "%.*e" : /* CC_STR_FMT_ARG_MODE_FLOATING_SHORTEST */ "%.*g", floating_precision_or_significant_digits, wrapped_arg->floating ); wrapped_arg->formatted_length = result > 0 ? (size_t)result : SIZE_MAX; } break; case CC_STR_FMT_ARG_C_STRING: { wrapped_arg->formatted_length = ( el_size == sizeof( char ) ? (size_t)strlen( (const char *)wrapped_arg->pointer ) : el_size == sizeof( char16_t ) ? cc_strlen_char16( (char16_t *)wrapped_arg->pointer ) : /* char32_t */ cc_strlen_char32( (char32_t *)wrapped_arg->pointer ) ); } break; case CC_STR_FMT_ARG_VOID_POINTER: { int result = snprintf( NULL, 0, "%p", wrapped_arg->pointer ); wrapped_arg->formatted_length = result > 0 ? (size_t)result : SIZE_MAX; } break; case CC_STR_FMT_ARG_STR: { wrapped_arg->formatted_length = cc_str_hdr( (void *)wrapped_arg->pointer )->size; } break; case CC_STR_FMT_ARG_MODE_INTEGER_DEC: case CC_STR_FMT_ARG_MODE_INTEGER_HEX: case CC_STR_FMT_ARG_MODE_INTEGER_OCT: { integer_mode = wrapped_arg->type; integer_min_digits = (int)wrapped_arg->integer; } break; case CC_STR_FMT_ARG_MODE_FLOATING_DEC: case CC_STR_FMT_ARG_MODE_FLOATING_HEX: case CC_STR_FMT_ARG_MODE_FLOATING_SCI: case CC_STR_FMT_ARG_MODE_FLOATING_SHORTEST: { floating_mode = wrapped_arg->type; floating_precision_or_significant_digits = (int)wrapped_arg->integer; } break; } if( wrapped_arg->formatted_length != SIZE_MAX ) // Check for encoding error. total += wrapped_arg->formatted_length; if( wrapped_arg->is_final ) break; ++wrapped_arg; } // Make room. if( cc_str_size( cntr ) + total > cc_str_cap( cntr ) ) { size_t cap = cc_str_cap( cntr ); if( !cap ) cap = 2; while( cap < cc_str_size( cntr ) + total ) cap *= 2; cc_allocing_fn_result_ty result = cc_str_reserve( cntr, cap, el_size, 0, // Dummy. NULL, // Dummy. 0.0, // Dummy. realloc_, NULL // Dummy. ); if( CC_UNLIKELY( !result.other_ptr ) ) return result; cntr = result.new_cntr; } // Move the latter part of the string backwards. char *new_els = (char *)cc_str_hdr( cntr )->data + el_size * index; memmove( new_els + total * el_size, new_els, el_size * ( cc_str_hdr( cntr )->size - index ) + el_size // Terminator. ); cc_str_hdr( cntr )->size += total; // Perform the insertions. wrapped_arg = wrapped_args; integer_mode = CC_STR_FMT_ARG_MODE_INTEGER_DEC; floating_mode = CC_STR_FMT_ARG_MODE_FLOATING_DEC; integer_min_digits = 1; floating_precision_or_significant_digits = 2; char *cursor = new_els; while( true ) { if( wrapped_arg->formatted_length != SIZE_MAX ) // Check for encoding error. switch( wrapped_arg->type ) { case CC_STR_FMT_ARG_UNSIGNED_INTEGER: case CC_STR_FMT_ARG_INTEGER: case CC_STR_FMT_ARG_FLOATING: case CC_STR_FMT_ARG_VOID_POINTER: { // Save the char that snprintf will overwrite with a null terminator. char overwritten_char = *( cursor + wrapped_arg->formatted_length ); // Use snprintf, rather than sprintf, to silence MSVC's intrusive warnings about the latter. if( wrapped_arg->type == CC_STR_FMT_ARG_UNSIGNED_INTEGER ) snprintf( cursor, wrapped_arg->formatted_length + 1, integer_mode == CC_STR_FMT_ARG_MODE_INTEGER_DEC ? "%.*llu" : integer_mode == CC_STR_FMT_ARG_MODE_INTEGER_HEX ? "%.*llx" : /* CC_STR_FMT_ARG_MODE_INTEGER_OCT */ "%.*llo" , integer_min_digits, wrapped_arg->unsigned_integer ); else if( wrapped_arg->type == CC_STR_FMT_ARG_INTEGER ) { if( integer_mode == CC_STR_FMT_ARG_MODE_INTEGER_DEC ) snprintf( cursor, wrapped_arg->formatted_length + 1, "%.*lld", integer_min_digits, wrapped_arg->integer ); else snprintf( cursor, wrapped_arg->formatted_length + 1, integer_mode == CC_STR_FMT_ARG_MODE_INTEGER_HEX ? "%.*llx" : /* CC_STR_FMT_ARG_MODE_INTEGER_OCT */ "%.*llo", integer_min_digits, (unsigned long long)wrapped_arg->integer ); } else if( wrapped_arg->type == CC_STR_FMT_ARG_FLOATING ) snprintf( cursor, wrapped_arg->formatted_length + 1, floating_mode == CC_STR_FMT_ARG_MODE_FLOATING_DEC ? "%.*f" : floating_mode == CC_STR_FMT_ARG_MODE_FLOATING_HEX ? "%.*a" : floating_mode == CC_STR_FMT_ARG_MODE_FLOATING_SCI ? "%.*e" : /* CC_STR_FMT_ARG_MODE_FLOATING_SHORTEST */ "%.*g", floating_precision_or_significant_digits, wrapped_arg->floating ); else // CC_STR_FMT_ARG_VOID_POINTER. snprintf( cursor, wrapped_arg->formatted_length + 1, "%p", wrapped_arg->pointer ); *( cursor + wrapped_arg->formatted_length ) = overwritten_char; // Restore the overwritten char. if( el_size == sizeof( char16_t ) ) cc_snprintf_fixup_char16( cursor, wrapped_arg->formatted_length ); else if( el_size == sizeof( char32_t ) ) cc_snprintf_fixup_char32( cursor, wrapped_arg->formatted_length ); cursor += wrapped_arg->formatted_length * el_size; } break; case CC_STR_FMT_ARG_C_STRING: { memcpy( cursor, wrapped_arg->pointer, wrapped_arg->formatted_length * el_size ); cursor += wrapped_arg->formatted_length * el_size; } break; case CC_STR_FMT_ARG_STR: { memcpy( cursor, cc_str_hdr( (void *)wrapped_arg->pointer ) + 1, wrapped_arg->formatted_length * el_size ); cursor += wrapped_arg->formatted_length * el_size; } break; case CC_STR_FMT_ARG_MODE_INTEGER_DEC: case CC_STR_FMT_ARG_MODE_INTEGER_HEX: case CC_STR_FMT_ARG_MODE_INTEGER_OCT: { integer_mode = wrapped_arg->type; integer_min_digits = (int)wrapped_arg->integer; } break; case CC_STR_FMT_ARG_MODE_FLOATING_DEC: case CC_STR_FMT_ARG_MODE_FLOATING_HEX: case CC_STR_FMT_ARG_MODE_FLOATING_SCI: case CC_STR_FMT_ARG_MODE_FLOATING_SHORTEST: { floating_mode = wrapped_arg->type; floating_precision_or_significant_digits = (int)wrapped_arg->integer; } break; } if( wrapped_arg->is_final ) break; ++wrapped_arg; } return cc_make_allocing_fn_result( cntr, new_els ); } static inline cc_allocing_fn_result_ty cc_str_push_fmt( void *cntr, cc_wrapped_str_fmt_arg_ty *insert_args, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { return cc_str_insert_wrapped_fmt_args( cntr, insert_args, cc_str_size( cntr ), el_size, realloc_ ); } static inline cc_allocing_fn_result_ty cc_str_insert_fmt( void *cntr, cc_wrapped_str_fmt_arg_ty *insert_args, size_t index, size_t el_size, cc_realloc_fnptr_ty realloc_ ) { return cc_str_insert_wrapped_fmt_args( cntr, insert_args, index, el_size, realloc_ ); } // Erases n elements at the specified index. // Returns a pointer-iterator to the element after the erased elements, or an end pointer-iterator if there is no // subsequent element. static inline void *cc_str_erase_n( void *cntr, size_t index, size_t n, size_t el_size, CC_UNUSED( cc_dtor_fnptr_ty, el_dtor ), CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { if( n == 0 ) return (char *)cc_str_hdr( cntr )->data + el_size * index; memmove( (char *)cc_str_hdr( cntr )->data + el_size * index, (char *)cc_str_hdr( cntr )->data + el_size * ( index + n ), ( cc_str_hdr( cntr )->size - n - index ) * el_size + el_size // Terminator. ); cc_str_hdr( cntr )->size -= n; return (char *)cc_str_hdr( cntr )->data + el_size * index; } static inline void *cc_str_erase( void *cntr, void *key, // Pointer to size_t index. size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( cc_cmpr_fnptr_ty, cmpr ), CC_UNUSED( cc_dtor_fnptr_ty, el_dtor ), CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { return cc_str_erase_n( cntr, *(size_t *)key, 1, el_size, NULL /* Dummy */, NULL /* Dummy */ ); } // Sets the number of elements in the string. // If n is above the current size, the new elements are initialized to fill_el. // Returns a cc_allocing_fn_result_ty containing new container handle and a pointer that evaluates to true if the // operation was successful or false in the case of allocation failure. static inline cc_allocing_fn_result_ty cc_str_resize( void *cntr, size_t n, void *fill_el, size_t el_size, CC_UNUSED( cc_dtor_fnptr_ty, el_dtor ), cc_realloc_fnptr_ty realloc_ ) { // No resize necessary (also handles placeholder). if( n == cc_str_size( cntr ) ) return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); // Downsizing. if( n < cc_str_size( cntr ) ) { cc_str_erase_n( cntr, n, cc_str_size( cntr ) - n, el_size, NULL /* Dummy */, NULL /* Dummy */ ); return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); } // Up-sizing. cc_allocing_fn_result_ty result = cc_str_reserve( cntr, n, el_size, 0, // Dummy. NULL, // Dummy. 0.0, // Dummy. realloc_, NULL // Dummy. ); if( CC_UNLIKELY( !result.other_ptr ) ) return result; char *new_el = (char *)cc_str_hdr( result.new_cntr )->data + el_size * cc_str_size( result.new_cntr ); for( size_t i = cc_str_hdr( result.new_cntr )->size; i < n; ++i, new_el += el_size ) memcpy( new_el, fill_el, el_size ); memset( new_el, 0, el_size ); // Terminator. cc_str_hdr( result.new_cntr )->size = n; return result; } // Erases all elements. static inline void cc_str_clear( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_dtor_fnptr_ty, el_dtor ), CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { if( !cc_str_is_placeholder( cntr ) ) { cc_str_hdr( cntr )->size = 0; memset( cc_str_hdr( cntr )->data, 0, el_size ); // Terminator. } } // Shrinks the string's capacity to its current size. // Returns a cc_allocing_fn_result_ty containing the new container handle and a pointer that evaluates to true if the // operation was successful or false in the case of allocation failure. static inline cc_allocing_fn_result_ty cc_str_shrink( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_hash_fnptr_ty, hash ), CC_UNUSED( double, max_load ), cc_realloc_fnptr_ty realloc_, cc_free_fnptr_ty free_ ) { if( cc_str_size( cntr ) == cc_str_cap( cntr ) ) // Also handles placeholder. return cc_make_allocing_fn_result( cntr, cc_dummy_true_ptr ); if( cc_str_size( cntr ) == 0 ) { // Restore placeholder. free_( cntr ); return cc_make_allocing_fn_result( el_size == sizeof( char ) ? (void *)&cc_str_placeholder_char8 : el_size == sizeof( char16_t ) ? (void *)&cc_str_placeholder_char16 : /* char32_t */ (void *)&cc_str_placeholder_char32, cc_dummy_true_ptr ); } cc_str_hdr_ty *new_cntr = (cc_str_hdr_ty *)realloc_( cntr, sizeof( cc_str_hdr_ty ) + el_size * cc_str_size( cntr ) + el_size // Terminator. ); if( CC_UNLIKELY( !new_cntr ) ) return cc_make_allocing_fn_result( cntr, NULL ); cc_str_hdr( new_cntr )->cap = cc_str_size( new_cntr ); cc_str_hdr( new_cntr )->data = new_cntr + 1; return cc_make_allocing_fn_result( new_cntr, cc_dummy_true_ptr ); } // Initializes a shallow copy of the source string. // The capacity of the new string is the size of the source string, not its capacity. // Returns a pointer to the copy, or NULL in the case of allocation failure. // The return value is cast to bool in the corresponding macro. static inline void *cc_str_init_clone( void *src, size_t el_size, CC_UNUSED( uint64_t, layout ), cc_realloc_fnptr_ty realloc_, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { if( cc_str_size( src ) == 0 ) return el_size == sizeof( char ) ? (void *)&cc_str_placeholder_char8 : el_size == sizeof( char16_t ) ? (void *)&cc_str_placeholder_char16 : /* char32_t */ (void *)&cc_str_placeholder_char32; cc_allocing_fn_result_ty result = cc_str_reserve( el_size == sizeof( char ) ? (void *)&cc_str_placeholder_char8 : el_size == sizeof( char16_t ) ? (void *)&cc_str_placeholder_char16 : /* char32_t */ (void *)&cc_str_placeholder_char32, cc_str_size( src ), el_size, 0, // Dummy. NULL, // Dummy. 0.0, // Dummy. realloc_, NULL // Dummy. ); if( CC_UNLIKELY( !result.other_ptr ) ) return NULL; memcpy( (char *)cc_str_hdr( result.new_cntr )->data, (char *)cc_str_hdr( src )->data, el_size * cc_str_size( src ) + el_size // Terminator. ); cc_str_hdr( result.new_cntr )->size = cc_str_size( src ); return result.new_cntr; } // Clears the string and frees its memory if it is not a placeholder. static inline void cc_str_cleanup( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ), CC_UNUSED( cc_dtor_fnptr_ty, el_dtor ), CC_UNUSED( cc_dtor_fnptr_ty, key_dtor ), cc_free_fnptr_ty free_ ) { if( !cc_str_is_placeholder( cntr ) ) free_( cntr ); } static inline void *cc_str_end( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ) ) { return (char *)cc_str_hdr( cntr )->data + el_size * cc_str_size( cntr ); } static inline void *cc_str_next( CC_UNUSED( void *, cntr ), void *itr, size_t el_size, CC_UNUSED( uint64_t, layout ) ) { return (char *)itr + el_size; } static inline void *cc_str_first( void *cntr, CC_UNUSED( size_t, el_size ), CC_UNUSED( uint64_t, layout ) ) { return (char *)cc_str_hdr( cntr )->data; } static inline void *cc_str_last( void *cntr, size_t el_size, CC_UNUSED( uint64_t, layout ) ) { return (char *)cc_str_hdr( cntr )->data + el_size * ( cc_str_size( cntr ) - 1 ); } // Functions for converting a C string into a cc_str for heterogeneous insertion. // In the case of memory allocation failure, these functions return NULL. static inline void *cc_cstring_to_str_char8( const void *cstring, cc_realloc_fnptr_ty realloc_ ) { size_t length = strlen( (const char *)cstring ); if( !length ) return (void *)&cc_str_placeholder_char8; cc_str_hdr_ty *hdr = (cc_str_hdr_ty *)realloc_( NULL, sizeof( cc_str_hdr_ty ) + length + 1 /* Terminator */ ); if( !hdr ) return NULL; hdr->cap = length; hdr->size = length; hdr->data = hdr + 1; memcpy( hdr->data, cstring, length + 1 ); return hdr; } static inline CC_STR_RAW( char16_t ) cc_cstring_to_str_char16( const char16_t *cstring, cc_realloc_fnptr_ty realloc_ ) { size_t length = cc_strlen_char16( cstring ); if( !length ) return (CC_STR_RAW( char16_t ))&cc_str_placeholder_char8; cc_str_hdr_ty *hdr = (cc_str_hdr_ty *)realloc_( NULL, sizeof( cc_str_hdr_ty ) + sizeof( char16_t ) * length + sizeof( char16_t ) // Terminator. ); if( !hdr ) return NULL; hdr->cap = length; hdr->size = length; hdr->data = hdr + 1; memcpy( hdr->data, cstring, sizeof( char16_t ) * length + sizeof( char16_t ) ); return (CC_STR_RAW( char16_t ))hdr; } static inline CC_STR_RAW( char32_t ) cc_cstring_to_str_char32( const char32_t *cstring, cc_realloc_fnptr_ty realloc_ ) { size_t length = cc_strlen_char32( cstring ); if( !length ) return (CC_STR_RAW( char32_t ))&cc_str_placeholder_char8; cc_str_hdr_ty *hdr = (cc_str_hdr_ty *)realloc_( NULL, sizeof( cc_str_hdr_ty ) + sizeof( char32_t ) * length + sizeof( char32_t ) // Terminator. ); if( !hdr ) return NULL; hdr->cap = length; hdr->size = length; hdr->data = hdr + 1; memcpy( hdr->data, cstring, sizeof( char32_t ) * length + sizeof( char32_t ) ); return (CC_STR_RAW( char32_t ))hdr; } // Functions for converting a C string into a temporary cc_str for heterogeneous lookup. // These functions take a second argument, namely a pointer to a stack-allocated header to use as the cc_str. static inline void *cc_cstring_to_temp_str_char8( const void *cstring, cc_str_hdr_ty *str_hdr ) { str_hdr->size = strlen( (const char *)cstring ); str_hdr->cap = str_hdr->size; str_hdr->data = (void *)cstring; return str_hdr; } static inline CC_STR_RAW( char16_t ) cc_cstring_to_temp_str_char16( const char16_t *cstring, cc_str_hdr_ty *str_hdr ) { str_hdr->size = cc_strlen_char16( cstring ); str_hdr->cap = str_hdr->size; str_hdr->data = (void *)cstring; return (CC_STR_RAW( char16_t ))str_hdr; } static inline CC_STR_RAW( char32_t ) cc_cstring_to_temp_str_char32( const char32_t *cstring, cc_str_hdr_ty *str_hdr ) { str_hdr->size = cc_strlen_char32( cstring ); str_hdr->cap = str_hdr->size; str_hdr->data = (void *)cstring; return (CC_STR_RAW( char32_t ))str_hdr; } /*--------------------------------------------------------------------------------------------------------------------*/ /* API */ /*--------------------------------------------------------------------------------------------------------------------*/ #define cc_initialized( cntr ) \ ( \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? (CC_TYPEOF_XP( *(cntr) ))&cc_vec_placeholder : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? (CC_TYPEOF_XP( *(cntr) ))&cc_list_placeholder : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? (CC_TYPEOF_XP( *(cntr) ))&cc_map_placeholder : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? (CC_TYPEOF_XP( *(cntr) ))&cc_map_placeholder : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? (CC_TYPEOF_XP( *(cntr) ))&cc_omap_placeholder : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? (CC_TYPEOF_XP( *(cntr) ))&cc_omap_placeholder : \ /* CC_STR */ (CC_TYPEOF_XP( *(cntr) ))CC_STR_PLACEHOLDER( CC_EL_TY( *(cntr) ) ) \ ) \ #define cc_init( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ *(cntr) = cc_initialized( (cntr) ), \ (void)0 \ ) \ #define cc_size( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_size : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_size : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_size : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_size : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_size : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_size : \ /* CC_STR */ cc_str_size \ ) \ /* Function arguments */ \ ( \ *(cntr) \ ) \ ) \ #define cc_cap( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_cap : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_cap : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_cap : \ /* CC_STR */ cc_str_cap \ ) \ /* Function arguments */ \ ( \ *(cntr) \ ) \ ) \ #define cc_reserve( cntr, n ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_reserve : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_reserve : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_reserve : \ /* CC_STR */ cc_str_reserve \ ) \ /* Function arguments */ \ ( \ *(cntr), \ (n), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_KEY_LOAD( *(cntr) ), \ CC_REALLOC_FN, \ CC_FREE_FN \ ) \ ), \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_insert( ... ) CC_SELECT_ON_NUM_ARGS( cc_insert_, __VA_ARGS__ ) #define cc_insert_2( cntr, el ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OSET \ ), \ CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_ONLY( *(cntr), CC_EL_CONVERTED_FOR_HETEROINSERT( *(cntr), (el) ) ), \ !CC_CHECK_HETEROINSERT_EL_CONVERSION( \ *(cntr), \ (el), \ ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->converted_el \ ) || \ !( ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->result = \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_insert : \ /* CC_OSET */ cc_oset_insert \ ) \ /* Function arguments */ \ ( \ ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->result.new_cntr, \ ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->converted_el, \ true, \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_KEY_CMPR( *(cntr) ), \ CC_KEY_LOAD( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_REALLOC_FN, \ CC_FREE_FN \ ) \ ).other_ptr ? \ CC_CLEANUP_HETEROINSERT_EL( *(cntr), (el), ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->converted_el ) \ : (void)0, \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_insert_3( cntr, key, el ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_KEY( \ *(cntr), \ CC_EL_CONVERTED_FOR_HETEROINSERT( *(cntr), (el) ), \ CC_KEY_CONVERTED_FOR_HETEROINSERT( *(cntr), (key) ) \ ), \ !CC_CHECK_HETEROINSERT_EL_CONVERSION( \ *(cntr), \ (el), \ ( (cc_heteroinsert_helper_el_key_ty *)*(cntr) )->converted_el \ ) || \ !CC_CHECK_HETEROINSERT_KEY_CONVERSION( \ *(cntr), \ (key), \ ( (cc_heteroinsert_helper_el_key_ty *)*(cntr) )->converted_key \ ) || \ !( ( (cc_heteroinsert_helper_el_key_ty *)*(cntr) )->result = \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_insert : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_insert : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_insert : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_insert : \ /* CC_STR */ cc_str_insert \ ) \ /* Function arguments */ \ ( \ ( (cc_heteroinsert_helper_el_key_ty *)*(cntr) )->result.new_cntr, \ ( (cc_heteroinsert_helper_el_key_ty *)*(cntr) )->converted_el, \ ( (cc_heteroinsert_helper_el_key_ty *)*(cntr) )->converted_key, \ true, \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_KEY_CMPR( *(cntr) ), \ CC_KEY_LOAD( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_KEY_DTOR( *(cntr) ), \ CC_REALLOC_FN, \ CC_FREE_FN \ ) \ ).other_ptr ? \ ( \ CC_CLEANUP_HETEROINSERT_EL( *(cntr), (el), ( (cc_heteroinsert_helper_el_key_ty *)*(cntr) )->converted_el ), \ CC_CLEANUP_HETEROINSERT_KEY( *(cntr), (key), ( (cc_heteroinsert_helper_el_key_ty *)*(cntr) )->converted_key ) \ ) : (void)0, \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_insert_n( cntr, index, els, n ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_insert_n : \ /* CC_STR */ cc_str_insert_n \ ) \ /* Function arguments */ \ ( \ *(cntr), \ (index), \ CC_CHECKED_EL_TY_PTR( *(cntr), (els) ), \ (n), \ CC_EL_SIZE( *(cntr) ), \ CC_REALLOC_FN \ ) \ ), \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_insert_fmt( cntr, index, ... ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ cc_str_insert_fmt( \ *(cntr), \ CC_WRAPPED_STR_FMT_ARGS_ARRAY( CC_EL_TY( *(cntr) ), __VA_ARGS__ ), \ index, \ CC_EL_SIZE( *(cntr) ), \ CC_REALLOC_FN \ ) \ ), \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_push( cntr, el ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_ONLY( *(cntr), CC_EL_CONVERTED_FOR_HETEROINSERT( *(cntr), (el) ) ), \ !CC_CHECK_HETEROINSERT_EL_CONVERSION( \ *(cntr), \ (el), \ ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->converted_el \ ) || \ !( ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->result = \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_push : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_push : \ /* CC_STR */ cc_str_push \ ) \ /* Function arguments */ \ ( \ ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->result.new_cntr, \ ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->converted_el, \ CC_EL_SIZE( *(cntr) ), \ CC_REALLOC_FN \ ) \ ).other_ptr ? \ CC_CLEANUP_HETEROINSERT_EL( *(cntr), (el), ( (cc_heterinsert_helper_el_only_ty *)*(cntr) )->converted_el ) \ : (void)0, \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_push_n( cntr, els, n ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_push_n : \ /* CC_STR */ cc_str_push_n \ ) \ /* Function arguments */ \ ( \ *(cntr), \ CC_CHECKED_EL_TY_PTR( *(cntr), (els) ), \ (n), \ CC_EL_SIZE( *(cntr) ), \ CC_REALLOC_FN \ ) \ ), \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_push_fmt( cntr, ... ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ cc_str_push_fmt( \ *(cntr), \ CC_WRAPPED_STR_FMT_ARGS_ARRAY( CC_EL_TY( *(cntr) ), __VA_ARGS__ ), \ CC_EL_SIZE( *(cntr) ), \ CC_REALLOC_FN \ ) \ ), \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_get_or_insert( ... ) CC_SELECT_ON_NUM_ARGS( cc_get_or_insert_, __VA_ARGS__ ) #define cc_get_or_insert_2( cntr, el ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OSET \ ), \ CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_AND_CNTR_SIZE( \ *(cntr), \ CC_EL_CONVERTED_FOR_HETEROINSERT( *(cntr), (el) ), \ ( CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_size : cc_oset_size )( *(cntr) ) \ ), \ \ !CC_CHECK_HETEROINSERT_EL_CONVERSION( \ *(cntr), \ (el), \ ( (cc_heteroinsert_helper_el_cntr_size_ty *)*(cntr) )->converted_el \ ) || \ ( CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_size : cc_oset_size )( \ ( \ ( (cc_heteroinsert_helper_el_cntr_size_ty *)*(cntr) )->result = \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_insert : \ /* CC_OSET */ cc_oset_insert \ ) \ /* Function arguments */ \ ( \ ( (cc_heteroinsert_helper_el_cntr_size_ty *)*(cntr) )->result.new_cntr, \ ( (cc_heteroinsert_helper_el_cntr_size_ty *)*(cntr) )->converted_el, \ false, \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_KEY_CMPR( *(cntr) ), \ CC_KEY_LOAD( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_REALLOC_FN, \ CC_FREE_FN \ ) \ ).new_cntr \ ) == ( (cc_heteroinsert_helper_el_cntr_size_ty *)*(cntr) )->cntr_size ? \ CC_CLEANUP_HETEROINSERT_EL( *(cntr), (el), ( (cc_heteroinsert_helper_el_cntr_size_ty *)*(cntr) )->converted_el ) \ : (void)0, \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_get_or_insert_3( cntr, key, el ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP \ ), \ CC_POINT_HNDL_TO_HETEROINSERT_HELPER_EL_KEY_CNTR_SIZE( \ *(cntr), \ CC_EL_CONVERTED_FOR_HETEROINSERT( *(cntr), (el) ), \ CC_KEY_CONVERTED_FOR_HETEROINSERT( *(cntr), (key) ), \ ( CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_size : cc_omap_size )( *(cntr) ) \ ), \ !CC_CHECK_HETEROINSERT_EL_CONVERSION( \ *(cntr), \ (el), \ ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->converted_el \ ) || \ !CC_CHECK_HETEROINSERT_KEY_CONVERSION( \ *(cntr), \ (key), \ ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->converted_key \ ) || \ ( CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_size : cc_omap_size )( \ ( \ ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->result = \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_insert : \ /* CC_OMAP */ cc_omap_insert \ ) \ /* Function arguments */ \ ( \ ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->result.new_cntr, \ ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->converted_el, \ ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->converted_key, \ false, \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_KEY_CMPR( *(cntr) ), \ CC_KEY_LOAD( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_KEY_DTOR( *(cntr) ), \ CC_REALLOC_FN, \ CC_FREE_FN \ ) \ ).new_cntr \ ) == ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->cntr_size ? \ ( \ CC_CLEANUP_HETEROINSERT_EL( \ *(cntr), \ (el), \ ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->converted_el \ ), \ CC_CLEANUP_HETEROINSERT_KEY( \ *(cntr), \ (key), \ ( (cc_heteroinsert_helper_el_key_cntr_size_ty *)*(cntr) )->converted_key \ ) \ ) : (void)0, \ CC_CAST_MAYBE_UNUSED( CC_EL_TY( *(cntr) ) *, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_get( cntr, key ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_get : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_get : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_get : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_get : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_get : \ /* CC_STR */ cc_str_get \ ) \ /* Function arguments */ \ ( \ *(cntr), \ &CC_MAKE_LVAL_COPY( CC_KEY_TY( *(cntr) ), CC_KEY_CONVERTED_FOR_HETEROLOOKUP( *(cntr), (key) ) ), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_KEY_CMPR( *(cntr) ) \ ) \ ) \ ) \ #define cc_key_for( cntr, itr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP \ ), \ CC_CAST_MAYBE_UNUSED( \ const CC_KEY_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_key_for : \ /* CC_OMAP */ cc_omap_key_for \ ) \ /* Function arguments */ \ ( \ (itr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ) \ ) \ ) \ ) \ #define cc_erase( cntr, key ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_IF_THEN_CAST_TY_1_ELSE_CAST_TY_2( \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET, \ bool, \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_erase : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_erase : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_erase : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_erase : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_erase : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_erase : \ /* CC_STR */ cc_str_erase \ ) \ /* Function arguments */ \ ( \ *(cntr), \ &CC_MAKE_LVAL_COPY( CC_KEY_TY( *(cntr) ), CC_KEY_CONVERTED_FOR_HETEROLOOKUP( *(cntr), (key) ) ), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_KEY_CMPR( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_KEY_DTOR( *(cntr) ), \ CC_FREE_FN \ ) \ ) \ ) \ #define cc_erase_n( cntr, index, n ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_erase_n : \ /* CC_STR */ cc_str_erase_n \ ) \ /* Function arguments */ \ ( \ *(cntr), \ (index), \ (n), \ CC_EL_SIZE( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_FREE_FN \ ) \ ) \ ) \ #define cc_erase_itr( cntr, itr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_erase_itr : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_erase_itr : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_erase_itr : \ /* CC_OSET */ cc_oset_erase_itr \ ) \ /* Function arguments */ \ ( \ *(cntr), \ (itr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_KEY_DTOR( *(cntr) ), \ CC_FREE_FN \ ) \ ) \ ) \ #define cc_splice( cntr, itr, src, src_itr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( CC_CNTR_ID( *(cntr) ) == CC_LIST ), \ CC_STATIC_ASSERT( CC_IS_SAME_TY( *(cntr), *(src) ) ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ cc_list_splice( *(cntr), (itr), *(src), (src_itr), CC_REALLOC_FN ) \ ), \ CC_CAST_MAYBE_UNUSED( bool, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_resize( ... ) CC_SELECT_ON_NUM_ARGS( cc_resize_, __VA_ARGS__ ) #define cc_resize_2( cntr, n ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( CC_CNTR_ID( *(cntr) ) == CC_VEC ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ cc_vec_resize( *(cntr), (n), CC_EL_SIZE( *(cntr) ), CC_EL_DTOR( *(cntr) ), CC_REALLOC_FN, CC_FREE_FN ) \ ), \ CC_CAST_MAYBE_UNUSED( bool, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_resize_3( cntr, n, fill_el ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( CC_CNTR_ID( *(cntr) ) == CC_STR ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ cc_str_resize( \ *(cntr), \ (n), \ &CC_MAKE_LVAL_COPY( CC_EL_TY( *(cntr) ), fill_el ), \ CC_EL_SIZE( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_REALLOC_FN \ ) \ ), \ CC_CAST_MAYBE_UNUSED( bool, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_shrink( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_POINT_HNDL_TO_ALLOCING_FN_RESULT( \ *(cntr), \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_shrink : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_shrink : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_shrink : \ /* CC_STR */ cc_str_shrink \ ) \ /* Function arguments */ \ ( \ *(cntr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_HASH( *(cntr) ), \ CC_KEY_LOAD( *(cntr) ), \ CC_REALLOC_FN, \ CC_FREE_FN \ ) \ ), \ CC_CAST_MAYBE_UNUSED( bool, CC_FIX_HNDL_AND_RETURN_OTHER_PTR( *(cntr) ) ) \ ) \ #define cc_init_clone( cntr, src ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_STATIC_ASSERT( CC_IS_SAME_TY( *(cntr), *(src) ) ), \ CC_CAST_MAYBE_UNUSED( \ bool, \ *(cntr) = (CC_TYPEOF_XP( *(cntr) )) \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_init_clone : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_init_clone : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_init_clone : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_init_clone : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_init_clone : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_init_clone : \ /* CC_STR */ cc_str_init_clone \ ) \ /* Function arguments */ \ ( \ *(src), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_REALLOC_FN, \ CC_FREE_FN \ ) \ ) \ ) \ #define cc_clear( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_clear : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_clear : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_clear : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_clear : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_clear : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_clear : \ /* CC_STR */ cc_str_clear \ ) \ /* Function arguments */ \ ( \ *(cntr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_KEY_DTOR( *(cntr) ), \ CC_FREE_FN \ ) \ ) \ #define cc_cleanup( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_cleanup : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_cleanup : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_cleanup : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_cleanup : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_cleanup : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_cleanup : \ /* CC_STR */ cc_str_cleanup \ ) \ /* Function arguments */ \ ( \ *(cntr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_EL_DTOR( *(cntr) ), \ CC_KEY_DTOR( *(cntr) ), \ CC_FREE_FN \ ), \ cc_init( cntr ) \ ) \ #define cc_r_end( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_WARN_DEPRECATED_IF( \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET \ ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_r_end : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_r_end : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_r_end : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_r_end : \ /* CC_OSET */ cc_oset_r_end \ ) \ /* Function arguments */ \ ( \ *(cntr) \ ) \ ) \ ) \ #define cc_end( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_end : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_end : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_end : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_end : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_end : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_end : \ /* CC_STR */ cc_str_end \ ) \ /* Function arguments */ \ ( \ *(cntr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ) \ ) \ ) \ ) \ #define cc_first( ... ) CC_SELECT_ON_NUM_ARGS( cc_first_, __VA_ARGS__ ) #define cc_first_1( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_first : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_first : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_first : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_first : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_first : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_first : \ /* CC_STR */ cc_str_first \ ) \ /* Function arguments */ \ ( \ *(cntr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ) \ ) \ ) \ ) \ #define cc_first_2( cntr, key ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_bounded_first_or_last : \ /* CC_OSET */ cc_oset_bounded_first_or_last \ ) \ /* Function arguments */ \ ( \ *(cntr), \ &CC_MAKE_LVAL_COPY( CC_KEY_TY( *(cntr) ), (key) ), \ true, \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_CMPR( *(cntr) ) \ ) \ ) \ ) \ #define cc_last( ... ) CC_SELECT_ON_NUM_ARGS( cc_last_, __VA_ARGS__ ) #define cc_last_1( cntr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_WARN_DEPRECATED_IF( \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET \ ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_last : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_last : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_last : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_last : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_last : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_last : \ /* CC_STR */ cc_str_last \ ) \ /* Function arguments */ \ ( \ *(cntr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ) \ ) \ ) \ ) \ #define cc_last_2( cntr, key ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_bounded_first_or_last : \ /* CC_OSET */ cc_oset_bounded_first_or_last \ ) \ /* Function arguments */ \ ( \ *(cntr), \ &CC_MAKE_LVAL_COPY( CC_KEY_TY( *(cntr) ), (key) ), \ false, \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ), \ CC_KEY_CMPR( *(cntr) ) \ ) \ ) \ ) \ #define cc_next( cntr, itr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_VEC || \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET || \ CC_CNTR_ID( *(cntr) ) == CC_STR \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_VEC ? cc_vec_next : \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_next : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_next : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_next : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_next : \ CC_CNTR_ID( *(cntr) ) == CC_OSET ? cc_oset_next : \ /* CC_STR */ cc_str_next \ ) \ /* Function arguments */ \ ( \ *(cntr), \ (itr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ) \ ) \ ) \ ) \ #define cc_prev( cntr, itr ) \ ( \ CC_WARN_DUPLICATE_SIDE_EFFECTS( cntr ), \ CC_WARN_DEPRECATED_IF( \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET \ ), \ CC_STATIC_ASSERT( \ CC_CNTR_ID( *(cntr) ) == CC_LIST || \ CC_CNTR_ID( *(cntr) ) == CC_MAP || \ CC_CNTR_ID( *(cntr) ) == CC_SET || \ CC_CNTR_ID( *(cntr) ) == CC_OMAP || \ CC_CNTR_ID( *(cntr) ) == CC_OSET \ ), \ CC_CAST_MAYBE_UNUSED( \ CC_EL_TY( *(cntr) ) *, \ /* Function select */ \ ( \ CC_CNTR_ID( *(cntr) ) == CC_LIST ? cc_list_prev : \ CC_CNTR_ID( *(cntr) ) == CC_MAP ? cc_map_prev : \ CC_CNTR_ID( *(cntr) ) == CC_SET ? cc_set_prev : \ CC_CNTR_ID( *(cntr) ) == CC_OMAP ? cc_omap_prev : \ /* CC_OSET */ cc_oset_prev \ ) \ /* Function arguments */ \ ( \ *(cntr), \ (itr), \ CC_EL_SIZE( *(cntr) ), \ CC_LAYOUT( *(cntr) ) \ ) \ ) \ ) \ #define cc_for_each( ... ) CC_SELECT_ON_NUM_ARGS( cc_for_each_, __VA_ARGS__ ) #define cc_for_each_2( cntr, i_name ) \ for( \ CC_EL_TY( *(cntr) ) *i_name = cc_first_1( cntr ); \ i_name != cc_end( cntr ); \ i_name = cc_next( (cntr), i_name ) \ ) \ #define cc_for_each_3( cntr, key_ptr_name, i_name ) \ for( \ CC_EL_TY( *(cntr) ) *i_name = cc_first_1( cntr ); \ i_name != cc_end( cntr ); \ i_name = cc_next( (cntr), i_name ) \ ) \ for( const CC_KEY_TY( *(cntr) ) *key_ptr_name = cc_key_for( (cntr), i_name ); key_ptr_name; key_ptr_name = NULL ) \ #define cc_r_for_each( ... ) CC_SELECT_ON_NUM_ARGS( cc_r_for_each_, __VA_ARGS__ ) #define cc_r_for_each_2( cntr, i_name ) \ for( \ CC_EL_TY( *(cntr) ) *i_name = cc_last_1( cntr ); \ i_name != cc_r_end( cntr ); \ i_name = cc_prev( (cntr), i_name ) \ ) \ #define cc_r_for_each_3( cntr, key_ptr_name, i_name ) \ for( \ CC_EL_TY( *(cntr) ) *i_name = cc_last_1( cntr ); \ i_name != cc_r_end( cntr ); \ i_name = cc_prev( (cntr), i_name ) \ ) \ for( const CC_KEY_TY( *(cntr) ) *key_ptr_name = cc_key_for( (cntr), i ); key_ptr_name; key_ptr_name = NULL ) \ /*--------------------------------------------------------------------------------------------------------------------*/ /* Heterogeneous string insertion and lookup conversion */ /*--------------------------------------------------------------------------------------------------------------------*/ // This section defines the macros used to support the passing of C strings into API macros that perform insertions, // lookups, and related operations on containers with cc_str key and/or element types. // API macros that perform lookups must convert the supplied C string into a temporary string that uses // the C string as its buffer. // API macros that perform insertions, on the other hand, must do the following: // // * Convert the C string into a real, allocated cc_str. // * Check that the conversion did not fail due to memory exhaustion. // * Free the allocated cc_str if the conversion failed or the container operation did not actually insert it because of // memory exhaustion or some other condition. // // The auxiliary macros defined here achieve these things by identifying a heterogeneous insertion or lookup condition // based on the container's key or element type and the type of the key or element to be inserted or looked up and then // performing the necessary action. Here, the C++ macros rely on template functions, whereas the C macros use _Generic // expressions. // CC_EL_CONVERTED_FOR_HETEROINSERT and CC_KEY_CONVERTED_FOR_HETEROINSERT for converting a C-string key or element for // heterogeneous insertion. // If no heterogeneous insertion condition exists, these macros return the key or element unmodified. #ifdef __cplusplus template< typename cntr_key_or_el_ty, typename arg_key_or_el_ty, typename std::enable_if< CC_IF_CPP20( ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char8_t )>::value && ( std::is_same<arg_key_or_el_ty, char8_t *>::value || std::is_same<arg_key_or_el_ty, const char8_t *>::value ) ) || ) ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char )>::value && ( std::is_same<arg_key_or_el_ty, char *>::value || std::is_same<arg_key_or_el_ty, const char *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( unsigned char )>::value && ( std::is_same<arg_key_or_el_ty, unsigned char *>::value || std::is_same<arg_key_or_el_ty, const unsigned char *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( signed char )>::value && ( std::is_same<arg_key_or_el_ty, signed char *>::value || std::is_same<arg_key_or_el_ty, const signed char *>::value ) ), bool >::type = true > cntr_key_or_el_ty cc_key_or_el_converted_for_heteroinsert( const void *cstring, cc_realloc_fnptr_ty realloc_ ) { return (cntr_key_or_el_ty)cc_cstring_to_str_char8( cstring, realloc_ ); } template< typename cntr_key_or_el_ty, typename arg_key_or_el_ty, typename std::enable_if< ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char16_t )>::value && ( std::is_same<arg_key_or_el_ty, char16_t *>::value || std::is_same<arg_key_or_el_ty, const char16_t *>::value ) ), bool >::type = true > CC_STR_RAW( char16_t ) cc_key_or_el_converted_for_heteroinsert( const char16_t *cstring, cc_realloc_fnptr_ty realloc_ ) { return cc_cstring_to_str_char16( cstring, realloc_ ); } template< typename cntr_key_or_el_ty, typename arg_key_or_el_ty, typename std::enable_if< ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char32_t )>::value && ( std::is_same<arg_key_or_el_ty, char32_t *>::value || std::is_same<arg_key_or_el_ty, const char32_t *>::value ) ), bool >::type = true > CC_STR_RAW( char32_t ) cc_key_or_el_converted_for_heteroinsert( const char32_t *cstring, cc_realloc_fnptr_ty realloc_ ) { return cc_cstring_to_str_char32( cstring, realloc_ ); } template< typename cntr_key_or_el_ty, typename arg_key_or_el_ty, typename std::enable_if< CC_IF_CPP20( !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char8_t )>::value && ( std::is_same<arg_key_or_el_ty, char8_t *>::value || std::is_same<arg_key_or_el_ty, const char8_t *>::value ) ) && ) !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char )>::value && ( std::is_same<arg_key_or_el_ty, char *>::value || std::is_same<arg_key_or_el_ty, const char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( unsigned char )>::value && ( std::is_same<arg_key_or_el_ty, unsigned char *>::value || std::is_same<arg_key_or_el_ty, const unsigned char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( signed char )>::value && ( std::is_same<arg_key_or_el_ty, signed char *>::value || std::is_same<arg_key_or_el_ty, const signed char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char16_t )>::value && ( std::is_same<arg_key_or_el_ty, char16_t *>::value || std::is_same<arg_key_or_el_ty, const char16_t *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char32_t )>::value && ( std::is_same<arg_key_or_el_ty, char32_t *>::value || std::is_same<arg_key_or_el_ty, const char32_t *>::value ) ) , bool >::type = true > arg_key_or_el_ty cc_key_or_el_converted_for_heteroinsert( arg_key_or_el_ty arg, CC_UNUSED( cc_realloc_fnptr_ty, realloc_ ) ) { return arg; } #define CC_EL_CONVERTED_FOR_HETEROINSERT( cntr, el ) \ ( cc_key_or_el_converted_for_heteroinsert<CC_EL_TY( cntr ), CC_TYPEOF_XP( el )>( el, CC_REALLOC_FN ) ) \ #define CC_KEY_CONVERTED_FOR_HETEROINSERT( cntr, key ) \ ( cc_key_or_el_converted_for_heteroinsert<CC_KEY_TY( cntr ), CC_TYPEOF_XP( key )>( key, CC_REALLOC_FN ) ) \ #else // In C, to detect a condition that calls for an element conversion, we must perform a generic selection on two types: // the container's element type, and the type of the element supplied for insertion. // To do so, we construct a function pointer whose return type is the container's element type and whose argument type // is the type of the supplied element, and then test that against all possible conversion conditions. #define CC_EL_CONVERTED_FOR_HETEROINSERT( cntr, el ) \ _Generic( ( CC_EL_TY( cntr ) (*)( CC_TYPEOF_XP( el ) ) ){ 0 }, \ CC_STR_RAW( cc_maybe_char ) (*)( char * ): \ cc_cstring_to_str_char8( _Generic( el, char *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( cc_maybe_char ) (*)( const char * ): \ cc_cstring_to_str_char8( _Generic( el, const char *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( unsigned char ) (*)( unsigned char * ): \ cc_cstring_to_str_char8( _Generic( el, unsigned char *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( unsigned char ) (*)( const unsigned char * ): \ cc_cstring_to_str_char8( _Generic( el, const unsigned char *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( signed char ) (*)( signed char * ): \ cc_cstring_to_str_char8( _Generic( el, signed char *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( signed char ) (*)( const signed char * ): \ cc_cstring_to_str_char8( _Generic( el, const signed char *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( char16_t ) (*)( char16_t * ): \ cc_cstring_to_str_char16( _Generic( el, char16_t *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( char16_t ) (*)( const char16_t * ): \ cc_cstring_to_str_char16( _Generic( el, const char16_t *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( char32_t ) (*)( char32_t * ): \ cc_cstring_to_str_char32( _Generic( el, char32_t *: el, default: NULL ), CC_REALLOC_FN ), \ CC_STR_RAW( char32_t ) (*)( const char32_t * ): \ cc_cstring_to_str_char32( _Generic( el, const char32_t *: el, default: NULL ), CC_REALLOC_FN ), \ default: el \ ) \ // The same goes for key conversion, except the constructed function pointer's return type is the container's base // function pointer type rather than its key type specifically. // This is more efficient, in terms of compile speed, than using CC_KEY_TY to deduce the container's key type here. #define CC_KEY_CONVERTED_FOR_HETEROINSERT( cntr, key ) \ _Generic( ( CC_TYPEOF_XP( **cntr ) (*)( CC_TYPEOF_XP( key ) ) ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ) (*)( char * ): \ cc_cstring_to_str_char8( _Generic( key, char *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ) (*)( const char * ): \ cc_cstring_to_str_char8( _Generic( key, const char *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ) (*)( unsigned char * ): \ cc_cstring_to_str_char8( _Generic( key, unsigned char *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ) (*)( const unsigned char * ): \ cc_cstring_to_str_char8( _Generic( key, const unsigned char *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ) (*)( signed char * ): \ cc_cstring_to_str_char8( _Generic( key, signed char *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ) (*)( const signed char * ): \ cc_cstring_to_str_char8( _Generic( key, const signed char *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ) (*)( char16_t * ): \ cc_cstring_to_str_char16( _Generic( key, char16_t *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ) (*)( const char16_t * ): \ cc_cstring_to_str_char16( _Generic( key, const char16_t *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ) (*)( char32_t * ): \ cc_cstring_to_str_char32( _Generic( key, char32_t *: key, default: NULL ), CC_REALLOC_FN ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ) (*)( const char32_t * ): \ cc_cstring_to_str_char32( _Generic( key, const char32_t *: key, default: NULL ), CC_REALLOC_FN ), \ default: key \ ) \ #endif // CC_CHECK_HETEROINSERT_EL_CONVERSION and CC_CHECK_HETEROINSERT_KEY_CONVERSION macros for checking that the above // conversions succeeded. // This requires checking that the provided void pointer to the converted key or element is not NULL. // If no conversion was necessary, these macros simply return true. #ifdef __cplusplus template< typename cntr_key_or_el_ty, typename arg_key_or_el_ty, typename std::enable_if< CC_IF_CPP20( ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char8_t )>::value && ( std::is_same<arg_key_or_el_ty, char8_t *>::value || std::is_same<arg_key_or_el_ty, const char8_t *>::value ) ) || ) ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char )>::value && ( std::is_same<arg_key_or_el_ty, char *>::value || std::is_same<arg_key_or_el_ty, const char *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( unsigned char )>::value && ( std::is_same<arg_key_or_el_ty, unsigned char *>::value || std::is_same<arg_key_or_el_ty, const unsigned char *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( signed char )>::value && ( std::is_same<arg_key_or_el_ty, signed char *>::value || std::is_same<arg_key_or_el_ty, const signed char *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char16_t )>::value && ( std::is_same<arg_key_or_el_ty, char16_t *>::value || std::is_same<arg_key_or_el_ty, const char16_t *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char32_t )>::value && ( std::is_same<arg_key_or_el_ty, char32_t *>::value || std::is_same<arg_key_or_el_ty, const char32_t *>::value ) ) , bool >::type = true > bool cc_check_heteroinsert_key_or_el_conversion( void *converted_key_or_el ) { return *(cntr_key_or_el_ty *)converted_key_or_el; } template< typename cntr_key_or_el_ty, typename arg_key_or_el_ty, typename std::enable_if< CC_IF_CPP20( !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char8_t )>::value && ( std::is_same<arg_key_or_el_ty, char8_t *>::value || std::is_same<arg_key_or_el_ty, const char8_t *>::value ) ) && ) !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char )>::value && ( std::is_same<arg_key_or_el_ty, char *>::value || std::is_same<arg_key_or_el_ty, const char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( unsigned char )>::value && ( std::is_same<arg_key_or_el_ty, unsigned char *>::value || std::is_same<arg_key_or_el_ty, const unsigned char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( signed char )>::value && ( std::is_same<arg_key_or_el_ty, signed char *>::value || std::is_same<arg_key_or_el_ty, const signed char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char16_t )>::value && ( std::is_same<arg_key_or_el_ty, char16_t *>::value || std::is_same<arg_key_or_el_ty, const char16_t *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char32_t )>::value && ( std::is_same<arg_key_or_el_ty, char32_t *>::value || std::is_same<arg_key_or_el_ty, const char32_t *>::value ) ) , bool >::type = true > bool cc_check_heteroinsert_key_or_el_conversion( CC_UNUSED( void *, converted_key_or_el ) ) { return true; } #define CC_CHECK_HETEROINSERT_EL_CONVERSION( cntr, el, converted_el ) \ cc_check_heteroinsert_key_or_el_conversion<CC_EL_TY( cntr ), CC_TYPEOF_XP( el )>( converted_el ) \ #define CC_CHECK_HETEROINSERT_KEY_CONVERSION( cntr, key, converted_key ) \ cc_check_heteroinsert_key_or_el_conversion<CC_KEY_TY( cntr ), CC_TYPEOF_XP( key )>( converted_key ) \ #else #define CC_CHECK_HETEROINSERT_EL_CONVERSION( cntr, el, converted_el ) \ _Generic( ( CC_EL_TY( cntr ) (*)( CC_TYPEOF_XP( el ) ) ){ 0 }, \ CC_STR_RAW( cc_maybe_char ) (*)( char * ): \ (bool)*(CC_STR_RAW( char ) *)converted_el, \ CC_STR_RAW( cc_maybe_char ) (*)( const char * ): \ (bool)*(CC_STR_RAW( char ) *)converted_el, \ CC_STR_RAW( unsigned char ) (*)( unsigned char * ): \ (bool)*(CC_STR_RAW( unsigned char ) *)converted_el, \ CC_STR_RAW( unsigned char ) (*)( const unsigned char * ): \ (bool)*(CC_STR_RAW( unsigned char ) *)converted_el, \ CC_STR_RAW( signed char ) (*)( signed char * ): \ (bool)*(CC_STR_RAW( signed char ) *)converted_el, \ CC_STR_RAW( signed char ) (*)( const signed char * ): \ (bool)*(CC_STR_RAW( signed char ) *)converted_el, \ CC_STR_RAW( char16_t ) (*)( char16_t * ): \ (bool)*(CC_STR_RAW( char16_t ) *)converted_el, \ CC_STR_RAW( char16_t ) (*)( const char16_t * ): \ (bool)*(CC_STR_RAW( char16_t ) *)converted_el, \ CC_STR_RAW( char32_t ) (*)( char32_t * ): \ (bool)*(CC_STR_RAW( char32_t ) *)converted_el, \ CC_STR_RAW( char32_t ) (*)( const char32_t * ): \ (bool)*(CC_STR_RAW( char32_t ) *)converted_el, \ default: true \ ) \ #define CC_CHECK_HETEROINSERT_KEY_CONVERSION( cntr, key, converted_key ) \ _Generic( ( CC_TYPEOF_XP( **cntr ) (*)( CC_TYPEOF_XP( key ) ) ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ) (*)( char * ): \ (bool)*(CC_STR_RAW( char ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ) (*)( const char * ): \ (bool)*(CC_STR_RAW( char ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ) (*)( unsigned char * ): \ (bool)*(CC_STR_RAW( unsigned char ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ) (*)( const unsigned char * ): \ (bool)*(CC_STR_RAW( unsigned char ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ) (*)( signed char * ): \ (bool)*(CC_STR_RAW( signed char ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ) (*)( const signed char * ): \ (bool)*(CC_STR_RAW( signed char ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ) (*)( char16_t * ): \ (bool)*(CC_STR_RAW( char16_t ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ) (*)( const char16_t * ): \ (bool)*(CC_STR_RAW( char16_t ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ) (*)( char32_t * ): \ (bool)*(CC_STR_RAW( char32_t ) *)converted_key, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ) (*)( const char32_t * ): \ (bool)*(CC_STR_RAW( char32_t ) *)converted_key, \ default: true \ ) \ #endif // CC_CLEANUP_HETEROINSERT_EL and CC_CLEANUP_HETEROINSERT_KEY macros for freeing a converted key or element in the case // of allocation failure or no need for insertion (a condition that can occur in cc_get_or_insert). // If no conversion was necessary, these macros are effectively no-ops. #ifdef __cplusplus template< typename cntr_key_or_el_ty, typename arg_key_or_el_ty, typename std::enable_if< CC_IF_CPP20( ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char8_t )>::value && ( std::is_same<arg_key_or_el_ty, char8_t *>::value || std::is_same<arg_key_or_el_ty, const char8_t *>::value ) ) || ) ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char )>::value && ( std::is_same<arg_key_or_el_ty, char *>::value || std::is_same<arg_key_or_el_ty, const char *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( unsigned char )>::value && ( std::is_same<arg_key_or_el_ty, unsigned char *>::value || std::is_same<arg_key_or_el_ty, const unsigned char *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( signed char )>::value && ( std::is_same<arg_key_or_el_ty, signed char *>::value || std::is_same<arg_key_or_el_ty, const signed char *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char16_t )>::value && ( std::is_same<arg_key_or_el_ty, char16_t *>::value || std::is_same<arg_key_or_el_ty, const char16_t *>::value ) ) || ( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char32_t )>::value && ( std::is_same<arg_key_or_el_ty, char32_t *>::value || std::is_same<arg_key_or_el_ty, const char32_t *>::value ) ) , bool >::type = true > void cc_cleanup_heteroinsert_key_or_el( void *converted_key_or_el, cc_free_fnptr_ty free_ ) { free_( *(cntr_key_or_el_ty *)converted_key_or_el ); } template< typename cntr_key_or_el_ty, typename arg_key_or_el_ty, typename std::enable_if< CC_IF_CPP20( !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char8_t )>::value && ( std::is_same<arg_key_or_el_ty, char8_t *>::value || std::is_same<arg_key_or_el_ty, const char8_t *>::value ) ) && ) !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char )>::value && ( std::is_same<arg_key_or_el_ty, char *>::value || std::is_same<arg_key_or_el_ty, const char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( unsigned char )>::value && ( std::is_same<arg_key_or_el_ty, unsigned char *>::value || std::is_same<arg_key_or_el_ty, const unsigned char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( signed char )>::value && ( std::is_same<arg_key_or_el_ty, signed char *>::value || std::is_same<arg_key_or_el_ty, const signed char *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char16_t )>::value && ( std::is_same<arg_key_or_el_ty, char16_t *>::value || std::is_same<arg_key_or_el_ty, const char16_t *>::value ) ) && !( std::is_same<cntr_key_or_el_ty, CC_STR_RAW( char32_t )>::value && ( std::is_same<arg_key_or_el_ty, char32_t *>::value || std::is_same<arg_key_or_el_ty, const char32_t *>::value ) ) , bool >::type = true > void cc_cleanup_heteroinsert_key_or_el( CC_UNUSED( void *, converted_key_or_el ), CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { // Do nothing. } #define CC_CLEANUP_HETEROINSERT_EL( cntr, el, converted_el ) \ cc_cleanup_heteroinsert_key_or_el<CC_EL_TY( cntr ), CC_TYPEOF_XP( el )>( converted_el, CC_FREE_FN ) \ #define CC_CLEANUP_HETEROINSERT_KEY( cntr, key, converted_key ) \ cc_cleanup_heteroinsert_key_or_el<CC_KEY_TY( cntr ), CC_TYPEOF_XP( key )>( converted_key, CC_FREE_FN ) \ #else #define CC_CLEANUP_HETEROINSERT_EL( cntr, el, converted_el ) \ _Generic( ( CC_EL_TY( cntr ) (*)( CC_TYPEOF_XP( el ) ) ){ 0 }, \ CC_STR_RAW( cc_maybe_char ) (*)( char * ): \ CC_FREE_FN( *(CC_STR_RAW( char ) *)converted_el ), \ CC_STR_RAW( cc_maybe_char ) (*)( const char * ): \ CC_FREE_FN( *(CC_STR_RAW( char ) *)converted_el ), \ CC_STR_RAW( unsigned char ) (*)( unsigned char * ): \ CC_FREE_FN( *(CC_STR_RAW( unsigned char ) *)converted_el ), \ CC_STR_RAW( unsigned char ) (*)( const unsigned char * ): \ CC_FREE_FN( *(CC_STR_RAW( unsigned char ) *)converted_el ), \ CC_STR_RAW( signed char ) (*)( signed char * ): \ CC_FREE_FN( *(CC_STR_RAW( signed char ) *)converted_el ), \ CC_STR_RAW( signed char ) (*)( const signed char * ): \ CC_FREE_FN( *(CC_STR_RAW( signed char ) *)converted_el ), \ CC_STR_RAW( char16_t ) (*)( char16_t * ): \ CC_FREE_FN( *(CC_STR_RAW( char16_t ) *)converted_el ), \ CC_STR_RAW( char16_t ) (*)( const char16_t * ): \ CC_FREE_FN( *(CC_STR_RAW( char16_t ) *)converted_el ), \ CC_STR_RAW( char32_t ) (*)( char32_t * ): \ CC_FREE_FN( *(CC_STR_RAW( char32_t ) *)converted_el ), \ CC_STR_RAW( char32_t ) (*)( const char32_t * ): \ CC_FREE_FN( *(CC_STR_RAW( char32_t ) *)converted_el ), \ default: (void)0 \ ) \ #define CC_CLEANUP_HETEROINSERT_KEY( cntr, key, converted_key ) \ _Generic( ( CC_TYPEOF_XP( **cntr ) (*)( CC_TYPEOF_XP( key ) ) ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ) (*)( char * ): \ CC_FREE_FN( *(CC_STR_RAW( char ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ) (*)( const char * ): \ CC_FREE_FN( *(CC_STR_RAW( char ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ) (*)( unsigned char * ): \ CC_FREE_FN( *(CC_STR_RAW( unsigned char ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ) (*)( const unsigned char * ): \ CC_FREE_FN( *(CC_STR_RAW( unsigned char ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ) (*)( signed char * ): \ CC_FREE_FN( *(CC_STR_RAW( signed char ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ) (*)( const signed char * ): \ CC_FREE_FN( *(CC_STR_RAW( signed char ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ) (*)( char16_t * ): \ CC_FREE_FN( *(CC_STR_RAW( char16_t ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ) (*)( const char16_t * ): \ CC_FREE_FN( *(CC_STR_RAW( char16_t ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ) (*)( char32_t * ): \ CC_FREE_FN( *(CC_STR_RAW( char32_t ) *)converted_key ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ) (*)( const char32_t * ): \ CC_FREE_FN( *(CC_STR_RAW( char32_t ) *)converted_key ), \ default: (void)0 \ ) \ #endif // CC_KEY_CONVERTED_FOR_HETEROLOOKUP macro for wrapping a supplied C-string key (or element, in the case of set and // oset) inside a temporary cc_str for heterogeneous lookup. // If no heterogeneous lookup is being performed, these macros return the key unmodified. #ifdef __cplusplus template< typename cntr_key_ty, typename arg_key_ty, typename std::enable_if< CC_IF_CPP20( ( std::is_same<cntr_key_ty, CC_STR_RAW( char8_t )>::value && ( std::is_same<cntr_key_ty, char8_t *>::value || std::is_same<arg_key_ty, const char8_t *>::value ) ) || ) ( std::is_same<cntr_key_ty, CC_STR_RAW( char )>::value && ( std::is_same<arg_key_ty, char *>::value || std::is_same<arg_key_ty, const char *>::value ) ) || ( std::is_same<cntr_key_ty, CC_STR_RAW( unsigned char )>::value && ( std::is_same<arg_key_ty, unsigned char *>::value || std::is_same<arg_key_ty, const unsigned char *>::value ) ) || ( std::is_same<cntr_key_ty, CC_STR_RAW( signed char )>::value && ( std::is_same<arg_key_ty, signed char *>::value || std::is_same<arg_key_ty, const signed char *>::value ) ), bool >::type = true > cntr_key_ty cc_key_converted_for_heterolookup( const void *cstring, cc_str_hdr_ty *str_hdr ) { return (cntr_key_ty)cc_cstring_to_temp_str_char8( cstring, str_hdr ); } template< typename key_ty, typename arg_key_ty, typename std::enable_if< std::is_same<key_ty, CC_STR_RAW( char16_t )>::value && ( std::is_same<arg_key_ty, char16_t *>::value || std::is_same<arg_key_ty, const char16_t *>::value ), bool >::type = true > CC_STR_RAW( char16_t ) cc_key_converted_for_heterolookup( const char16_t *cstring, cc_str_hdr_ty *str_hdr ) { return cc_cstring_to_temp_str_char16( cstring, str_hdr ); } template< typename cntr_key_ty, typename arg_key_ty, typename std::enable_if< std::is_same<cntr_key_ty, CC_STR_RAW( char32_t )>::value && ( std::is_same<arg_key_ty, char32_t *>::value || std::is_same<arg_key_ty, const char32_t *>::value ), bool >::type = true > CC_STR_RAW( char32_t ) cc_key_converted_for_heterolookup( const char32_t *cstring, cc_str_hdr_ty *str_hdr ) { return cc_cstring_to_temp_str_char32( cstring, str_hdr ); } template< typename cntr_key_ty, typename arg_key_ty, typename std::enable_if< CC_IF_CPP20( !( std::is_same<cntr_key_ty, CC_STR_RAW( char8_t )>::value && ( std::is_same<arg_key_ty, char8_t *>::value || std::is_same<arg_key_ty, const char8_t *>::value ) ) && ) !( std::is_same<cntr_key_ty, CC_STR_RAW( char )>::value && ( std::is_same<arg_key_ty, char *>::value || std::is_same<arg_key_ty, const char *>::value ) ) && !( std::is_same<cntr_key_ty, CC_STR_RAW( unsigned char )>::value && ( std::is_same<arg_key_ty, unsigned char *>::value || std::is_same<arg_key_ty, const unsigned char *>::value ) ) && !( std::is_same<cntr_key_ty, CC_STR_RAW( signed char )>::value && ( std::is_same<arg_key_ty, signed char *>::value || std::is_same<arg_key_ty, const signed char *>::value ) ) && !( std::is_same<cntr_key_ty, CC_STR_RAW( char16_t )>::value && ( std::is_same<arg_key_ty, char16_t *>::value || std::is_same<arg_key_ty, const char16_t *>::value ) ) && !( std::is_same<cntr_key_ty, CC_STR_RAW( char32_t )>::value && ( std::is_same<arg_key_ty, char32_t *>::value || std::is_same<arg_key_ty, const char32_t *>::value ) ) , bool >::type = true > arg_key_ty cc_key_converted_for_heterolookup( arg_key_ty arg, CC_UNUSED( cc_str_hdr_ty *, str_hdr ) ) { return arg; } #define CC_KEY_CONVERTED_FOR_HETEROLOOKUP( cntr, key ) \ cc_key_converted_for_heterolookup<CC_KEY_TY( cntr ), CC_TYPEOF_XP( key )>( key, &cc_unmove( cc_str_hdr_ty() ) ) \ #else #define CC_KEY_CONVERTED_FOR_HETEROLOOKUP( cntr, key ) \ _Generic( ( CC_TYPEOF_XP( **cntr ) (*)( CC_TYPEOF_XP( key ) ) ){ 0 }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ) (*)( char * ): \ cc_cstring_to_temp_str_char8( _Generic( key, char *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ) (*)( const char * ): \ cc_cstring_to_temp_str_char8( _Generic( key, const char *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ) (*)( unsigned char * ): \ cc_cstring_to_temp_str_char8( _Generic( key, unsigned char *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ) (*)( const unsigned char * ): \ cc_cstring_to_temp_str_char8( _Generic( key, const unsigned char *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ) (*)( signed char * ): \ cc_cstring_to_temp_str_char8( _Generic( key, signed char *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ) (*)( const signed char * ): \ cc_cstring_to_temp_str_char8( _Generic( key, const signed char *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ) (*)( char16_t * ): \ cc_cstring_to_temp_str_char16( _Generic( key, char16_t *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ) (*)( const char16_t * ): \ cc_cstring_to_temp_str_char16( _Generic( key, const char16_t *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ) (*)( char32_t * ): \ cc_cstring_to_temp_str_char32( _Generic( key, char32_t *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ) (*)( const char32_t * ): \ cc_cstring_to_temp_str_char32( _Generic( key, const char32_t *: key, default: NULL ), &(cc_str_hdr_ty){ 0 } ), \ default: key \ ) \ #endif /*--------------------------------------------------------------------------------------------------------------------*/ /* Destructor, comparison, and hash functions and custom load factors */ /*--------------------------------------------------------------------------------------------------------------------*/ // Octal counters that support up to 511 of each function type and 511 load factors. #define CC_N_DTORS_D1 0 // D1 = digit 1, i.e. the least significant digit. #define CC_N_DTORS_D2 0 #define CC_N_DTORS_D3 0 #define CC_N_CMPRS_D1 0 #define CC_N_CMPRS_D2 0 #define CC_N_CMPRS_D3 0 #define CC_N_HASHS_D1 0 #define CC_N_HASHS_D2 0 #define CC_N_HASHS_D3 0 #define CC_N_LOADS_D1 0 #define CC_N_LOADS_D2 0 #define CC_N_LOADS_D3 0 #define CC_CAT_3_( a, b, c ) a##b##c #define CC_CAT_3( a, b, c ) CC_CAT_3_( a, b, c ) #define CC_CAT_4_( a, b, c, d ) a##b##c##d #define CC_CAT_4( a, b, c, d ) CC_CAT_4_( a, b, c, d ) // Macros that provide the current value of each counter as a three-digit octal number preceded by 0. // These numbers are used to form unique type and function names to plug into CC_EL_DTOR, CC_KEY_DTOR, CC_KEY_CMPR, etc. #define CC_N_DTORS CC_CAT_4( 0, CC_N_DTORS_D3, CC_N_DTORS_D2, CC_N_DTORS_D1 ) #define CC_N_CMPRS CC_CAT_4( 0, CC_N_CMPRS_D3, CC_N_CMPRS_D2, CC_N_CMPRS_D1 ) #define CC_N_HASHS CC_CAT_4( 0, CC_N_HASHS_D3, CC_N_HASHS_D2, CC_N_HASHS_D1 ) #define CC_N_LOADS CC_CAT_4( 0, CC_N_LOADS_D3, CC_N_LOADS_D2, CC_N_LOADS_D1 ) // CC_FOR_EACH_XXX macros that call macro m with the first argument n, where n = [0, counter XXX ), // and the second argument arg. // These are used to construct _Generic or ternary expressions that select the correct function (or load factor) for a // container's key or element type (see below). #define CC_CALL_MACRO( m, arg, n ) m( n, arg ) #define CC_R1_0( m, arg, d3, d2 ) #define CC_R1_1( m, arg, d3, d2 ) CC_CALL_MACRO( m, arg, CC_CAT_4( 0, d3, d2, 0 ) ) #define CC_R1_2( m, arg, d3, d2 ) CC_CALL_MACRO( m, arg, CC_CAT_4( 0, d3, d2, 1 ) ) CC_R1_1( m, arg, d3, d2 ) #define CC_R1_3( m, arg, d3, d2 ) CC_CALL_MACRO( m, arg, CC_CAT_4( 0, d3, d2, 2 ) ) CC_R1_2( m, arg, d3, d2 ) #define CC_R1_4( m, arg, d3, d2 ) CC_CALL_MACRO( m, arg, CC_CAT_4( 0, d3, d2, 3 ) ) CC_R1_3( m, arg, d3, d2 ) #define CC_R1_5( m, arg, d3, d2 ) CC_CALL_MACRO( m, arg, CC_CAT_4( 0, d3, d2, 4 ) ) CC_R1_4( m, arg, d3, d2 ) #define CC_R1_6( m, arg, d3, d2 ) CC_CALL_MACRO( m, arg, CC_CAT_4( 0, d3, d2, 5 ) ) CC_R1_5( m, arg, d3, d2 ) #define CC_R1_7( m, arg, d3, d2 ) CC_CALL_MACRO( m, arg, CC_CAT_4( 0, d3, d2, 6 ) ) CC_R1_6( m, arg, d3, d2 ) #define CC_R1_8( m, arg, d3, d2 ) CC_CALL_MACRO( m, arg, CC_CAT_4( 0, d3, d2, 7 ) ) CC_R1_7( m, arg, d3, d2 ) #define CC_R2_0( m, arg, d3 ) #define CC_R2_1( m, arg, d3 ) CC_R1_8( m, arg, d3, 0 ) #define CC_R2_2( m, arg, d3 ) CC_R1_8( m, arg, d3, 1 ) CC_R2_1( m, arg, d3 ) #define CC_R2_3( m, arg, d3 ) CC_R1_8( m, arg, d3, 2 ) CC_R2_2( m, arg, d3 ) #define CC_R2_4( m, arg, d3 ) CC_R1_8( m, arg, d3, 3 ) CC_R2_3( m, arg, d3 ) #define CC_R2_5( m, arg, d3 ) CC_R1_8( m, arg, d3, 4 ) CC_R2_4( m, arg, d3 ) #define CC_R2_6( m, arg, d3 ) CC_R1_8( m, arg, d3, 5 ) CC_R2_5( m, arg, d3 ) #define CC_R2_7( m, arg, d3 ) CC_R1_8( m, arg, d3, 6 ) CC_R2_6( m, arg, d3 ) #define CC_R2_8( m, arg, d3 ) CC_R1_8( m, arg, d3, 7 ) CC_R2_7( m, arg, d3 ) #define CC_R3_0( m, arg ) #define CC_R3_1( m, arg ) CC_R2_8( m, arg, 0 ) #define CC_R3_2( m, arg ) CC_R2_8( m, arg, 1 ) CC_R3_1( m, arg ) #define CC_R3_3( m, arg ) CC_R2_8( m, arg, 2 ) CC_R3_2( m, arg ) #define CC_R3_4( m, arg ) CC_R2_8( m, arg, 3 ) CC_R3_3( m, arg ) #define CC_R3_5( m, arg ) CC_R2_8( m, arg, 4 ) CC_R3_4( m, arg ) #define CC_R3_6( m, arg ) CC_R2_8( m, arg, 5 ) CC_R3_5( m, arg ) #define CC_R3_7( m, arg ) CC_R2_8( m, arg, 6 ) CC_R3_6( m, arg ) #define CC_FOR_OCT_COUNT( m, arg, d3, d2, d1 ) \ CC_CAT_2( CC_R1_, d1 )( m, arg, d3, d2 ) \ CC_CAT_2( CC_R2_, d2 )( m, arg, d3 ) \ CC_CAT_2( CC_R3_, d3 )( m, arg ) \ #define CC_FOR_EACH_DTOR( m, arg ) CC_FOR_OCT_COUNT( m, arg, CC_N_DTORS_D3, CC_N_DTORS_D2, CC_N_DTORS_D1 ) #define CC_FOR_EACH_CMPR( m, arg ) CC_FOR_OCT_COUNT( m, arg, CC_N_CMPRS_D3, CC_N_CMPRS_D2, CC_N_CMPRS_D1 ) #define CC_FOR_EACH_HASH( m, arg ) CC_FOR_OCT_COUNT( m, arg, CC_N_HASHS_D3, CC_N_HASHS_D2, CC_N_HASHS_D1 ) #define CC_FOR_EACH_LOAD( m, arg ) CC_FOR_OCT_COUNT( m, arg, CC_N_LOADS_D3, CC_N_LOADS_D2, CC_N_LOADS_D1 ) // Macros for inferring the destructor, comparison, or hash function or load factor associated with a container's // key or element type, as well as for determining whether a comparison or hash function exists for a type and inferring // certain map function arguments in bulk (argument packs) from the key type. // In C, we use the CC_FOR_EACH_XXXX macros above to create _Generic expressions that select the correct user-defined // function or load factor for the container's key or element types. // For comparison and hash functions, the list of user-defined functions is followed by a nested _Generic statement // containing the default functions for integer types and NULL-terminated strings, which allows the user to overwrite // the default functions. // In C++, we use the same macros combined with std::is_same and ternary expressions to emulate _Generic statements. // Unfortunately, the behavior is not identical because the C++ versions won't generate compile errors if the user // defines multiple functions (e.g. multiple destructors) for the same type. // Hence, it is up to the user to make sure they are not doing that if they are compiling in C++. #ifdef __cplusplus #define CC_EL_DTOR_SLOT( n, arg ) std::is_same<arg, cc_dtor_##n##_ty>::value ? cc_dtor_##n##_fn : #define CC_EL_DTOR( cntr ) \ ( \ CC_FOR_EACH_DTOR( CC_EL_DTOR_SLOT, CC_EL_TY( cntr ) ) \ std::is_same<CC_EL_TY( cntr ), CC_STR_RAW( char )>::value ? cc_destroy_str_char : \ std::is_same<CC_EL_TY( cntr ), CC_STR_RAW( unsigned char )>::value ? cc_destroy_str_unsigned_char : \ std::is_same<CC_EL_TY( cntr ), CC_STR_RAW( signed char )>::value ? cc_destroy_str_signed_char : \ CC_IF_CPP20( std::is_same<CC_EL_TY( cntr ), CC_STR_RAW( char8_t )>::value ? cc_destroy_str_char8 : ) \ std::is_same<CC_EL_TY( cntr ), CC_STR_RAW( char16_t )>::value ? cc_destroy_str_char16 : \ std::is_same<CC_EL_TY( cntr ), CC_STR_RAW( char32_t )>::value ? cc_destroy_str_char32 : \ (cc_dtor_fnptr_ty)NULL \ ) \ #define CC_KEY_DTOR_SLOT( n, arg ) \ std::is_same<CC_TYPEOF_XP(**arg), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( arg ), cc_dtor_##n##_ty ) >::value ? \ cc_dtor_##n##_fn : \ #define CC_KEY_DTOR( cntr ) \ ( \ CC_FOR_EACH_DTOR( CC_KEY_DTOR_SLOT, cntr ) \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char ) )>::value ? \ cc_destroy_str_char : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) )>::value ? \ cc_destroy_str_unsigned_char : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) )>::value ? \ cc_destroy_str_signed_char : \ CC_IF_CPP20( \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char8_t ) )>::value ? \ cc_destroy_str_char8 : \ ) \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) )>::value ? \ cc_destroy_str_char16 : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) )>::value ? \ cc_destroy_str_char32 : \ (cc_dtor_fnptr_ty)NULL \ ) \ #define CC_KEY_CMPR_SLOT( n, arg ) \ std::is_same<CC_TYPEOF_XP(**arg), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( arg ), cc_cmpr_##n##_ty ) >::value ? \ cc_cmpr_##n##_fn_select : \ #define CC_KEY_CMPR( cntr ) \ ( \ CC_FOR_EACH_CMPR( CC_KEY_CMPR_SLOT, cntr ) \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), char )>::value ? \ cc_cmpr_char_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned char )>::value ? \ cc_cmpr_unsigned_char_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), signed char )>::value ? \ cc_cmpr_signed_char_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned short )>::value ? \ cc_cmpr_unsigned_short_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), short )>::value ? \ cc_cmpr_short_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned int )>::value ? \ cc_cmpr_unsigned_int_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), int )>::value ? \ cc_cmpr_int_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long )>::value ? \ cc_cmpr_unsigned_long_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long )>::value ? \ cc_cmpr_long_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long long )>::value ? \ cc_cmpr_unsigned_long_long_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long long )>::value ? \ cc_cmpr_long_long_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), size_t )>::value ? \ cc_cmpr_size_t_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), char * )>::value ? \ cc_cmpr_cstring_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), const char * )>::value ? \ cc_cmpr_cstring_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char ) )>::value ? \ cc_cmpr_str_char_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) )>::value ? \ cc_cmpr_str_unsigned_char_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) )>::value ? \ cc_cmpr_str_signed_char_select : \ CC_IF_CPP20( \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char8_t ) )>::value ? \ cc_cmpr_str_char8_select : \ ) \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) )>::value ? \ cc_cmpr_str_char16_select : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) )>::value ? \ cc_cmpr_str_char32_select : \ cc_cmpr_dummy_select \ )( CC_CNTR_ID( cntr ) ) \ #define CC_KEY_HASH_SLOT( n, arg ) \ std::is_same<CC_TYPEOF_XP(**arg), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( arg ), cc_hash_##n##_ty )>::value ? \ cc_hash_##n##_fn : \ #define CC_KEY_HASH( cntr ) \ ( \ CC_FOR_EACH_HASH( CC_KEY_HASH_SLOT, cntr ) \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), char )>::value ? \ cc_hash_char : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned char )>::value ? \ cc_hash_unsigned_char : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), signed char )>::value ? \ cc_hash_signed_char : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned short )>::value ? \ cc_hash_unsigned_short : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), short )>::value ? \ cc_hash_short : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned int )>::value ? \ cc_hash_unsigned_int : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), int )>::value ? \ cc_hash_int : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long )>::value ? \ cc_hash_unsigned_long : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long )>::value ? \ cc_hash_long : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long long )>::value ? \ cc_hash_unsigned_long_long : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long long )>::value ? \ cc_hash_long_long : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), size_t )>::value ? \ cc_hash_size_t : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), char * )>::value ? \ cc_hash_cstring : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), const char * )>::value ? \ cc_hash_cstring : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char ) )>::value ? \ cc_hash_str_char : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) )>::value ? \ cc_hash_str_unsigned_char : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) )>::value ? \ cc_hash_str_signed_char : \ CC_IF_CPP20( \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char8_t ) )>::value ? \ cc_hash_str_char8 : \ ) \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) )>::value ? \ cc_hash_str_char16 : \ std::is_same<CC_TYPEOF_XP(**cntr), CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) )>::value ? \ cc_hash_str_char32 : \ (cc_hash_fnptr_ty)NULL \ ) \ #define CC_HAS_CMPR_SLOT( n, arg ) std::is_same<arg, cc_cmpr_##n##_ty>::value ? true : #define CC_HAS_CMPR( ty ) \ ( \ std::is_same<ty, char>::value ? true : \ std::is_same<ty, unsigned char>::value ? true : \ std::is_same<ty, signed char>::value ? true : \ std::is_same<ty, unsigned short>::value ? true : \ std::is_same<ty, signed short>::value ? true : \ std::is_same<ty, unsigned int>::value ? true : \ std::is_same<ty, signed int>::value ? true : \ std::is_same<ty, unsigned long>::value ? true : \ std::is_same<ty, signed long>::value ? true : \ std::is_same<ty, unsigned long long>::value ? true : \ std::is_same<ty, signed long long>::value ? true : \ std::is_same<ty, size_t>::value ? true : \ std::is_same<ty, char *>::value ? true : \ std::is_same<ty, const char *>::value ? true : \ std::is_same<ty, CC_STR_RAW( char )>::value ? true : \ std::is_same<ty, CC_STR_RAW( unsigned char )>::value ? true : \ std::is_same<ty, CC_STR_RAW( signed char )>::value ? true : \ CC_IF_CPP20( std::is_same<ty, CC_STR_RAW( char8_t )>::value ? true : ) \ std::is_same<ty, CC_STR_RAW( char16_t )>::value ? true : \ std::is_same<ty, CC_STR_RAW( char32_t )>::value ? true : \ CC_FOR_EACH_CMPR( CC_HAS_CMPR_SLOT, ty ) \ false \ ) \ #define CC_HAS_HASH_SLOT( n, arg ) std::is_same<arg, cc_hash_##n##_ty>::value ? true : #define CC_HAS_HASH( ty ) \ ( \ std::is_same<ty, char>::value ? true : \ std::is_same<ty, unsigned char>::value ? true : \ std::is_same<ty, signed char>::value ? true : \ std::is_same<ty, unsigned short>::value ? true : \ std::is_same<ty, signed short>::value ? true : \ std::is_same<ty, unsigned int>::value ? true : \ std::is_same<ty, signed int>::value ? true : \ std::is_same<ty, unsigned long>::value ? true : \ std::is_same<ty, signed long>::value ? true : \ std::is_same<ty, unsigned long long>::value ? true : \ std::is_same<ty, signed long long>::value ? true : \ std::is_same<ty, size_t>::value ? true : \ std::is_same<ty, char *>::value ? true : \ std::is_same<ty, const char *>::value ? true : \ std::is_same<ty, CC_STR_RAW( char )>::value ? true : \ std::is_same<ty, CC_STR_RAW( unsigned char )>::value ? true : \ std::is_same<ty, CC_STR_RAW( signed char )>::value ? true : \ CC_IF_CPP20( std::is_same<ty, CC_STR_RAW( char8_t )>::value ? true : ) \ std::is_same<ty, CC_STR_RAW( char16_t )>::value ? true : \ std::is_same<ty, CC_STR_RAW( char32_t )>::value ? true : \ CC_FOR_EACH_HASH( CC_HAS_HASH_SLOT, ty ) \ false \ ) \ #define CC_KEY_LOAD_SLOT( n, arg ) \ std::is_same< \ CC_TYPEOF_XP(**arg), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( arg ), cc_load_##n##_ty ) \ >::value ? cc_load_##n##_val : \ #define CC_KEY_LOAD( cntr ) \ ( \ CC_FOR_EACH_LOAD( CC_KEY_LOAD_SLOT, cntr ) \ CC_DEFAULT_LOAD \ ) \ #define CC_LAYOUT( cntr ) \ cc_layout( \ CC_CNTR_ID( cntr ), \ CC_EL_SIZE( cntr ), \ alignof( CC_EL_TY( cntr ) ), \ cc_key_details_ty{ sizeof( CC_KEY_TY( cntr ) ), alignof( CC_KEY_TY( cntr ) ) } \ ) \ #else #define CC_EL_DTOR_SLOT( n, arg ) cc_dtor_##n##_ty: cc_dtor_##n##_fn, #define CC_EL_DTOR( cntr ) \ _Generic( (CC_EL_TY( cntr )){ 0 }, \ CC_FOR_EACH_DTOR( CC_EL_DTOR_SLOT, ) \ default: _Generic( (CC_EL_TY( cntr )){ 0 }, \ CC_STR_RAW( cc_maybe_char ): cc_destroy_str_char, \ CC_STR_RAW( unsigned char ): cc_destroy_str_unsigned_char, \ CC_STR_RAW( signed char ): cc_destroy_str_signed_char, \ CC_STR_RAW( char16_t ): cc_destroy_str_char16, \ CC_STR_RAW( char32_t ): cc_destroy_str_char32, \ default: (cc_dtor_fnptr_ty)NULL \ ) \ ) \ #define CC_KEY_DTOR_SLOT( n, arg ) CC_MAKE_BASE_FNPTR_TY( arg, cc_dtor_##n##_ty ): cc_dtor_##n##_fn, #define CC_KEY_DTOR( cntr ) \ _Generic( (**cntr), \ CC_FOR_EACH_DTOR( CC_KEY_DTOR_SLOT, CC_EL_TY( cntr ) ) \ default: _Generic( (**cntr), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ): cc_destroy_str_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ): cc_destroy_str_unsigned_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ): cc_destroy_str_signed_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ): cc_destroy_str_char16, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ): cc_destroy_str_char32, \ default: (cc_dtor_fnptr_ty)NULL \ ) \ ) \ #define CC_KEY_CMPR_SLOT( n, arg ) CC_MAKE_BASE_FNPTR_TY( arg, cc_cmpr_##n##_ty ): cc_cmpr_##n##_fn_select, #define CC_KEY_CMPR( cntr ) \ _Generic( (**cntr), \ CC_FOR_EACH_CMPR( CC_KEY_CMPR_SLOT, CC_EL_TY( cntr ) ) \ default: _Generic( (**cntr), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), cc_maybe_char ): cc_cmpr_char_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned char ): cc_cmpr_unsigned_char_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), signed char ): cc_cmpr_signed_char_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned short ): cc_cmpr_unsigned_short_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), short ): cc_cmpr_short_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned int ): cc_cmpr_unsigned_int_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), int ): cc_cmpr_int_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long ): cc_cmpr_unsigned_long_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long ): cc_cmpr_long_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long long ): cc_cmpr_unsigned_long_long_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long long ): cc_cmpr_long_long_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), cc_maybe_size_t ): cc_cmpr_size_t_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), char * ): cc_cmpr_cstring_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), const char * ): cc_cmpr_cstring_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ): cc_cmpr_str_char_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ): cc_cmpr_str_unsigned_char_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ): cc_cmpr_str_signed_char_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ): cc_cmpr_str_char16_select, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ): cc_cmpr_str_char32_select, \ default: cc_cmpr_dummy_select \ ) \ )( CC_CNTR_ID( cntr ) ) \ #define CC_KEY_HASH_SLOT( n, arg ) CC_MAKE_BASE_FNPTR_TY( arg, cc_hash_##n##_ty ): cc_hash_##n##_fn, #define CC_KEY_HASH( cntr ) \ _Generic( (**cntr), \ CC_FOR_EACH_HASH( CC_KEY_HASH_SLOT, CC_EL_TY( cntr ) ) \ default: _Generic( (**cntr), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), cc_maybe_char ): cc_hash_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned char ): cc_hash_unsigned_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), signed char ): cc_hash_signed_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned short ): cc_hash_unsigned_short, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), short ): cc_hash_short, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned int ): cc_hash_unsigned_int, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), int ): cc_hash_int, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long ): cc_hash_unsigned_long, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long ): cc_hash_long, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long long ): cc_hash_unsigned_long_long, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long long ): cc_hash_long_long, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), cc_maybe_size_t ): cc_hash_size_t, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), char * ): cc_hash_cstring, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), const char * ): cc_hash_cstring, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ): cc_hash_str_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ): cc_hash_str_unsigned_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ): cc_hash_str_signed_char, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ): cc_hash_str_char16, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ): cc_hash_str_char32, \ default: (cc_hash_fnptr_ty)NULL \ ) \ ) \ #define CC_HAS_CMPR_SLOT( n, arg ) cc_cmpr_##n##_ty: true, #define CC_HAS_CMPR( ty ) \ _Generic( (ty){ 0 }, \ CC_FOR_EACH_CMPR( CC_HAS_CMPR_SLOT, ) \ default: _Generic( (ty){ 0 }, \ cc_maybe_char: true, \ unsigned char: true, \ signed char: true, \ unsigned short: true, \ short: true, \ unsigned int: true, \ int: true, \ unsigned long: true, \ long: true, \ unsigned long long: true, \ long long: true, \ cc_maybe_size_t: true, \ char *: true, \ const char *: true, \ CC_STR_RAW( cc_maybe_char ): true, \ CC_STR_RAW( unsigned char ): true, \ CC_STR_RAW( signed char ): true, \ CC_STR_RAW( char16_t ): true, \ CC_STR_RAW( char32_t ): true, \ default: false \ ) \ ) \ #define CC_HAS_HASH_SLOT( n, arg ) cc_hash_##n##_ty: true, #define CC_HAS_HASH( ty ) \ _Generic( (ty){ 0 }, \ CC_FOR_EACH_HASH( CC_HAS_HASH_SLOT, ) \ default: _Generic( (ty){ 0 }, \ cc_maybe_char: true, \ unsigned char: true, \ signed char: true, \ unsigned short: true, \ short: true, \ unsigned int: true, \ int: true, \ unsigned long: true, \ long: true, \ unsigned long long: true, \ long long: true, \ cc_maybe_size_t: true, \ char *: true, \ const char *: true, \ CC_STR_RAW( cc_maybe_char ): true, \ CC_STR_RAW( unsigned char ): true, \ CC_STR_RAW( signed char ): true, \ CC_STR_RAW( char16_t ): true, \ CC_STR_RAW( char32_t ): true, \ default: false \ ) \ ) \ #define CC_KEY_LOAD_SLOT( n, arg ) CC_MAKE_BASE_FNPTR_TY( arg, cc_load_##n##_ty ): cc_load_##n##_val, #define CC_KEY_LOAD( cntr ) \ _Generic( (**cntr), \ CC_FOR_EACH_LOAD( CC_KEY_LOAD_SLOT, CC_EL_TY( cntr ) ) \ default: CC_DEFAULT_LOAD \ ) \ #define CC_KEY_DETAILS_SLOT( n, arg ) \ CC_MAKE_BASE_FNPTR_TY( arg, cc_cmpr_##n##_ty ): \ ( cc_key_details_ty ){ sizeof( cc_cmpr_##n##_ty ), alignof( cc_cmpr_##n##_ty ) }, \ #define CC_KEY_DETAILS( cntr ) \ _Generic( (**cntr), \ CC_FOR_EACH_CMPR( CC_KEY_DETAILS_SLOT, CC_EL_TY( cntr ) ) \ default: _Generic( (**cntr), \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), cc_maybe_char ): \ ( cc_key_details_ty ){ sizeof( char ), alignof( char ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned char ) : \ ( cc_key_details_ty ){ sizeof( unsigned char ), alignof( unsigned char ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), signed char ) : \ ( cc_key_details_ty ){ sizeof( signed char ), alignof( signed char ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned short ) : \ ( cc_key_details_ty ){ sizeof( unsigned short ), alignof( unsigned short ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), short ) : \ ( cc_key_details_ty ){ sizeof( short ), alignof( short ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned int ) : \ ( cc_key_details_ty ){ sizeof( unsigned int ), alignof( unsigned int ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), int ) : \ ( cc_key_details_ty ){ sizeof( int ), alignof( int ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long ): \ ( cc_key_details_ty ){ sizeof( unsigned long ), alignof( unsigned long ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long ): \ ( cc_key_details_ty ){ sizeof( long ), alignof( long ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), unsigned long long ): \ ( cc_key_details_ty ){ sizeof( unsigned long long ), alignof( unsigned long long ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), long long ): \ ( cc_key_details_ty ){ sizeof( long long ), alignof( long long ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), cc_maybe_size_t ): \ ( cc_key_details_ty ){ sizeof( size_t ), alignof( size_t ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), char * ): \ ( cc_key_details_ty ){ sizeof( char * ), alignof( char * ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), const char * ): \ ( cc_key_details_ty ){ sizeof( const char * ), alignof( const char * ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( cc_maybe_char ) ): \ ( cc_key_details_ty ){ sizeof( CC_STR_RAW( char ) ), alignof( CC_STR_RAW( char ) ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( unsigned char ) ): \ ( cc_key_details_ty ){ sizeof( CC_STR_RAW( unsigned char ) ), alignof( CC_STR_RAW( unsigned char ) ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( signed char ) ): \ ( cc_key_details_ty ){ sizeof( CC_STR_RAW( signed char ) ), alignof( CC_STR_RAW( signed char ) ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char16_t ) ): \ ( cc_key_details_ty ){ sizeof( CC_STR_RAW( char16_t ) ), alignof( CC_STR_RAW( char16_t ) ) }, \ CC_MAKE_BASE_FNPTR_TY( CC_EL_TY( cntr ), CC_STR_RAW( char32_t ) ): \ ( cc_key_details_ty ){ sizeof( CC_STR_RAW( char32_t ) ), alignof( CC_STR_RAW( char32_t ) ) }, \ default: ( cc_key_details_ty ){ 0 } \ ) \ ) \ #define CC_LAYOUT( cntr ) \ cc_layout( CC_CNTR_ID( cntr ), CC_EL_SIZE( cntr ), alignof( CC_EL_TY( cntr ) ), CC_KEY_DETAILS( cntr ) ) \ #endif // Macros for extracting the type and function body or load factor from user-defined DTOR, CMPR, HASH, and LOAD macros. #define CC_1ST_ARG_( _1, ... ) _1 #define CC_1ST_ARG( ... ) CC_MSVC_PP_FIX( CC_1ST_ARG_( __VA_ARGS__ ) ) #define CC_OTHER_ARGS_( _1, ... ) __VA_ARGS__ #define CC_OTHER_ARGS( ... ) CC_MSVC_PP_FIX( CC_OTHER_ARGS_( __VA_ARGS__ ) ) // Default hash and comparison functions for fundamental types. // Integer types. static inline size_t cc_hash_uint64( uint64_t val ) { #if SIZE_MAX == 0xFFFFFFFFFFFFFFFF || SIZE_MAX == 0xFFFFFFFF // 64-bit or 32-bit size_t. // Fast-hash: https://jonkagstrom.com/bit-mixer-construction // https://code.google.com/archive/p/fast-hash val ^= val >> 23; val *= 0x2127599BF4325C37ULL; val ^= val >> 47; #if SIZE_MAX == 0xFFFFFFFFFFFFFFFF return (size_t)( val ); #elif SIZE_MAX == 0xFFFFFFFF return (size_t)( val - ( val >> 32 ) ); #endif #else // Unknown size_t, fall back on Knuth. return (size_t)( val * 2654435761ULL ); #endif } // Comparison functionality for each type is split between an equality function and a three-way comparison function. // A select function returns a pointer to the relevant of these two functions based on the container type. // This bifurcation, instead of just one three-way comparison function, allows containers that need only check for // equality (namely maps and sets) to use a more optimized comparison without any increase to the number of _Generic // statements inside API macros or complication to the API for defining custom comparison functions (see "DEFINING // DESTRUCTOR, COMPARISON, OR HASH FUNCTION OR LOAD FACTOR MODE" below for more details). #define CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( ty, name ) \ \ static inline int cc_cmpr_##name##_three_way( void *void_val_1, void *void_val_2 ) \ { \ return ( *(ty *)void_val_1 > *(ty *)void_val_2 ) - ( *(ty *)void_val_1 < *(ty *)void_val_2 ); \ } \ \ static inline int cc_cmpr_##name##_equal( void *void_val_1, void *void_val_2 ) \ { \ return *(ty *)void_val_1 == *(ty *)void_val_2; \ } \ \ static inline CC_ALWAYS_INLINE cc_cmpr_fnptr_ty cc_cmpr_##name##_select( size_t cntr_id ) \ { \ return cntr_id == CC_MAP || cntr_id == CC_SET ? cc_cmpr_##name##_equal : cc_cmpr_##name##_three_way; \ } \ \ static inline size_t cc_hash_##name( void *void_val ) \ { \ return cc_hash_uint64( (uint64_t)*(ty *)void_val ); \ } \ CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( char, char ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( unsigned char, unsigned_char ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( signed char, signed_char ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( unsigned short, unsigned_short ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( short, short ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( unsigned int, unsigned_int ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( int, int ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( unsigned long, unsigned_long ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( long, long ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( unsigned long long, unsigned_long_long ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( long long, long_long ) CC_DEFAULT_INTEGER_CMPR_HASH_FUNCTIONS( size_t, size_t ) // For hashing both CC strings and regular C strings, we use the public-domain Wyhash // (https://github.com/wangyi-fudan/wyhash) with the following modifications: // * We use a fixed seed and secret (the defaults suggested in the Wyhash repository). // * We do not handle endianness, so the result will differ depending on the platform. // * We omit the code optimized for 32-bit platforms. static inline void cc_wymum( uint64_t *a, uint64_t *b ) { #if defined( __SIZEOF_INT128__ ) __uint128_t r = *a; r *= *b; *a = (uint64_t)r; *b = (uint64_t)( r >> 64 ); #elif defined( _MSC_VER ) && defined( _M_X64 ) *a = _umul128( *a, *b, b ); #else uint64_t ha = *a >> 32; uint64_t hb = *b >> 32; uint64_t la = (uint32_t)*a; uint64_t lb = (uint32_t)*b; uint64_t rh = ha * hb; uint64_t rm0 = ha * lb; uint64_t rm1 = hb * la; uint64_t rl = la * lb; uint64_t t = rl + ( rm0 << 32 ); uint64_t c = t < rl; uint64_t lo = t + ( rm1 << 32 ); c += lo < t; uint64_t hi = rh + ( rm0 >> 32 ) + ( rm1 >> 32 ) + c; *a = lo; *b = hi; #endif } static inline uint64_t cc_wymix( uint64_t a, uint64_t b ) { cc_wymum( &a, &b ); return a ^ b; } static inline uint64_t cc_wyr8( const unsigned char *p ) { uint64_t v; memcpy( &v, p, 8 ); return v; } static inline uint64_t cc_wyr4( const unsigned char *p ) { uint32_t v; memcpy( &v, p, 4 ); return v; } static inline uint64_t cc_wyr3( const unsigned char *p, size_t k ) { return ( ( (uint64_t)p[ 0 ] ) << 16 ) | ( ( (uint64_t)p[ k >> 1 ] ) << 8 ) | p[ k - 1 ]; } static inline size_t cc_wyhash( const void *key, size_t len ) { const unsigned char *p = (const unsigned char *)key; uint64_t seed = 0xCA813BF4C7ABF0A9ULL; uint64_t a; uint64_t b; if( CC_LIKELY( len <= 16 ) ) { if( CC_LIKELY( len >= 4 ) ) { a = ( cc_wyr4( p ) << 32 ) | cc_wyr4( p + ( ( len >> 3 ) << 2 ) ); b = ( cc_wyr4( p + len - 4 ) << 32 ) | cc_wyr4( p + len - 4 - ( ( len >> 3 ) << 2 ) ); } else if( CC_LIKELY( len > 0 ) ) { a = cc_wyr3( p, len ); b = 0; } else { a = 0; b = 0; } } else { size_t i = len; if( CC_UNLIKELY( i >= 48 ) ) { uint64_t see1 = seed; uint64_t see2 = seed; do{ seed = cc_wymix( cc_wyr8( p ) ^ 0x8BB84B93962EACC9ULL, cc_wyr8( p + 8 ) ^ seed ); see1 = cc_wymix( cc_wyr8( p + 16 ) ^ 0x4B33A62ED433D4A3ULL, cc_wyr8( p + 24 ) ^ see1 ); see2 = cc_wymix( cc_wyr8( p + 32 ) ^ 0x4D5A2DA51DE1AA47ULL, cc_wyr8( p + 40 ) ^ see2 ); p += 48; i -= 48; } while( CC_LIKELY( i >= 48 ) ); seed ^= see1 ^ see2; } while( CC_UNLIKELY( i > 16 ) ) { seed = cc_wymix( cc_wyr8( p ) ^ 0x8BB84B93962EACC9ULL, cc_wyr8( p + 8 ) ^ seed ); i -= 16; p += 16; } a = cc_wyr8( p + i - 16 ); b = cc_wyr8( p + i - 8 ); } a ^= 0x8BB84B93962EACC9ULL; b ^= seed; cc_wymum( &a, &b ); return (size_t)cc_wymix( a ^ 0x2D358DCCAA6C78A5ULL ^ len, b ^ 0x8BB84B93962EACC9ULL ); } // Null-terminated C strings. static inline int cc_cmpr_cstring_three_way( void *void_val_1, void *void_val_2 ) { return strcmp( *(char **)void_val_1, *(char **)void_val_2 ); } static inline int cc_cmpr_cstring_equal( void *void_val_1, void *void_val_2 ) { return strcmp( *(char **)void_val_1, *(char **)void_val_2 ) == 0; } static inline cc_cmpr_fnptr_ty cc_cmpr_cstring_select( size_t cntr_id ) { return cntr_id == CC_MAP || cntr_id == CC_SET ? cc_cmpr_cstring_equal : cc_cmpr_cstring_three_way; } static inline size_t cc_hash_cstring( void *void_val ) { const char *val = *(const char **)void_val; return cc_wyhash( val, strlen( val ) ); } // CC strings. static inline int cc_cmpr_str_char_three_way( void *void_val_1, void *void_val_2 ) { return strcmp( (const char *)cc_str_first( *(CC_STR_RAW( char ) *)void_val_1, 0 /* Dummy */, 0 /* Dummy */ ), (const char *)cc_str_first( *(CC_STR_RAW( char ) *)void_val_2, 0 /* Dummy */, 0 /* Dummy */ ) ); } static inline int cc_cmpr_str_unsigned_char_three_way( void *void_val_1, void *void_val_2 ) { return strcmp( (const char *)cc_str_first( *(CC_STR_RAW( unsigned char ) *)void_val_1, 0 /* Dummy */, 0 /* Dummy */ ), (const char *)cc_str_first( *(CC_STR_RAW( unsigned char ) *)void_val_2, 0 /* Dummy */, 0 /* Dummy */ ) ); } static inline int cc_cmpr_str_signed_char_three_way( void *void_val_1, void *void_val_2 ) { return strcmp( (const char *)cc_str_first( *(CC_STR_RAW( signed char ) *)void_val_1, 0 /* Dummy */, 0 /* Dummy */ ), (const char *)cc_str_first( *(CC_STR_RAW( signed char ) *)void_val_2, 0 /* Dummy */, 0 /* Dummy */ ) ); } #if defined( __cplusplus ) && __cplusplus >= 202101L static inline int cc_cmpr_str_char8_three_way( void *void_val_1, void *void_val_2 ) { return strcmp( (const char *)cc_str_first( *(CC_STR_RAW( char8_t ) *)void_val_1, 0 /* Dummy */, 0 /* Dummy */ ), (const char *)cc_str_first( *(CC_STR_RAW( char8_t ) *)void_val_2, 0 /* Dummy */, 0 /* Dummy */ ) ); } #endif static inline int cc_cmpr_str_char16_three_way( void *void_val_1, void *void_val_2 ) { char16_t *els_1 = (char16_t *)cc_str_first( *(CC_STR_RAW( char16_t ) *)void_val_1, 0 /* Dummy */, 0 /* Dummy */ ); char16_t *els_2 = (char16_t *)cc_str_first( *(CC_STR_RAW( char16_t ) *)void_val_2, 0 /* Dummy */, 0 /* Dummy */ ); while( true ) { if( *els_1 < *els_2 ) return -1; if( *els_1 > *els_2 ) return 1; if( !*els_1 ) return 0; ++els_1; ++els_2; } } static inline int cc_cmpr_str_char32_three_way( void *void_val_1, void *void_val_2 ) { char32_t *els_1 = (char32_t *)cc_str_first( *(CC_STR_RAW( char32_t ) *)void_val_1, 0 /* Dummy */, 0 /* Dummy */ ); char32_t *els_2 = (char32_t *)cc_str_first( *(CC_STR_RAW( char32_t ) *)void_val_2, 0 /* Dummy */, 0 /* Dummy */ ); while( true ) { if( *els_1 < *els_2 ) return -1; if( *els_1 > *els_2 ) return 1; if( !*els_1 ) return 0; ++els_1; ++els_2; } } static inline int cc_cmpr_str_char_equal( void *void_val_1, void *void_val_2 ) { CC_STR_RAW( char ) val_1 = *(CC_STR_RAW( char ) *)void_val_1; CC_STR_RAW( char ) val_2 = *(CC_STR_RAW( char ) *)void_val_2; if( cc_str_size( val_1 ) != cc_str_size( val_2 ) ) return false; return memcmp( cc_str_first( val_1, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_first( val_2, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val_1 ) ) == 0; } static inline int cc_cmpr_str_unsigned_char_equal( void *void_val_1, void *void_val_2 ) { CC_STR_RAW( unsigned char ) val_1 = *(CC_STR_RAW( unsigned char ) *)void_val_1; CC_STR_RAW( unsigned char ) val_2 = *(CC_STR_RAW( unsigned char ) *)void_val_2; if( cc_str_size( val_1 ) != cc_str_size( val_2 ) ) return false; return memcmp( cc_str_first( val_1, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_first( val_2, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val_1 ) ) == 0; } static inline int cc_cmpr_str_signed_char_equal( void *void_val_1, void *void_val_2 ) { CC_STR_RAW( signed char ) val_1 = *(CC_STR_RAW( signed char ) *)void_val_1; CC_STR_RAW( signed char ) val_2 = *(CC_STR_RAW( signed char ) *)void_val_2; if( cc_str_size( val_1 ) != cc_str_size( val_2 ) ) return false; return memcmp( cc_str_first( val_1, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_first( val_2, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val_1 ) ) == 0; } #if defined( __cplusplus ) && __cplusplus >= 202101L static inline int cc_cmpr_str_char8_equal( void *void_val_1, void *void_val_2 ) { CC_STR_RAW( char8_t ) val_1 = *(CC_STR_RAW( char8_t ) *)void_val_1; CC_STR_RAW( char8_t ) val_2 = *(CC_STR_RAW( char8_t ) *)void_val_2; if( cc_str_size( val_1 ) != cc_str_size( val_2 ) ) return false; return memcmp( cc_str_first( val_1, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_first( val_2, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val_1 ) ) == 0; } #endif static inline int cc_cmpr_str_char16_equal( void *void_val_1, void *void_val_2 ) { CC_STR_RAW( char16_t ) val_1 = *(CC_STR_RAW( char16_t ) *)void_val_1; CC_STR_RAW( char16_t ) val_2 = *(CC_STR_RAW( char16_t ) *)void_val_2; if( cc_str_size( val_1 ) != cc_str_size( val_2 ) ) return false; return memcmp( cc_str_first( val_1, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_first( val_2, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val_1 ) ) == 0; } static inline int cc_cmpr_str_char32_equal( void *void_val_1, void *void_val_2 ) { CC_STR_RAW( char32_t ) val_1 = *(CC_STR_RAW( char32_t ) *)void_val_1; CC_STR_RAW( char32_t ) val_2 = *(CC_STR_RAW( char32_t ) *)void_val_2; if( cc_str_size( val_1 ) != cc_str_size( val_2 ) ) return false; return memcmp( cc_str_first( val_1, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_first( val_2, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val_1 ) ) == 0; } static inline cc_cmpr_fnptr_ty cc_cmpr_str_char_select( size_t cntr_id ) { return cntr_id == CC_MAP || cntr_id == CC_SET ? cc_cmpr_str_char_equal : cc_cmpr_str_char_three_way; } static inline cc_cmpr_fnptr_ty cc_cmpr_str_unsigned_char_select( size_t cntr_id ) { return cntr_id == CC_MAP || cntr_id == CC_SET ? cc_cmpr_str_unsigned_char_equal : cc_cmpr_str_unsigned_char_three_way; } static inline cc_cmpr_fnptr_ty cc_cmpr_str_signed_char_select( size_t cntr_id ) { return cntr_id == CC_MAP || cntr_id == CC_SET ? cc_cmpr_str_signed_char_equal : cc_cmpr_str_signed_char_three_way; } #if defined( __cplusplus ) && __cplusplus >= 202101L static inline cc_cmpr_fnptr_ty cc_cmpr_str_char8_select( size_t cntr_id ) { return cntr_id == CC_MAP || cntr_id == CC_SET ? cc_cmpr_str_char8_equal : cc_cmpr_str_char8_three_way; } #endif static inline cc_cmpr_fnptr_ty cc_cmpr_str_char16_select( size_t cntr_id ) { return cntr_id == CC_MAP || cntr_id == CC_SET ? cc_cmpr_str_char16_equal : cc_cmpr_str_char16_three_way; } static inline cc_cmpr_fnptr_ty cc_cmpr_str_char32_select( size_t cntr_id ) { return cntr_id == CC_MAP || cntr_id == CC_SET ? cc_cmpr_str_char32_equal : cc_cmpr_str_char32_three_way; } static inline size_t cc_hash_str_char( void *void_val ) { CC_STR_RAW( char ) val = *(CC_STR_RAW( char ) *)void_val; return cc_wyhash( cc_str_first( val, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val ) ); } static inline size_t cc_hash_str_unsigned_char( void *void_val ) { CC_STR_RAW( unsigned char ) val = *(CC_STR_RAW( unsigned char ) *)void_val; return cc_wyhash( cc_str_first( val, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val ) ); } static inline size_t cc_hash_str_signed_char( void *void_val ) { CC_STR_RAW( signed char ) val = *(CC_STR_RAW( signed char ) *)void_val; return cc_wyhash( cc_str_first( val, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val ) ); } #if defined( __cplusplus ) && __cplusplus >= 202101L static inline size_t cc_hash_str_char8( void *void_val ) { CC_STR_RAW( char8_t ) val = *(CC_STR_RAW( char8_t ) *)void_val; return cc_wyhash( cc_str_first( val, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val ) ); } #endif static inline size_t cc_hash_str_char16( void *void_val ) { CC_STR_RAW( char16_t ) val = *(CC_STR_RAW( char16_t ) *)void_val; return cc_wyhash( cc_str_first( val, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val ) * sizeof( char16_t ) ); } static inline size_t cc_hash_str_char32( void *void_val ) { CC_STR_RAW( char32_t ) val = *(CC_STR_RAW( char32_t ) *)void_val; return cc_wyhash( cc_str_first( val, 0 /* Dummy */, 0 /* Dummy */ ), cc_str_size( val ) * sizeof( char32_t ) ); } // Dummy for containers with no comparison function. static inline CC_ALWAYS_INLINE cc_cmpr_fnptr_ty cc_cmpr_dummy_select( CC_UNUSED( size_t, cntr_id ) ) { return NULL; } // Default destructors for CC strings. static inline void cc_destroy_str_char( void *void_val, cc_free_fnptr_ty free_ ) { cc_str_cleanup( *(CC_STR_RAW( char ) *)void_val, sizeof( char ), 0, // Dummy. NULL, // Dummy. NULL, // Dummy. free_ ); } static inline void cc_destroy_str_unsigned_char( void *void_val, cc_free_fnptr_ty free_ ) { cc_str_cleanup( *(CC_STR_RAW( unsigned char ) *)void_val, sizeof( char ), 0, // Dummy. NULL, // Dummy. NULL, // Dummy. free_ ); } static inline void cc_destroy_str_signed_char( void *void_val, cc_free_fnptr_ty free_ ) { cc_str_cleanup( *(CC_STR_RAW( signed char ) *)void_val, sizeof( char ), 0, // Dummy. NULL, // Dummy. NULL, // Dummy. free_ ); } #if defined( __cplusplus ) && __cplusplus >= 202101L static inline void cc_destroy_str_char8( void *void_val, cc_free_fnptr_ty free_ ) { cc_str_cleanup( *(CC_STR_RAW( char8_t ) *)void_val, sizeof( char ), 0, // Dummy. NULL, // Dummy. NULL, // Dummy. free_ ); } #endif static inline void cc_destroy_str_char16( void *void_val, cc_free_fnptr_ty free_ ) { cc_str_cleanup( *(CC_STR_RAW( char16_t ) *)void_val, sizeof( char ), 0, // Dummy. NULL, // Dummy. NULL, // Dummy. free_ ); } static inline void cc_destroy_str_char32( void *void_val, cc_free_fnptr_ty free_ ) { cc_str_cleanup( *(CC_STR_RAW( char32_t ) *)void_val, sizeof( char ), 0, // Dummy. NULL, // Dummy. NULL, // Dummy. free_ ); } #endif #else/*---------------------------------------------------------------------------------------------------------------*/ /* */ /* DEFINING DESTRUCTOR, COMPARISON, OR HASH FUNCTION OR LOAD FACTOR MODE */ /* */ /*--------------------------------------------------------------------------------------------------------------------*/ #ifdef CC_DTOR // Convert the user-defined CC_DTOR macro into a cc_dtor_XXXX_ty and cc_dtor_XXXX_fn pair that can be plugged into the // CC_GET_EL_DTOR and CC_GET_KEY_DTOR macros above. typedef CC_TYPEOF_TY( CC_1ST_ARG( CC_DTOR ) ) CC_CAT_3( cc_dtor_, CC_N_DTORS, _ty ); static inline void CC_CAT_3( cc_dtor_, CC_N_DTORS, _fn )( void *void_val, CC_UNUSED( cc_free_fnptr_ty, free_ ) ) { CC_CAT_3( cc_dtor_, CC_N_DTORS, _ty ) val = *(CC_CAT_3( cc_dtor_, CC_N_DTORS, _ty ) *)void_val; CC_OTHER_ARGS( CC_DTOR ) } // Increment DTOR counter. #if CC_N_DTORS_D1 == 0 #undef CC_N_DTORS_D1 #define CC_N_DTORS_D1 1 #elif CC_N_DTORS_D1 == 1 #undef CC_N_DTORS_D1 #define CC_N_DTORS_D1 2 #elif CC_N_DTORS_D1 == 2 #undef CC_N_DTORS_D1 #define CC_N_DTORS_D1 3 #elif CC_N_DTORS_D1 == 3 #undef CC_N_DTORS_D1 #define CC_N_DTORS_D1 4 #elif CC_N_DTORS_D1 == 4 #undef CC_N_DTORS_D1 #define CC_N_DTORS_D1 5 #elif CC_N_DTORS_D1 == 5 #undef CC_N_DTORS_D1 #define CC_N_DTORS_D1 6 #elif CC_N_DTORS_D1 == 6 #undef CC_N_DTORS_D1 #define CC_N_DTORS_D1 7 #elif CC_N_DTORS_D1 == 7 #undef CC_N_DTORS_D1 #define CC_N_DTORS_D1 0 #if CC_N_DTORS_D2 == 0 #undef CC_N_DTORS_D2 #define CC_N_DTORS_D2 1 #elif CC_N_DTORS_D2 == 1 #undef CC_N_DTORS_D2 #define CC_N_DTORS_D2 2 #elif CC_N_DTORS_D2 == 2 #undef CC_N_DTORS_D2 #define CC_N_DTORS_D2 3 #elif CC_N_DTORS_D2 == 3 #undef CC_N_DTORS_D2 #define CC_N_DTORS_D2 4 #elif CC_N_DTORS_D2 == 4 #undef CC_N_DTORS_D2 #define CC_N_DTORS_D2 5 #elif CC_N_DTORS_D2 == 5 #undef CC_N_DTORS_D2 #define CC_N_DTORS_D2 6 #elif CC_N_DTORS_D2 == 6 #undef CC_N_DTORS_D2 #define CC_N_DTORS_D2 7 #elif CC_N_DTORS_D2 == 7 #undef CC_N_DTORS_D2 #define CC_N_DTORS_D2 0 #if CC_N_DTORS_D3 == 0 #undef CC_N_DTORS_D3 #define CC_N_DTORS_D3 1 #elif CC_N_DTORS_D3 == 1 #undef CC_N_DTORS_D3 #define CC_N_DTORS_D3 2 #elif CC_N_DTORS_D3 == 2 #undef CC_N_DTORS_D3 #define CC_N_DTORS_D3 3 #elif CC_N_DTORS_D3 == 3 #undef CC_N_DTORS_D3 #define CC_N_DTORS_D3 4 #elif CC_N_DTORS_D3 == 4 #undef CC_N_DTORS_D3 #define CC_N_DTORS_D3 5 #elif CC_N_DTORS_D3 == 5 #undef CC_N_DTORS_D3 #define CC_N_DTORS_D3 6 #elif CC_N_DTORS_D3 == 6 #undef CC_N_DTORS_D3 #define CC_N_DTORS_D3 7 #elif CC_N_DTORS_D3 == 7 #error Sorry, the number of destructor functions is limited to 511. #endif #endif #endif #undef CC_DTOR #endif #ifdef CC_CMPR typedef CC_TYPEOF_TY( CC_1ST_ARG( CC_CMPR ) ) CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _ty ); // For user-defined comparison functions, the user provides a three-way comparison (see the API documentation). // The library then defines less-than and equals functions that call the three-way comparison function. // This allows the compiler to optimize the comparison for best performance in both cases without burdening the user // with having to define two separate comparison functions for a single type. static inline int CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _fn_three_way )( void *void_val_1, void *void_val_2 ) { CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _ty ) val_1 = *(CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _ty ) *)void_val_1; CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _ty ) val_2 = *(CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _ty ) *)void_val_2; CC_OTHER_ARGS( CC_CMPR ) } static inline int CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _fn_equals )( void *void_val_1, void *void_val_2 ) { return CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _fn_three_way )( void_val_1, void_val_2 ) == 0; } static inline CC_ALWAYS_INLINE cc_cmpr_fnptr_ty CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _fn_select )( size_t cntr_id ) { return cntr_id == CC_MAP || cntr_id == CC_SET ? CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _fn_equals ) : CC_CAT_3( cc_cmpr_, CC_N_CMPRS, _fn_three_way ); } #if CC_N_CMPRS_D1 == 0 #undef CC_N_CMPRS_D1 #define CC_N_CMPRS_D1 1 #elif CC_N_CMPRS_D1 == 1 #undef CC_N_CMPRS_D1 #define CC_N_CMPRS_D1 2 #elif CC_N_CMPRS_D1 == 2 #undef CC_N_CMPRS_D1 #define CC_N_CMPRS_D1 3 #elif CC_N_CMPRS_D1 == 3 #undef CC_N_CMPRS_D1 #define CC_N_CMPRS_D1 4 #elif CC_N_CMPRS_D1 == 4 #undef CC_N_CMPRS_D1 #define CC_N_CMPRS_D1 5 #elif CC_N_CMPRS_D1 == 5 #undef CC_N_CMPRS_D1 #define CC_N_CMPRS_D1 6 #elif CC_N_CMPRS_D1 == 6 #undef CC_N_CMPRS_D1 #define CC_N_CMPRS_D1 7 #elif CC_N_CMPRS_D1 == 7 #undef CC_N_CMPRS_D1 #define CC_N_CMPRS_D1 0 #if CC_N_CMPRS_D2 == 0 #undef CC_N_CMPRS_D2 #define CC_N_CMPRS_D2 1 #elif CC_N_CMPRS_D2 == 1 #undef CC_N_CMPRS_D2 #define CC_N_CMPRS_D2 2 #elif CC_N_CMPRS_D2 == 2 #undef CC_N_CMPRS_D2 #define CC_N_CMPRS_D2 3 #elif CC_N_CMPRS_D2 == 3 #undef CC_N_CMPRS_D2 #define CC_N_CMPRS_D2 4 #elif CC_N_CMPRS_D2 == 4 #undef CC_N_CMPRS_D2 #define CC_N_CMPRS_D2 5 #elif CC_N_CMPRS_D2 == 5 #undef CC_N_CMPRS_D2 #define CC_N_CMPRS_D2 6 #elif CC_N_CMPRS_D2 == 6 #undef CC_N_CMPRS_D2 #define CC_N_CMPRS_D2 7 #elif CC_N_CMPRS_D2 == 7 #undef CC_N_CMPRS_D2 #define CC_N_CMPRS_D2 0 #if CC_N_CMPRS_D3 == 0 #undef CC_N_CMPRS_D3 #define CC_N_CMPRS_D3 1 #elif CC_N_CMPRS_D3 == 1 #undef CC_N_CMPRS_D3 #define CC_N_CMPRS_D3 2 #elif CC_N_CMPRS_D3 == 2 #undef CC_N_CMPRS_D3 #define CC_N_CMPRS_D3 3 #elif CC_N_CMPRS_D3 == 3 #undef CC_N_CMPRS_D3 #define CC_N_CMPRS_D3 4 #elif CC_N_CMPRS_D3 == 4 #undef CC_N_CMPRS_D3 #define CC_N_CMPRS_D3 5 #elif CC_N_CMPRS_D3 == 5 #undef CC_N_CMPRS_D3 #define CC_N_CMPRS_D3 6 #elif CC_N_CMPRS_D3 == 6 #undef CC_N_CMPRS_D3 #define CC_N_CMPRS_D3 7 #elif CC_N_CMPRS_D3 == 7 #error Sorry, the number of comparison functions is limited to 511. #endif #endif #endif #undef CC_CMPR #endif #ifdef CC_HASH typedef CC_TYPEOF_TY( CC_1ST_ARG( CC_HASH ) ) CC_CAT_3( cc_hash_, CC_N_HASHS, _ty ); static inline size_t CC_CAT_3( cc_hash_, CC_N_HASHS, _fn )( void *void_val ) { CC_CAT_3( cc_hash_, CC_N_HASHS, _ty ) val = *(CC_CAT_3( cc_hash_, CC_N_HASHS, _ty ) *)void_val; CC_OTHER_ARGS( CC_HASH ) } #if CC_N_HASHS_D1 == 0 #undef CC_N_HASHS_D1 #define CC_N_HASHS_D1 1 #elif CC_N_HASHS_D1 == 1 #undef CC_N_HASHS_D1 #define CC_N_HASHS_D1 2 #elif CC_N_HASHS_D1 == 2 #undef CC_N_HASHS_D1 #define CC_N_HASHS_D1 3 #elif CC_N_HASHS_D1 == 3 #undef CC_N_HASHS_D1 #define CC_N_HASHS_D1 4 #elif CC_N_HASHS_D1 == 4 #undef CC_N_HASHS_D1 #define CC_N_HASHS_D1 5 #elif CC_N_HASHS_D1 == 5 #undef CC_N_HASHS_D1 #define CC_N_HASHS_D1 6 #elif CC_N_HASHS_D1 == 6 #undef CC_N_HASHS_D1 #define CC_N_HASHS_D1 7 #elif CC_N_HASHS_D1 == 7 #undef CC_N_HASHS_D1 #define CC_N_HASHS_D1 0 #if CC_N_HASHS_D2 == 0 #undef CC_N_HASHS_D2 #define CC_N_HASHS_D2 1 #elif CC_N_HASHS_D2 == 1 #undef CC_N_HASHS_D2 #define CC_N_HASHS_D2 2 #elif CC_N_HASHS_D2 == 2 #undef CC_N_HASHS_D2 #define CC_N_HASHS_D2 3 #elif CC_N_HASHS_D2 == 3 #undef CC_N_HASHS_D2 #define CC_N_HASHS_D2 4 #elif CC_N_HASHS_D2 == 4 #undef CC_N_HASHS_D2 #define CC_N_HASHS_D2 5 #elif CC_N_HASHS_D2 == 5 #undef CC_N_HASHS_D2 #define CC_N_HASHS_D2 6 #elif CC_N_HASHS_D2 == 6 #undef CC_N_HASHS_D2 #define CC_N_HASHS_D2 7 #elif CC_N_HASHS_D2 == 7 #undef CC_N_HASHS_D2 #define CC_N_HASHS_D2 0 #if CC_N_HASHS_D3 == 0 #undef CC_N_HASHS_D3 #define CC_N_HASHS_D3 1 #elif CC_N_HASHS_D3 == 1 #undef CC_N_HASHS_D3 #define CC_N_HASHS_D3 2 #elif CC_N_HASHS_D3 == 2 #undef CC_N_HASHS_D3 #define CC_N_HASHS_D3 3 #elif CC_N_HASHS_D3 == 3 #undef CC_N_HASHS_D3 #define CC_N_HASHS_D3 4 #elif CC_N_HASHS_D3 == 4 #undef CC_N_HASHS_D3 #define CC_N_HASHS_D3 5 #elif CC_N_HASHS_D3 == 5 #undef CC_N_HASHS_D3 #define CC_N_HASHS_D3 6 #elif CC_N_HASHS_D3 == 6 #undef CC_N_HASHS_D3 #define CC_N_HASHS_D3 7 #elif CC_N_HASHS_D3 == 7 #error Sorry, the number of hash functions is limited to 511. #endif #endif #endif #undef CC_HASH #endif #ifdef CC_LOAD typedef CC_TYPEOF_TY( CC_1ST_ARG( CC_LOAD ) ) CC_CAT_3( cc_load_, CC_N_LOADS, _ty ); const double CC_CAT_3( cc_load_, CC_N_LOADS, _val ) = CC_OTHER_ARGS( CC_LOAD ); #if CC_N_LOADS_D1 == 0 #undef CC_N_LOADS_D1 #define CC_N_LOADS_D1 1 #elif CC_N_LOADS_D1 == 1 #undef CC_N_LOADS_D1 #define CC_N_LOADS_D1 2 #elif CC_N_LOADS_D1 == 2 #undef CC_N_LOADS_D1 #define CC_N_LOADS_D1 3 #elif CC_N_LOADS_D1 == 3 #undef CC_N_LOADS_D1 #define CC_N_LOADS_D1 4 #elif CC_N_LOADS_D1 == 4 #undef CC_N_LOADS_D1 #define CC_N_LOADS_D1 5 #elif CC_N_LOADS_D1 == 5 #undef CC_N_LOADS_D1 #define CC_N_LOADS_D1 6 #elif CC_N_LOADS_D1 == 6 #undef CC_N_LOADS_D1 #define CC_N_LOADS_D1 7 #elif CC_N_LOADS_D1 == 7 #undef CC_N_LOADS_D1 #define CC_N_LOADS_D1 0 #if CC_N_LOADS_D2 == 0 #undef CC_N_LOADS_D2 #define CC_N_LOADS_D2 1 #elif CC_N_LOADS_D2 == 1 #undef CC_N_LOADS_D2 #define CC_N_LOADS_D2 2 #elif CC_N_LOADS_D2 == 2 #undef CC_N_LOADS_D2 #define CC_N_LOADS_D2 3 #elif CC_N_LOADS_D2 == 3 #undef CC_N_LOADS_D2 #define CC_N_LOADS_D2 4 #elif CC_N_LOADS_D2 == 4 #undef CC_N_LOADS_D2 #define CC_N_LOADS_D2 5 #elif CC_N_LOADS_D2 == 5 #undef CC_N_LOADS_D2 #define CC_N_LOADS_D2 6 #elif CC_N_LOADS_D2 == 6 #undef CC_N_LOADS_D2 #define CC_N_LOADS_D2 7 #elif CC_N_LOADS_D2 == 7 #undef CC_N_LOADS_D2 #define CC_N_LOADS_D2 0 #if CC_N_LOADS_D3 == 0 #undef CC_N_LOADS_D3 #define CC_N_LOADS_D3 1 #elif CC_N_LOADS_D3 == 1 #undef CC_N_LOADS_D3 #define CC_N_LOADS_D3 2 #elif CC_N_LOADS_D3 == 2 #undef CC_N_LOADS_D3 #define CC_N_LOADS_D3 3 #elif CC_N_LOADS_D3 == 3 #undef CC_N_LOADS_D3 #define CC_N_LOADS_D3 4 #elif CC_N_LOADS_D3 == 4 #undef CC_N_LOADS_D3 #define CC_N_LOADS_D3 5 #elif CC_N_LOADS_D3 == 5 #undef CC_N_LOADS_D3 #define CC_N_LOADS_D3 6 #elif CC_N_LOADS_D3 == 6 #undef CC_N_LOADS_D3 #define CC_N_LOADS_D3 7 #elif CC_N_LOADS_D3 == 7 #error Sorry, the number of load factors is limited to 511. #endif #endif #endif #undef CC_LOAD #endif #endif