context ( <name> -- ) 語境
definitions ( -- ) 依境定義
also ( -- ) 目前的語境加入搜尋順序清單
onlyforth ( -- ) 回復最初的搜尋順序清單
defer ( <name> -- ) 虛詞
is ( xt <name> -- ) 是
Jimmy's papa最近對詩經及古文蠻有興趣地,所以在網路上找了兩種不同的詮釋,測測看虛詞在切換不同的語境下,是否會有不同的結果
show_code defer 上帝板板 defer 下民卒癉 : 《詩經·大雅·生民之什·板》 上帝板板 下民卒癉 cr ; context 甲骨索隱 definitions also : 解_上帝板板 ." 上帝為消滅罪孽將正本清源" ; : 解_下民卒癉 ." 乃因地上瞑盲奴隸被包裹起來見不著陽光" ; : 轉甲骨索隱語境 context 甲骨索隱 [tick] 解_上帝板板 is 上帝板板 [tick] 解_下民卒癉 is 下民卒癉 context Forth ; context 朱熹詩集傳 definitions : 解_上帝板板 ." 天反其常道" ; : 解_下民卒癉 ." 而使民盡病矣" ; : 轉朱熹詩集傳語境 context 朱熹詩集傳 [tick] 解_上帝板板 is 上帝板板 [tick] 解_下民卒癉 is 下民卒癉 context forth ; .( [朱熹詩集傳語境] 上帝板板 下民卒癉--) 轉朱熹詩集傳語境 《詩經·大雅·生民之什·板》 .( [甲骨索隱語境] 上帝板板 下民卒癉--) 轉甲骨索隱語境 《詩經·大雅·生民之什·板》
可將程式碼貼到Forth.js線上試玩版執行看看 forthjs.appspot.com
執行的結果應該如下
[朱熹詩集傳語境] 上帝板板 下民卒癉-- 天反其常道 而使民盡病矣
[甲骨索隱語境] 上帝板板 下民卒癉-- 上帝為消滅罪孽將正本清源 乃因地上瞑盲奴隸被包裹起來見不著陽光
沒有留言:
張貼留言