프로젝트 만들기

매번 패키지 설정을 하는 것이 귀찮아서 자동으로 폴더와 파일을 생성하는 함수를 짰다.

(make-project 'hello)
=>
./hello/
./hello/src/
./hello/test/
./hello/build-and-test.lisp
./hello/hello.asd
./hello/hello-test.asd
./hello/src/hello.lisp
./hello/test/hello-test.lisp

적당한 테스트와 소스 코드를 추가한 후 build-and-test.lisp 파일을 SLIME으로 로드(ctrl+c ctrl+l)하면 빌드 및 테스트가 이루어지고 결과가 표시된다.

아래 코드를 보면 짤린 것처럼 보이지만 긁어서 붙여보면 제대로 보인다; 후.. 블로거에서 코드 들여쓰기를 제대로 보이게 하려면 pre 태그를 쓰는 수밖에 없는데 이마저도 코드가 길어지면 짤려 보이니, 참 난감하다. 누구 블로거에서 코드 제대로 보이게 하는 방법 아시는 분 메일로 알려주시면 정말 감사하겠습니다. ^^;

(defun make-project (project-name)
  (let ((name-string (string-downcase (symbol-name project-name))))
    (ensure-directories-exist (make-pathname :directory (list :relative name-string)))
    (ensure-directories-exist (make-pathname :directory (list :realtive name-string "src")))
    (ensure-directories-exist (make-pathname :directory (list :relative name-string "test")))
    (with-open-file (build-and-test (make-pathname :directory (list :relative name-string)
                                                                             :name "build-and-test" 
                                                                             :type "lisp")
        :direction :output :if-exists nil)
      (format build-and-test
       "(push (make-pathname :directory (pathname-directory *load-truename*)) asdf:*central-registry*)~%(require '~A-test)~%(~A-test:~A-test)~%(format t ~A)~%(quit)"
       name-string name-string name-string "\"~%\""))
    (with-open-file (asd (make-pathname :directory (list :relative name-string)
     :name name-string 
     :type "asd")
    :direction :output :if-exists nil)
      (format asd
       ";;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-~%~%(defpackage #:~A-asd~%  (:use :cl :asdf))~%~%(in-package :~A-asd)~%~%(defsystem ~A~%    :name \"~A\"~%    :depends-on ()~%    :components ((:module src :components ((:file \"~A\")))))"
       name-string name-string name-string name-string name-string))
    (with-open-file (test-asd (make-pathname :directory (list :relative name-string)
          :name (concatenate 'string name-string "-test") 
          :type "asd")
         :direction :output :if-exists nil)
      (format test-asd
       ";;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-~%~%(defpackage #:~A-test-asd~%  (:use :cl :asdf))~%~%(in-package :~A-test-asd)~%~%(defsystem ~A-test~%  :name \"~A-test\"~%  :depends-on (\"~A\" :lisp-unit)~%  :components ((:module test :components ((:file \"~A-test\")))))"
       name-string name-string name-string name-string name-string name-string))
    (with-open-file (main (make-pathname :directory (list :relative name-string "src") 
      :name name-string 
      :type "lisp") 
    :direction :output :if-exists nil)
      (format main
       "(defpackage #:~A~%  (:use :cl))"
       name-string))
    (with-open-file (test-main (make-pathname :directory (list :relative name-string "test") 
           :name (concatenate 'string name-string "-test") 
           :type "lisp") 
          :direction :output :if-exists nil)
      (format test-main
       "(defpackage #:~A-test~%  (:use :cl :~A :lisp-unit)~%  (:export #:~A-test))~%~%(in-package :~A-test)~%~%(defun ~A-test ()~%  (run-all-tests :~A-test))"
       name-string name-string name-string name-string name-string name-string))))