ЗАДАНИЕ 1.2. Приемы моделирования Перечислений / enum_value_fucntions

CREATE OR REPLACE FUNCTION ins_enum_value(num INTEGER, enum_val_name VARCHAR(50), en_val_short_name VARCHAR(10),
                                          enum_name VARCHAR(50))
    returns VARCHAR(30)
/*функция: Добавление нового значения заданного перечисления.
вход: num - номер нового значения,
      enun_val_name - название значения перечисления,
      en_val_short_name - короткое название,
      enum_name - название перечисления.
выход: сообщение об успехе/неуспехе операции
эффекты: */
as
$$
DECLARE
    ENUM_ID INTEGER;
begin
    SELECT * FROM get_enum_id(enum_name) INTO ENUM_ID;

    IF ENUM_ID is NULL then
        RETURN 'This enum does not exist!';
    end if;

    --Если такое значения для указанного enum уже есть.
    IF enum_val_name in (SELECT NAME FROM get_enum_list(enum_name)) then
        RETURN 'This enum value already exists!';
    end if;

    --Авто инкремент номера, если он не был задан
    if num is null then
        SELECT * FROM get_enum_min_value(enum_name) INTO num;
        WHILE num in (SELECT * FROM get_enum_numbers(enum_name))
            LOOP
                num = num + 1;
            end loop;
    end if;

    --Если num был указан пользователем, проверяем, что такого номера еще нет
    IF num in (SELECT * FROM get_enum_numbers(enum_name)) then
        RETURN 'This number already exists!';
    end if;

    INSERT INTO enum_value(ID_ENUM, VALUE, NAME, SHORT_NAME)
    VALUES (ENUM_ID, num, enum_val_name, en_val_short_name);
    RETURN 'Done!';
end;
$$
    LANGUAGE plpgsql;


CREATE OR REPLACE FUNCTION delete_enum_value(enum_name VARCHAR(50), enum_value_name VARCHAR(50))
/*функция: Функция удаления значения списка перечислений
вход:enum_name - название списка перечислений, enum_value - название значения
выход: Сообщение о результате операции
эффекты:*/

    returns VARCHAR(30)
AS
$$
DECLARE
    ENUM_ID INTEGER;
BEGIN
    SELECT * FROM get_enum_id(enum_name) INTO ENUM_ID;

    IF ENUM_ID is NULL then
        RETURN 'This enum does not exist!';
    end if;

    IF enum_value_name not in (SELECT NAME
                               FROM ENUM_VALUE
                               WHERE id_enum = ENUM_ID) then
        RETURN 'This enum value does not exist!';
    end if;

    DELETE
    FROM ENUM_VALUE
    WHERE NAME = enum_value_name;
    RETURN 'Done!';
END
$$
    LANGUAGE plpgsql;


CREATE OR REPLACE FUNCTION delete_enum_value_on_id(value_id INTEGER)
/*функция: Функция удаления значения списка перечислений по его id
вход:value_id - id значения
выход: Сообщение о результате операции
эффекты:*/

    returns VARCHAR(30)
AS
$$

BEGIN

    IF value_id not in (SELECT id_value
                               FROM ENUM_VALUE
                               WHERE id_enum = value_id) then
        RETURN 'This enum value does not exist!';
    end if;

    DELETE
    FROM ENUM_VALUE
    WHERE id_value = value_id;
    RETURN 'Done!';
END
$$
    LANGUAGE plpgsql;


CREATE OR REPLACE FUNCTION rename_enum_value(new_val_name VARCHAR(50),
                                             old_val_name VARCHAR(50),
                                             enum_name VARCHAR(50))
/*функция: Функция изменения имени значения перечислений
вход:
выход: Сообщение о результате операции
эффекты:*/

    returns VARCHAR(30)
AS
$$
DECLARE
    ENUM_ID INTEGER;
BEGIN
    SELECT * FROM get_enum_id(enum_name) INTO ENUM_ID;

    IF ENUM_ID is NULL then
        RETURN 'This enum does not exist!';
    end if;

    IF old_val_name not in (
        SELECT NAME
        FROM ENUM_VALUE
        WHERE id_enum = ENUM_ID
    ) OR old_val_name IS NULL then
        RETURN 'This enum value does not exist!';
    end if;

    IF new_val_name in (SELECT NAME
                        FROM ENUM_VALUE
                        WHERE id_enum = ENUM_ID) then
        RETURN 'This name is taken!';
    end if;

    UPDATE ENUM_VALUE
    SET NAME = new_val_name
    WHERE id_enum = ENUM_ID and NAME = old_val_name;
    RETURN 'Done!';
END
$$
    LANGUAGE plpgsql;


CREATE OR REPLACE FUNCTION get_enum_val_number(en_name VARCHAR(50))
    returns INTEGER
/*функция: Возвращает значение value для конкретного значения перечисления.
вход: en_name - название значения перечисления
выход: числовое значение value
эффекты: */
as
$$
begin
    RETURN (SELECT VALUE
            FROM ENUM_VALUE
            WHERE ENUM_VALUE.name = en_name);
end;
$$
    LANGUAGE plpgsql;


CREATE OR REPLACE FUNCTION change_number_postion(enum_val_name VARCHAR(30), new_number INTEGER, class_name VARCHAR(30))
/*функция: Изменение параметра value значения перечисления.
вход: new_number - новое значение,
      enun_val_name - название значения перечисления,
      class_name - название перечисления
выход: сообщение об успехе/неуспехе операции
эффекты: */
    RETURNS VARCHAR(30)
AS
$$
DECLARE
    ENUM_ID INTEGER;
BEGIN
    SELECT * FROM get_enum_id(class_name) INTO ENUM_ID;

    IF ENUM_ID IS NULL THEN
        RETURN 'This enum does not exist!';
    end if;

    IF enum_val_name NOT IN (SELECT NAME
                             FROM enum_value
                             WHERE id_enum = ENUM_ID) THEN
        RETURN 'This enum value does not exist!';
    end if;

    --Проверка на то, что такого значения в таблице еще нет.
    IF new_number in (SELECT * FROM get_enum_numbers(class_name)) then
        RETURN 'This number already exists!';
    ELSE
        UPDATE ENUM_VALUE
        SET value = new_number
        WHERE name = enum_val_name
          AND ENUM_ID = enum_value.id_enum;
        RETURN 'Done!';
    end if;
end;
$$
    LANGUAGE plpgsql;