スキップしてメイン コンテンツに移動

Emacs Lispのススメ

概要



私の受ける印象では，Emacs Lispを敬遠している人が多すぎる．多くの場合，この理由は，(1) Lispが嫌い，(2) Emacsが嫌い，のいずれかである．後者は思想の違いなのでどうしようも無いが，前者の理由で使わないのであれば，損をしていると私は考える．



ここでは，私がEmacs Lispを実際に利用する場面を，ケーススタディとして示す．Lispが嫌いな方が退屈しないよう，Lispの構文については触れない．


Emacs Lispを実行するには



まず，Emacs Lispを実行する方法を知らなければならない．手っ取り早く実行する方法として，次の2種類の方法がある．この他にも数種類の方法があるが，ここでは省略する．


*scratch*バッファを使う



Emacsを引数なしで起動すると，*scratch*バッファが開かれる．このバッファで\C-jと入力すると，カーソルの直前にあるLispを実行する．



例えば次のコードは，hogeと出力するものである．



(message "hoge")


この「)」の次にカーソルを合わせて\C-jを入力すれば，カーソル位置に"hoge"と出力される．



(message "hoge")
[ここにカーソルを置いて\C-jと入力]
=> "hoge"

eval-last-sexp関数を使う



上記のコードにて，上記と同様「)」の次にカーソルを合わせる．そして，\C-x\C-eと入力すると，直前のLispを実行する．



入力シーケンス \C-x\C-eは，M-x eval-last-sexpと同様．上記と同様，カーソル位置の手前にあるLispを評価する． *scratch*バッファとの違いは，実行結果がミニバッファに表示される点，一般のファイル(*scratch*バッファ以外)でも実行できる点，である．


ケーススタディ


簡単な計算をする



Emacs Lispを用いると，簡単な四則演算が可能．



例えば，次のLispは1日の秒数を計算する．



(* 60 60 24)
=> 86400


また，あるファイルに次のような数値の羅列が保存されているとする．



34
42
...
56


これらの数値の合計を求めるには，前後にLispを加えれば良い．



(+
34
42
...
56
)


勿論，複雑な計算も可能．次は，1から1000までの数値の合計を計算する．ちなみに，1からNまでの合計はN*(N+1)/2．



(/ (* 1000 (+ 1000 1)) 2)
=> 500500


少数が含まれれば浮動小数点演算，整数のみであれば整数演算となる．



(/ 10 3)
=> 3
(/ 10.0 3)
=> 3.333333333

文字列を自動生成する



例えば，C言語で次の定義文を書くとする．



#define HOGE0 100
#define HOGE1 101
#define HOGE2 102
#define HOGE3 103


4行であれば大した問題ではないが，これが100行になったら，あるいは頻繁に行数が変わるとすれば，さすがに自力で書くのはしんどい．



ここでEmacs Lispが活躍する．次のEmacs Lispで，上記の定義文を生成できる．



(let ((i 0))
  (while (< i 4)
    (insert (format "#define HOGE%d %d\n" i (+ 100 i)))
    (setq i (+ i 1))))


かなりラフに説明すると，次のようになる．(1) letでローカル変数iを定義．(2) whileでiが0から3までループ．(3) insertでカレントバッファに1行ずつ出力．(4) setqでiをインクリメント．



この方法の良いところは，Cのコードを書いているエディタ上に自動化のコードを書くことができ，その場で実行できるところにある．



これだけでは意味がわからないので，Emacs Lispを使用しない場合を例に示そう．コードを生成自動するには，jotやseqを使う，またはrubyやperlなどのスクリプトを組む，といった方法がある．これらの方法には，スクリプトファイルが増える，という問題点がある．私も経験があるが，スクリプトファイルが散乱すれば，管理することが困難になる．何のスクリプトファイルが何をするものであったのか，作者でも時間が経てば忘れてくるのだ．



一方，Emacs Lispであれば，Cのソースコード内に記述できる．さらに，次のようにCの構文でコメントアウトしておく．



/*** Cソースファイル ***/
/*
(let ((i 0))
  (while (< i 4)
    (insert (format "#define HOGE%d %d\n" i (+ 100 i)))
    (setq i (+ i 1))))    
*/


こうすることで，(1) 新たにスクリプトファイルが増えることなく，(2) 必要な箇所に必要なEmacs Lispのコードを配置し，(3) Cのコンパイルも問題なく通す，ことができるのである．



ちなみに，おわかりだと思うが，上記コードは，次のように4を100に変更することで，100行の出力が可能．



/*
(let ((i 0))
  (while (< i 100)
    (insert (format "#define HOGE%d %d\n" i (+ 100 i)))
    (setq i (+ i 1))))    
*/
ラベル:

このブログの人気の投稿

TeXマクロプログラミング

2012.03.30 更新 スライド化しました． 　 新しいマクロ定義 以下に例を示す． \dev\hoge{ほげ} 　 　これにより，\hogeが「ほげ」に変換される．引数を使うには，以下のように記述する． \dev\hour#1{今は#1時です} 　 別の方法 上に示した処理は，以下のようにも記述できる． \newcommand{\hoge}{ほげ} \newcommand{\hour}[1]{今は#1時です} 　 defとnewcommand違い defとnewcommandが異なる箇所として，以下が上げられる． 定義命令を定義している処理系 マクロを多重定義した場合の動作 引数のとり方 　まず，定義されている処理系が異なる．defはtexで定義されており，newcommandは，latexで定義されている． 　次に，多重定義した際の動作が異なる．defでは，新しい定義で上書きする．一方，newcommandではエラーを出力する． 　最後に，defでは，引数のとり方としてパターンマッチングを利用できる．例えば，以下のマクロ定義があるとする． \def\Hatchr(#1,#2)(#3,#4)#5 これにより，以下に示すインターフェイスを実現する． \Hatchr(3,4)(7,8){hoge} 　 マクロの複製 以下の処理では，\hogeの内容を\fugaに複製する． \let\fuga\hoge 　 マクロの初期化 以下のコードで，\hogeを初期化する． \let\fuga\relax 　ここで，\relaxは初期化のために利用する空の定義である． 　 マクロに文字を追加し再定義 defによる定義は，マクロの多重展開をおこなわない．例えば，以下のコードを考える． \def\hoge{ほげ} \def\hoge{\hogeふぇふぇ} 　この後，\hogeを利用すると「\hogeふぇふぇ」と展開される．つまり，一度だけしかマクロは展開されない． 　マクロを展開してから定義する際には，以下の記述を用いる． \edef\hoge{\hogeふぇふぇ} 　これに
続きを読む

beamerでしおりを付ける

しおり 　 しおりとは，acroreadなどでpdfを表示する際に，ウィンドウの左側に表示される目次のようなものである．このしおりを使うことで，文章の構成を大まかに把握したり，特定の項目に移動することが簡単にできる． 　 beamerには，標準でしおりを付ける機能が備わっている．以降では，しおりを付ける方法について述べる． しおりをつける 　 beamerでしおりを付けるには，次のコマンドをtexの文章中に記述する． section{} subsection{} subsubsection{} 　 カッコの中に記述する文字列が，しおりの項目名に使用される．また，section，subsection，subsubsectionを使い分けることで，階層化をすることも可能． 文字化け対策 　 しおりは，標準の仕様ではUnicodeのみがサポートされている．EUCを使う場合は，そのままではしおりの日本語が文字化けする．このため，Unicodeを用いない際には，何らかの対策が必要である． 　 以下では，EUCを利用する人のための対処策を述べる．ここで，dviからpdfを生成する際の方法によって，対処の仕方が異なることに注意する．具体的には，(1)dvipdfmxを用いる場合と，(2)dvipsおよびps2pdfを用いる場合で，対処の仕方が異なる．以降，それぞれについて述べる． dvipdfmxを用いる場合 　 次のコードをプリアンブルに記述しておくことで解決できる．これにより，しおりの部分の文字列が，自動でUnicodeに変換される． \ifnum 42146=\euc"A4A2 \AtBeginDvi{\special{pdf:tounicode EUC-UCS2}}\else \AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}\fi 　 ただし，実行にはEUC-UCS2というファイルが必要．texをインストールする際に，標準でシステムに入る場合はこのままコンパイルできるが，無ければコンパイルできない．私がこれまで経験したなかでは，Vine 5.0, Mac OSXには含まれているが，Debian lennyには入っていなかった． 　 システムにEUC-UCS2が無い場合，以下のようなサイトから取ってくる．取って
続きを読む

ssh-agentの管理を自動化する

ssh-start.sh ssh-agentの管理を自動化するスクリプトssh-start.shを紹介する． 詳細 ssh-agentを使うことで，sshでリモートログインする際に，パスワードの入力を省略できる． ssh-agentを利用するためには，ソケットのパスとプロセスIDを環境変数に登録する必要がある．環境変数に登録すべき情報は，ssh-agentの起動時に，以下のように標準出力に出力される． $ ssh-agent SSH_AUTH_SOCK=/tmp/ssh-XTqIvn4918/agent.4918; export SSH_AUTH_SOCK; SSH_AGENT_PID=4919; export SSH_AGENT_PID; echo Agent pid 4919; 上記のように，ssh-agentの出力はシェルコマンドとなっており，実行すれば環境変数がセットされる．このため，多くの解説記事では，次のようにevalを用いる方法が述べられている． $ eval `ssh-agent` Agent pid 4919 しかし，この方法は，同じssh-agentのプロセスを複数のシェルから利用することはできない．上記コマンドを他のシェル上でも実行すれば，動作はするが，次の点で優れた手法とは言えない． ssh-agentのプロセスを複数起動する (本来は1個で充分)． 起動毎に秘密鍵の登録，およびパスフレーズの入力が必要となる． 上記の問題は解決するには，1個のssh-agentを複数のシェルから再利用すればよい．例えば2個のターミナルから1個のssh-agentプロセスを利用するには，次のようにする． # terminal 1 $ ssh-agent > ~/tmp.sh $ source ~/tmp.sh Agent pid 4919 # terminal 2 $ source ~/tmp.sh Agent pid 4919 こうすることで，2個のターミナルから同一プロセスのssh-agentを利用できる． 以上の処理を自動化したものが，ここで紹介するスクリプトである． 使い方 環境変数を扱かうため，通常のスクリプトのようには利用できない．このため，sourceコマンドや.(ドット)コマンドで実行する． $ source /path/to/dir/s
続きを読む