TypeList 之TypeAt 通过索引查找TypeList的类型

#include <cstdlib>
#include <iostream>
#include <typeinfo>
#include <string>
using namespace std;
class NullType;
namespace TL
{
  template<class T,class U>
  struct TypeList
  {
    typedef T head;
    typedef U tail;
  };
}
using namespace TL;
#define TYPELIST_1(T1) TypeList<T1,NullType>
#define TYPELIST_2(T1,T2) TypeList<T1,TYPELIST_1(T2)>
#define TYPELIST_3(T1,T2,T3) TypeList<T1,TYPELIST_2(T2,T3)>
typedef TypeList<char,TypeList<signed char,unsigned char> > CharList;
template<class Tlist>struct Length;
template<>struct Length<NullType>
{
  enum{value = 0};
};
template<class T,class U>
struct Length<TypeList<T,U> >
{
  enum{value = 1 + Length<U>::value};
};
//---------------------------------------------------------------
//利用索引查找对象
template<class T,int U>struct TypeAt;
template<class head,class tail>
struct TypeAt<TypeList<head,tail>,0>
{
  typedef head Result;
};
template<class head,class tail,int i>
struct TypeAt<TypeList<head,tail>,i>
{
  typedef typename TypeAt<tail,i - 1>::Result Result;
};
int main(int argc, char *argv[])
{
    cout<<"索引-----------------------------------------"<<endl;
    typedef TYPELIST_3(char,int,string) MyTypeList;
    TypeAt<MyTypeList,0>::Result gg[] = "char";
    cout<<"(0)应该是char:"<<gg<<endl;
    TypeAt<MyTypeList,1>::Result h = 11;
    cout<<"(1)应该是int:"<<h<<endl;
    TypeAt<MyTypeList,2>::Result ii = "string";
    cout<<"(2)应该是char:"<<ii<<endl;
    system("PAUSE");
    return EXIT_SUCCESS;
}