Kahuaインストール

kahuaインストール

アプリケーションサーバKahuaのインストールでSchemeに触れる。

環境

Fedora9

設定手順

Kahuaのダウンロードからmake installまで。

$ wget http://www.kahua.org/download/kahua/Kahua-1.0.7.3.tgz

$ tar xzf Kahua-1.0.7.3.tgz


$ cd Kahua-1.0.7.3

$ ./configure --prefix=/usr/local/kahua --with-site-bundle=$HOME/work/site

$ make

$ make check

# make install

参考：

Kahua Project

Gauche-dbd-mysqlのインストール。

GaucheからMySQLに接続するため。

$ wget http://www.kahua.org/download/dbi/Gauche-dbd-mysql-0.2.2.tgz

$ gauche-package install --install-as=root Gauche-dbd-mysql-0.2.2.tgz

確認

$ gauche-package list -a

Gauche-dbd-mysql 0.2.2

$ gosh

gosh> (use dbd.mysql)

#<undef>

ちなみにundefが帰ってくればOKだそうな。

ロードできない場合はエラーになるので#<undef>が帰ってくればOK*

参考：

dbd.mysql

2008-01-08 りむーばぶる３

Emacsの設定

Gaucheを快適にするため。

ほぼパクリ。~/.emacsに設定する。

;; Gaucheのデフォルトエンコード

(modify-coding-system-alist 'process "gosh" '(utf-8 . utf-8))


;; goshインタプリンタのパスに合わせる。-iは対話モードを意味する。

(setq scheme-program-name "gosh -i")

;; schemeモードとrun-schemeモードにcmuscheme.elを使用します。

(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)

(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)

;; ウィンドウを2つに分け、一方でgoshインタプリタを実行するコマンドを定義する。

(defun scheme-other-window ()

  "Run scheme on other window"

  (interactive)

  (switch-to-buffer-other-window

    (get-buffer-create "*scheme*"))

  (run-scheme scheme-program-name))

;; そのコマンドをCtrl-csで呼び出す。

(define-key global-map "\C-cs" 'scheme-other-window)

;; 直前/直簿の括弧に対応する括弧を点滅する

(show-paren-mode)

;; 以下はインデントの定義

(put 'and-let* 'scheme-indent-function 1)

(put 'begin0 'scheme-indent-function 0)

(put 'call-with-client-socket 'scheme-indent-function 1)

(put 'call-with-input-conversion 'scheme-indent-function 1)

(put 'call-with-input-file 'scheme-indent-function 1)

(put 'call-with-input-process 'scheme-indent-function 1)

(put 'call-with-input-string 'scheme-indent-function 1)

(put 'call-with-iterator 'scheme-indent-function 1)

(put 'call-with-output-conversion 'scheme-indent-function 1)

(put 'call-with-output-file 'scheme-indent-function 1)

(put 'call-with-output-string 'scheme-indent-function 0)

(put 'call-with-temporary-file 'scheme-indent-function 1)

(put 'call-with-values 'scheme-indent-function 1)

(put 'dolist 'scheme-indent-function 1)

(put 'dotimes 'scheme-indent-function 1)

(put 'if-match 'scheme-indent-function 2)

(put 'let*-values 'scheme-indent-function 1)

(put 'let-args 'scheme-indent-function 2)

(put 'let-keywords* 'scheme-indent-function 2)

(put 'let-match 'scheme-indent-function 2)

(put 'let-optionals* 'scheme-indent-function 2)

(put 'let-syntax 'scheme-indent-function 1)

(put 'let-values 'scheme-indent-function 1)

(put 'let/cc 'scheme-indent-function 1)

(put 'let1 'scheme-indent-function 2)

(put 'letrec-syntax 'scheme-indent-function 1)

(put 'make 'scheme-indent-function 1)

(put 'multiple-value-bind 'scheme-indent-function 2)

(put 'match 'scheme-indent-function 1)

(put 'parameterize 'scheme-indent-function 1)

(put 'parse-options 'scheme-indent-function 1)

(put 'receive 'scheme-indent-function 2)

(put 'rxmatch-case 'scheme-indent-function 1)

(put 'rxmatch-cond 'scheme-indent-function 0)

(put 'rxmatch-if 'scheme-indent-function 2)

(put 'rxmatch-let 'scheme-indent-function 2)

(put 'syntax-rules 'scheme-indent-function 1)

(put 'unless 'scheme-indent-function 1)

(put 'until 'scheme-indent-function 1)

(put 'when 'scheme-indent-function 1)

(put 'while 'scheme-indent-function 1)

(put 'with-builder 'scheme-indent-function 1)

(put 'with-error-handler 'scheme-indent-function 0)

(put 'with-error-to-port 'scheme-indent-function 1)

(put 'with-input-convrsion 'scheme-indent-function 1)

(put 'with-input-from-port 'scheme-indent-function 1)

(put 'with-input-from-process 'scheme-indent-function 1)

(put 'with-input-from-string 'scheme-indent-function 1)

(put 'with-iterator 'scheme-indent-function 1)

(put 'with-module 'scheme-indent-function 1)

(put 'with-output-conversion 'scheme-indent-function 1)

(put 'with-output-to-port 'scheme-indent-function 1)

(put 'with-output-to-process 'scheme-indent-function 1)

(put 'with-output-to-string 'scheme-indent-function 1)

(put 'with-port-locking 'scheme-indent-function 1)

(put 'with-string-io 'scheme-indent-function 1)

(put 'with-time-counter 'scheme-indent-function 1)

(put 'with-signal-handlers 'scheme-indent-function 1)

(put 'with-locking-mutex 'scheme-indent-function 1)

(put 'guard 'scheme-indent-function 1)

;; gont-lockを有効化

(global-font-lock-mode t)