Difference between revisions of "Widget:Google Street View"
Jump to navigation
Jump to search
(lyUDzBiztfyvHkD) |
(Felipe) |
||
| Line 1: | Line 1: | ||
| − | + | そこでふと、以前に「様々なプログラミングパラダイムを全てプロセスとメッセージ送信に還元していくのがErlang流だ」と考えたことを思い出した。そうだ、これもプロセス＋無限ループで書いてしまおう！ filerange_server File, Min, Max -> ok, Io = file:open File, read, bairny, 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. | |
Revision as of 09:33, 18 July 2012
そこでふと、以前に「様々なプログラミングパラダイムを全てプロセスとメッセージ送信に還元していくのがErlang流だ」と考えたことを思い出した。そうだ、これもプロセス＋無限ループで書いてしまおう！ filerange_server File, Min, Max -> ok, Io = file:open File, read, bairny, 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.