复制广义表

根据广义表的信息和结构，将一个广义表复制到另外的一个广义表中

typedef enum{
    ATOM,LIST;
}ElemTag;   //ATOM==0:原子，LIST==1:字表

typedef struct GLNODE{
    ElemTag tag;    //公共部分，用于区分原子节点和表结点
    union{
        AtomType atom;  //atom是原子节点的值域，AtomType为原子值域中值的类型
        struct{
            struct GLNODE *hp,*tp;
        }ptr;   //ptr是表结点的指针域，ptr.hp和ptr.tp分别指向表头和表尾
    };
}*GList;    //广义表类型

//复制广义表
void CopyGList(GList &T, GList L)   //采用头尾链表存储结构，由广义表L复制得到广义表T
{
    if ( !L )
    {
        T = NULL;   //复制空表
    }
    else
    {
        if ( !(T=(GList)malloc(sizeof(GLNODE))) )
        {
            exit(overflow); //建表结点
        }
        if ( L->tag == ATOM)
        {
            T->atom = L->atom;
        }
        else
        {
            CopyGList(T->ptr.hp, L->ptr.hp);    //复制广义表L->ptr.hp的一个副本T->ptr.hp
            CopyGList(T->ptr.tp, L->ptr.tp);    //复制广义表L->ptr.tp的一个副本T->ptr.tp
        }
    }
    return OK;
}//CopyGList