RedプリプロセッサはRedのダイアレクトであり、Red言語の最も上に存在する特別なレイヤーにおいてRedのソースコードを変換することを可能にします。変換はRedソースコード中の、 ディレクティブ（directives） と呼ばれるインラインプリプロセッサ用のキーワードに基づいて行われます。directiveは次のタイミングで処理されます。
-
Redのソースコードがコンパイルされる時
-
do関数にRedのソースコードファイルが渡された時 -
blockの値に対して
expand-directives関数が呼ばれた時
プリプロセッサはLOADフェーズの後に実行されます。そのため、ソースコードを文字列的に扱うのではなく、Redの各種の値として処理します。
ディレクティブは以下のカテゴリーに分けられます。
-
条件分岐ディレクティブ： 式の結果に応じたコードを挿入します。
-
制御ディレクティブ： プリプロセッサの振る舞いを制御します。
-
マクロ： 関数を使ったより複雑なコード変換を行います。
ディレクティブは # シンボルで始まる issue! 型の値で表現されます。
ディレクティブが処理されると、そのディレクティブが返す戻り値でコードが置き換わります。いくつかのディレクティブは値を返さないですが、その場合は単に削除されます。ソースコードの変換はこのように行われます。
|
Note
|
Red/Systemは独自の プリプロセッサ を持っています。これはディレクティブと似ていますが、ローレベルで文字列的な取り扱いにより適用されます。 |
条件分岐を行うディレクティブやマクロのでは暗黙的に提供される config オブジェクトが使用可能です。これはコンパイル時の設定へのアクセスを可能にし、条件に従ってコードを挿入したい場合によく用いられます。参照できる情報の完全なリストは こちら にあります。
例：
#if config/OS = 'Windows [#include %windows.red]
NOTE:
プリプロセッサが実行時に（つまり、Redのインタプリタ上で）呼び出された場合でも、 config オブジェクトは参照可能です。この場合、 config オブジェクトにはコードを実行しているRedのバイナリのコンパイルオプションが設定されています。
ディレクティブの中で使用される式は全て、現在のコンテキストにのみ反映され、グローバルコンテキストにリークして予期しない副作用を起こすことはありません。コンテキストは式の中でset-word、マクロ、 #do ディレクティブが使用されるたびに拡張されます。
Tips:
-
以下のコードにより、隠蔽されたコンテキストの内容を表示することができます。
#do [probe self]
-
実行時に使用される場合、隠蔽コンテキストへのアクセスは以下のように行います。
probe preprocessor/exec
Redのプリプロセッサはマクロ関数（単に マクロ と呼ばれることが多いです）をサポートしています。マクロを使うことで、より複雑な変換が行え、効率的なメタプログラミングを可能にします。実行コストをコンパイル時に発生させ、実行時のコストを回避できます。Redはマクロが実装される以前から実行時の強力なメタプログラミング性能を持っていましたが、Redのソースコードがコンパイラ上でもインタプリタ上でも同様に動作するため、マクロは実行時にも解決されるようになっています。
NOTE:ソースの読み取り時のマクロは存在しません。文字列としてソースを取り扱う方法はすでにParseダイアレクトが存在するため、そのような機能のサポートは現在のところは冗長だと捉えられています。
プリプロセッサは２つのタイプのマクロをサポートしています。
このタイプのマクロはハイレベルで動作し、引数や戻り値の取り扱いまでプリプロセッサ側で処理してくれるため、ユーザーが意識する必要はありません。典型的なフォーマットは以下のようなものです。
#macro name: func [arg1 arg2... /local word1 word2...][...code...]
上記のようなマクロを定義した後、ソースコード中で name のwordが現れるたびに、以下のステップに従ってこのマクロが呼び出されます。
-
引数の値を取得
-
取得した引数でマクロの関数を実行
-
関数内で最後に評価された値で、マクロ呼び出しと引数部分を置き換え
-
置き換えられた値を元にプリプロセッサの動作を再開（再帰的なマクロの評価も可能です）
NOTE:引数の型を指定することは現在のところサポートされていません。
Red [] #macro make-KB: func [n][n * 1024] print make-KB 64
この結果は以下のように変換されます。
Red [] print 65536
マクロの中から他のマクロを呼び出す例です。
Red [] #macro make-KB: func [n][n * 1024] #macro make-MB: func [n][make-KB make-KB n] print make-MB 1
この結果は以下のように変換されます。
Red [] print 1048576
このタイプのマクロはwordと引数でマッチングされるのではなく、Parseダイアレクトのルールとキーワードで定義されたパターンによってマッチングを行います。名前付きマクロと同様、戻り値がマッチしたパターンを置換するために使われます。
もう一つ、よりローレベルのマクロも存在し、こちらは [manual] 属性を使用することで起動されます。この場合、暗黙的な処理はありませんが、ユーザーが全てをコントロールすることができます。自動的な置換は行われず、必要な変換を適用するのもコードの評価を再開する位置を決めるのも定義したマクロ関数次第です。
典型的なパターンマッチマクロは以下のような形式です。
#macro <rule> func [<attribute> start end /local word1 word2...][...code...]
<rule> は以下のものを使用することができます。
-
lit-word!型の値：指定したwordでマッチングされます。
-
word!の値：Parseダイレクトで使用されるキーワードです。たとえばデータ型の名前や 全ての値にマッチする 「skip」などです。
-
block!型の値：Parseダイアレクトのルール。
引数 start と end は分割されたソースコードに対する参照です。戻り値は再開位置への参照である必要があります。
<attribute> には [manual] を指定することができます。これにより、そのマクロはローレベルのマニュアルモードで実行されます。
Red [] #macro integer! func [s e][s/1 + 1] print 1 + 2
この結果は以下のように変換されます。
Red [] print 2 + 3
マニュアルモードを使用すると、同じ内容のマクロは以下のように書けます。
Red [] #macro integer! func [[manual] s e][s/1: s/1 + 1 next s] print 1 + 2
blockを使って可変長引数の関数を作成する例
Red []
#macro ['max some [integer!]] func [s e][
first maximum-of copy/part next s e
]
print max 4 2 3 8 1
この結果は以下のように変換されます。
Red [] print 8
#if <expr> [<body>] <expr> : 式（最後の値が条件分岐に用いられます） <body> : if <expr> がtrueだった場合に実行されるコード
説明
条件式がtrueだった場合、コードブロックの内容を挿入します。挿入された <body> ブロックは再度プリプロセッサに渡されます。
Red [] #if config/OS = 'Windows [print "OS is Windows"]
Windowsで実行した場合、以下のように変換されます。
Red [] print "OS is Windows"
Windowsでない場合、以下の結果になります。
Red []
#do ディレクティブを使うと自由にwordを定義でき、式の中で使用することができます。
Red [] #do [debug?: yes] #if debug? [print "running in debug mode"]
この結果は以下のように変換されます。
Red [] print "running in debug mode"
#either <expr> [<true>][<false>] <expr> : 式（最後の値が条件分岐に用いられます） <true> : if <expr> がtrueだった場合に実行されるコード <false> : if <expr> がfalseだった場合に実行されるコード
説明
条件式によって挿入するコードブロックを選択します。挿入されたブロックは再度プリプロセッサに渡されます。
Red [] print #either config/OS = 'Windows ["Windows"]["Unix"]
Windowsで実行した場合、以下のように変換されます。
Red [] print "Windows"
Windowsでない場合、以下の結果になります。
Red [] print "Unix"
#switch <expr> [<value1> [<case1>] <value2> [<case2>] ...] #switch <expr> [<value1> [<case1>] <value2> [<case2>] ... #default [<default>]] <valueN> : マッチさせる値 <caseN> : 最後に評価された値がマッチした時に挿入するコード <default> : マッチする値がなかった場合に挿入するコード
説明
値に応じて、複数の選択肢の中から挿入するコードを選択します。挿入されたブロックは再度プリプロセッサに渡されます。
Red []
print #switch config/OS [
Windows ["Windows"]
Linux ["Unix"]
MacOSX ["macOS"]
]
Windowsで実行した場合、以下のように変換されます。
Red [] print "Windows"
#case [<expr1> [<case1>] <expr2> [<case2>] ...] <exprN> : 条件式 <caseN> : 条件式がtrueだった場合に挿入されるコード
説明
値に応じて、複数の選択肢の中から挿入するコードを選択します。挿入されたブロックは再度プリプロセッサに渡されます。
Red []
#do [level: 2]
print #case [
level = 1 ["Easy"]
level >= 2 ["Medium"]
level >= 4 ["Hard"]
]
この結果は以下のように変換されます。
Red [] print "Medium"
#include <file> <file> : 挿入するRedのファイル （file!）
説明
コンパイル時に評価された場合、引数のファイルの中身を読み込んで現在の位置に挿入します。ファイルは現在のスクリプトからの絶対パスまたは相対パスを使うことができます。Redインタプリタで実行された場合、このディレクティブは単に do に置換され、ファイルの挿入は行われません。
#do [<body>] #do keep [<body>] <body> : 任意のRedのコード
説明
暗黙的な実行コンテキスト上で、bodyブロックを評価します。 keep が使用された場合、 body を評価した結果でディレクティブと引数が置換されます。
Red [] #do [a: 1] print ["2 + 3 =" #do keep [2 + 3]] #if a < 0 [print "negative"]
この結果は以下のように変換されます。
Red [] print ["2 + 3 =" 5]
#macro <name> func <spec> <body> #macro <pattern> func <spec> <body> <name> : マクロ関数の名前 （set-word!） <pattern> : マクロを実行するマッチングルール（block!, word!, lit-word!） <spec> : マクロ関数のスペックブロック <body> : マクロ関数のボディブロック
説明
マクロ関数を作成します。
名前付きマクロでは、specブロックでは任意の数の引数を宣言できます。bodyブロックはマクロ呼び出しと引数を置換するための戻り値を返す必要があります。空のブロックを返した場合、マクロ呼び出しと引数は単に削除されます。
パターンマッチマクロの場合、specブロックは 2個 の引数を宣言する必要があり、それらがマッチしたパターンへの開始位置の参照と終了位置の参照になります。規約として、引数の名前は func [start end] とするか省略して func [s e] とします。デフォルトでは、マクロの本体はマッチしたパターンを置換する値を返す必要があります。空のブロックを返した場合、マッチしたパターンは削除されます。
パターンマッチングマクロでは マニュアルモード も使用可能で、関数のspecブロックに [manual] 属性を設定することで実行されます。つまり、次のような形です。 func [[manual] start end]
マニュアルモードのマクロは置換する値ではなく、再開位置を返す必要があります。もし置換されたパターンで 再評価 をしたいのであれば、 start を返してください。置換されたパターンは スキップ するのであれば、 end を返してください。必要手であれば他の位置を返すことも可能です。マクロによって変換された内容や、置換さあれた値を部分的に再評価したいか、全体を再評価したいかといったことを考慮して、返す位置を決めてください。
パターンマッチマクロには以下のデータを渡せます。
-
block：Parseダイアレクトで使用するマッチパターンを指定します
-
word：Parseダイレクトで使用されるキーワードです。たとえばデータ型の名前や 全ての値にマッチする 「skip」などです。
-
lit-word：指定したwordでマッチングされます。
Red [] #macro pow2: func [n][to integer! n ** 2] print pow2 10 print pow2 3 + pow2 4 = pow2 5
この結果は以下のように変換されます。
Red [] print 100 print 9 + 16 = 25
パターンマッチマクロの例：
Red []
#macro [number! '+ number! '= number!] func [s e][
do copy/part s e
]
print 9 + 16 = 25
この結果は以下のように変換されます。
Red [] print true
マニュアルモードのパターンマッチマクロの例
Red []
#macro ['sqrt number!] func [[manual] s e][
if negative? s/2 [
print [
"*** SQRT Error: no negative number allowed" lf
"*** At:" copy/part s e
]
halt
]
e ;-- マッチしたパターンに渡される位置を返します。
]
print sqrt 9
print sqrt -4
この結果は以下のような動作になります。
*** SQRT Error: no negative number allowed *** At: sqrt -4 (halted)
#local [<body>] <body> : ローカルマクロの定義を含む任意のRedコード
説明
マクロのローカルコンテキストを生成します。ローカルコンテキスト中に定義された全てのマクロはコンテキストの終了時に破棄されます。ローカルなものとして定義したいマクロはローカルコンテキストの中で定義する必要があります。このディレクティブは再帰的に使用することができます（ #local は body 中で使用できる有効なディレクティブです）。
Red []
print 1.0
#local [
#macro float! func [s e][to integer! s/1]
print [1.23 2.54 123.789]
]
print 2.0
この結果は以下のように変換されます。
Red [] print 1.0 print [1 3 124] print 2.0
#process [on | off]
説明
プリプロセッサの有効・無効を切り替えます（初期状態は有効です）。これはRedのコード中で、ディレクティブがリテラルとして使用されていて、プリプロセッサとして処理をさせたくない場合のための、エスケープの仕組みです。たとえば、そのプリプロセッサが他の意味を持つダイアレクトで使われている時などに使用します。
実装上の制約： プリプロセッサを無効にした後、再度有効にするという場合、 #process off ディレクティブは #process on ディレクティブと同じか、より上のスコープに位置している必要があります。
Red [] print "Conditional directives:" #process off foreach d [#if #either #switch #case][probe d] #process on
この結果は以下のように変換されます。
Red [] print "Conditional directives:" foreach d [#if #either #switch #case][probe d]
Redのプリプロセッサは実行中も動作するようになっており、インタプリタでもプリプロセッサディレクティブを含むコードを実行することができます。 do 関数に file! 型の値を渡した場合に、自動的にプリプロセッサの評価が行われます。 もしプリプロセッサを実行させずに do 関数にファイルを渡したい場合、次の形式を使います： do load %file
expand-directives [<body>] expand-directives/clean [<body>] <body> : プリプロセッサディレクティブを含む任意のRedコード
説明
ブロックの中のプリプロセッサを実行します。引数のブロックは変更され、戻り値として返されます。 /clean リファインメントを使用した場合、以前のプリプロセッサの状態がリセットされ、全ての以前の定義されたマクロは削除されます。
expand-directives [print #either config/OS = 'Windows ["Windows"]["Unix"]]
この結果はWindows上では以下のように変換されます。
[print "Windows"]