Goose  Artifact [dac4555eb2]

Artifact dac4555eb23849592e7afc773e28e147fdac55c1e4a8aa9e3da4bc0a89de0556:

• File bs/parse/rule-helpers.cpp — part of check-in [931ecff8c4] at 2019-01-22 20:32:18 on branch trunk — Builtins: added functions to construct tuples. (user: achavasse size: 919)

#include "parse.h"

using namespace empathy;
using namespace empathy::parse;

namespace empathy::parse
{
    const Term& RuleType()
    {
        static auto type = ValueToIRExpr( Value( TSID( type ), TSID( rule ) ) );
        return type;
    }

    Value RuleToValue( Rule&& r )
    {
        return Value( RuleType(), make_shared< Rule >( move( r ) ) );
    }

    ptr< Rule > RuleFromValue( const Value& v )
    {
        if( v.type() != RuleType() )
            return nullptr;

        const auto& content = v.val().content();
        const auto& p = get< ptr< void > >( content );
        return static_pointer_cast< Rule >( p );
    }

    void RegisterRule( sema::Env& env, const StringId& name, Rule&& rule )
    {
        auto ruleVal = RuleToValue( move( rule ) );
        auto ruleTerm = ValueToIRExpr( ruleVal );
        env.storeValue( TVEC( TSID( e0 ), TSID( name ) ), ANYTERM( x ), ruleTerm );
    }
}