/********************************************************************************************************
 *
 *
 * 设计双向循环链表的接口
 *
 *
 *
 * Copyright (c)  2023-2024   a1583839363@163.com   All right Reserved
 * ******************************************************************************************************/

#include <stdio.h>
#include <stdbool.h>
#include <stdlib.h>

// 指的是双向循环链表中的结点有效数据类型，用户可以根据需要进行修改
typedef int DataType_t;

// 构造双向循环链表的结点,链表中所有结点的数据类型应该是相同的
typedef struct DoubleCircularLinkedList
{
	DataType_t data;					   // 结点的数据域
	struct DoubleCircularLinkedList *prev; // 直接前驱的指针域
	struct DoubleCircularLinkedList *next; // 直接后继的指针域

} DoubleCirLList_t;

// 创建一个空双向循环链表，空链表应该有一个头结点，对链表进行初始化
DoubleCirLList_t *DoubleCirLList_Create(void)
{
	// 1.创建一个头结点并对头结点申请内存
	DoubleCirLList_t *Head = (DoubleCirLList_t *)calloc(1, sizeof(DoubleCirLList_t));
	if (NULL == Head)
	{
		perror("Calloc memory for Head is Failed");
		exit(-1);
	}

	// 2.对头结点进行初始化，头结点是不存储数据域，指针域指向自身即可，体现“循环”
	Head->prev = Head;
	Head->next = Head;

	// 3.把头结点的地址返回即可
	return Head;
}

// 创建新的结点，并对新结点进行初始化（数据域 + 指针域）
DoubleCirLList_t *DoubleCirLList_NewNode(DataType_t data)
{
	// 1.创建一个新结点并对新结点申请内存
	DoubleCirLList_t *New = (DoubleCirLList_t *)calloc(1, sizeof(DoubleCirLList_t));
	if (NULL == New)
	{
		perror("Calloc memory for NewNode is Failed");
		return NULL;
	}

	// 2.对新结点的数据域和指针域（2个）进行初始化,指针域指向结点自身，体现“循环”
	New->data = data;
	New->prev = New;
	New->next = New;

	return New;
}

// 头插
bool DoubleCirLList_HeadInsert(DoubleCirLList_t *Head, DataType_t data)
{
	// 1.创建新的结点，并对新结点进行初始化
	DoubleCirLList_t *New = DoubleCirLList_NewNode(data);
	if (NULL == New)
	{
		printf("can not insert new node\n");
		return false;
	}

	// 2.判断双向循环链表是否为空，如果为空，则直接插入即可
	if (Head == Head->next)
	{
		Head->next = New;
		New->next = New;
		New->prev = New;
		return true;
	}

	// 3.如果双向链表为非空，把新结点插入到链表的头部
	Head->next->prev->next = New;
	New->prev = Head->next->prev;
	New->next = Head->next;
	Head->next->prev = New;
	Head->next = New;

	return true;
}

// 尾插
bool DoubleCirLList_TailInsert(DoubleCirLList_t *Head, DataType_t data)
{
	// 1.创建新的结点，并对新结点进行初始化
	DoubleCirLList_t *New = DoubleCirLList_NewNode(data);
	if (NULL == New)
	{
		printf("can not insert new node\n");
		return false;
	}

	// 2.判断双向链表是否为空，如果为空，则直接插入即可
	if (Head == Head->next)
	{
		Head->next = New;
		New->next = New;
		New->prev = New;
		return true;
	}

	// 3.如果双向链表为非空，把新结点插入到链表的尾部
	New->prev = Head->next->prev;
	Head->next->prev->next = New;
	New->next = Head->next;
	Head->next->prev = New;

	return true;
}

// 指定插
bool DoubleCirLList_DestInsert(DoubleCirLList_t *Head, DataType_t destval, DataType_t data)
{
	// 1.创建新的结点，并对新结点进行初始化
	DoubleCirLList_t *New = DoubleCirLList_NewNode(data);
	if (NULL == New)
	{
		printf("can not insert new node\n");
		return false;
	}

	// 2.判断双向链表是否为空，如果为空，则直接插入即可
	if (Head == Head->next)
	{
		Head->next = New;
		New->next = New;
		New->prev = New;
		return true;
	}

	// 3.如果双向链表为非空，遍历链表，找到目标结点
	DoubleCirLList_t *Dest = Head->next;
	while (Dest->data != destval && Dest != NULL)
	{
		Dest = Dest->next;
	}
	if (NULL == Dest)
	{
		return false;
	}

	// 4.说明找到目标结点，则把新结点插入到目标结点的后面
	New->next = Dest->next;
	Dest->next->prev = New;
	New->prev = Dest;
	Dest->next = New;

	return true;
}

// 头删
bool DoubleCirLList_HeadDel(DoubleCirLList_t *Head)
{
	// 1.判断链表是否为空，如果为空，则直接退出
	if (NULL == Head->next)
	{
		return false;
	}

	// 2.对链表的首结点的地址进行备份
	DoubleCirLList_t *Temp = Head->next;

	// 3.链表是非空的，则直接删除首结点
	Temp->prev->next = Temp->next;
	Temp->next->prev = Temp->prev;
	Head->next = Temp->next;
	Temp->next = NULL;
	Temp->prev = NULL;
	free(Temp);

	return true;
}

// 尾删
bool DoubleCirLList_TailDel(DoubleCirLList_t *Head)
{
	// 1.判断链表是否为空，如果为空，则直接退出
	if (NULL == Head->next)
	{
		return false;
	}

	// 2.对链表的尾结点的地址进行备份
	DoubleCirLList_t *Tail = Head->next->prev;

	// 2.链表为非空，删除尾结点
	Tail->prev->next = Head->next;
	Head->next->prev = Tail->prev;
	Tail->next = NULL;
	Tail->prev = NULL;
	free(Tail);

	return true;
}

// 指定删
bool DoubleCirLList_DestDel(DoubleCirLList_t *Head, DataType_t destval)
{
	// 1.判断链表是否为空，如果为空，则直接退出
	if (NULL == Head->next)
	{
		return false;
	}

	// 2.链表是非空的，遍历链表，找到待删除结点
	DoubleCirLList_t *Dest = Head;
	while (Dest->data != destval && Dest != NULL)
	{
		Dest = Dest->next;
	}
	if (NULL == Dest)
	{
		return false;
	}

	// 3.删除指定结点
	Dest->prev->next = Dest->next;
	Dest->next->prev = Dest->prev;
	Dest->prev = NULL;
	Dest->next = NULL;
	free(Dest);
}

// 遍历双向循坏链表
bool DoubleLList_Print(DoubleCirLList_t *Head)
{
	// 对双向循环链表的头结点的地址进行备份
	DoubleCirLList_t *Phead = Head;

	// 判断当前链表是否为空，为空则直接退出
	if (Head->next == Head)
	{
		printf("current doubleCircularLinkedList is empty!\n");
		return false;
	}

	// 从首结点开始遍历
	while (Phead->next)
	{
		// 把头结点的直接后继作为新的头结点
		Phead = Phead->next;

		// 输出头结点的直接后继的数据域
		printf("data = %d\n", Phead->data);

		// 判断是否到达尾结点，尾结点的next指针是指向首结点的地址
		if (Phead->next == Head->next)
		{
			break;
		}
	}

	return true;
}

int main(int argc, char const *argv[])
{
	DoubleCirLList_t *Head = DoubleCirLList_Create();
	DoubleCirLList_HeadInsert(Head, 1);
	DoubleCirLList_HeadInsert(Head, 2);
	DoubleCirLList_HeadInsert(Head, 3);
	// DoubleCirLList_TailInsert(Head, 1);
	// DoubleCirLList_TailInsert(Head, 2);
	// DoubleCirLList_DestInsert(Head, 1, 4);
	// DoubleCirLList_DestDel(Head, 4);
	DoubleCirLList_HeadDel(Head);
	// DoubleCirLList_TailDel(Head);
	DoubleLList_Print(Head);

	return 0;
}