Goose  Artifact [9824d469d5]

Artifact 9824d469d5d7bb564197120e44c342ee042a763c6b1ec9f4e8148c2f180939ac:

• File bs/builtins/types/localvar/unify.cpp — part of check-in [3a2f2c23ab] at 2019-08-08 23:24:19 on branch trunk — Implemented the assignation operator. (user: achavasse size: 2064)

#include "builtins/builtins.h"

using namespace empathy;
using namespace empathy::ir;
using namespace empathy::llr;

namespace empathy::builtins
{
    void SetupLocalVarUnification( Env& e )
    {
        auto localVarPattern = GetValueType< LocalVar >( ANYTERM( _ ) );

        // LocalVar unification against a param:
        // Unify the contained value with the param.
        e.unificationRuleSet()->addAsymRule(

            ValueToIRExpr( ValuePattern(
                ANYTERM( _ ),
                ANYTERM( _ ),
                ANYTERM( _ ) ) ),

            ValueToIRExpr( ValuePattern(
                ANYTERM( _ ),
                localVarPattern,
                ANYTERM( _ ) ) ),

        []( const Term& lhs, const Term& rhs, UnificationContext& c ) -> UniGen
        {
            auto locvar = FromValue< LocalVar >( *ValueFromIRExpr( rhs ) );
            if( !locvar )
                co_return;

            auto varcontent = ValueToIRExpr( BuildComputedValue( locvar->type(),
                GetVar( locvar->cfgId(), locvar->index() ) ) );

            // Unify the param with the var's content
            co_yield Unify( lhs, varcontent, c );
        } );

        // LocalVar unification against another LocalVar: unify their types.
        e.unificationRuleSet()->addAsymRule(

            ValueToIRExpr( ValuePattern(
                ANYTERM( _ ),
                localVarPattern,
                ANYTERM( _ ) ) ),

            ValueToIRExpr( ValuePattern(
                ANYTERM( _ ),
                localVarPattern,
                ANYTERM( _ ) ) ),

        []( const Term& lhs, const Term& rhs, UnificationContext& c ) -> UniGen
        {
            auto lvarType = *FromValue< LocalVarType >( *ValueFromIRExpr( ValuePatternFromIRExpr( lhs )->type() ) );
            auto rvar = *FromValue< LocalVar >( *ValueFromIRExpr( rhs ) );

            for( auto&& [s, uc] : Unify( lvarType.type(), rvar.type(), c ) )
                co_yield { ValueToIRExpr( ToValue( LocalVar( s, rvar.cfgId(), rvar.index() ) ) ), uc };
        } );
    }
}