partclダウンロード - partclソースコードのダウンロード

partcl

C# ソースコード

1.0.0

ダウンロード

Partcl - 最小限の Tcl インタープリター

特徴

約 600 行の「衒学的な」C99 コード
外部依存関係なし
優れたテスト範囲
カスタム Tcl コマンドで拡張可能
ベアメタル組み込み MCU で適切に動作します (~10k のフラッシュが必要です)

組み込みコマンド:

subst arg
set var ?val?
while cond loop
if cond branch ?cond? ?branch? ?other?
proc name args body
return
break
continue
算術演算: +, -, *, /, <, >, <=, >=, ==, !=

使用法

 struct tcl tcl ;
const char * s = "set x 4; puts [+ [* $x 10] 2]" ;

tcl_init ( & tcl );
if ( tcl_eval ( & tcl , s , strlen ( s )) != FERROR ) {
    printf ( "%.*sn" , tcl_length ( tcl . result ), tcl_string ( tcl . result ));
}
tcl_destroy ( & tcl );

言語の構文

Tcl スクリプトは、セミコロンまたは改行記号で区切られたコマンドで構成されます。コマンドは、空白で区切られた単語で構成されます。空白を単語の一部にするには、二重引用符または中括弧を使用します。

この言語の重要な部分は、角括弧内のコマンドの結果が外側のコマンドの一部として返されるときのコマンド置換です (例: puts [+ 1 2] 。

この言語の唯一のデータ型は文字列です。数学的演算は複雑になる可能性がありますが、独自の DSL を構築して言語を強化する幅広い道が開かれます。

レクサー

次の特殊記号を除き、任意の記号を単語の一部にすることができます。

ホワイトスペース、タブ - 単語を区切るために使用されます
r 、 n 、セミコロン、または EOF - コマンドを区切るために使用されます
中括弧、角括弧、ドル記号 - 置換とグループ化に使用されます

Partcl には、次の char クラス用の特別なヘルパー関数があります。

 static int tcl_is_space(char c);
static int tcl_is_end(char c);
static int tcl_is_special(char c, int q);

tcl_is_special 、引用モード ( qパラメーター) に応じて動作が異なります。引用符で囲まれた文字列の中括弧、セミコロン、および行末記号は特別な意味を失い、通常の印刷可能な文字になります。

Partcl レクサーは 1 つの関数で実装されています。

 int tcl_next(const char *s, size_t n, const char **from, const char **to, int *q);

tcl_next関数は、文字列s内の次のトークンを検索します。 fromとtoトークンの開始/終了を指すように設定され、 q引用モードを示し、 "が満たされた場合に変更されます。

特別なマクロtcl_each(s, len, skip_error)使用して、文字列内のすべてのトークンを反復処理できます。 skip_errorが false の場合、文字列の終了時にループが終了します。それ以外の場合は、構文エラーが見つかった場合にループがより早く終了する可能性があります。これにより、入力文字列を評価せずに「検証」し、完全なコマンドが読み取られたことを検出できます。

データ型

Tcl は主要なデータ型として文字列を使用します。 Tcl スクリプトが評価されると、多くの文字列が作成、破棄、または変更されます。組み込みシステムではメモリ管理が複雑になる可能性があるため、Tcl 値を使用するすべての操作は、特定の部分を最適化するために簡単に書き換えることができる分離された関数に移動されます (たとえば、文字列のプール、カスタムメモリアロケータ、キャッシュ数値またはリスト値を使用して増加させるため)パフォーマンスなど）。

 /* Raw string values */
tcl_value_t *tcl_alloc(const char *s, size_t len);
tcl_value_t *tcl_dup(tcl_value_t *v);
tcl_value_t *tcl_append(tcl_value_t *v, tcl_value_t *tail);
int tcl_length(tcl_value_t *v);
void tcl_free(tcl_value_t *v);

/* Helpers to access raw string or numeric value */
int tcl_int(tcl_value_t *v);
const char *tcl_string(tcl_value_t *v);

/* List values */
tcl_value_t *tcl_list_alloc();
tcl_value_t *tcl_list_append(tcl_value_t *v, tcl_value_t *tail);
tcl_value_t *tcl_list_at(tcl_value_t *v, int index);
int tcl_list_length(tcl_value_t *v);
void tcl_list_free(tcl_value_t *v);

..._append()関数は tail 引数を解放する必要があることに注意してください。また、 tcl_string()によって返される文字列は、変更またはキャッシュされることを意図したものではありません。

デフォルトの実装では、リストは各 iterm の前後にいくつかのエスケープ (中括弧) を追加する生の文字列として実装されます。これはコードも削減できる簡単な解決策ですが、場合によってはエスケープが間違っており、無効な結果が返されることがあります。

環境

特別なタイプのstruct tcl_env 、評価環境 (関数のセット) を保持するために使用されます。インタプリタは、ユーザー定義のプロシージャごとに新しい環境を作成します。また、インタプリタごとに 1 つのグローバル環境が存在します。

環境に関する機能は 3 つだけです。 1 つは新しい環境を作成し、もう 1 つは変数を検索 (または新しい環境を作成) し、最後のものは環境とそのすべての変数を破棄します。

これらの関数は malloc/free を使用しますが、代わりにメモリプールを使用するように簡単に書き換えることができます。

 static struct tcl_env *tcl_env_alloc(struct tcl_env *parent);
static struct tcl_var *tcl_env_var(struct tcl_env *env, tcl_value_t *name);
static struct tcl_env *tcl_env_free(struct tcl_env *env);

変数は単一リンクリストとして実装され、各変数は値のペア (名前 + 値) と次の変数へのポインターです。

通訳者

Partcl インタープリタは、現在の環境、使用可能なコマンドの配列、および最後の結果の値を保持する単純な構造のstruct tclです。

インタプリタロジックは、評価と置換という 2 つの関数にラップされています。

置換:

引数が$で始まる場合 - 一時コマンド[set name]を作成し、それを評価します。 Tcl では$foo [set foo]への単なるショートカットであり、現在の環境の "foo" 変数の値を返します。
引数が[で始まる場合は、角かっこ内の内容を評価し、結果を返します。
引数が引用符で囲まれた文字列 (例: {foo bar} ) の場合は、中括弧を付けずにそのまま返します。
それ以外の場合は引数をそのまま返します。

評価：