Cなどのように文字列中の改行を"\n"と書けるようにしてみた。ダブルクオートにまで自前で設定できるなんてフリーダム。
;;;;文字列中の\nを改行に変える
(defun enable-string-reader ()
(set-macro-character
#\"
(lambda (stream ch)
(declare (ignore ch))
(with-output-to-string (s)
(loop
:for i = (read-char stream)
:until (char= i #\")
:do
(if (char= i #\\)
(let ((next (read-char stream)))
(case next
((#\n)
(write-char #\newline s))
(T
(write-char next s))))
(write-char i s)))))))
;;;SBCL用
(defun disable-string-reader ()
(set-macro-character #\" #'sb-impl::read-string))
いつか.emacsが消滅したときに復元する手助けになると信じて,適当に選んだ部分を晒してみる。
1つ目はタイムスタンプ。設定が変わるとめんどくさそうなので、どの環境でも同じ状態にしておきたい。
;;time-stamp
(require 'time-stamp)
(add-hook 'before-save-hook 'time-stamp)
(setq time-stamp-active t)
(setq time-stamp-start "last updated : ")
(setq time-stamp-format "%04y/%02m/%02d %02H:%02M %u@%s")
(setq time-stamp-end "\n")
(setq time-stamp-line-limit 20)
Cのインデントスタイルの設定。変わっても問題はないだろうけど、慣れているインデントスタイルにすぐ戻れるように。
;;indent style for c
(add-hook 'c-mode-hook
'(lambda ()
(c-set-style "linux")
(setq c-basic-offset 4)
(setq tab-width c-basic-offset)))
mic-paren.elの設定。一応Lisp使いの末端の端っこくらいには引っかかってほしいと思ってるので、括弧を見やすくするために入れている。
;;mic-paren
(require 'mic-paren)
(paren-activate)
(setq paren-face '(underline paren-match-face))
(setq paren-match-face '(underline paren-face))
(setq paren-sexp-mode t)
(setq parse-sexp-ignore-comments t)
anything.elをsdic用に設定してみたもの。anything自体ろくに使っていないけど、自分で書いたネタコードはこのくらいしかないので保存しておく。あとで黒歴史扱いする自分の姿が見えないでもない。
;;anything for sdic-mode
(defvar hogefuga nil)
(defvar anything-for-sdic
`((name . "sdic")
(init . (lambda () nil))
(candidates . (lambda ()
(let ((result
;;emacs lispはダイナミックスコープ
(flet ((message (n) n)
(sdic-display-buffer (x) x))
(sdic-describe-word anything-pattern))))
(push result hogefuga)
(prog1
(if result
(prog1
(with-current-buffer "*sdic*"
(split-string (buffer-string) "\n" t))
(sdic-display-buffer result))
(sdic-exit)
nil)
(set-buffer "*anything*")))))
(requires-pattern . 3)
(volatile)))
いろいろ酷いことになっているけど、ネタなので放置。
SBCLはデフォルトでマルチスレッド対応が無効になってるらしい。バイナリパッケージからインストールしたものだと*features*にsb-threadが入っていない。
INSTALLファイル(インストール手順)を確かめると、BINARY DISTRIBUTIONの項目にカスタマイズの設定を書いてビルドしろとのことらしいので、ちょうど良い機会ということにして1.0.29から1.0.30に乗り換えることにした。
INSTALLファイルに書いてあるとおり、customimze-target-features.lispファイルを作り、設定をそのままコピペする。
(lambda (features)
(flet ((enable (x)
(pushnew x features))
(disable (x)
(setf features (remove x features))))
;; Threading support, available only on x86/x86-64 Linux, x86 Solaris
;; and x86 Mac OS X (experimental).
(enable :sb-thread)))
その後は
>sh make.sh
>sh install.sh
とするだけ。すでにSBCLがインストールされてる環境なのでオプションをつけずともすんなりと進んだ。
Common LispでGLFW(OpenGLのフレームワーク)を動かすライブラリがあるので利用して遊んでみる。
とりあえず2Dの表示をやってみた。
(require :asdf)
(asdf:oos 'asdf:load-op :cl-glfw)
(asdf:oos 'asdf:load-op :cl-glfw-opengl)
(asdf:oos 'asdf:load-op :cl-glfw-glu)
(defpackage glfw-test
(:use :cl))
(in-package :glfw-test)
;;(test-modes)
;;(test-2d)
(defun test-modes (video-mode-max)
(glfw:init)
(format t "mode=(Width Height RedBits GreenBits BlueBits)~%")
(format t "Desktop-mode:~A~%" (glfw:get-desktop-mode))
(format t "Video-mode:~A~%" (glfw:get-video-modes video-mode-max))
(glfw:terminate))
;;;640x480
(defun test-2d ()
(let ((frames 0)
(quad (glu:new-quadric))
t0 t1)
(glfw:do-window ("test-2d" 640 480)
((gl:with-setup-projection
(glu:perspective 45d0
(coerce 4/3 'double-float)
0.1d0
50d0))
(setf t0 (glfw:get-time)
t1 (glfw:get-time)))
;;;calc FPS
(setf t1 (glfw:get-time))
(when (> (- t1 t0) 1.0)
(glfw:set-window-title
(format nil "test-2d(~,1f FPS)" (/ frames (- t1 t0))))
(setf frames 0
t0 t1))
(incf frames)
(gl:clear gl:+color-buffer-bit+)
(gl:load-identity)
(gl:translate-f 0.0 0.0 -5.0)
;;draw-line
(gl:with-begin gl:+line+
(gl:color-3f 1.0 0.0 0.0) ;red
(gl:vertex-2f 0.0 0.0) ;(0 0) -> (1 1)
(gl:vertex-2f 1.0 1.0)
(gl:color-3f 0.0 1.0 0.0) ;green
(gl:vertex-2f 1.0 0.0) ;(1 0) -> (0 1)
(gl:vertex-2f 0.0 1.0)
(gl:color-3f 0.0 0.0 1.0) ;blue
(gl:vertex-3f 0.0 0.0 0.0) ;(0 0 0) -> (0 1 0)
(gl:vertex-3f 0.0 1.0 0.0))
;;draw-point
(gl:with-begin gl:+point+
(gl:color-3f 1.0 0.0 0.0) ;red
(gl:vertex-2f 0.2 0.5)
(gl:color-3f 0.0 1.0 0.0) ;green
(gl:vertex-3f 0.7 0.5 0.0))
;;draw-triangle
;;(0 0)-(-1 0)-(0 -1)
(gl:with-begin gl:+triangles+
(gl:color-3f 1.0 0.0 0.0) ;red
(gl:vertex-2f 0.0 0.0)
(gl:color-3f 0.0 1.0 0.0) ;green
(gl:vertex-2f -1.0 0.0)
(gl:color-3f 0.0 0.0 1.0) ;blue
(gl:vertex-2f 0.0 -1.0) )
;;draw disk(circle)
(glu:quadric-draw-style quad glu:+fill+)
(gl:color-3f 0.0 0.0 1.0) ;blue
;;gluオブジェクトは原点に描画される
(gl:translate-f 0.5 -0.5 0.0)
;;(30角形?)
(glu:disk quad 0d0 0.5d0 30 1)
(gl:translate-f -0.5 0.5 0.0))
;;end of 'do-window'
(glu:delete-quadric quad)))
おそらくCで書いてもほとんど同じコードになるんだろうなぁ。
昨日今日で2冊本を読んだ。
SFで思い出したが、星界シリーズはいったいいつ続編がでるんだ・・・
CommonLispでN Queenを解く。きっと正しいと信じたい。
(defun check-nqueen (n lst)
(not
(or
(find n lst)
(loop
:named hoge
:for i from (1+ n)
:for j downfrom (1- n)
:for rest = lst then (cdr rest)
:for m = (car rest) then (car rest)
:finally (return-from hoge nil)
:while m
:do (when (or (= m i) (= m j))
(return-from hoge t))))))
(defun nqueen (n)
(let ((result nil))
(labels
((inner (i lst r)
(when (check-nqueen i lst)
(if (= r 1)
(push (cons i lst) result)
(loop
:with next = (cons i lst)
:for i from 1 to n
:do (inner i next (1- r)))))))
(loop
:for i from 1 to n
:do (inner i nil n)))
result))
情報処理試験(情報セキュリティスペシャリスト)を受験してきた．帰り道にふらりと降りた駅で酒屋を発見したので2本ほど購入した．
めもめも．
最近QEMUでGDBサーバーとやらを使うとおいしいということを知ったのでメモ．
/* QEMU起動時に-sオプションを付けるとGDBサーバーが起動．-pでポート指定可能．デフォルトは1234． */
>qemu -fda floppy.img -boot a -s
/* gdb起動 */
>gdb file.bin
/* GDBサーバに接続 */
>>target remote localhost:1234
QEMUのオプション
/* QEMUモニタをターミナルに */
>qemu -fda floppy.img -boot a -monitor stdio
/* QEMUをcursesで */
>qemu -fda floppy.img -boot a -curses
GDBのコマンドなど．
n(ext)とs(tep)の違いは，nextが関数呼び出しを1行として扱うのに対し，stepは関数内に入ること．
GCCでもNASMでも-gオプションを付けるとデバッガ用に出力してくれるようだ．
/* GDBで毎回コマンドを打つのがメンドクサイ．ファイルにコマンドを書いておいて読み込む．-xオプション． */
>gdb -x script.gdb file.bin
/* 構造体の内容を表示(16進) */
>>p/x *(&structure[0])
/* メモリの内容を表示 */
>>x/10 &function
/* バックトレース表示 */
>>bt
NASMを使っていたのでGCCのインラインアセンブラに触ったらエラーを連発してしまった．突っかかったところ，気を付けるところをメモしておく．
文庫を２冊読み終わった．
表題と同じタイトルの短編'最後の喫煙者'が一番好き．喫煙者を酒飲みに置き換えたら明日は我が身だな(笑)などと思いつつ，人間の思考ってわりと誘導されるよなぁ，などと考えていた．
'春の予感'．食事のメニューに載ってたら春の野菜が器にちょこんとおいてあるイメージだが，実際はどうだろう．風情がありすぎる感のある名前を付けるのは，内容を想像したり実物との差異に驚いたりといったことを楽しむためのもの・・・
だったりして．
２冊とも，著者の他の小説を読みたくなるようなもので良かった．
思えば，筒井氏の小説を読むのはこれが初めてなのであった．
