#include <sal/main.h>
#include <com/sun/star/uno/Any.hxx>
#include <com/sun/star/uno/Reference.hxx>
#include <cppuhelper/bootstrap.hxx>
#include <com/sun/star/frame/Desktop.hpp>
#include <com/sun/star/frame/XComponentLoader.hpp>
#include <com/sun/star/lang/XMultiComponentFactory.hpp>
#include <com/sun/star/frame/XStorable.hpp>
#include <com/sun/star/lang/XComponent.hpp>
#include <com/sun/star/text/XTextDocument.hpp>
#include <com/sun/star/script/provider/XScriptProvider.hpp>
#include <com/sun/star/script/provider/XScript.hpp>
#include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>


using namespace com::sun::star::script::provider;
using namespace com::sun::star::text;
using namespace com::sun::star::awt;
using namespace com::sun::star::beans;
using namespace com::sun::star::uno;
using namespace com::sun::star::lang;
using namespace com::sun::star::frame;
using ::rtl::OUString;
using ::rtl::OUStringToOString;

SAL_IMPLEMENT_MAIN_WITH_ARGS(argc, argv)
{
    try
    {
        //  получаем контекст компонентов офиса
        Reference< XComponentContext > xContext(::cppu::bootstrap());
        if (!xContext.is())
        {
            fprintf(stderr, "no component context!\n");
            return 1;
        }

        // получаем сервис-менеджер
        Reference< XMultiComponentFactory > xServiceManager(
            xContext->getServiceManager());
        if (!xServiceManager.is())
        {
            fprintf(stderr, "no service manager!\n");
            return 1;
        }

        // получаем экземпляр сервиса UNO Desktop
        // получаем интерфейс XComponentLoader


        Reference<XComponentLoader> xLoader(xContext->getServiceManager()->createInstanceWithContext(
            "com.sun.star.frame.Desktop", xContext), UNO_QUERY);


        // создаем новый документ или загружаем существующий
        Sequence<PropertyValue> props(2);
        PropertyValue prop[2];
        prop[0].Name = "FliterName";
        prop[0].Value <<= OUString("writer8");
        prop[1].Name = "Overwrite";
        prop[1].Value <<= Any(true);
        props[0] = prop[0];
        props[1] = prop[1];
        Reference<com::sun::star::uno::XInterface> xComponent = xLoader->loadComponentFromURL(
            "file:///C:/test/document.odt", "_blank", 0, props);

        //Переменные для URI макроса. macroLanguageName - язык вызываемого макроса, macroPath - путь, имя макроса, вызываемая функция. macroLocationName - расположение макроса.
        //В зависимости от языка макроса синтаксис может меняться. Например в basic не нужно указывать имя функции после $
        OUString macroLanguageName("Python");
        OUString macroPath("hw.py$my_first_macro_atext");
        OUString macroLocationName("document");

        //Получаем объект документа
        Reference<XTextDocument> xDoc(xComponent, UNO_QUERY_THROW);
        //Получаем объект XScriptProviderSupplier для доступа к провайдеру макросов
        Reference <XScriptProviderSupplier> xScriptProviderSupplier(xDoc, UNO_QUERY_THROW);
        //Получаем объект XScriptProvider
        Reference <XScriptProvider> xScriptProvider(xScriptProviderSupplier->getScriptProvider(), UNO_QUERY_THROW);
        //URI макроса
        OUString macroUrl = "vnd.sun.star.script:" + macroPath + "?language=" + macroLanguageName + "&location=" + macroLocationName;
        //Получаем объект макроса
        Reference <XScript> xScript(xScriptProvider->getScript(macroUrl));
        //Создаем параметры для invoke(). Указываем аргументы для макроса если необходимо
        Sequence <Any> macroArguments;
        Sequence <short> macroOutputArgumentIndices;
        Sequence <Any> macroOutputArguments;
        Any macroReturn;
        //Вызываем макрос
        macroReturn = xScript->invoke(macroArguments, macroOutputArgumentIndices, macroOutputArguments);



        // получаем интерфейс XStorable для текущего документа
        Reference< XStorable > xStorable(xComponent, UNO_QUERY);
        if (!xStorable.is())
        {
            fprintf(stderr, "getting XStorable interface failed!\n");
            return 1;
        }

        // задаем URL для сохранения документа
        OUString saveUrl("file:///C:/test/document.odt");

        // сохраняем документ
        xStorable->storeAsURL(saveUrl, props);

        // закрываем документ

       //xDoc->dispose();
    }
    catch (::cppu::BootstrapException& e)
    {
        fprintf(stderr, "caught BootstrapException: %s\n",
            OUStringToOString(e.getMessage(), RTL_TEXTENCODING_ASCII_US).getStr());
        return 1;
    }
    catch (Exception& e)
    {
        fprintf(stderr, "caught UNO exception: %s\n",
            OUStringToOString(e.Message, RTL_TEXTENCODING_ASCII_US).getStr());
        return 1;
    }

    return 0;
}