[[About:self:AboutPage.txt]] | [[Profile:http://iddy.jp/profile/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/]] | [[あんてな:http://i-know.jp/southly/listall]] | [[■:http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]

RandomNote について。

→[[ChangeLog self:1141132537.txt]]
→[[Todo self:1140534666.txt]]

• write形式で出力
• パラメータはなし
• Common Lispには":W"や"@W"や":@W"が存在しますがxyzzyにはありません

(format nil "~W" 'hoge)
"hoge"

• 実数を固定小数点表記で出力
• "@F" 常に符号を出力
• パラメータは最大5つ
• 幅
• 小数点以下部分の有効桁
• 小数点の位置をずらす
• 幅が足りず出力できないときに使う文字
• 空きを埋める文字

(format nil "~F" 123.45)
"123.45"
(format nil "~@F" 123.45)
"+123.45"
(format nil "~10F" 123.45)
"    123.45"
(format nil "~10,5F" 123.45)
" 123.45000"
(format nil "~10,5,2F" 123.45)
"12345.00000"
(format nil "~10,5,2,'#F" 123.45)
"##########"
(format nil "~10,,,,'$F" 123.45)
"$$$$123.45"

• 実数をその大きさに応じていい感じに出力
• "@G" 常に符号を出力
• パラメータは最大7つ
• 幅
• 小数点以下部分の有効桁
• 指数部分の桁
• 小数点の位置をずらす
• 幅が足りず出力できないときに使う文字
• 空きを埋める文字
• 指数マーカに使う文字

• 実数を指数表記で出力
• "@E" 常に符号を出力
• パラメータは最大7つ
• 幅
• 小数点以下部分の有効桁
• 指数部分の桁
• 小数点の位置をずらす
• 幅が足りず出力できないときに使う文字
• 空きを埋める文字
• 指数マーカに使う文字

(format nil "~E" 123.45)
"1.2345e+2"
(format nil "~@E" 123.45)
"+1.2345e+2"
(format nil "~10E" 123.45)
" 1.2345e+2"
(format nil "~10,5E" 123.45)
"1.23450e+2"
(format nil "~10,5,2E" 123.45)
"1.23450e+02"
(format nil "~10,5,2,3E" 123.45)
"123.450e+00"
(format nil "~10,5,2,3,'%E" 123.45)
"%%%%%%%%%%"
(format nil "~15,,,,,'=@E" 123.45)
"=====+1.2345e+2"
(format nil "~15,,,,,,'D@E" 123.45)
"     +1.2345D+2"

• prin1形式で出力
• ":S" nilの出力が()
• "@S" 右寄せ
• パラメータは最大4つ
• 最小幅
• 出力幅の変化量
• 埋める最小幅
• 空きを埋める文字

(format nil "~S" nil)
"nil"
(format nil "~:S" nil)
"()"
(format nil "~10S" 'hoge)
"hoge      "
(format nil "~10@S" 'hoge)
"      hoge"
(format nil "~10,5@S" 'hogehogehoge)
"   hogehogehoge"
(format nil "~,,5,'$S" 'hoge)
"hoge$$$$$"

• princ形式で出力
• ":A" nilの出力が()
• "@A" 右寄せ
• パラメータは最大4つ
• 最小幅
• 出力幅の変化量
• 埋める最小幅
• 空きを埋める文字

(format nil "~A" nil)
"nil"
(format nil "~:A" nil)
"()"
(format nil "~10A" 'hoge)
"hoge      "
(format nil "~10@A" 'hoge)
"      hoge"
(format nil "~10,5@A" 'hogehogehoge)
"   hogehogehoge"
(format nil "~,,5,'#A" 'hoge)
"hoge#####"

http://hiyuzawa.jpn.org/blog/2006/10/_hyper_estraier_on_sakura_inte.html

• デバッグ用のxyzzyにアタッチして、ステップ実行することを覚えた。

[[(ReadMore...) index.rb?1163527429.txt]]

• http://www.naney.org/diki/d/2004-07-28-xyzzy.html
• http://www.naney.org/diki/d/2004-07-29-xyzzy.html

の情報をまとめてみる。

まず起動用のスクリプト。起動時にやることは

• XYZZYHOMEに$XYZZYを設定
• ダンプファイルファイルその他をおくフォルダをTMPに作成
• そのフォルダをXYZZYCONFIGPATHに登録
• もしあればxyzzy.iniと.xyzzy.historyをそのフォルダにコピー（探す場所は$XYZZY/usr/以下）
• Pathとかいじりたい場合はご自由に

// xyzzy.js
var shell  = WScript.CreateObject("Wscript.Shell");
var fs     = WScript.CreateObject("Scripting.FileSystemObject");
var env = shell.Environment("PROCESS");
var dir = env("TMP") + "\\xyzzy";
var path = fs.GetParentFolderName(WScript.ScriptFullName);

if (! fs.FolderExists(dir)) {
  fs.CreateFolder(dir);
}

env("XYZZYHOME") = path;
env("XYZZYCONFIGPATH") = dir;
if (fs.FileExists(path + "\\usr\\xyzzy.ini")) {
  fs.CopyFile(path + "\\usr\\xyzzy.ini", dir + "\\xyzzy.ini");
}
if (fs.FileExists(path + "\\usr\\.xyzzy.history")) {
  fs.CopyFile(path + "\\usr\\.xyzzy.history", dir + "\\.xyzzy.history");
}

shell.Exec("xyzzy -image " + dir + "\\xyzzy.dump");

一度起動した後のことは考えていませんので注意。

さらに、

• siteinit.lでDOCの書き出しパスを設定
• *kill-xyzzy-hook*で設定ファイルの削除

をやっておくべきでしょう。

(setq lisp::*documentation-path*
      (merge-pathnames "XYZZYDOC"
                       (directory-namestring (si:dump-image-path))))
(delete-hook '*kill-xyzzy-hook* 'ed::save-history-file)
(add-hook '*kill-xyzzy-hook*
          #'(lambda ()
              (ed::save-history-file)
              (let ((ini (merge-pathnames "xyzzy.ini" (user-config-path)))
                    (his (merge-pathnames ".xyzzy.history" (user-config-path))))
                (copy-file ini (merge-pathnames "usr/xyzzy.ini" (si:system-root)) :if-exists :overwrite :if-access-denied :skip)
                (copy-file his (merge-pathnames "usr/.xyzzy.history" (si:system-root)) :if-exists :overwrite :if-access-denied :skip)
                (delete-file ini :if-does-not-exist :skip :if-access-denied :skip)
                (delete-file his :if-does-not-exist :skip :if-access-denied :skip)
                (delete-file (si:dump-image-path) :if-does-not-exist :skip :if-access-denied :skip)
                (delete-file (merge-pathnames "XYZZYDOC" (user-config-path)) :if-does-not-exist :skip :if-access-denied :skip)))
          t)

ただ、*kill-xyzzy-hook*の実行よりも後にxyzzy.iniへ書き込まれる設定があるため、xyzzy.iniの削除は完全ではありません。

煮るなり焼くなりご自由に。
[[(ReadMore...) index.rb?1154158495.txt]]