2008年12月アーカイブ

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)

emacsの設定

Emacs上でGaucheが動くと聴いて即設定。

環境

Mac OS 10.5

設定手順

emacsの起動。

$ emacs

以下、emacs上の作業。

ホームディレクトリに存在する設定ファイル.emacs.elを指定。

C-x C-f ~/.emacs.el

.emacs.elの設定内容

;;言語設定は日本語を設定。

(set-language-environment 'Japanese)


;;Gaucheをemacs上で使うための設定。

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

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

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

(defun scheme-other-window()

    "Run scheme on other window"

    (interactive)

    (switch-to-buffer-other-window

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

    (run-scheme scheme-program-name))

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

保存。

C-x C-s

設定ファイルのリロード。

M-x load-file<RET>

.emacs.el

emacs上でgoshを実行。

C-c s

以上、完了。

Schemeのお勉強のために、Gaucheを入れる。

環境

Mac OS 10.5

設定手順

$ curl -O http://jaist.dl.sourceforge.net/sourceforge/gauche/Gauche-0.8.14.tgz

$ tar -xzf Gauche-0.8.14.tgz

$ cd Gauche-0.8.14

追記：事前準備

# yum install gcc gdbm gdbm-devel

オプションはマルチスレッドとutf-8指定。

$ ./configure --enable-threads=pthreads --enable-multibyte=utf-8

$ make

$ sudo make install

追記

Linuxでも同様。Fedoraだとyumコマンドでパッケージ管理可能。

以上、完了。