Language.h

Go to the documentation of this file.

// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
//
// Language.h: Rcpp R/C++ interface class library -- language objects (calls)
//
// Copyright (C) 2010 - 2011 Dirk Eddelbuettel and Romain Francois
//
// This file is part of Rcpp.
//
// Rcpp is free software: you can redistribute it and/or modify it
// under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 2 of the License, or
// (at your option) any later version.
//
// Rcpp is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.

#ifndef Rcpp_Language_h
#define Rcpp_Language_h

#include <RcppCommon.h>
#include <Rcpp/DottedPair.h>
#include <Rcpp/Symbol.h>
#include <Rcpp/Function.h>
#include <Rcpp/grow.h>
#include <Rcpp/r_cast.h>

namespace Rcpp{ 

    class Language : public DottedPair {
    public:

        Language() ;
        
        Language(SEXP lang) ;

        Language(const Language& other) ;
        Language& operator=(const Language& other) ;
        
        explicit Language( const std::string& symbol ); 

        explicit Language( const Symbol& symbol ); 

        explicit Language( const Function& function) ;
        
#ifdef HAS_VARIADIC_TEMPLATES
        template<typename... Args> 
        Language( const std::string& symbol, const Args&... args) : DottedPair(Rf_install(symbol.c_str()), args...) {
            update() ;
        }
        template<typename... Args> 
        Language( const Function& function, const Args&... args) : DottedPair(function, args...) {
            update() ;
        }
#else

#include <Rcpp/generated/Language__ctors.h>

#endif  
        
        void setSymbol( const std::string& symbol);

        void setSymbol( const Symbol& symbol ) ;

        void setFunction( const Function& function) ;

        SEXP eval() ;

        SEXP eval(SEXP env) ;

        ~Language() ;

    private:
        virtual void update() ; 

    };

    template <typename OUT=SEXP>
    class fixed_call {
    public:
        typedef OUT result_type ;
        
        fixed_call( Language call_ ) : call(call_){}
        fixed_call( Function fun ) : call(fun){}
        
        OUT operator()(){
            return as<OUT>( call.eval() ) ;
        }
        
    private:
        Language call ;
    } ;

    template <typename T, typename OUT = SEXP>
    class unary_call : public std::unary_function<T,OUT> {
    public:
        unary_call( Language call_ ) : call(call_), proxy(call_,1) {}
        unary_call( Language call_, int index ) : call(call_), proxy(call_,index){}
        unary_call( Function fun ) : call( fun, R_NilValue), proxy(call,1) {}
        
        OUT operator()( const T& object ){
            proxy = object ;
            return as<OUT>( call.eval() ) ;
        }
        
    private:
        Language call ;
        Language::Proxy proxy ;
    } ;

    template <typename T1, typename T2, typename OUT = SEXP>
    class binary_call : public std::binary_function<T1,T2,OUT> {
    public:
        binary_call( Language call_ ) : call(call_), proxy1(call_,1), proxy2(call_,2) {}
        binary_call( Language call_, int index1, int index2 ) : call(call_), proxy1(call_,index1), proxy2(call_,index2){}
        binary_call( Function fun) : call(fun, R_NilValue, R_NilValue), proxy1(call,1), proxy2(call,2){}
        
        OUT operator()( const T1& o1, const T2& o2 ){
            proxy1 = o1 ;
            proxy2 = o2 ;
            return as<OUT>( call.eval() ) ;
        }
        
    private:
        Language call ;
        Language::Proxy proxy1 ;
        Language::Proxy proxy2 ;
    } ;

} // namespace Rcpp

#endif