プリプロセッサの利用 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• プリプロセッサの利用 へ行く。
• プリプロセッサの利用 の差分を削除

//なかま
COLOR(red){SIZE(20){cpp+Rによるマクロの使用法}}

#がコメントの言語ではみんな同じなんですが。

#contents

* ヘッダーの用意
** common.R
 平方根<- function(x)
* ヘッダーの用意 [#u36964de]
** common.R [#y71b97d0]
 平方根 <- function(x)
 {
 #ifdef DOUBLE
   sqrt(x)
 #else
   floor(sqrt(x))
 #endif
 }

* メインの用意
** main.R
* メインの用意 [#b2b407bf]
** main.R [#k88a5b99]
 #include "common.R"
 #define TARGET	2
 平方根(TARGET)

* 実行1
* 実行1 [#a056fcfb]
 cpp main.R | R --vanilla -q

* 結果1
* 結果1 [#sc5faffb]
 > # 1 "main.R"
 > # 1 "common.R" 1
 > 平方根<- function(x)
 > 平方根 <- function(x)
 + {
 + 
 + 
 + 
 +   floor(sqrt(x))
 + 
 + }
 > 
 > # 1 "main.R" 2
 > 
 > 
 > 平方根(2 )
 > 平方根(2)
 [1] 1
 >

* 実行2
* 実行2 [#u78e80ea]
 cpp -DDOUBLE main.R | R --vanilla -q

* 結果2
* 結果2 [#n9aabfc6]
 > # 1 "main.R"
 > # 1 "common.R" 1
 > 平方根<- function(x)
 + {
 + 
 +   sqrt(x)
 + 
 + 
 + 
 + }
 > 
 > # 1 "main.R" 2
 > 
 > 
 > 平方根(2 )
 > 平方根(2)
 [1] 1.414214
 >