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 腳本由分號或換行符號分隔的指令組成。 Commands 又由用空格分隔的單字組成。為了使空格成為單字的一部分，可以使用雙引號或大括號。

該語言的一個重要部分是命令替換，即方括號內命令的結果會作為外部命令的一部分返回，例如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 詞法分析器在一個函數中實作：

 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為假-循環在字串結束時結束，否則如果發現語法錯誤，循環可以提前結束。它允許“驗證”輸入字串而不對其進行評估，並檢測何時讀取了完整的命令。

資料類型

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()傳回的字串並不表示會被改變或快取。

在預設實作中，列表被實作為原始字串，在每個項目周圍添加一些轉義（大括號）。這是一個簡單的解決方案，也減少了程式碼，但在某些特殊情況下，轉義可能會出錯，並且將傳回無效結果。

環境

一種特殊型別struct tcl_env用來保存評估環境（一組函數）。解釋器為每個使用者定義的過程建立一個新環境，每個解釋器也有一個全域環境。

與環境相關的函數只有3個。一個創造一個新環境，另一個尋找一個變數（或創建一個新變數），最後一個破壞環境及其所有變數。

這些函數使用 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它保存目前環境、可用指令陣列和最後的結果值。

解釋器邏輯圍繞著兩個函數 - 求值和替換。

替代：

如果參數以$開頭 - 建立一個臨時命令[set name]並評估它。在 Tcl 中$foo只是[set foo]的快捷方式，它會傳回目前環境中「foo」變數的值。
如果參數以[開頭 - 計算方括號內的內容並傳回結果。
如果參數是帶引號的字串（例如{foo bar} ） - 按原樣返回，只是不帶大括號。
否則按原樣返回參數。

評估：