http://wp.serpere.info/archives/149 樹上で暮らすヘビのように生きたい Sun, 29 Jan 2012 15:44:12 +0000 hourly 1 http://wordpress.org/?v=3.3.1 http://wp.serpere.info/archives/149/comment-page-1#comment-20 14章SHOUTcastサーバのリファクタリング « へびにっき Fri, 06 Mar 2009 12:40:27 +0000 http://wp.serpere.info/?p=149#comment-20 [...] そこでふと、以前に「様々なプログラミングパラダイムを全てプロセスとメッセージ送信に還元していくのがErlang流だ」と考えたことを思い出した。そうだ、これもプロセス＋無限ループで書いてしまおう！ filerange_server(File, Min, Max) -> {ok, Io} = file:open(File, [read, binary, raw]), filerange_loop(Io, Min, Max).   filerange_loop(Io, Min, Max) -> receive {From, {pread, Offset, Size}} -> Start = Min + Offset, End = Start + Size, if End > Max -> case file:pread(Io, Start, Max - Start) of {ok, Data} -> From ! {self(), {less, Data}}; eof -> From ! {self(), {less, <<>>}} end; true -> {ok, Data} = file:pread(Io, Start, Size), From ! {self(), {exact, Data}} end, filerange_loop(Io, Min, Max); {From, close} -> From ! {self(), file:close(Io)} end. [...] [...] そこでふと、以前に「様々なプログラミングパラダイムを全てプロセスとメッセージ送信に還元していくのがErlang流だ」と考えたことを思い出した。そうだ、これもプロセス＋無限ループで書いてしまおう！ filerange_server(File, Min, Max) -> {ok, Io} = file:open(File, [read, binary, raw]), filerange_loop(Io, Min, Max).   filerange_loop(Io, Min, Max) -> receive {From, {pread, Offset, Size}} -> Start = Min + Offset, End = Start + Size, if End > Max -> case file:pread(Io, Start, Max – Start) of {ok, Data} -> From ! {self(), {less, Data}}; eof -> From ! {self(), {less, <<>>}} end; true -> {ok, Data} = file:pread(Io, Start, Size), From ! {self(), {exact, Data}} end, filerange_loop(Io, Min, Max); {From, close} -> From ! {self(), file:close(Io)} end. [...]

]]>