Widget:Google Street View

そこでふと、以前に「様々なプログラミングパラダイムを全てプロセスとメッセージ送信に還元していくのが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.