модуль хттп

фн ответ_201*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 201,
        состояние: "Created",
        туловище: "Тварь успешно создана.",
    }
}

фн ответ_204*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 204,
        состояние: "No Content",
        туловище: "Пожалуйста, оставайтесь на месте. За вами уже выехали.",
    }
}

фн ответ_400*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 400,
        состояние: "Bad Request",
        туловище: "Некорректный запрос. Пожалуйста, проверьте правильность запроса и повторите попытку.",
    }
}

фн ответ_401*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 401,
        состояние: "Unauthorized",
        туловище: "Требуется аутентификация. Пожалуйста, предоставьте свои паспортные данные и повторите запрос.",
    }
}

фн ответ_402*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 402,
        состояние: "Payment Required",
        туловище: "Доступ к запрашиваемому ресурсу требует оплаты. Пожалуйста, свяжитесь с администратором для получения дополнительной информации.",
    }
}

фн ответ_403*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 403,
        состояние: "Forbidden",
        туловище: "Вы были репрессированы. Пожалуйста, перейдите по ссылке: http://сибирь.рф",
    }
}

фн ответ_422*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 422,
        состояние: "Unprocessable Entity",
        туловище: "Неперевариваемая тварь.",
    }
}

фн ответ_404*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 404,
        состояние: "Not Found",
        туловище: "Запрашиваемый ресурс не найден на сервере.",
    }
}

фн ответ_500*(): ХттпОтвет {
    вернуть ХттпОтвет{
        код: 500,
        состояние: "Internal Server Error",
        туловище: "Просим быть внимательными и бдительными. Оглядывайтесь вверх и по сторонам. Что-то произошло непонятное.",
    }
}

фн создать ответ*(база: ХттпОтвет, расширение: ХттпОтвет): ХттпОтвет {
    пусть пустой ответ = ХттпОтвет{}
    пусть ответ = ХттпОтвет{}

    если расширение.код # пустой ответ.код {
        ответ.код := расширение.код
    } иначе {
        ответ.код := база.код
    }

    если расширение.состояние # пустой ответ.состояние {
        ответ.состояние := расширение.состояние
    } иначе {
        ответ.состояние := база.состояние
    }

    цикл [номер]заглавие среди база.заглавия {
        ответ.заглавия.добавить(заглавие)
    }

    цикл [номер]заглавие среди расширение.заглавия {
        пусть нашлось := ложь

        цикл [уемер]существующее среди ответ.заглавия {
            если заглавие.имя = существующее.имя {
                существующее.значение := заглавие.значение
                нашлось := истина
                прервать
            }
        }

        если ~нашлось {
            ответ.заглавия.добавить(заглавие)
        }
    }

    если расширение.туловище # "" {
        ответ.туловище := расширение.туловище
    } иначе {
        ответ.туловище := база.туловище
    }

    вернуть ответ
}