[ruby-list:32828] Re: Ruby for PalmOS に対する熱い想い

From: Hiroyuki KUROSAKI <[e-mail]>
Subject: [ruby-list:32795] Re: Ruby for PalmOS に対する熱い想い
Date: Thu, 6 Dec 2001 00:40:16 +0900

るびきちです。

> 中間形式で出力するスクリプト mh2medoc0.rb を作ってみました。また、
おお、いいですね。
さっそく試してみました。

> あわせてるびきちさんの topalm.rb に手を加えて、次のように引数を指定
> すればDOC形式への変換出力まで行えるようにしました。
> 
>   ruby topalm.rb -M -m 範囲 フォルダ 出力ファイル タイトル
> 
> 範囲はフォルダ内の通し番号をカンマで並べたりハイフンでつないだりした
> ものです。例: 3-10,23,25
なかなかいい感じです。
近々新バージョンとして反映させます。

> http://www.st.rim.or.jp/~noir/softlib/mh2palm.tar.gz

topalm.elについては以下のパッチを適用してください。
ひとつめの修正点がletの構文ミス、ふたつめの修正点がファイル名の()です。
()はシェルのエスケープ文字なので_にしています。

--- /home/rubikitch/compile/mh2palm/topalm.el	Fri Dec  7 14:58:13 2001
+++ topalm.el	Sat Dec  8 05:27:44 2001
@@ -48,10 +48,10 @@
 (defvar topalm-use-tempfile nil)
 
 (defun topalm-write-region-to-tempfile (beg end)
-  (let (tempfile (concat temporary-file-directory
+  (let ((tempfile (concat temporary-file-directory
 			 "topalm"
 			 (number-to-string (emacs-pid))
-			 ".tmp"))
+			 ".tmp")))
     (and (file-exists-p tempfile) (delete-file tempfile))
     (write-region beg end tempfile nil)
     (setq topalm-tempfile tempfile)))
@@ -100,8 +100,8 @@
 	(newstr (copy-sequence string))
 	(unsafe-chars-alist '((?* . ?_)
 			      (?? . ?_)
-			      (?< . ?()
-			      (?> . ?))
+			      (?< . ?_)
+			      (?> . ?_)
 			      (?| . ?_)))
 	(tochar nil))
     (while (> i 0)

topalm.elを作ってくれてありがとうございます。
欲しかったのです。

で、mh2medoc0.rbとtopalm.elはどうしましょう？
topalm.tar.gzに添付して配布していいでしょうか？
topalm.rbがmh2palmに依存するようになってしまいましたので。
それに手許のバージョンではウェブに置いてあるものに加え、
RDとLispも変換できるようにしています。

> Mew 1.94.2ですが、~/.emacs で
1.93じゃスレッド表示できません(涙)
いろいろ手を加えてしまってるので乗り変えも簡単にはいきませんし・・・

るびきち☆
http://voo.to/ruby/ ←Ruby大衆化計画(笑)