213(6)

1 名無しさん＠お腹いっぱい。 03/07/31 21:17

(defun return-complementary-file-name (file-name list)
"Return complementary file name. or return nil in case of not found."
(let ((new-name nil))
(while list
(let ((ext1 (car (car list)))
(ext2 (cdr (car list))))
(if (not (null (string-match ext1 file-name)))
(progn
(setq new-name (concat
(file-name-sans-extension file-name)
(extension-from-pattern ext2)))
(if (file-exists-p new-name)
(setq list '(dummy))))
(if (not (null (string-match ext2 file-name)))
(progn
(setq new-name (concat
(file-name-sans-extension file-name)
(extension-from-pattern ext1)))
(if (file-exists-p new-name)
(setq list '(dummy)))))))
(setq list (cdr list)))
new-name))

総レス数 6

■ このスレッドは過去ログ倉庫に格納されています

---

IE等普通のブラウザで見る場合 http://tubo.80.kg/tubo_and_maru.html
専用のブラウザで見る場合 http://www.monazilla.org/

２ちゃんねる　Viewerを使うと、すぐに読めます。 http://2ch.tora3.net/
この Viewer(通称●) の売上で、２ちゃんねるは設備を増強しています。
●が売れたら、新しいサーバを投入できるという事です。

よくわからない場合はソフトウェア板へGo http://hibari.2ch.net/software/

モリタポを持っていれば、50モリタポで表示できます。

---

read.cgi@hanako ver 2011/01/22
FOX ★ DSO(Dynamic Shared Object)