loop_in_codes

低调做技术__欢迎移步我的独立博客 codemaro.com 微博 kevinlynx

用lisp开发博客客户端

用lisp开发博客客户端

Author: Kevin Lynx
Date: 3.13.2011

最近一直在学习Lisp这门语言。回头一看,基本上接近1个月了。刚开始接触Lisp是因为看 了<Lisp本质>,然后我发现有很多人宗教般地忠诚这门语言,于是就来了兴趣。

imgs/lisp_believer.png

当然并不是每次因为某篇写得很geek技术文章就去学习某个新的技术点。一个月时间对我来 说还是很珍贵了。但是Lisp绝对是大部分程序员都值得一学的语言(就像Haskell一样)。 我能给出的简单理由包括:

  • 大部分程序员只会命令式语言(C/C++/C Like etc),缺乏函数式语言解决编程问题的思 想(当然Lisp不是纯函数式)
  • Lisp是仅次于Fortran的古老语言,很多优秀的语言设计思想在现代的一些语言里都找得 到
  • 装B党必备

另一方面,结合我一个月以来的读书和两个练习工程的实践经历,我觉得也有些理由值得你 不去学习Lisp:

  • 你会Haskell或者其他函数式语言
  • 我目前还是觉得Lisp学习曲线高(大概是因为我读到的书都在应用语法层兜圈子,事实上 Lisp的语法之统一,全特么的是s-expression),你不愿意花费这些成本
  • you are too old bo to be a B

关于这篇文档

这篇博客我使用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>里也给了一个图片:

imgs/dialect.png

其中,最左边那只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://www.cppblog.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里编辑该文件非常合适,因为默认支 持。见图:

imgs/rst.png

由图即可看出,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 "www.cppblog.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")

;;EOF;;

posted on 2011-03-13 13:19 Kevin Lynx 阅读(16254) 评论(8)  编辑 收藏 引用 所属分类: lisp

评论

# re: 用lisp开发博客客户端 2011-03-13 20:04 ccsdu2009

写的不错 很好的写手!  回复  更多评论   

# re: 用lisp开发博客客户端[未登录] 2011-03-14 10:30 Louis

CLISP 我也折腾过不短的时间,当然没有用到真正的工作上。最主要的是这个括号匹配,实在是太蛋疼。  回复  更多评论   

# re: 用lisp开发博客客户端 2011-03-14 13:18 Kevin Lynx

@Louis
阅读Lisp代码主要是通过代码缩进来识别语句关系,如果是通过括号那根本没法阅读。在RECL下(也就是交互模式下)输入语句我喜欢一行输下去,所以那个输入环境能有括号匹配(例如CLISP输入")"时就会做点提示)就是个不错的功能。SBCL默认没有。  回复  更多评论   

# re: 用lisp开发博客客户端 2011-03-14 21:51 Albert Lee

sbcl 可以配合 rlwrap 来实现 readline 功能。 现在很流行一个安装lisp库的工具: quicklisp , 非常方便。 另外,在实际开发Lisp的时候, Emacs + Slime 是一个非常强大的工具,边开发边执行边改进,最能体现Lisp的快速迭代演进的开发风格。  回复  更多评论   

# re: 用lisp开发博客客户端 2011-04-25 22:34 hex108

太帅了!
image:: imgs/lisp_believer.png 也是我想要的功能  回复  更多评论   

# re: 用lisp开发博客客户端 2011-09-01 12:58 xiaohanyu

太帅了!!!  回复  更多评论   

# re: 用lisp开发博客客户端[未登录] 2012-02-23 17:52 li

@Albert Lee
但是在开发一个项目的时候感觉就不是很方便
目前在学习lisp中 希望多交流交流 嘻嘻  回复  更多评论   

# re: 用lisp开发博客客户端 2014-09-04 00:45 leptune@live.cn

鼓捣了一晚上,终于用楼主的代码成功的将博客发送的新浪博客了!!谢谢楼主!
帮楼主步骤补充详细些,以帮助那些跟我一样的小白:
如果提示asdf没发现,那么是你少了(require 'asdf)
如果提示cl-writer没发现,那么就:sudo cp cl-writer.asd /usr/local/lib/sbcl/contrib/
最后发表的总步骤为:
(ql:quickload "s-xml-rpc")
(asdf:load-system :cl-writer)
(in-package cl-writer)
(writer-post-new "lisp_xml_rpc.html")
新浪博客的配置文件为:
(setf *default-user* (make-user-info
:name "281754179@qq.com"
:password "密码"
:host "upload.move.blog.sina.com.cn"
:url "/blog_rebuild/blog/xmlrpc.php"))  回复  更多评论   


只有注册用户登录后才能发表评论。
【推荐】超50万行VC++源码: 大型组态工控、电力仿真CAD与GIS源码库
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理