tag:blogger.com,1999:blog-40741649402872154502024-09-09T18:23:10.584+03:00asdr(list 'cikolatalar 'puskevitler)asdrhttp://www.blogger.com/profile/09337201940403413841noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-4074164940287215450.post-42653559230832194402010-12-30T03:30:00.000+02:002010-12-30T03:30:15.925+02:00Web icin Common LispLisple ugrasmaya basladigimdan beri yapmak istedigim bir sey vardi kafamda. Tamamen lisple bir web uygulamasi yazmak. Bir lisp server ve kolay html ciktisi alabilecegim bir lisp kutuphanesi ile baslayayim dedim. En bastan bir web server yazcak degilim, daha dili tam bilmiyorum ...<br /> <br /> O yuzden bir pure lisp web server olan <a href="http://weitz.de/hunchentoot/">Hunchentoot</a>&nbsp;kurmakla basladim ise... Yok yaa... yalan konusuyorum..&nbsp;Ilk once lisp icin ortam hazirlamakla basladim. Gorundugu kadar kolay degil... Konsoldan calismaya alisik degilseniz ise hic kolay degil. Hele <a href="http://www.quicklisp.org/">Quicklisp</a>'ten once isler daha da zordu. (<a href="http://www.xach.com/">xach</a>'ten Allah razi olsun :))<br /> Neyse kurulum islerini gecicem. Orda vakit harcamak istemem. Ozetle su an lispe baslicak birisi icin en ideal ortam: SBCL + Quicklisp + Emacs + Slime (:quicklisp-slime-helper). Tabi bir de Debian-based bir Linuxunuz olursa ya da bir BSDniz cok daha iyi olur. (paket isleri kolay oluyor o yuzden)<br /> <br /> Hunchentoot'ta kalmistik ... Quicklisp kurduktan sonra sisteme Hunchentoot kurmak:<br /> &nbsp;&nbsp; <i>(ql:quickload :hunchentoot)&nbsp;</i><br /> gibi tek satirlik bir komut. Quicklisp sayesinde tum dependencylerle birlikte Hunchentoot geliyor. Ama onu calisir hale getirmek icin biraz ugrasmak gerekti. Kendim bayagi ugrastiktan sonra Googledan bir <a href="http://zaries.wordpress.com/2010/11/09/lisp-web-server-from-scratch-using-hunchentoot-and-nginx/">blog</a>a denk geldim. Kurulumu cok guzel ozetlemis. Onun da yardimiyla Huncentootu calisir hale getirebildim.<br /> <br /> Kurulum icin linkini verdigim bu blogu takip edebilirsiniz. Benim burda yaptigim ufak tefek bazi degisiklikler oldu. Ilk olarak, kuruluma basladigimda Common Lisp implementation olarak SBCL kullanmiyordum, CMUCL kullaniyordum o yuzden SBCL'e ozel kodlari her yerde calisacak sekilde duzenledim.<br /> <br /> Ilk basta CMUCL kullanmamin sebebi de SBCL + Debian + Quicklisp uclusunde sorun yasamamdi. Debian paketleri zamanin bir hayli gerisinde oldugu icin sorunlar cikiyordu. O yuzden kisa yoldan bi CMUCL source indirip kurdum. Ama CMUCL ile Hunchentoot arasinda hizla ilgili bir sorun oldu. Hunchentoot requestlere cok gec cevap veriyor hatta bazen vermiyordu. Bu yuzden tekrar SBCLe dondum.<br /> <br /> Bu sefer <i>apt-get install sbcl</i> yerine kaynak koddan derlemek zorunda kalarak SBCLin guncel versiyonunu yukledim. Bu sefer her sey yolunda gibiydi ve oyle de oldu. Ama daha once SBCLe ozel kodlari geri aldim cunku onlarin performansi daha iyiydi.<br /> <br /> Neyse ki artik weble ilgili bir seyler yapmaya baslayabilirdim.<br /> <br /> Blog'da anlatildigi gibi Remote REPL'e baglandiktan sonra ilk denedigim kod:<br /> <br /> <i>(hunchentoot:define-easy-handler (my-page :uri "/lisp") &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp;()</i><br /> <i>&nbsp;&nbsp;"lisp...")</i><br /> oldu. Yani <i>http://localhost/lisp </i>linkine gittigimde karsima <i>lisp... </i>yazan sayfa cikmaya basladi... :)<br /> <br /> Daha sonra biraz html yazayim dedim... Elle html yazmak hic hos degil... buyuktur kucuktur filan yazarak yapilacak is degil yani... O yuzden biraz arastirdim <i>cl-who</i>&nbsp;kutuphanesi varmis. Lisp kutuphaneleriyle ilgili cok fazla dokuman bulamadigim icin en iyi dokumantasyon kodun kendisidir mantigiyla&nbsp;dogrudan kaynak koduna baktim. Kod gayet anlasilir ama nedense biraz uzun geldi bana... yani "ne gerek var yahuu" gibilerinden bir dusunce gecti icimden. Daha sonra da kisasini kendim yazmaya basladim... :) Yazdimda gercekten de benim isime yarayacak olan seyi 65 satirlik bir kodla yazdim. (bknz :<a href="https://github.com/asdr/dsgner">dsgner</a>) Elbette ki <i>cl-who</i>&nbsp;benim <i>:dsgner</i> 'dan daha kapsamli ama benim isime bu kadari yetiyor su an.. Hem yazmasi zevkliydi ...<br /> <br /> En son<br /> <br /> <br /> <i>(hunchentoot:define-easy-handler (my-page :uri "/lisp/mypage") &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (msg) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (:html () &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (:head () &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (:title () &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Welcome-to-lisp")) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (:body (:bgcolor "#CCCCCC") &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (:a (:href "http://asdr.me/lisp/mypage?msg=here") &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;</i><br /> <i>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (format nil "Click baby... ~A" msg)))))</i><br /> <i><br /> </i><br /> gibi bir kod yazabilecek duruma geldim. Peki sirada ne var? Sirada verilerini Cassandra'da saklayan bir blog yazma isi var. Ama once bir Coomon Lisp Cassandra Client yazmam gerekecek... :)<br /> <br /> --asdr<br /> <div><br /> </div>asdrhttp://www.blogger.com/profile/09337201940403413841noreply@blogger.comtag:blogger.com,1999:blog-4074164940287215450.post-43362241320950746212010-11-24T01:52:00.003+02:002010-11-24T01:55:33.274+02:00Dynamic Scoping in LispIki hafta once siparis verdigim kitap dun elime gecti: Let Over Lambda, Doug HOYTE.<br /> Bekledigimden cok daha guzel bir kitap cikti. Ilk okudugum bolumunden dikkatimi ceken seyleri yazmak istedim.<br /> <br /> Bolum closure'lar uzerine.. Ben closure'lari JavaScriptten hatirladigim icin ilk olarak ordaki gibi dusundum ama asagidaki ornek JS de implicit olarak yapilmiyor. JSdeki closure'la Lisp'i karistirmamak lazimmis (zaten tam closure degil dynamic scoping) . Lisp'in bunu bu sekilde yapmasi nedense hosuma gitti...<br /> <br /> <span class="Apple-style-span" style="font-size: x-small;">;;LISP KODU;;</span><br /> <span class="Apple-style-span" style="font-size: x-small;">(<b>defvar</b> *temp-special* 1)<br /> </span><br /> <span class="Apple-style-span" style="font-size: x-small;">(<b>defun</b> temp-special-returner()</span><span class="Apple-style-span" style="font-size: x-small;">&nbsp;&nbsp;</span><br /> <span class="Apple-style-span" style="font-size: x-small;">&nbsp;&nbsp;*temp-special*)</span><span class="Apple-style-span" style="font-size: x-small;"><br /> (temp-special-returner) ;;;donen deger: 1</span><br /> <span class="Apple-style-span" style="font-size: x-small;"><br /> ;; let ile normalde lexical variable yaratiyoruz</span><span class="Apple-style-span" style="font-size: x-small;">;; ama asagida durum farkli...</span><br /> <span class="Apple-style-span" style="font-size: x-small;">(<b>let</b> ((*temp-special* 2))</span><span class="Apple-style-span" style="font-size: x-small;">&nbsp;<br /> &nbsp;&nbsp;(temp-special-returner));;donen deger: 2 ****</span><span class="Apple-style-span" style="font-size: x-small;"><br /> (temp-special-returner);;donen deger: 1 *****</span><br /> <br /> Bunu JSde yaziyim dedim bir de; bakalim sonuc ne olacak diye.<br /> <br /> <span class="Apple-style-span" style="font-size: x-small;">special = 1;<br /> </span><br /> <span class="Apple-style-span" style="font-size: x-small;"><b>function</b> specialReturner() {</span><br /> <span class="Apple-style-span" style="font-size: x-small;">&nbsp;&nbsp;<b>return</b> special;</span><br /> <span class="Apple-style-span" style="font-size: x-small;">}<br /> </span><br /> <span class="Apple-style-span" style="font-size: x-small;"><b>alert</b>(specialReturner());//donen deger: 1<br /> </span><br /> <span class="Apple-style-span" style="font-size: x-small;"><b>alert</b>(</span><br /> <span class="Apple-style-span" style="font-size: x-small;">(<b>function</b>(special) {</span><br /> <span class="Apple-style-span" style="font-size: x-small;">&nbsp;&nbsp;<b>return</b> <b>function</b>() {</span><br /> <span class="Apple-style-span" style="font-size: x-small;">&nbsp;&nbsp; &nbsp;<b>return</b> specialReturner();</span><br /> <span class="Apple-style-span" style="font-size: x-small;">&nbsp;&nbsp;})(2)()</span><br /> <span class="Apple-style-span" style="font-size: x-small;">);//donen deger: 1<br /> </span><br /> <span class="Apple-style-span" style="font-size: x-small;"><b>alert</b>(specialReturner());//donen deger: 1</span>asdrhttp://www.blogger.com/profile/09337201940403413841noreply@blogger.com