Lab3

#define _CRT_SECURE_NO_WARNINGS
#include <stdio.h>
#include <malloc.h>
#include <string.h>

void create_queue(struct descriptor *descriptor); //Подпрограмма создания очереди
void output_queue(struct descriptor *descriptor); //Подпрограмма вывода очереди на экран или в файл
void add_element(struct descriptor *descriptor); //Подпрограмма добавления элемента в очередь
void delete_element(struct descriptor *descriptor); //Подпрограмма выборки элемента из очереди
void clear_queue(struct descriptor *descriptor); //Подпрограмма очистки очереди

struct queue_element //Элемент очереди
{
    char *data;
    struct queue_element *next;
};
struct descriptor //Дескриптор очереди
{
    struct queue_element *head;
    struct queue_element *tail;
    int exists;
};

void main()
{
    struct descriptor descriptor;
    int key;

    descriptor.exists = 0;
    while (1) //Цикл меню
    {
        printf("Choose function.\n1 - create queue.\n2 - output queue.\n3 - add new element in queue.\n4 - delete element from queue.\n5 - delete queue.\n0 - exit.\nChosen function - "); //Выбор действия
        scanf("%d*[^\n]", &key); //Ввод клавиши действия
        switch (key)
        {
        case 1: //Создание очереди
        {
            create_queue(&descriptor);
            break;
        }
        case 2: //Вывод очереди на экран или в файл
        {
            output_queue(&descriptor);
            break;
        }
        case 3: //Добавление элемента очереди
        {
            add_element(&descriptor);
            printf("Printing the queue:\n");
            output_queue(&descriptor);
            break;
        }
        case 4: //Удаление (выборка) элемента очереди
        {
            delete_element(&descriptor);
            printf("Head element was successfully deleted.\n");
            printf("Printing the queue:\n");
            output_queue(&descriptor);
            break;
        }
        case 5: //Очистка (удаление) очереди
        {
            clear_queue(&descriptor);
            break;
        }
        case 0:
        {
            printf("Exiting program.\n"); //Выход из программы
            break;
        }
        default: //Если выбранной команды не существует
        {
            printf("This feature doesn't exist. Please try again.\n");
            break;
        }
        }
        if (key == 0)
            break;
    }
}
void create_queue(struct descriptor *descriptor) //Подпрограмма создания очереди
{
    int i, len;
    int N = 20; //Кол-во элементов жёстко задано в задании
    FILE *in;
    char str[256];
    struct queue_element *ptr;

    if (descriptor->exists == 1)
    {
        printf("Queue already exists. Please, delete it before creating a new one.");
        return;
    }

    in = fopen("C:\\test\\SiAODlab3Input.txt", "rt");
    if (in == NULL) //Если файл не удалось открыть
    {
        printf("Couldn't open file.\nFile full name: C:\\test\\SiAODlab3Input.txt\n");
        return;
    }

    if (fgets(str, 256, in) == NULL) //Если первая строка не считалась
    {
        printf("The file is empty or some error has occured while reading file.\nFile full name: C:\\test\\SiAODlab3Input.txt\n");
        fclose(in);
        return;
    }

    ptr = malloc(sizeof(struct queue_element)); //Выделение памяти под первый элемент очереди
    ptr->next = NULL; //Следующего элемента нет
    descriptor->head = ptr; //Элемент единственный, это голова очереди
    descriptor->tail = ptr; //Элемент единственный, это хвост очереди
    descriptor->exists = 1;

    len = strlen(str);
    if (str[len - 1] == '\n') //Удаление символа перехода на новую строку, если есть
    {
        str[len - 1] = '\0';
        len = strlen(str);
    }
    ptr->data = calloc(len + 1, sizeof(char)); //Выделение памяти под строку
    strcpy(ptr->data, str); //Запись данных в новый элемент

    for (i = 1; i < N; i++)
    {
        if (fgets(str, 256, in) == NULL) //Если очередная строка не считалась успешно
        {
            printf("Some error has occured while reading file.\nFile full name: C:\\test\\SiAODlab3Input.txt\n");
            fclose(in);
            clear_queue(descriptor);
            return;
        }
        ptr = malloc(sizeof(struct queue_element));
        ptr->next = NULL; //Это последний добавленный элемент
        descriptor->tail->next = ptr; //Запись в прошлый последний элемент указателя на новый элемент
        descriptor->tail = ptr; //Запись в дескриптор указателя на новый последний элемент

        len = strlen(str);
        if (str[len - 1] == '\n') //Удаление символа перехода на новую строку, если есть
        {
            str[len - 1] = '\0';
            len = strlen(str);
        }
        ptr->data = calloc(len + 1, sizeof(char)); //Выделение памяти под строку
        strcpy(ptr->data, str); //Запись данных в новый элемент
    }
    fclose(in);
    printf("Queue created succesfully.\n");
}

void output_queue(struct descriptor *descriptor) //Подпрограмма вывода очереди на экран или в файл
{
    int action, i;
    struct queue_element *ptr;
    FILE *out;

    if (descriptor->exists == 0)
    {
        printf("The queue doesn't exist.\n");
        return;
    }

    printf("Choose the type of output:\n1 - on the screen.\n2 - in a file.\nEntered: ");
    scanf("%d", &action);

    i = 0;
    if (action == 1) //Вывод на экран
    {
        ptr = descriptor->head;
        while (ptr != NULL)
        {
            i++;
            printf("[%d]: %s\n", i,  ptr->data);
            ptr = ptr->next;
        }
    }
    else if (action == 2) //Вывод в файл
    {
        out = fopen("C:\\test\\SiAODlab3Output.txt", "wt");
        if (out == NULL)
        {
            printf("Couldn't open file");
            fclose(out);
            return;
        }
        ptr = descriptor->head;
        while (ptr != NULL)
        {
            i++;
            if (fprintf(out, "[%d]: %s\n", i, ptr->data) < 0) //Если возникла ошибка
            {
                remove("C:\\test\\SiAODlab3Output.txt");
                printf("An error has occured while writing into a file.\n");
                fclose(out);
                return;
            }
            ptr = ptr->next;
        }
        fclose(out);
        printf("Output file was successfully created and filled.\nFile full name: C:\\test\\SiAODlab3Output.txt\n");
    }
    else //Некорректоный ввод
    {
        printf("Incorrect input.\n");
        return;
    }
}
void add_element(struct descriptor *descriptor) //Подпрограмма добавления элемента в очередь
{
    struct queue_element *ptr;
    char str[256];
    int len;

    if (descriptor->exists == 0)
    {
        printf("The queue doesn't exist.\n");
        return;
    }

    printf("Enter data for the new queue element.\n");
    scanf("%*c");
    fgets(str, 256, stdin);

    len = strlen(str);
    if (str[len - 1] == '\n') //Удаление символа перехода на новую строку, если есть
    {
        str[len - 1] = '\0';
        len = strlen(str);
    }

    ptr = malloc(sizeof(struct queue_element)); //Выделение памяти под новый элемент очереди
    ptr->data = calloc(len + 1, sizeof(char)); //Выделение памяти под строку
    strcpy(ptr->data, str);
    descriptor->tail->next = ptr;
    ptr->next = NULL;
    descriptor->tail = ptr;
    printf("New queue element was successfully added.\n");
}

void delete_element(struct descriptor *descriptor) //Подпрограмма выборки элемента из очереди
{
    struct queue_element *ptr;

    if (descriptor->exists == 0)
    {
        printf("The queue doesn't exist.\n");
        return;
    }

    if (descriptor->head == descriptor->tail) //Если в очереди только один элемент
    {
        free(descriptor->head->data);
        free(descriptor->head);
        descriptor->head = NULL;
        descriptor->tail = NULL;
        descriptor->exists = 0;
        printf("Queue was deleted.\n");
    }
    else
    {
        ptr = descriptor->head->next;
        free(descriptor->head->data);
        free(descriptor->head);
        descriptor->head = ptr;
    }
}
void clear_queue(struct descriptor *descriptor) //Подпрограмма очистки очереди
{
    if (descriptor->exists == 0)
    {
        printf("The queue doesn't exist.\n");
        return;
    }

    while (descriptor->exists == 1)
    {
        delete_element(descriptor);
    }
}