(assert (equal programming 'fun))

Arc is out

2008-01-31T13:42:00.000+08:00

Lisp 的一個分支, 由 Paul Graham 製作的 Arc 出了. 詳情請見 http://paulgraham.com/arc0.html

LispWorks Personal Edition now supports Mac OS X 10.5 (Leopard).

2008-01-04T09:03:00.000+08:00

目前最新版的 Lispwork 個人版 ( 也就是免費版 )
已經支援到 Mac OS X 10.5 (Leopard) 了, 雖然我沒用 Mac,
但是不少厲害的程式設計師都是用 Mac 的, 可以考慮用用看...

而且這個個人版是 10.5.2, 比之前的 Windows 的個人板 10.5.1 還多一級說.

Common Lisp 和 Java 的橋樑(Allegro Lisp)

2007-08-30T15:13:00.000+08:00

Allegro Lisp 提供了兩個和 Java 之間橋樑的方法, 一個是 JLinker, 這個算是使用 native call 或 socket 方式, 由 Lisp 端呼叫 Java 的函式, 不過, 由於 Lisp 是動態語言, 要呼叫 Java 的程式不免要定義一端 Java 靜態語言的型別等等, 使得在定義宣告和實際使用方式上, 我是覺得有點類似 Lisp ffi
也就是 Lisp 呼叫 C 那樣的宣告的感覺.

另一個方式是直接將 Lisp Code compile 成 JVM bytecode class,
不過這個方式, 雖然表面上是 Lisp, 但是實際上已經用的是和 Java 類似的語法.
( 這個要 Allegro Lisp 專業版以上才有支援 )

可以說是兩種方式雖然都能使用到 Java 的 Library, 但是實際上都不算太好用.

macroexpand-hook

2007-08-24T08:55:00.000+08:00

Common Lisp 的巨集, 可以在展開時加入一個 hook,
讓你控制 Common Lisp 的展開的情形.

像是這樣


(defun hook (expander form env)
  (format t "Now expanding: ~S~%" form)
  (funcall expander form env))

建立一個基本的函式, 讓它於巨集展開之時並顯示

hook 是一個接收三個引數的函式, 最重要的是中間的引數 form.
另外 hook 函式中必須使用 compiled 函式較為安全,
以免造成巨集重複展開的無窮廻圈.

任意建一個巨集如下 :


(defmacro machook (x y) 
  `(/ (+ ,x ,y) 2))

讓它展開, 這邊使用 let 讓它的 scope 不會擴展到全域


(let ((*macroexpand-hook* #'hook))
  (macroexpand '(machook 1 2)))

就可以出現以下的結果了


Now expanding: (MACHOOK 1 2)
(/ (+ 1 2) 2)

Allegro Lisp 之 OLE 物件之使用

2007-07-09T14:09:00.000+08:00

先定義 InternetExplorer 物件
(ole:def-ole-linkage #:msx :application "InternetExplorer")

建立物件
(setq browser (make-instance 'msx:InternetExplorer))

連至 OLE Server
(ole:connect-to-server browser :inplace nil)

設定 OLE 物件屬性, 此例之 Visible 設為 true
(setf (msx:Visible browser) t)

呼叫 OLE 物件函式, 此例呼叫 Navigate2 函式
(msx:Navigate2 browser "www.franz.com")

談談 Allegro Lisp 的 socket 機制

2007-06-23T13:43:00.000+08:00

要做到一個 robust 的 socket server,
必須能夠處理 read 及 write 的 blocking 機制,
也就是說, read 和 write 都不能 block 掉整個 thread
基本上用多執行緒也是一個方式, 只是讓 thread 停在那邊,
我覺得不是一個好的 socket 的 server 架構.

一般來說, read 時停住是比較容易被查覺的, 也比較容易處理,
如 Java 的 setSoTimeout, 當 Timeout 時會丟出 InterruptedIOException,
但是 write-timeout 的話呢? Java 最好還是用 nio 吧,
用 select 這種類似 C 的處理方式較穩 ( 雖然不太漂亮就是了 ).

不過本文主題是 Allegro Lisp, Allegro Lisp 在處理 read 的方式來說
較穩的是用 listen 先來查看是否可以 read, 再下 read 指令,
可是 write 呢? 沒有, Allegro Lisp 不像 Lispwork 有 write-timeout 的機制
不過還是可以用 system timeout 來處理, 方式如下
(setq s (socket:make-socket :remote-host "127.0.0.1" :remote-port 7035))

(dotimes (i 10000000)
(sys:with-timeout (1)
(write-sequence #(1 2 3 4 5 6 7 8 9 10) s)
(force-output s))
(format t "~a~%" i)
(sleep 0.1))

註: read 和 write 的不同點
read 是對 socket 讀資料, 如果 socket 沒資料就會 block 在那邊
write 一般就算對方不讀任何資料, 也要等到 buffer 爆 (default 約 33000 byte)
才會 block 在那邊

一般處理方式主要有:
1. 使用非同步 I/O
2. 在 read/write 前先偵測狀態, 或是使用事件式來處理
3. 使用 timeout 機制

中文字碼轉換 CP950

2007-06-22T08:04:00.000+08:00

Allegro Lisp 的方式如下
(excl:octets-to-string (excl:string-to-octets "中文"))

Lispwork 的方式如下 (目前只適用 Lispwork Windows 版, 感謝大陸網友 Binghe 提供)
(ef:decode-external-string (ef:encode-lisp-string "你好" '(win32:code-page :id 950)) '(win32:code-page :id 950))

dump hex sequence

2007-06-21T12:53:00.000+08:00

(defun my-code-char (c)
(if (or (< c 20)
(> c 80))
#\.
(char-code c)))

(defun dump-hex-sequence (seq)
(do ((index 0 (1+ index))
(length (length seq))
(chars (make-string 16 :initial-element #\space)))
((>= index length)
(when (not (= (mod index 16) 0))
(dotimes (i (- 16 (mod index 16)))
(format t " "))
(format t ":~a~%" chars)))
(when (= (mod index 16) 0)
(format t "~6,'0XH: " index))
(format t "~2,'0X " (aref seq index))
(setf (aref chars (mod index 16)) (my-code-char (aref seq index)))
(when (= (mod index 16) 15)
(format t ":~a~%" chars)
(fill chars #\space))))

Kenny Tilton 的 class 定義 defmodel

2007-06-12T15:27:00.000+08:00

(defmacro defmd (class superclasses &rest mdspec)
`(defmodel ,class (,@superclasses model)
,@(let (definitargs class-options slots)
(loop with skip
for (spec next) on mdspec
if skip
do (setf skip nil)
else do (etypecase spec
(cons
(cond
((keywordp (car spec))
(assert (find (car spec) '(:documentation
:metaclass)))
(push spec class-options))
((find (cadr spec) '(:initarg :type :ps
:persistable :cell :initform :allocation :reader :writer :accessor
:documentation))
(push (apply 'defmd-canonicalize-slot spec)
slots))
(t ;; shortform (slotname initform &rest
slotdef-key-values)
(push (apply 'defmd-canonicalize-slot
(list* (car spec) :initform (cadr
spec) (cddr spec))) slots))))
(keyword
(setf definitargs (append definitargs (list spec
next)))
(setf skip t))
(symbol (push (list spec :initform nil
:initarg (intern (symbol-name
spec) :keyword)
:accessor spec) slots)))
finally
(return (list* (nreverse slots)
(delete nil
(list* `(:default-initargs ,@definitargs)
(nreverse class-options)))))))))

Lispwork 的 Thread 程式範例

2007-06-06T17:35:00.001+08:00

(loop for n below 1000 do
(mp:process-run-function
(gensym) ; name
nil ; keywords
#'(lambda (s n) ; function
(format s "running thread ~D~%" n)
(sleep 10))
*standard-output* n)) ; arguments to function

Common Lisp 用查詢網站

2007-05-16T10:32:00.000+08:00

http://lispdoc.com/

一般 Common Lisp 的資訊可以從這邊查

String 運算簡介(1)

2007-05-11T13:24:00.000+08:00

(defun nth-digit (digits i)
"The i-th element of a character string of digits, as an integer 0 to 9."
(- (char-code (char digits i)) #.(char-code #\0)))

這一串是代表什麼意思呢?
其實就是 digits[i]-'0' 的意思.

char-code 將字元轉成數值
char 取出字串中的字元
#\0 為 '0' 字元
#. 表示 reader 在 read 時就先做 read time evaluation

CLSQL 簡介(1) - SELECT

2007-04-27T12:55:00.000+08:00

Common Lisp 套件中最常用的 SQL 套件就是 CLSQL,
這邊先簡介一下它的用法 ^^

首先, 先用 asdf 載入 ( asdf 另外擇日介紹 @@ )
(asdf:oos 'asdf:load-op :clsql)

資料庫的第一步是連線
(clsql:connect '("database" "username" "password") :database-type :oracle)
這邊是連到 database 指定 username/password ( 這邊連線參數依不同資料庫會不同 )
後面指定 database-type, 因為每個 database 會略有不同, 所以還是指定一下較好

接下來就直接下 query 的 SQL SELECT 了
(clsql:query "SELECT * FROM FTP_CONFIG WHERE PGID = '1_ppbt0w'")
這邊不用特別指定連線是因為我們只有一個資料庫連線, 它會設為 default
使用 query 可以和一般 SQL 一樣的內容

(clsql:query (format nil "SELECT * FROM FTP_CONFIG WHERE PGID = '~a'" "1_ppbt0w"))
如果要指定參數的話, 使用 format 來設定 ( format 另外擇日介紹 )
其中 ~a 表示一般你沒特別要求就用這個, 算是汎用的表示法, 會抓後面的值
所以後面要給變數值也可以...

不過這樣用字串好像沒發揮到 Lisp 的特色, 底下有一種類似 Lisp 語法的表示法,
不過要使用之前要先開啟 SQL Reader Macro, 方法如下 :
(clsql:locally-enable-sql-reader-syntax)

開啟之後就可以使用 [ ] 表示 SQL 中的關鍵字

(clsql:query [select [*] :from [FTP_CONFIG] :where [= [PGID] "1_ppbt0w"]])
這樣寫就比較接近 Lisp 了...

Lispwork FLI 簡介

2007-04-24T10:14:00.000+08:00

本日要介紹的是 Common Lisp 的 FFI(Foreign Function Interface)的使用.
FFI 是 Common Lisp 和 C 程式溝通的介面, 雖然 Common Lisp 中有較泛用的 UFFI, CFFI 等等.
不過那些據我測試都比較難用, 因此這邊先來介紹 Lispwork 專屬的 FLI(Foriegn Library Interface)

這裡的範例主要是使用 FindWindow 找出某個視窗, 並用 SetWindowText 修改其 Title

; 設定 Type : HWND
(fli:define-c-typedef fli-hwnd
(:unsigned :long))

這邊在 Lispwork 中已經是內建的 Package 了( 自動載入 )
所以不用下什麼 load require 或是 asdf-load 之類的載入指令
一開始最重要的是宣告 HWND 這個型態...
在 windows.h 中我們得知 HWND 是 unsigned long
所以就比照它的宣告一下 fli-hwnd 是 unsigned long

; 設定 Find Window
(fli:define-foreign-function (find-window "FindWindowW")
((lpstring1 (:reference-pass :ef-wc-string :allow-null t))
(lpstring2 (:reference-pass :ef-wc-string :allow-null t)))
:result-type fli-hwnd)

定義 Function, 其實, 如果是 CFFI 的話,
還多一個步驟是, 宣告使用的 library user32.dll, 並載入 user32.dll
不過 Lispwork 的 FLI 覺得這個太常用了, 已經幫你載入了,
所以不用特別宣告

這裡定義 find-window 為 "FindWindowW" (後面的 W 代表是 Unicode 版)
參數給兩個, 為了省麻煩我用 lpstring1 及 lpstring2 代替
其實可以用真正的意義啦, 一個是 class 名稱, 一個是 title 名稱
後面的參數意義如下:
:reference-pass 表示這是 constant
:ef-wc-string 表示這是 WCHAR 的字串
所以合在一起就是 LPCWSTR 的意思
:allow-null t 表示傳入 Common Lisp 的 nil 時會自動轉成 NULL
傳回值為 fli-hwnd

; 設定 Set Window Text
(fli:define-foreign-function (set-window-text "SetWindowTextW")
((hwnd fli-hwnd)
(lpstring1 (:reference-pass :ef-wc-string :allow-null t)))
:result-type :boolean
:documentation "Sets the text of the window titlebar.")

這個和上面的沒什咩不同, 不過多了一個 :documentation 表示函式註解
在 Common Lisp 中其實函式註解都可以查得到的

接下來就可以試試
(set-window-text (find-window nil 字串) 字串)
看看所指定的視窗的 Title 是否有改變

Lispworks 5.0 特價中

2007-04-24T09:01:00.000+08:00

Lispworks 到四月底截止, 原本 $1,500 的 5.0 專業版加上一年維護, 現在只要 $1,200.
不過 $1,200 還是很貴就是了.

IBM 最近的文章 The Beauty of Lisp

2007-02-07T11:48:00.000+08:00

http://www-128.ibm.com/developerworks/java/library/j-cb02067.html

雖然只是很淺顯的介紹, 不過對於完全沒看過 Lisp 的人可以看一看.

initform-0

2007-02-01T14:43:00.000+08:00


(defun initform-0 (&rest rest) 
   (loop for item in rest collect 
      `(,item :initform 0)))

以上定義是因為 defclass 時如果要定義一堆欄位都是初始值是 0 的,
將其集中起來, 減少重複.


(let ((argument (initform-0 'x 'y 'w 'h 'rowgap 'colgap 
                   'distb 'font 'ychar 'x-magr 'y-magr))) 
  `(defclass-simple DCSLableAndBlock () 
     ((style :initform "00") 
      (text  :initform "") 
      ,@argument)))

以上是使用時的範例, 不過實際使用是要加上 eval 或 eval-when 等等

defclass-simple

2007-02-01T14:39:00.000+08:00


(defmacro defclass-simple (class parent-class definition) 
  `(defclass ,class ,parent-class 
      (loop for item in definition collect 
         (let ((name (car item))) 
             (append item `(:accessor ,name :initarg ,(intern (symbol- 
name name) :keyword)))))))

簡化 defclass 時, 各欄位的 accessor 及 initarg 直接和名稱相同.
( 這個版本並不相容於所有的 defclass, 但是它算是簡便的作法 )

Corman Lisp 3.0 Update 2 推出

2007-01-17T09:30:00.000+08:00

Corman Lisp 3.0 Update 2 出了
可以下指令 (auto-update) 來下載 Update 2

Update 2 還是沒修正 Socket 的問題就是了 @@

另外, Roger Corman 的更新及回應速度感覺還是蠻慢的,
以月來計算的 @_@

2007-01-15T11:54:00.001+08:00

目前 Common Lisp 的 Implementation 及問題(Win32 Only)

商用版
- Allegro Common Lisp : 個人版免費, 但是有 Heap Size 限制, 程式介面很難用
- Lispwork : 個人版免費, 但是有 Heap Size, 使用時間以及無法 deliver 的限制
- Corman Lisp : 個人版免費, 但是程式和 ANSI 相容性低, bug 多, 它有公開原始碼, 可以自己幫它修 bug 就是了

免費版
- CLISP : 不支援多執行緒, 且 compile 成 bytecode 速度較慢.
- SBCL : Windows 版本不支援多執行緒, 且目前沒有支援 Big-5 編碼.