鍘熷浠ｇ爜錛?http://tinyscheme.sourceforge.net/home.html
tinyscheme鎹鏄疄鐜扮殑r5rs鏍囧噯錛堝簲褰撴槸瀹炵幇浜嗕竴閮ㄥ垎錛屽洜涓烘ā寮忓尮閰嶅拰璇硶瀹氫箟鐨勯偅閮ㄥ垎鏄劇劧娌″疄鐜幫級
tinyscheme浠ｇ爜寰堢畝鐭屼笖瀹炵幇鐨勮璦鍔熻兘榪樼畻姣旇緝瀹屾暣錛屽鏋滄兂鐮旂┒涓涓猯isp瑙ｉ噴鍣ㄧ殑瀹炵幇錛宼inyscheme鏄煎緱鐮旂┒鐨?br />tinyscheme瀹炵幇浜唋ambda銆佸畯銆佸歡緇佸紓甯搞乬c榪欎簺閲嶈鐨勮璦鏈哄埗錛岃繕瀹炵幇浜嗚澶氬簱鍑芥暟錛屾暣涓師鐗堜唬鐮佸ぇ綰︽湁6500琛屽乏鍙籌紝浣嗘槸鍘熺増浠ｇ爜鏈夊緢澶氱殑瀹忓畾涔夊拰寰堝鍐椾綑鐨勪唬鐮侊紝浠ｇ爜鍒嗙被涔熷緢娣蜂貢錛屽彲璇繪т笉綆楃壒鍒ソ錛屽湪闃呰榪囩▼涓垜瀵硅繖涓唬鐮佽繘琛屼簡澶ч噺鐨勪慨鏀癸紝娓呴櫎浜嗗ぇ閲忓啑浣欎唬鐮侊紝閲嶆柊緇勭粐浜嗕唬鐮佺粨鏋勶紝涓昏鐨勫疄鐜版枃浠秙cheme.c琚垜浠?000琛屾敼鍒板彧鏈?400琛屻傛墍鏈変唬鐮佸姞璧鋒潵涔熷彧鏈?500琛屼簡錛屽姛鑳芥崯澶變篃涓嶅お澶?br />淇敼涓浜沚ug錛屾瘮濡傚儚‘寤剁畫’鐨勫疄鐜幫紝鍘熺増鍍忎笅闈㈣繖鏍風(fēng)殑浠ｇ爜涓紝 “(r 1)”榪欎竴鍙ユ槸娌℃硶榪愯鐨?br />(define r 0)
(let ((x 1))
(set! x
(+ x
(call/cc (lambda (c) (set! r c) (+ 44 (c 1)))))
)
(display x))
(r 1)
鏈夊叴瓚ｇ殑鍙互鐪嬩竴鐪嬶紒
]]>
浠ｇ爜鍦板潃錛?a >http://sil-language.googlecode.com
sil璇█錛坰imple interpretative lanuage錛夋槸涓涓畝鍗曠殑鑴氭湰璇█錛屽彧鏄竴涓帺鍏鳳紝鐩殑鏄紨紺虹敤綆鐭殑浠ｇ爜鍘誨垱寤轟竴涓彲鐢ㄧ殑鑴氭湰璇█
榪欐牱涓涓帺鍏蜂細(xì)鏄庝箞鏍風(fēng)殑鍛紵
sil鐨勮璁＄洰鏍囷細(xì)
1 . 闈炲父瀹規(guī)槗灝唖il瑙ｉ噴鍣ㄥ祵鍏ュ埌c++浠ｇ爜涓?br />2 . 闈炲父瀹規(guī)槗鐢╟++浠ｇ爜鏉ユ墿灞晄il鐨勫嚱鏁拌皟鐢紝浣垮緱c++鍜宻il鑴氭湰闈炲父瀹規(guī)槗浜や簰
3 . 鎴愪負(fù)涓涓湁綆媧佽娉曠殑鍔ㄦ佽璦錛屾湁瀹規(guī)槗浣跨敤鐨勮娉?br />4 . 鎷ユ湁涓涓璦涓鑸兘搴斿綋鎷ユ湁鐨勮娉?/p>
sil璇硶鐨勫畬鏁村畾涔夊彲鍙傝冦妔il璇硶璇存槑銆嬨?br />sil璇█鏄姩鎬佺被鍨嬬殑錛岀紪璇戞椂涓嶄細(xì)媯鏌ュ嚱鏁扮殑鍙傛暟涓暟錛屽弬鏁扮被鍨嬫槸鍚﹀悎閫傦紝鐢氳嚦涓嶄細(xì)媯鏌ュ嚱鏁板畾涔夋槸鍚﹀瓨鍦紝鍙湁鍒頒簡榪愯鏃舵墠浼?xì)鏌ユ墤謬芥晭图寢個鏌ュ弬鏁頒釜鏁版槸鍚﹀尮閰嶃?br />瀵逛簬鍐呯疆鍑芥暟榪樹細(xì)媯鏌ュ弬鏁扮被鍨嬫槸鍚﹀尮閰嶏紝濡傛灉涓嶅尮閰嶄細(xì)璇曠潃榪涜鍙傛暟綾誨瀷杞崲
瀵逛簬鐢ㄦ埛瀹氫箟鍑芥暟錛屼笉浼?xì)杩涜鍙傛暟绫诲瀷鍖归厤鐨剫個鏌?br />絎竴鑺?璇硶錛?br />1. 綾誨瀷錛?br /> sil鏆傛椂鏀寔鏁村艦錛屾誕鐐瑰瀷錛屽瓧絎︿覆涓夌鏁版嵁綾誨瀷錛屾殏鏃朵笉鏀寔鏁扮粍錛屼篃涓嶆敮鎸佽嚜瀹氫箟綾誨瀷錛堣繖涓ょ偣鏄瘮杈冧弗閲嶇殑緙虹偣錛?br /> sil鏄急綾誨瀷鐨勶紝鍙橀噺涓嶄細(xì)鍜岀被鍨嬬粦瀹?br /> 鍙橀噺瀹氫箟鍍忔槸榪欐牱鐨勶細(xì)
var vi=1; //瀹氫箟涓涓間負(fù)鏁存暟1鐨勫彉閲弙i
var vf=1.0;//瀹氫箟涓涓間負(fù)嫻偣鏁?.0鐨勫彉閲弙f
var vs="1.0";//瀹氫箟涓涓間負(fù)瀛楃涓?1.0"鐨勫瓧絎︿覆vs
2. 鍑芥暟
sil鏄急綾誨瀷鐨勶紝鎵浠ュ畾涔夊嚱鏁版椂涓嶉渶瑕佸０鏄庡艦鍙傜殑綾誨瀷錛屾敮鎸乺eturn璇彞
鍑芥暟鍍忚繖鏍峰畾涔?
function myfun(str)
{
print(str);
return 0;
print("after return\n");
}
鍑芥暟鍍忚繖鏍瘋皟鐢細(xì)myfun("hello sil");
3. 鍒嗘敮
sil鏀寔if else 璇彞,
鍍忚繖鏍鳳細(xì)
var i=read();
if(i==1) print("a");
else if(i==2)
{
print("b");
}
else print("c");
4. 寰幆
sil鏀寔while鍜宖or寰幆錛屾敮鎸乧ontinue錛宐reak璇彞
while鍍忚繖鏍鳳細(xì)
var i=1;
while(true)
{
print("hello sil\n");
i=i+1;
if(i>5) break;
if(i<3) continue;
print("after continue\n");
}
for寰幆鍍忚繖鏍?br /> for(var i=0;i<5;i=i+1) print(i+"\n");
5. 鍩烘湰榪愮畻絎?br /> 姣旇緝榪愮畻鏀寔 == != > <
綆楁湳榪愮畻鏀寔 + - * / % 錛岃繕鏀寔涓鍏?-
閫昏緫榪愮畻鏀寔 ! && ||
鏀寔鎷彿 ( ) 鏀瑰彉姹傚奸『搴?br /> 綆楃浼樺厛綰у拰c涓竴鏍?br />
5. 鍐呯疆鍑芥暟
sil綾誨唴緗嚱鏁版槸闈炲父灝戠殑錛岃瑙佸嚱鏁拌鏄庯紝浠ヤ笅鍒楀嚭涓や釜姣旇緝閲嶈鐨勩?br /> eval 鍙涓涓瓧絎︿覆褰㈠紡鐨剆il浠ｇ爜姹傚?br /> 渚嬪 eval("for(var i=0;i<5;i=i+1)print(i);");
load 鍙互鍔犺澆涓涓猻il浠ｇ爜鏂囦歡錛屼唬鐮佹枃浠朵腑浜﹀彲閫掑綊璋冪敤load鍑芥暟
6. c++宓屽叆鍜屾墿灞?br /> 瀵ュ鏁拌浠ｇ爜鍗沖彲灝唖il宓屽叆鍒癱++涓?br /> 涓涓猚鍑芥暟鍙褰㈠弬鍜岃繑鍥炲肩被鍨嬫槸int float string錛岀畝鍗曡皟鐢ㄤ竴涓猺egister_function鍗沖彲灝嗗嚱鏁版敞鍐屽埌sil涓紝鑴氭湰鍗沖彲鏂逛究鐨勮皟鐢ㄨ繖浜涙墿灞曞嚱鏁?br /> extern宸ョ▼涓殑浠ｇ爜紺轟緥浜嗗浣曞sil鎻愪緵鏂囦歡璇誨啓鍑芥暟鐨勬敮鎸?br />
絎簩鑺?婧愪唬鐮?br /> 榪欐槸涓涓敤vs2008鍒涘緩鐨勫伐紼嬶紝鐢變簬浣跨敤浜唖hared_ptr錛屽鏋滅粰vs2005寮曞叆shared_ptr鐨勬敮鎸佷害鍙湪vs2005涓嬬紪璇戦氳繃
src鐩綍涓嬫槸sil璇█鐢╟++瀹炵幇鐨勫唴鏍?br /> consle鐩綍涓嬫槸sil璇█鐨勫懡浠よ瑙ｉ噴鍣?br /> extern鐩綍涓嬫槸涓涓緥瀛愶紝婕旂ず浜嗗浣曟墿灞晄il鐨勫唴緗嚱鏁?br /> lib鐩綍涓嬫槸鐢╯il鍐欑殑搴撲唬鐮佸拰涓浜涙祴璇曚唬鐮侊紝浣嗘槸鐜板湪鍙湁綆鍗曠殑嫻嬭瘯浠ｇ爜錛堥噷闈㈡湁涓涓紑騫蟲柟鏍瑰拰姹傚渾鍛ㄧ巼鐨勬湁鎰忔濈殑渚嬪瓙錛?br /> doc鐩綍涓嬫槸鏂囨。
bin鐩綍涓嬫槸鍙墽琛屾枃浠?br />
絎笁鑺?鍑芥暟璇存槑
to_int 灝嗕竴涓艱漿鎹負(fù)int綾誨瀷錛屼緥濡傦細(xì)to_int("123");
to_float 灝嗕竴涓艱漿鎹負(fù)float綾誨瀷錛屼緥濡傦細(xì)to_float(2);
to_string 灝嗕竴涓艱漿鎹負(fù)string綾誨瀷錛屼緥濡傦細(xì)to_string(254);
strlen 姹傚瓧絎︿覆鐨勯暱搴︼紝渚嬪錛歴trlen("hello");
substr 鎴彇瀛楃涓茬殑鐨勪竴閮ㄥ垎錛屼緥濡傦細(xì)substr("hello",1,3);
eval 鍙互姹傚間竴涓瓧絎︿覆褰㈠紡鐨勮〃杈懼紡錛屼緥濡? var code="1+2*3";eval(code);
load 鍙互鍔犺澆騫舵墽琛屼竴涓猻il浠ｇ爜鐨勬枃浠訛紝渚嬪錛?load("../lib/math_test.sil");
exit 緇堟鑴氭湰鐨勬墽琛岋紝渚嬪錛歱rint("hello");exit();print("world");
print 鎵撳嵃涓涓鹼紝渚嬪錛歱rint("hello world"+3);
read 鍙互浠庢帶鍒跺彴璇誨彇涓涓瓧絎︿覆錛屼緥濡傦細(xì)var tmp=read();print(tmp);
bat 鍙互鎵ц涓涓獁indows鍛戒護錛屼緥濡傦細(xì)bat("dir");
list_function 鎵撳嵃宸茬粡瀹氫箟鐨勫唴緗嚱鏁板拰鑴氭湰鍑芥暟錛屼緥濡傦細(xì)list_funciton();
list_asm_code 鎵撳嵃緙栬瘧鍑虹殑浠ｇ爜錛屼緥濡傦細(xì)list_asm_code();
set_sil 鍙互璁劇疆瑙ｉ噴鍣ㄧ殑涓浜涘紑鍏籌紝渚嬪錛歴et_sil("",0);
help 鏄劇ず甯姪淇℃伅錛屼緥濡傦細(xì)help();
]]>
]]>
]]>