‚T‚Ώ‚α‚ρ‚Λ‚ι šƒXƒ}ƒz”Łš ‘ŒfŽ¦”‚ɖ߂遑 ‘S•” 1- ΕV50  

‘ ‚±‚ΜƒXƒŒƒbƒh‚Ν‰ί‹ŽƒƒO‘qŒΙ‚ΙŠi”[‚³‚κ‚Δ‚’‚ά‚·

213

1 F–Ό–³‚΅‚³‚ρ—‚¨• ‚’‚Α‚Ο‚’BF03/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))


2 F–Ό–³‚΅‚³‚ρ—‚¨• ‚’‚Α‚Ο‚’BF03/07/31 21:20
((call/cc call/cc) (call/cc call/cc))

3 F–Ό–³‚΅‚³‚ρ—‚¨• ‚’‚Α‚Ο‚’BF03/07/31 21:54
(manko tinpo)

4 F–Ό–³‚΅‚³‚ρ—‚¨• ‚’‚Α‚Ο‚’BF03/07/31 22:01
Ž©–‚Μ.emacs‚π“\‚θ•t‚―‚ζ‚€
http://pc.2ch.net/test/read.cgi/unix/1001393679/913

5 F???F03/07/31 22:44

”`‚’‚½‚ͺ‰Ώ’lIƒEƒLƒEƒL‚΅‚ά‚·‚ζτ

http://angely.h.fc2.com/page004.html

6 F‚Ϊ‚ι‚Ά‚ε‚  ŸyBEncckFOU F03/08/02 04:56
@@@ @ΘQΘ@ ΘQΘ
Λί­.°@i@ E‚REj (@@OO j ƒ‚±‚κ‚©‚η‚ΰ–l‚½‚Ώ‚π‰ž‰‡‚΅‚Δ‰Ί‚³‚’‚ˁiOOjB
@@k~ΎPPPΎPPl
@@ \\\\\\ @@@@@@@@@@@@@@@@@@@@@ŽRθΒ&‚Ϊ‚ι‚Ά‚ε‚ 

2 KB
‘ ‚±‚ΜƒXƒŒƒbƒh‚Ν‰ί‹ŽƒƒO‘qŒΙ‚ΙŠi”[‚³‚κ‚Δ‚’‚ά‚·

šƒXƒ}ƒz”Łš ŒfŽ¦”Β‚Ι–ί‚ι ‘S•” ‘O100 ŽŸ100 ΕV50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit š
FOX š DSO(Dynamic Shared Object)