[장선진] 삶을 위한 소프트웨어

안녕하세요~ 장선진입니다.

지난번에 전자신문사 주최로 Google App Engine 세미나를 주최했었습니다.
자세한 내용은 다음과 같습니다.

여러분들께서 세미나때 사용한 PPT를 요청하셔서 이렇게 올려드립니다.
좋은 참고가 되었으면 좋겠네요~1

안녕하세요~ 장선진입니다.

안녕하세요~ 장선진입니다.

오늘 새롭고 재미있는 안드로이드 개발 툴에 관한 소식을 접하였습니다. App Inventor for Android란 이름의 이 툴은 마치 스퀵(Squeak) 기반의 스크레치(scratch) 프로그램과 같이 안드로이드 프로그래밍을 할 수 있도록 구성되어 있습니다.



마치 레고 블럭을 쌓듯이 프로그래밍하는 방식입니다. 스크레치(scratch) 프로그래밍은 정말 직관적이고 재미있습니다. 아직 접해보지 못하신 분들에게 강추합니다. :-)

그 유명한 구글의 Beta라는 이름을 달고 나온 App Inventor for Android역시 스크레치(scratch)와 유사한 구조를 가지고 있습니다. UI적인 컴포넌트 블록들과 각 제어 블럭들을 연결하고 쌓아올리다보면 어느새 안드로이드 어플리케이션이 작성되도록 되어 있습니다.



App Inventor for Android을 보면서 아이들이나 청소년을 위한 안드로이드 교육시 활용한다면 참 재미있겠다는 생각을 하였습니다. 기회가 된다면 한번 해보고 싶네요~ :-)

스크레치(scratch)와 App Inventor for Android가 너무도 닮았다고 생각하는 순간 App Inventor for Android의 설명을 보니 스크레치(scratch)를 개발한  MIT 미디어 랩의 영향을 받은 Open Blocks Java library를 블록 프로그래밍하는데 응용하였습니다.

사실 이렇게 본다면 App Inventor for Android는 언어와 환경만 다른 스크레치(scratch)프로그램이라고 볼 수 있습니다.
새로운 시대와 환경에 맞는 진보를 한 것이죠~ 그리고 오픈 소스를 활용하여 빠르게 개발한 것이 특징이라고 볼 수 있습니다.

프로그래밍이 하나의 놀이가 되는 세상~ 정말 얼마 안남은 것 같습니다.
이러한 관점에서 본다면, 점 복잡하긴 하지만 우리의 프로그래밍도 하나의 놀이이지 않을까요~ 물론 안드로이드 프로그래밍에 저 역시 불만 있습니다만 App Inventor for Android를 보면서 확실히 프로그래밍의 관점이 많이 달라지고 있는 것을 새삼 느꼈습니다~ ;-)

안녕하세요~ 장선진입니다.

드디어 제 1 회 Korea Lisp 세미나를 성황리에~ 잘 마쳤습니다. :-)
우선 와주신 모든 분들에게 진심으로 감사드립니다. Lisp 이란 언어가 그리 많은 관심을 가지는 언어가 아니기 때문에 사실 준비하면서 많은 고민을 했었는데~ 이번 세미나를 통하여 정말 많은 분들이 Lisp에 대하여 많은 관심을 가지고 계시다는 것을 확인할 수 있었습니다.

저희가 마련한 장소가 원래 최대 30명이었습니다.

드디어 우리나라 첫(?) Lisp 세미나가 열립니다.
지난 1년여간 스터디 해온 결과를 종합하고 모든 분들에게 Lisp에 대하여 쉽게 이해하고 익힐 수 있는 시간이 될 것이라고 생각합니다.

자~ Lisp에 관심있는 분이라면~ 5월 1일 토요일 오후 2시까지 삼성멀티캠퍼스 702호로 오세요~

오시는 분들을 위하여 다양한 경품도 준비하였습니다.
가장 멀리서오시거나~ 가장 먼저오시거나 가장 늦게 오시거나~ 좋은 질문은 해주시거나 많은 홍보를 해주셨다면 누구나 좋은 경품을 가져가실 수 있습니다.

Lisp에 마음의 관심을 가지고 계셨던 분들의 많은 참여 부탁드립니다~ 그리고 아래 포스터를 바탕으로 많은 홍보 부탁드립니다. ;-)

세미나 포스터 업데이트 했습니다. ^^
그리고 http://www.onoffmix.com/e/ecomist/1505 로 등록해주는 센스 부탁~

안드로이드에 대하여 익히고 공부하는 것들을 정리하기 위하여 [안드로이드 이야기]를 연재할까 합니다.
언제 얼마큼 연재할지 모르겠지만~ 제가 알고 있는 지식들을 정리하여 여러분들과 함께 나누기 위한 내용을 중점적으로 다루겠습니다.

첫번째로 안드로이드(Android)란 무엇인가에 대한 내용을 다루어 보겠습니다.


안드로이드란 무엇인가?(What is Android?)

이 질문에 대한 가장 정확한 답은 http://www.android.com/about/ 에서 찾을 수 있습니다. 공식적인 안드로이드 사이트이자 Android에 대한 가장 신뢰할 수 있는 정보를 제공하는 사이트이기 때문입니다. 아울러 http://developer.android.com/guide/basics/what-is-android.html 에서 정의된 내용을 바탕으로 안드로이드에 대한 정의를 내리는 것이 좋다고 생각됩니다.

안드로이드(Android)는 OHA(Open Handset Alliance)에서 개발된 운영체제(OS)와 미들웨어(Middleware) 및 핵심 모바일 어플리케이션을 포함한 모바일 기기를 위한 소프트웨어 스택이라고 할 수 있습니다.

안드로이드는 공개되어 있습니다.(Open)

 Lisp을 좋아하는 사람들의 그룹(http://groups.google.com/group/lisp-korea)에서 Common Lisp을 하면서 Common Lisp을 이용한 라이브러리들에 대하여 스터디하고 있습니다. 현재까지 C프로그램과의 링킹부터 Socket 프로그래밍 및 Database 프로그래밍까지 진행하였습니다.
마지막으로 제가 웹 프로그래밍에 대한 내용을 발표하기로 하였습니다. ^^~

사실 이번에 웹 프로그래밍 발표를 위하여 여러가지 자료를 찾으면서 역시 Common Lisp은 긴 역사만큼 강력하다는 것을 느꼈습니다.
실제 활용을 하면서 Common Lisp을 만지다보니 그동안 잘 이해되지 않았던 부분도 자연스럽게 많이 이해되었습니다. ^^

Hunchentoot도 정말 쓸만하구나 하는 생각이 들었습니다.
참고로 http://www.adampetersen.se/articles/lispweb.htm 의 내용을 바탕으로 발표 자료를 준비하였습니다.
아울러 Ubuntu 9.10 + SBCL + Slime(2009-06-15) + Emace 22.2.1 환경 하에서 작성하였습니다.

사실 처음에 Windows 7 + Cygwin + SBCL + Slime으로 하다가 ASDF 관련한 GPG 에러가 있어서 Ubuntu로 갈아탔습니다. 이거 때문에 고생점 했었습니다.


1. Hunchentoot에 대하여 

Hunchentoot는 Common Lisp으로 작성된 웹 서버입이며, 다이나믹한 웹사이트를 구성할 수 있도록 도와주는 툴킷입니다. 단독실행(Stand-alone)될 수 있으며, HTTP/1.1 스펙을 지원하고, DBMS와 연결 및 SSL 등을 지원합니다. 아울러 Hunchentoot는 Session을 처리할 수 있으며, Cookie 기반의 Session 처리와 Cookie를 사용하지 않는 Session 처리도 가능합니다. 또한 Logging을 하거나 사용자 정의 에러 처리를 할 수 있습니다.


1.1 Hunchentoot 설치

Hunchentoot는 당근 ASDF를 기반으로 쉽게 설치가 가능합니다. ASDF에 대한 자세한 사항은 나중에 한번 정리해서 올리겠습니다.
설치 절차는 다음과 같습니다.

CL-USER> (require 'asdf)
NIL
CL-USER> (require 'asdf-install)
("ASDF-INSTALL")
CL-USER> (asdf-install:install :hunchentoot)
Install where?
1) System-wide install:
   System in /usr/lib/sbcl/site-systems/
   Files in /usr/lib/sbcl/site/
2) Personal installation:
   System in /root/.sbcl/systems/
   Files in /root/.sbcl/site/
 --> 1
Downloading 140293 bytes from http://weitz.de/files/hunchentoot.tar.gz ...
Installing /root/HUNCHENTOOT.asdf-install-tmp in /usr/lib/sbcl/site/,/usr/lib/sbcl/site-systems/
hunchentoot-1.1.0/
hunchentoot-1.1.0/acceptor.lisp
hunchentoot-1.1.0/CHANGELOG
hunchentoot-1.1.0/CHANGELOG_TBNL
hunchentoot-1.1.0/compat.lisp
hunchentoot-1.1.0/conditions.lisp
hunchentoot-1.1.0/cookie.lisp
.....

참고로 저의 경우 /usr/share/common-lisp/ 에 Common Lisp 관련된 자료를 몰아넣는 것을 좋아합니다. Slime도 여기에 설치했습니다.  아울러 ASDF-INSTALL 시 System-wide install을 하여 다른 계정으로도 쉽게 접근할 수 있도록 구성하는 것을 좋아합니다. Hunchentoot를 설치하다보면 계속 GPG 관련한 확인을 해주어야 합니다. 간단하게 ASDF-INSTALL 전에 다음과 같이 설정하시면 GPG 관련 항목을 더 이상 체크하지 않습니다.

CL-USER> (setq asdf-install::*verify-gpg-signatures* nil)

1.2 Hunchentoot 실행

ASDF를 이용하여 Hunchentoot가 정상적으로 설치했다면 다음과 같이 실행하면 됩니다. 8080포트를 사용합니다.

KLISPER> (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 8080))

#<ACCEPTOR (host *, port 8080)>
간단하게 실행됩니다.



1.3 Hunchentoot 종료

간단하게 종료됩니다. 사실 종료는 아직~ 해보지 않았습니다. :-)

KLISPER> (hunchentoot:stop *hunchentoot-server*)

 2. CL-WHO에 대하여

사실 처음 CL-WHO를 들었을때 WHO(국제보건기구)에서 만들었나~ 하는 생각을 하였습니다. ㅎㅎㅎ CL은 당은 Common Lisp의 약자구요~ WHO는 With-Html-Output의 약자라는군요~ 참 했갈리게 하면서도 확실히 기억되는 이름입니다.

CL-WHO는 Lisp의 마크업 언어(Markup Language)입니다. Lisp의 특징인 S-expression을 기반으로 HTML, XHTML, XML 등의 마크업을 작성할 수 있도록 도와주는 넘입니다. 참고로 이와 비슷한 넘이 HTML-TEMPLATE란 넘이 있습니다.

아래의 Lisp 코드에서 (:XXX) 가 바로 CL-WHO 의 예 입니다.

KLISPER> (defmacro standard-page ((&key title) &body body)
  `(with-html-output-to-string (*standard-output* nil :prologue t :indent t)
     (:html :xmlns "http://www.w3.org/1999/xhtml"  :xml\:lang "en" :lang "en"
       (:head
         (:meta :http-equiv "Content-Type" :content "text/html;charset=utf-8")
     (:title ,title)
     (:link :type "text/css" :rel "stylesheet" :href "/retro.css"))
       (:body
         (:div :id "header" ; Start all pages with our header.
           (:img :src "/logo.jpg" :alt "Commodore 64" :class "logo")
           (:span :class "strapline" "Vote on your favourite Retro Game"))
         ,@body))))

2.1 CL-WHO 설치

당근 ASDF 를 이용하여 다음과 같이 설치합니다.

CL-USER> (asdf-install:install :cl-who)
Install where?
1) System-wide install:
   System in /usr/lib/sbcl/site-systems/
   Files in /usr/lib/sbcl/site/
2) Personal installation:
   System in /root/.sbcl/systems/
   Files in /root/.sbcl/site/
 --> 1
Downloading 19817 bytes from http://weitz.de/files/cl-who.tar.gz ...
Installing /root/CL-WHO.asdf-install-tmp in /usr/lib/sbcl/site/,/usr/lib/sbcl/site-systems/
cl-who-0.11.1/
cl-who-0.11.1/CHANGELOG
cl-who-0.11.1/cl-who.asd
.....

3. Parenscript 에 대하여

이름과 같이 Common Lisp 하에서 JavaScript를 CL-WHO와 같이 S-expression으로 표현할 수 있도록 도와주는 넘이 Parenscript 입니다. 이번 예제에서는 많이 쓰지 않았습니다. 하지만 재미 있는 기능이 많은 것 같습니다. :-)

이렇게 사용된다고 하네요~

(lambda (x)
  (case x
    (1 (loop repeat 3 do (alert "foo")))
    (:bar (alert "bar"))
    (otherwise 4)))

상기 Lisp 코드가 변환되면 이런 JavaScript 코드가 나온다고 합니다.

    function (x) {
        switch (x) {
        case 1:
            for (var _js1 = 0; _js1 < 3; _js1 += 1) {
                alert('foo');
            };
            return null;
        case 'bar':
            return alert('bar');
        default:
            return 4;
        };
    };

4. K-Lisper 들을 위한 Lisp 책 투표 사이트 구축하기

자 이제 Common Lisp에서 웹 프로그래밍을 하기 위한 환경들을 살펴보았으니 본격적으로 웹 프로그래밍을 시작해보겠습니다.
예제로 만들어볼 웹 사이트를 간단하게 설명드리면, K-Lisper들이 자신이 선호하는 책에 투표를 하면 투표 결과가 바로 나오며, 만약 선호하는 책이 없으면 등록할 수 있는 웹 사이트입니다.

구조는 간단하지만, 간단한 투표 시스템을 만들려고 해도 사실 어려운 것이 사실입니다. 하지만 Common Lisp을 사용하였을 때 얼마나 효과적으로 웹 프로그래밍이 가능한지 한번 확인해보시기 바랍니다. :-)


4.1 패키지 설정

K-Lisper 책 투표 사이트를 위한 패키지를 새로 만듭니다.

CL-USER> (defpackage :klisper (:use :cl :cl-who :hunchentoot :parenscript))
#<PACKAGE "KLISPER">

자~ 만든 패키지로 이동합시다.

CL-USER> (in-package :klisper)
#<PACKAGE "KLISPER">

4.2 책(Book) 클래스 정의 및 로직 구성

Lisp에도 클래스가 있어라고 이야기하시는 분이 있다면, 김영태님이 발표하신 CLOS에 관한 내용을 확인해보시기 바랍니다. 제 블로그에 Lisp의 객체지향은 그 무엇보다 강력했다. 란 제목으로도 올려놨습니다.

우선 책 투표 사이트이므로 책(Book) 클래스를 만들겠습니다.

KLISPER> (defclass book()
       ((name :initarg :name)
        (votes :initform 0)
        )
       )
#<STANDARD-CLASS BOOK>

상당히 간단한 책 클래스입니다. 필수적으로 입력받아야 하는 책 명(name)과 얼마나 투표했는지 나타내는 votes가 존재합니다.

그럼 새로운 책을 하나 만들어 볼까요~ :-)
예제 삼아  Lisp을 좋아하는 사람들의 그룹(http://groups.google.com/group/lisp-korea)에서 처음 공부하였던 책 제목을 넣어 봤습니다.

KLISPER> (setf klispers-books (make-instance 'book :name "Common Lisp: A Gentle Introduction to Symbolic Computation"))
; in: LAMBDA NIL
;     (SETF KLISPER::KLISPERS-BOOKS
;             (MAKE-INSTANCE 'KLISPER::BOOK :NAME
;                            "Common Lisp: A Gentle Introduction to Symbolic Computation"))
; ==>
;   (SETQ KLISPER::KLISPERS-BOOKS
;           (MAKE-INSTANCE 'KLISPER::BOOK :NAME
;                          "Common Lisp: A Gentle Introduction to Symbolic Computation"))
;
; caught WARNING:
;   undefined variable: KLISPERS-BOOKS
;
; compilation unit finished
;   Undefined variable:
;     KLISPERS-BOOKS
;   caught 1 WARNING condition
#<BOOK {D321AE9}>

생성된 Common Lisp 책 객체가 정상적으로 동작하는지 확인하기 위하여 책 명을 확인해보겠습니다.

KLISPER> (name klispers-books)
"Common Lisp: A Gentle Introduction to Symbolic Computation"

잘 들어가 있군요~ :-) 투표 건수도 확인해보겠습니다.

KLISPER> (votes klispers-books)
0

네~ 아직 투표는 하지 않았으니 0건이 맞습니다. 한번 투표해보겠습니다.

KLISPER> (incf (votes klispers-books))

;     (LET* ((#:TMP1390 KLISPER::KLISPERS-BOOKS)
;            (#:G1391 1)
;            (#:NEW1389 (+ (KLISPER::VOTES #:TMP1390) #:G1391)))
;       (FUNCALL #'(SETF KLISPER::VOTES) #:NEW1389 #:TMP1390))
;
; caught WARNING:
;   undefined variable: KLISPERS-BOOKS
;
; compilation unit finished
;   Undefined variable:
;     KLISPERS-BOOKS
;   caught 1 WARNING condition
1
KLISPER> (votes klispers-books)
1

incf 는 1씩 증가시켜주는 function 입니다. 제 Emacs는 WARNING되는 내용을 확인할 수 있도록 설정되어 있어 약간씩 내용이 틀릴 수 있습니다. 참고하세요~

책(Book) 클래스를 더 확장하겠습니다.

KLISPER> (defclass book()
       ((name :reader name
          :initarg :name)
        (votes :accessor votes
           :initform 0)
        )
       )
#<STANDARD-CLASS BOOK>

사용자가 선택한 책을 찾아서 투표해주는 메소드를 만들겠습니다.

KLISPER> (defmethod vote-for (user-selected-book)
       (incf (votes user-selected-book))
       )
STYLE-WARNING: Implicitly creating new generic function VOTE-FOR.
#<STANDARD-METHOD VOTE-FOR (T) {C847BF1}>

자~ 새로운 메소드를 통하여 한번 투표를 해보겠습니다.

KLISPER> (votes klispers-books) ; 현재 1건 투표됨
1
KLISPER> (vote-for klispers-books) ; 투표함
2
KLISPER> (votes klispers-books) ; 2건 투표됨.
2

책들을 담을 전역 변수를 만들겠습니다. 앞으로 이곳에 책들이 저장될 것입니다.

KLISPER> (defvar *books* '())
*BOOKS*

자~ 전역 변수를 기준으로 책 명으로 책을 찾아주는 메소드를 만들어 보겠습니다.

KLISPER> (defun book-from-name(name)
       (find name *books* :test #'string-equal :key #'name))
STYLE-WARNING: redefining BOOK-FROM-NAME in DEFUN
BOOK-FROM-NAME

그리고 책이 존재하는지 여부를 확인하는 function을 만들어 보겠습니다.

KLISPER> (defun book-stored? (book-name)
       (book-from-name book-name)
       )
BOOK-STORED?

아울러 책을 투표된 건수를 바탕으로 정렬해서 출력하는 function도 만들겠습니다. 나중에 화면에 출력할때 투표건에 따라 정렬할 때 사용할 예정입니다.

KLISPER> (defun books()
       (sort (copy-list *books*) #'> :key #'votes)
       )
BOOKS

마지막으로 책을 추가하는 function을 만들어 보겠습니다.

KLISPER> (defun add-book(name)
       (unless (book-stored? name)
         (push (make-instance 'book :name name)
           *books*)
         )
       )
ADD-BOOK

자~ 새로 만든 function들이 정상적으로 동작하는지 확인해보겠습니다.

KLISPER> (books) ; 현재 한권의 책도 없음.
NIL
KLISPER> (add-book "Common Lisp") ; 새로운 책 추가함.
(#<BOOK {C656311}>)
KLISPER> (book-from-name "Common Lisp") ; 책명으로 책을 찾음
#<BOOK {C656311}>
KLISPER> (add-book "Common Lisp") ; 같은 명칭의 책을 추가하였지만, 추가되지 않음. 즉 기능이 정상임.
NIL
KLISPER> (mapcar #'name (books)) ; 책 목록을 출력함.
("Common Lisp")

이로서 책 투표 사이트 구축을 위한 핵심 로직 구성이 끝났습니다. 이제 본격적으로 웹 페이지를 구성해 봅시다~


4.3 웹 사이트 구성

CL-WHO를 본격적으로 이용해볼 시간이 왔습니다. 간단하게 한번 CL-WHO를 테스트 해봅시다.

KLISPER> (with-html-output (*standard-output* nil :indent t)
       (:html
        (:head
         (:title "K-Lisper's Books")
         )
        (:body
         (:p "K-Lisper's is best!")
         )
        )
       )

<html>
  <head>
    <title>
      K-Lisper's Books
    </title>
  </head>
  <body>
    <p>
      K-Lisper's is best!
    </p>
  </body>
</html>
"
<html>
  <head>
    <title>
      K-Lisper's Books
    </title>
  </head>
  <body>
    <p>
      K-Lisper's is best!
    </p>
  </body>
</html>"

표준적으로 사용할 HTML 페이지의 구조를 잡는 Macro를 작성하려고 합니다. 즉, XHTML의 공통적인 요소를 담고 있는 Macro 입니다. 이 Macro를 통하여 불필요한 요소를 없애고 변화되는 내용만 반영하게 만들것입니다.

KLISPER> (defmacro standard-page ((&key title) &body body)
  `(with-html-output-to-string (*standard-output* nil :prologue t :indent t)
     (:html :xmlns "http://www.w3.org/1999/xhtml"  :xml\:lang "en" :lang "en"
       (:head
         (:meta :http-equiv "Content-Type" :content "text/html;charset=utf-8")
     (:title ,title)
     (:link :type "text/css" :rel "stylesheet" :href "/retro.css"))
       (:body
         (:div :id "header" ; K-Lisper's Books Header
           (:img :src "/logo.jpg" :alt "K-Lisper" :class "logo")
           (:span :class "strapline"  "Vote on your favorite Lisp Book"))
         ,@body))))

STANDARD-PAGE

주의하셔야 할 점은  ,title 와 ,@body 의 , 는 마침표(.)가 아니라 쉼표(,)라는 것입니다.


자~ 첫 페이지인 index.htm을 한번 만들어 봅시다. Macro로 이미 정의한 standard-page의 위력이 발휘되는 순간입니다.

KLISPER> (defun index-page()
       (standard-page
           (:title "Klisper's Books")
         (:h1 "Top KLisper's Books")
         (:p "We'll wirite the code later..."
         )
         )
       )
INDEX-PAGE

이제 만든 페이지를 index.htm으로 걸어 봅시다.

KLISPER> (push (create-prefix-dispatcher "/index.htm" 'index-page) *dispatch-table*)
(#<CLOSURE (LAMBDA #) {C70DCED}> DISPATCH-EASY-HANDLERS DEFAULT-DISPATCHER)

웹 브라우져에서 http://localhost:8080/index.htm 이 정상적으로 출력되는지 한번 확인해보세요~

이렇게 등록하는 절차를 더욱 쉽게 하도록 Macro를 사용하겠습니다.

KLISPER> (defmacro define-url-fn ((name) &body body)
       `(progn
          (defun ,name()
        ,@body)
          (push (create-prefix-dispatcher ,(format nil "/~(~a~).htm" name) ',name)
            *dispatch-table*)
          )
       )
DEFINE-URL-FN

그리고 다시 index 페이지를 작성해보겠습니다.

KLISPER> (define-url-fn (index)
       (standard-page (:title "K-Lisper's Book Site")
         (:h1 "Top Books!")
         (:p "How about it?")
         )
       )
(#<CLOSURE (LAMBDA #) {BEE6D7D}> #<CLOSURE (LAMBDA #) {BB85A8D}>
 DISPATCH-EASY-HANDLERS DEFAULT-DISPATCHER)

웹 브라우져에서 다시 http://localhost:8080/index.htm 을 입력하고 정상적으로 변경되었는지 확인해보세요~ 두번에 해야할 절차를 한번에 간단하게 끝냈습니다. 와우~ 매크로여~ :-)



본격적으로 index.htm 페이지에 투표를 할 수 있는 기능을 추가해보겠습니다.

KLISPER> (define-url-fn (index)
       (standard-page (:title "K-Lisper's Top Books")
         (:h1 "Vote on your all time favorite Lisp Books!")
         (:p "Missing a book? Make it available for votes " (:a :href "new-book.htm" "here"))
         (:h2 "Current stand")
         (:div :id "chart" ; For CSS Style of Links
           (:ol
            (dolist (book (books))
              (htm
               (:li
            (:a :href (format nil "vote.html?name=~a" (name book)) "Vote!")
            (fmt "~A with ~d votes" (name book) (votes book))
            )
               )
              )
            )
           )
         )
       )
      
STYLE-WARNING: redefining INDEX in DEFUN
(#<CLOSURE (LAMBDA #) {C9B40F5}> #<CLOSURE (LAMBDA #) {D94667D}>
 #<CLOSURE (LAMBDA #) {AAB237D}> #<CLOSURE (LAMBDA #) {BB85A8D}>
 DISPATCH-EASY-HANDLERS DEFAULT-DISPATCHER)

길어 보이긴 합니다만, 기종의 HTML 작업의 경우 JSP나 PHP 또는 ASP 파일을 각각 만들고 각각 서버에 올려서 다시 컴파일 되는 과정이나 인터프리팅 되는 과정을 거쳐서 결과가 나오지만, Common Lisp의 웹 프로그래밍은 전혀 파일이 필요없습니다.

따라서 언제라도 index.htm 을 바로 변경할 수 있으며 만약 미리 만든 lisp 파일을 load한다고 하여도 파일속의 내용이 현저하게 적습니다. 웹 브라우져로 HTML 소스를 확인해보신다면 아마 팍팍 느끼실 것입니다.


이제 투표 결과를 받는 페이지입니다.

KLISPER> (define-url-fn (vote)
       (let ((book (book-from-name (parameter "name"))))
         (if book
         (vote-for book))
         (redirect "/index.htm")
         )
       )
(#<CLOSURE (LAMBDA #) {D21BE9D}> #<CLOSURE (LAMBDA #) {D9A7965}>
 #<CLOSURE (LAMBDA #) {D9B3E6D}> #<CLOSURE (LAMBDA #) {AAB237D}>
 #<CLOSURE (LAMBDA #) {BB85A8D}> DISPATCH-EASY-HANDLERS DEFAULT-DISPATCHER)

index.htm에서 Vote! 를 클릭하면 vote.htm으로 왔다가 바로 redirect되어 /index.htm으로 돌아가게 되어있습니다. 여기서 주목할 점은 이전에 만들었던 function인 vote-for를 로직으로 바로 활용했다는 점입니다. 그리고 "name" parameter 역시 간단하게 바로 받아서 처리합니다.

얼마나 멋집니까~ 하하하~ ;-)


이제~ 새로운 책을 추가하는 페이지를 만들겠습니다. 투표할 목록에 원하는 책이 없는 경우 간단하게 책 명을 입력하는 페이지입니다.

KLISPER> (define-url-fn (new-book)
       (standard-page (:title "Add a new book!")
         (:h1 "Add a new book to the chart")
         (:form :action "/book-add.htm" :method "post"
           :onsubmit (ps-inline ; Client-side validation.
               (when (= name.value "")
             (alert "Please enter a name.")
             (return false)))
            (:p "What is the name of the book?" (:br)
            (:input :type "text" :name "name" :class "txt"))
            (:p (:input :type "submit" :value "Add" :class "btn"))
            )
         ))
           
(#<CLOSURE (LAMBDA #) {BC8CD65}> #<CLOSURE (LAMBDA #) {DA52B0D}>
 #<CLOSURE (LAMBDA #) {D9A7965}> #<CLOSURE (LAMBDA #) {D9B3E6D}>
 #<CLOSURE (LAMBDA #) {AAB237D}> #<CLOSURE (LAMBDA #) {BB85A8D}>
 DISPATCH-EASY-HANDLERS DEFAULT-DISPATCHER)

이 페이지에서 드디어 Parenscript 를 사용합니다.  중간에 ps-inline 부터 사용하며, 만약 내용이 없는 경우 다시 입력을 받을 수 있도록 JavaScript로 입력값 검증을 처리하는 부분입니다.


자 새로운 책명을 입력받았다면, 책을 추가하는 페이지입니다. JavaScript에서 이미 걸렸겠지만, 다시 한번 빈 내용이 들어오는지 확인합니다. 이런 처리까지 해주어야 정말 좋은 웹 프로그래밍이라고 생각합니다. 참고로 로직 상으로도 이미 book-stored? function을 통하여 중복 방지 처리가 되어있습니다. 

KLISPER> (define-url-fn (book-add)
       (let ((name (parameter "name")))
         (unless (or (null name)(zerop (length name)))
           (add-book name))
         (redirect "/index.htm"))
       )
(#<CLOSURE (LAMBDA #) {D274E35}> #<CLOSURE (LAMBDA #) {D9999F5}>
 #<CLOSURE (LAMBDA #) {DA52B0D}> #<CLOSURE (LAMBDA #) {D9A7965}>
 #<CLOSURE (LAMBDA #) {D9B3E6D}> #<CLOSURE (LAMBDA #) {AAB237D}>
 #<CLOSURE (LAMBDA #) {BB85A8D}> DISPATCH-EASY-HANDLERS DEFAULT-DISPATCHER)

자~ 이제 index.htm에 있는 here 를 눌러서  새로운 책을 한번 추가해보세요~ :-)



여기까지가 Common Lisp의 새로운 웹 프로그래밍의 세계입니다. 다른 언어도 많은 장점을 제공하지만, Common Lisp이 당근 훌륭한 기능을 제공한다고 생각되네요~

아마 웹 브라우져의 내용이 궁금하신 분들이 많으시리라 생각됩니다. 한번씩 해보세요~ 따라하시기 편하도록 구성하였습니다. ;-)