關于這篇文檔

這篇博客我使用reStructuredText格式編寫，然后用docutls導出為html，再然后使用這回 用lisp開發的基于metaweblog API的博客客戶端，自動發布到CPPBLOG。

他們怎么說Lisp

我就摘錄些書上的觀點(歷史)：

• 1958年，John McCarthy和他的學生搞出了Lisp，包括其第一個實現，最初貌似也是以一 篇論文起頭
• Lisp可以讓你做其他語言里無法做的事情(<ANSI common Lisp>)
• 大部分編程語言只會告訴你不能怎樣做，這限制了你解決問題的思路，Lisp not (<ANSI Common Lisp>)
• Lisp讓你以Lisp的思維思考問題，換到其他語言你會說：為什么X語言就不支持這個特性 呢(Once you've leanred Lisp, you'll even dream in Lisp) (<Land Of Lisp>)
• Lisp代碼更清晰地體現你的想法(<Practical Common Lisp>)

And my opinion

我可還沒到把Lisp捧上天的地步。如果Lisp如此之好，為什么用的人不多？<Land Of Lisp> 里作者恰好對這個問題做了回答(bla bla bla，懶得細讀)。

• Lisp也是一門雜和型風格的語言，函數式、命令式、面向對象，以及最被人吹捧的宏編程 --程序自己寫自己
• Lisp的語句全部以(xxx xxx)的形式出現，被稱為s-expression，我看稱為括號表達式還 差不多
• Lisp每條語句都有返回值，沒基礎過函數式編程的同學，if語句也是有返回值的
• 函數式編程語言的一個重要特性就是閉包(closure)，這個東西用來避免全局變量實在太 geek了

開始學習Lisp

Lisp不像有些語言，有個直接的機構來維護。感覺它更像C/C++一樣，只有個標準，然后有 若干編譯器（解釋器）實現。Lisp在幾十年的發展中，產生了很多種方言。方言也就是形變 神不變的語言變種，本文說的Lisp均指Lisp的方言Common Lisp。另一個比較有名的方言是 Scheme，關于各個方言的特點，<Land Of Lisp>里也給了一個圖片：

其中，最左邊那只wolf就是Common Lisp，右邊那只sheep就是Scheme。

要學習Lisp，首先就是選擇方言。然后最重要的就是選擇一個編譯器實現。世界上知名的有 十幾種實現（也許更多）。一些商業版本非常強大，甚至能編譯出很小的本地代碼執行文件 ，不過價格也不菲。當然也有很多開源免費的實現，例如CLISP、SBCL。我選用的是SBCL。

SBCL交互式命令行不支持括號匹配，甚至沒有輸入歷史。要實現這兩個功能，可以裝一個 lisp工具：linedit。在lisp的世界中，要獲得一個lisp的庫實在不是件方便的事。尤其是 這些免費的編譯器實現，并不像有些語言一樣，直接隨編譯器帶個幾十M的庫。

然后就有了quicklisp這個工具。該工具就像Ubuntu系統里的軟件管理器一樣，你可以在 lisp里直接獲取某個庫。quicklisp檢查該庫是否存在，不存在直接從它的服務器上下載人 然后自動安裝。

此外，在lisp的世界里，寫出來的程序不再是跨OS。OS的差異由編譯器實現來解決。但是， 寫lisp程序卻需要考慮跨編譯器實現（egg hurt）。這也是個無比傷神的事，比跨OS更傷 神。因為OS就那么幾個，但lisp的編譯器實現，流行的也有好幾個。

lisp的世界里，工程組織也有特殊的一套，就像makefile一樣，這就是asdf。

博客客戶端如何實現

像我們這種基本沒接觸過Web開發的人，可能完全沒有思路去實現一個博客客戶端。事實上 實現起來非常簡單。

使用過其他博客客戶端（例如Windows Live writer）的人肯定知道metaweblog API，在配 置客戶端的時候需要填入。例如CPPBLOG的這個地址就是 http://m.shnenglu.com/kevinlynx/services/metaweblog.aspx。這個頁面展示了一些API 說明。這些API就是博客客戶端和服務器進行操作通信的接口。意思是說，服務器端提供這 這些接口，我們的客戶端調用這些接口即可。例如:

blogger.deletePost，調用該接口即可刪除一篇博客文章

但是客戶端如何調用到這個接口呢？這需要通過一種新的技術（或者說標準），即 xml rpc 。rpc大家應該清楚，xml rpc其實說白了， 就是把接口調用的細則塞進 http 請求發給web服務器，服務器接收請求完成操作后再把結果以http回應的形式丟給客戶端， 即完成了一次接口調用 。

至于http請求回應的細則就不提了，無非就是一些特殊格式的數據，通過tcp連接與服務器 交互這些數據。

所以，基本上，整個過程還是非常簡單。如何來將調用細節塞進http請求，則是以xml rpc 標準來做，其格式正好是xml格式。舉個例子吧:

<?xml version='1.0'?>
<methodCall>
    <methodName>title_or_id</methodName>
        <params>
        </params>
</methodCall

當然這部分數據之前就是若干http請求的數據。服務器回應也是以xml格式組織:

<?xml version='1.0'?>
<methodResponse>
    <params>
        <param>
            <value><string>Welcome to Zope.org</string></value>
        </param>
    </params>
</methodResponse>

我們的博客客戶端所要做的，就是把這些博客發布相關的操作封裝起來提供給使用者。底層 實現主要包括http請求、xml-rpc的組織等。何況，這兩部分在各個語言里都有大量的庫存 在，lisp自然也有。

我這里直接選取了lisp的一個xml-rpc庫：s-xml-rpc，基本上百來行代碼就可以把各個功 能跑一遍。例如以下lisp代碼就實現了通過s-xml-rpc刪除CPPBLOG的一篇文章:

(defun delete-post (postid)
  (rpc-call
    "blogger.deletePost"
    postid
    "kevinlynx"
    "password"
    t))

發布博客也很簡單，根據metaweblog API接口的說明，發布博客時需要填充一個結構體。但 主要涉及到的數據僅包括：文章內容、文章標題、文章分類（可選）:

(defun new-post (title context &optional (cates))
  (rpc-call
    "metaWeblog.newPost"
    ""
    "kevinlynx"
    "password"
    (new-post-struct title context cates)
    t))

值得注意的是，如果文章中有貼圖，則需要事先將圖片文件上傳到服務器。CPPBLOG的 metaweblog API里恰有API提供:

(defun new-media-object (filename)
  (rpc-call
    "metaWeblog.newMediaObject"
    ""
    "kevinlynx"
    "password"
    (new-media-object-struct filename)))

該函數讀入圖片文件，然后調用metaWeblog.newMediaObject接口，即可完成上傳。上傳成 功后，服務器會返回該圖片的URL。然后在我們的文章中就可以使用該圖片了。

完整實現方案

僅僅將metaweblog的一些接口做封裝，對于一個可以使用的博客客戶端來說還遠遠不夠。大 部分同類工具都有一個友好的GUI編輯界面。我并不打算弄一個編輯界面出來，吃力不討好 的事情。

我的打算是先用其他工具對文章做排版處理，最后導出為html格式。因為CPPBLOG支持直接 發布一個html文件。然后在用這個lisp工具將整個文件作為博客文章內容發布。

恰好公司最近打算用reStructureText(rst)格式來編輯文檔，作為熟悉手段，我決定拿這個 來練手。rst格式非常簡單，同wiki命令很相似。在vim里編輯該文件非常合適，因為默認支 持。見圖:

由圖即可看出，rst是一種半所見即所得的格式。即：它遵循你在編輯器里的排版，同時也 通過一些tag（例如image）來控制更豐富的輸出。

rst有很多前端工具，可以將rst文件輸出，例如rst2html.py就可以輸出為html。好吧，最 最終我們得到了html格式的博客文章。

但是如果文章中出現了圖片，而圖片基本上在本地，轉成html后也是相對路徑。我需要我的 lisp writer(cl-writer)能自動掃描文章，發現有圖片的地方，就自動將圖片上傳。最惡心 的是上傳后還得替換圖片引用路徑。這個工作可以在rst格式上做，也可以在結果格式html 上做。通過xml解析庫解析html比直接解析rst格式更簡單，并且在擴展性上更好。

最終這個html中圖片路徑替換工作只消耗了不到100行lisp代碼。這在很大程度上也依賴于 s-xml庫的接口設計。

最終封裝好的發布接口如下，從這里也可以看出，函數式語言鍛煉我們寫出功能單一代碼度 短小的接口:

(defun writer-post-new (post-file &key (u (get-default-user))(cates))
  (read-post-file u post-file context title
                  (new-post u title context cates)))

END

別指望我發布的代碼能夠讓你一鍵在你的博客上留下"this is a test"，你甚至別指望它能 能夠工作。但如果你本來就是一個資深的lisper，或者雖然不是lisper但卻執意想看看結果 。這里我就簡要說說如何讓這些代碼歡樂起來:

1. OS Ubuntu10.04，下載安裝SBCL，不會有問題；

2. 下載安裝quicklisp，官方文檔hand by hand，簡單不會有問題；

3. SBCL交互環境中使用quicklisp安裝s-xml-rpc:

   (ql:quickload "s-xml-rpc")
   

4. 裝載我的代碼:

   (asdf:load-system :cl-writer)
   

5. 在home下添加配置文件.cl-writer.lisp，配置你博客信息，例如:

   (in-package cl-writer)
   (setf *default-user* (make-cppblog-user "賬戶名" "密碼"))
   

   如果你的博客不在CPPBLOG，雖然也許也是metaweblog，但我不能保證成功，配置文件則 要復雜點:

   (setf *default-user* (make-user-info :name "帳戶名"
                         :password "密碼" :host "m.shnenglu.com"
                         :url "/kevinlynx/services/metaweblog.aspx"))
   

6. SBCL交互環境下測試:

   (in-package cl-writer)
   (new-post (get-default-user) "this is a test" "title")
   

下載代碼

最后，終于敲完這篇文章，我需要通過以下步驟來發表它:

in shell:
rst2html.py lisp_xml_rpc.rst lisp_xml_rpc.html
in SBCL:
(writer-post-new "lisp_xml_rpc.html")