«
»

CLでCのプログラムを動かす画期的な方法を思いついた

　　　　　　　　　　　　　　 ,. ‐””:::::::::::::;::::`’-､
　　　　　　　　　　　　　／::::::::::::::;;:::::/ ヽ:::::::::ヽ　　
　　　　　　　_ 　 　　　/:::::::::::::／/／　　`､::r､:::ﾞ,　 　　　Common Lispの処理系を使って
───　　.l ヽ　　　 ,’::::::::::::iﾞ　 ○　　　　`’　i::::i　　　　　　　Cで書いたプログラムを動かす
　 　 　 　 　＼ ＼ 　 !::::::::::::|　　　　　　　○　l::::|　　／ 〉　画期的な方法を思いついたでー
───　　　　ﾞ／ ＼!::::::::::::!　　 ,.._　　　　　　!:::!／＼/　
　　　　　　　　ヽ／　 ＼::::::::!　　 !　｀`”7　　　 !::|　＼/
────　　　ヽ　　　 |::::::| 　　l,　　 /　　　ノ::i　　/
　 　 　 　 　　　　`､　　 i:::::l､ヽ.,_ `”””　 _,..イ:::::i　 /
─────　　　 ﾞ､　　ヽ;i ＼ヽ,.二l￣_,l　 |:::/　/ 　
　　　　　　　　　　　 ﾞ､　　　　　ヽ`､ |　／　 ﾚ’　/
──────　　　 ﾞ､ ／ 　 　　`ﾛ””　　i.　 /
　　　　　　　　　　　　　/　　　　　　||　　 　|／
───────　　/ 　 　 　 　　||　　　 | 
// "hello-world.c"
// (defvar /* nil)
/*
(set-macro-character #\*
#'(lambda (stream char)
(declare (ignore char))
(read-char stream)
(with-open-file (fs "koreha-hidoi.c"
:direction :output
:if-exists :error)
(do ((line (read-line stream nil :eof)
(read-line stream nil :eof)))
((eq line :eof))
(write-line line fs)))
#+clisp(ext:run-shell-command "gcc koreha-hidoi.c -o koreha-hidoi" :output nil)
#+clisp(ext:run-shell-command "koreha-hidoi")
))
(values)
*/
#include <stdio.h>
int main()
{
printf("hello, world\n");
return 0;
}
　　　　　　　　　　／::::::::::::::::::::::::
　　　　　　　 　／:::::::/::/::ヽ::i:::::::
　　　　　　 　 /::::/::/l:/　　|::|_!::i:
　　　　　　　 l::::ﾚl/｀`　　 ‘´l:! |::|　　　　このソース、前半はCLのプログラムに見えるけど、
　　　　　　　 |::::|　 ┃　　┃　 ﾞi:!　　　　後半はCのプログラムに見えるんや。
　 　 　 　 　 |:::j.　 ┃　　┃
　　　　　　　|::/
　　　　　　　|〈　　　 ＿_　　　 ∪|　　　　でも、CLの部分は全部コメントアウトされてるし、
　　　　　　　|:::ヽ.　　L…__）　　　 |:　　何よりも冒頭に “hello-world.c” って書いてあるから、
　　　　　　　|:::::::::ﾞヽ､　　　 _,､-‘ﾞ|:　　多くの人はCのソースと思ってコンパイルするやろ…
　　　　　　　|:::::::::|i::::i::フ|”´　　 |::
　　　　　　　|:::::::::||:／ /|　　　　|::
　　　　　　　.!:i::::::|　　/__—／|::::
　　　　　　　 〉ﾄ､::|　/ 　 ／ 　 |::::
　　　　　　 r’　| ヾ! / ／　　ト/／ 
$ gcc hello-world.c -o hello-world
$ ./hello-world
hello, world
$

　　　　　　　　　　,. -───-: ､
　 　 　　　　　 ／::::::::::::::::::::::::::::::::＼
　 　 　 　 　 / ”:::::::::::::::::::::::::::::::””’　ヽ
　 　 　 　 　!::::::::::ｨ::ハ:::;::::::::::::::::::::::::::!
　　　　　　 i::|:::i::/l/　 i;::ﾄ､:､:::i:::::::::::::::i 　でも、これで終わらんと、
　　　　　　 |::i/ﾚ’-i”　 ‘ヽi-ヾ,ヽ!:::::::::::::l 　　　
　　　　　　 |::ﾊ -‐-　　　-─- i::::::::::::::l 　　CLの処理系でもちゃんと動かして欲しいんや
　　　　　　 |::::::l|　 | 　　　 |　 | |::::::::::::::!
　　　　　　 |::::::ヽ　|　r—､!　l,.!::::::::::::::l 　　
　　　　　　 l::::::::::::`;’-‘=,‐,=’r”i~!:::::::::::::::|
　 　 　 　 　!:::::::l､::r'”´’. ‘　l　’ i::::::::iヽ:::l
　　　　　　　i:l､:::|./､_＿＿＿_,l::::;l:/‐’ヽ!
　　　　　　　 ‘!ヽ;i’>l_＿＿＿,./／-‐”'”ヽ
　 　 　 　 　 　　!/ |.VVVVVVVV.lV＼!. i
　　　　　　　　　|　 |　　　　　　　　|　　　 l 
$ clisp -norc -q hello-world.c
hello, world
$

　　　　　　　　　　　　　わ　　 　 　　 　 ,..-―-､　　　　　　　　　 　動いたでー
　　　　　　　　　　　　　 | 　 　 　　　　/:::::::::::::::::l　　　　　　　
　　　　　　　　　　　　　　　　　∩　　/::::::::::::::::::::|　　 　　　,､　
　　　　　　-―-､　　　　　　　 |⌒ヽ/::::::::::::::::::::::|　 　 _／|ノ
　　　/´Ｙ　　　 （´ヽ　　,､　 　 l: : : ｉ::::::::::::::::::::::::|-―’´: :丿
　,､ _し’ l　　　　 lヽJ／|ノ　　　＼: |∧／l／|ノﾚ : : : :／　　　
　Ｙ: : ｀ｰ｀ｰ-―’´一’: : |　　　　　/: : : : : : : : : : ::i-‐’′　　　
　 ＼: : : : : : : : : : : : ／　　　 　 /: : : : : : : : : : : |　　 　
　　　Ｙ: : : : : : : : :r’´　　　　　　/: : : : : : : : : : : :|
　 　/: : : : : : : : : :|　　　　　　 /: : : : : : : : : : : : |
　　/:: : : : : : : : : ::|　　　　　　/ : : : : : : : : : : : : |
　 /: : : : : : : : : : : |　　　　　 /: ::＿: : : : : : : : : :|
　 ｀７７ｰ–┬r一’　　　　　　￣/ /￣｀ｰ-┬r-‘
　　l’´）　　 ├|　　　　 　 　 　 l’´）　　　　　|~|
　　し’　　　 (ﾆ⊃　　　　　　　 し’　　　　　 (ﾆ⊃
　　　　　　　 ,､-‐”””　｀｀｀｀”””::::｀`丶､
　　　　　.,､ ‘´　　　　　　　　　　　｀ ､::::::`:,､
　　　　,､’_　　 　　　　　　　　　　　　　ゝ､‐’`､
　　　 / 　” ”” ‐‐ ‐ ‐‐,､‐‐__”,,”,,’,,,”_´_　　　 ‘､
　　　,’‐ ,‐ -,‐ ””.ｨ'”／ l’､　ヽ.. ＼　　　｀｀｀::::.､’,
　　　!　{　 :/l ..::/i’../　　|＼:..’､::.　＼　　　　:::::::::i
　 　.i　 ! .::〔_!:::;’ i’:/. 　　’､ ＼ヽ＼ヽﾍ　|　 　::::::::|
　　 .|　.l ::/　!,ヘ,l/_　　　ヽ _,,>;＜,;ヽ＼| 　　 :::::::| 　　　　ソースの中に “gcc” って
　 　 !　|::/ ,r”r’´´ヾ　　　　””ｒ'”｀ヾ`､　i 　 　::::::::| 　　　書いてあるのを
　 　 |　;/i, ii’ {､ 　　{　　　　　{､ 　　.{　}i:|　　　::::::::l　　　　気にしたらあかんからな
　 　 i　 ‘. {‘i!, ‘､ ソ0} 　　　 　 ;丶 ﾉ0} ﾉ!:|　　　 :::::::|
　　　l　　 i　,,,,ゞ,､､’,;;;;;;;;;;;;::::;,,,,ゞ -､’､.:|　　　 ::::::::i
　　　i　　 l　　　 ”””´´´｀゛゛゛´´　　　 ..::|　　　 ::::::::|
　　　l 　　’.　　 　 　 　 `　　　　　　　.::､_|　　　 :::::::::!
　　　}.　　 `.､　　　　 ､–‐,丶 　　 .:::;､’::i’　　　 ::::::::::!
　　　|　　 　::::`..､ 　　 `”'”　 　　,､‐”l:::::i　　 　..::::::::::!　　　
　 　 .|　　　 ::::::::::::`:‐.､,,,,,,,,､ – ”´:::::::::l:::i　 　 : :::::::::::::!　　　 　　
　　　 !　:. 　::::::::::::::::::::::::i::::::::::::::::::::;::::::ヽi　　 ::;.::::::::::::::!
　　　 l　:::.　:::::::::::::::::::::::::l ::::::::::: ‘”,’:::::::::i’　　.:::::::::::::::::::l
　　　 i　::::.　:::::::::;､:::::::::,､’!　　 　,:’::::::::,､i　　.:::::::::::::::::::::}
　　 　 ! ::::::.　::::::::ヽ／|,,､i　 ,;;;;;;;;;;;;;;／ｲ 　.::::::ﾉﾉ＼::::::}
　　　　’､ ､::::. :::::,イ i’i’　　 `”´　　.//´i　.::::::y”ｿ⌒｀`ヾ.
　　　　 ヽヾ､.. :::i i’ i’_‐_-_-_-_- .//　 i ..::::／　　 　　:::::’,
　　　　　 ヽ､ヽ:::〈　　i’i’r;; i’i’　｀｀”　　ﾉイ’/　　　　　　::::::’,
　　　　　　 ` /ヽヽ　i’i’ `’ i’i’　　 　 ;､　//　　　　　　　::::::}

This entry was posted on 火曜日, 12月 9th, 2008 at 1:14 AM and is filed under プログラミング. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

Leave a Reply