rearrange_operation.cpp

Go to the documentation of this file.

 
#ifndef Om_Language_Operation_RearrangeOperation_
 
    #include "om/language/operation/rearrange_operation.hpp"
 
    #ifdef Om_Macro_Test_
 
        #ifndef Om_Macro_Precompilation_
 
            #include "boost/test/unit_test.hpp"
 
        #endif
 
namespace Om {
 
    namespace Language {
 
        namespace Operation {
 
            BOOST_AUTO_TEST_SUITE(RearrangeOperationTest)
 
                BOOST_AUTO_TEST_CASE(DefinitionTest) {
                    BOOST_CHECK_EQUAL(
                        "{rearrange}",
                        System::Get().Evaluate("drop find {rearrange} system")
                    );
                }
 
                BOOST_AUTO_TEST_CASE(GeneralTest) {
                    BOOST_CHECK_EQUAL(
                        "{2}{1}",
                        System::Get().Evaluate("rearrange{b a}{a b}{1}{2}")
                    );
 
                    BOOST_CHECK_EQUAL(
                        "{2}{1}",
                        System::Get().Evaluate(
                            "rearrange"
                            "{the` flaven the` glaven}"
                            "{the` glaven the` flaven}"
                            "{1}{2}"
                        )
                    );
 
                    BOOST_CHECK_EQUAL(
                        "{2}{1}",
                        System::Get().Evaluate(
                            "rearrange"
                            "{do{the glaven} do{the flaven}}"
                            "{the` flaven the` glaven}"
                            "{1}{2}"
                        )
                    );
                }
 
            BOOST_AUTO_TEST_SUITE_END()
 
        }
 
    }
 
}
 
    #endif
 
#else
 
    #include "om/language/operation/define_operation.hpp"
    #include "om/language/operation/dequote_operation.hpp"
    #include "om/language/operation/fill_operation.hpp"
    #include "om/language/operation/inject_operation.hpp"
    #include "om/language/operation/pair_operation.hpp"
    #include "om/language/operation/quote_operation.hpp"
    #include "om/language/operation/skip_operation.hpp"
    #include "om/language/operation/swap_operation.hpp"
 
// MARK: - Om::Language::Operation::RearrangeOperation
 
    #define Type_ \
    Om::Language::Operation::RearrangeOperation
 
// MARK: public (static)
 
inline char const * Type_::GetName() {
    return Om_Language_Operation_RearrangeOperation_GetName_();
}
 
inline void Type_::Give(Evaluation & theEvaluation) {
    // define swap skip {dequote inject {quote} pair {fill}}
    DefineOperation::Give(theEvaluation);
    SwapOperation::Give(theEvaluation);
    SkipOperation::Give(theEvaluation);
    Expression theExpression;
    theExpression.TakeOperator(
        DequoteOperation::GetOperator()
    );
    theExpression.TakeOperator(
        InjectOperation::GetOperator()
    );
    theExpression.TakeQuotedProducer(
        QuoteOperation::GetOperator()
    );
    theExpression.TakeOperator(
        PairOperation::GetOperator()
    );
    theExpression.TakeQuotedProducer(
        FillOperation::GetOperator()
    );
    theEvaluation.TakeQuotedProducer(theExpression);
}
 
    #undef Type_
 
#endif