adam/Alepha
1
0
Fork 0
forked from Alepha/Alepha
Code Pull Requests Activity

Add list size primitive to type lisp.

Browse Source
This commit is contained in:
ADAM David Alan Martin
2024-09-19 00:35:59 -04:00
parent d4dfe9f90f
commit f4c2e1e044
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
type_lisp.h
View File

@ -48,6 +48,21 @@ namespace Alepha::Hydrogen ::detail:: type_lisp_m
using type= std::tuple< Members... >; using type= std::tuple< Members... >;
}; };
template< TypeListType >
struct list_size;
template< typename ... Members >
struct list_size< TypeList< Members... > >
{
static const std::size_t value= sizeof...( Members );
};
namespace exports
{
template< TypeListType List >
constexpr std::size_t list_size_v= list_size< List >::value;
}
template< typename List > template< typename List >
struct car_impl { using type= Nil; }; struct car_impl { using type= Nil; };