本次實驗的目的是了解Emacs如何能在Linux內核上很好的工作.
僅需要的外部命令是: mount .
文章中的”root_fs_emacs”可以做為一個標准分區或在live CD上使用. 這次實驗, 我們用於User Mode Linux上.
1. 初始化root_fs(至少150MB)
cd ~/umldd if=/dev/zero of=root_fs_emacs bs=1k count=200kyes ymke2fs root_fs_emacsmkdir /emacsmount -o loop root_fs_emacs /emacscd /emacsln -s . emacs # 簡單配置 emacs 的 –prefix 參數cp -a /dev dev # 我們大膽拷貝整個/devmkdir etc sbin tmp # 創建emacs沒有創建的其它目錄cat >etc/fstab </dev/ubd0 / ext2 defaults 0 1EOF
2. 在字符環境下靜態編譯emacs
cd ~/srctar jxvf emacs-21.3.tar.bz2cd emacs-21.3CFLAGS=-static LDFLAGS=-static ./configure –without-x –prefix=/emacsmake && make install
3. 以/sbin/init方式安裝emacs
cd /emacsln bin/emacs sbin/initcat >.emacs <(message “init starting”)(setq auto-save-interval 0)(defun shutdown ()(interactive)(when (yes-or-no-p “Really shut down the system? “);; actually, kill-emacs signals emacs ie. init, which makes linux panic.(kill-emacs)))(global-set-key “\C-x\C-c” ’shutdown)(global-set-key “^\” ‘keyboard-quit) ;; strangely, C-g does not work.(call-process “/bin/mount” nil “*log*” t “-n” “-o” “rw,remount” “/”)(if (file-exists-p “/etc/mtab”) (delete-file “/etc/mtab”))(call-process “/bin/mount” nil “*log*” t “-f” “/dev/ubd0″ “/”)(message “init done”)EOF
4. 靜態編譯mount
cd ~/srctar jxvf util-linux-2.12a.tar.bz2cd util-linux-2.12aCFLAGS=-static LDFLAGS=-static ./configuremake && install -m 755 mount/umount mount/mount /emacs/bin/
5. 引導linux
cd ~/umlumount /emacslinux ubd0=root_fs_emacs
現在, 你可以通過下面命令運行一個emacs腳本:
M-x eshell RETls -l RET
運行結果是:
File Edit Options Buffers Tools HelpWelcome to the Emacs shell
/ # ls -ltotal 21drwxr-xr-x 2 0 0 1024 Jul 26 08:42 bindrwxr-xr-x 1 0 0 0 Jan 1 1970 devlrwxrwxrwx 1 0 0 1 Jul 26 08:11 emacs -> .drwxr-xr-x 2 0 0 1024 Jul 26 09:20 etcdrwxr-xr-x 2 0 0 2048 Jul 26 08:11 infodrwxr-xr-x 3 0 0 1024 Jul 26 08:11 libexecdrwx—— 2 0 0 12288 Jul 26 08:10 lost+founddrwxr-xr-x 3 0 0 1024 Jul 26 08:10 mandrwxr-xr-x 2 0 0 1024 Jul 26 08:11 sbindrwxr-xr-x 3 0 0 1024 Jul 26 08:10 sharedrwxr-xr-x 2 0 0 1024 Jul 26 09:15 tmp/ #
–1-:—F1 *eshell* (EShell)–L20–All———————
當然, emacs缺少很多系統調用(同樣elisp原語中也沒有), 所以, 我們很難用emacs去做任何事情. 不過這只是一個開始.
另外, 你也可以使用具有FFI和可移植Hemlock功能的Common-Lisp方法來實現.
Emacs做為shell程序
Emacs可以很容易做為shell程序使用:
echo /usr/bin/emacs >> /etc/shellschsh -s /usr/bin/emacs GOODUSER
echo ‘(setenv “SHELL” “/bin/bash”)’ >> ~GOODUSER/.emacs# 這種情況用戶想使用 M-x shell# [ 我更想使用: (setenv “SHELL” “/usr/bin/clisp”) ]
echo ‘(eshell)’ >> ~GOODUSER/.emacs# 自動啟動eshell.# 也可使用: (dired default-Directory) 替代…
su - GOODUSER# 很好!