[Rcpp-commits] r3613 - pkg/Rcpp/inst/skeleton

[noreply at r-forge.r-project.org]

Author: edd
Date: 2012-05-24 17:19:14 +0200 (Thu, 24 May 2012)
New Revision: 3613

Modified:
   pkg/Rcpp/inst/skeleton/rcpp_module.cpp
Log:
added copyright header, edited and indented


Modified: pkg/Rcpp/inst/skeleton/rcpp_module.cpp
===================================================================
--- pkg/Rcpp/inst/skeleton/rcpp_module.cpp	2012-05-24 15:15:55 UTC (rev 3612)
+++ pkg/Rcpp/inst/skeleton/rcpp_module.cpp	2012-05-24 15:19:14 UTC (rev 3613)
@@ -1,27 +1,48 @@
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
+//
+// rcpp_module.cpp: Rcpp R/C++ interface class library -- Rcpp Module examples
+//
+// Copyright (C) 2010 - 2012  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/>.
+
 #include <Rcpp.h>
 
 std::string hello() {
-	throw std::range_error( "boom" ) ;
+    throw std::range_error( "boom" ) ;
 }
 
 int bar( int x){
-	return x*2 ;
+    return x*2 ;
 }
         
 double foo( int x, double y){
-	return x * y ;
+    return x * y ;
 }
 
 void bla( ){
-	Rprintf( "hello\\n" ) ;
+    Rprintf( "hello\\n" ) ;
 }
 
 void bla1( int x){
-	Rprintf( "hello (x = %d)\\n", x ) ;
+    Rprintf( "hello (x = %d)\\n", x ) ;
 }
   
 void bla2( int x, double y){
-	Rprintf( "hello (x = %d, y = %5.2f)\\n", x, y ) ;
+    Rprintf( "hello (x = %d, y = %5.2f)\\n", x, y ) ;
 }
 
 class World {
@@ -37,28 +58,28 @@
 
 
 RCPP_MODULE(yada){
-	using namespace Rcpp ;
+    using namespace Rcpp ;
 	                  
-	function( "hello" , &hello  , "documentation for hello " ) ;
-	function( "bla"   , &bla    , "documentation for bla " ) ;
-	function( "bla1"  , &bla1   , "documentation for bla1 " ) ;
-	function( "bla2"  , &bla2   , "documentation for bla2 " ) ;
+    function( "hello" , &hello  , "documentation for hello " );
+    function( "bla"   , &bla    , "documentation for bla " );
+    function( "bla1"  , &bla1   , "documentation for bla1 " );
+    function( "bla2"  , &bla2   , "documentation for bla2 " );
 	
-	// with formal arguments specification
-	function( "bar"   , &bar    , 
-	    List::create( _["x"] = 0.0 ), 
-	    "documentation for bar " ) ;
-	function( "foo"   , &foo    , 
-	    List::create( _["x"] = 1, _["y"] = 1.0 ),
-	    "documentation for foo " ) ;	
+    // with formal arguments specification
+    function( "bar"   , &bar    , 
+              List::create( _["x"] = 0.0 ), 
+              "documentation for bar " ) ;
+    function( "foo"   , &foo    , 
+              List::create( _["x"] = 1, _["y"] = 1.0 ),
+              "documentation for foo " ) ;	
 	
-	class_<World>( "World" )
+    class_<World>( "World" )
 	
-	    // expose the default constructor
-	    .constructor()    
+        // expose the default constructor
+        .constructor()    
 	    
-		.method( "greet", &World::greet , "get the message" )
-		.method( "set", &World::set     , "set the message" )
+        .method( "greet", &World::greet , "get the message" )
+        .method( "set", &World::set     , "set the message" )
 	;
 }