examples/gruff/gruff_run.sh examples/gruff/stat_run.sh @@ -1,18 +1,18 @@ -module(gruff). -export([start/0, stop/0, plot/4]). -start() -> - spawn(fun() -> - register(gruff, self()), - process_flag(trap_exit, true), +start() -> + spawn(fun() -> + register(gruff, self()), + process_flag(trap_exit, true), Cmd = "ruby ./gruff_provider.rb", - Port = open_port({spawn, Cmd}, [{packet, 4}, nouse_stdio, exit_status, binary]), - port_loop(Port) - end). + Port = open_port({spawn, Cmd}, [{packet, 4}, nouse_stdio, exit_status, binary]), + port_loop(Port) + end). -stop() -> gruff ! stop. +stop() -> gruff ! stop. -plot(Name, Font, Data, Labels) -> +plot(Name, Font, Data, Labels) -> gruff ! {plot, self(), Name, Font, Data, Labels}, receive {result, Bin} -> Bin @@ -28,7 +28,6 @@ send_labels(Port, Labels) -> Data = {labels, Labels}, Port ! {self(), {command, term_to_binary(Data)}}. - port_loop(Port) -> receive {plot, Caller, Name, Font, Data, Labels} -> @@ -37,18 +36,18 @@ port_loop(Port) -> send_data(Port, Data), send_labels(Port, Labels), - + EndData = term_to_binary('end'), Port ! {self(), {command, EndData}}, Result = get_result(Port), Caller ! {result, Result }, - + port_loop(Port); - - stop -> - Port ! {self(), close}, - receive - {Port, closed} -> exit(normal) + + stop -> + Port ! {self(), close}, + receive + {Port, closed} -> exit(normal) end end. @@ -57,6 +56,6 @@ get_result(Port) -> {Port, {data, Data}} -> {result, Bin} = binary_to_term(Data), Bin; - {'EXIT', Port, Reason} -> + {'EXIT', Port, Reason} -> exit({port_terminated,Reason}) end. \ No newline at end of file examples/gruff/gruff.erl @@ -1,4 +1,5 @@ -$:.unshift(File.dirname(__FILE__) + "/../../lib/") +$:.unshift File.join(File.dirname(__FILE__), *%w[../../lib]) + require 'erlectricity' require 'rubygems' require 'gruff' examples/gruff/gruff_provider.rb @@ -3,8 +3,8 @@ start(Title, Fun) -> spawn(?MODULE, loop, [Title, Fun, []]). - -loop(Title, Fun, []) -> + +loop(Title, Fun, []) -> Data = accumulate([], Fun()), loop(Title, Fun, Data, 0). @@ -12,12 +12,12 @@ loop(Title, Fun, Data, Generation) -> receive {stop} -> ok after 3000 -> - NewGeneration = Generation + 1, + NewGeneration = Generation + 1, NewData = accumulate(Data, Fun()), NewChart = gruff:plot( - list_to_binary([Title, << "- Generation" >>, integer_to_list(NewGeneration)]), - <<"/Users/scott/Library/Fonts/Arial">>, - NewData, + list_to_binary([Title, << "- Generation" >>, integer_to_list(NewGeneration)]), + <<"/Users/scott/Library/Fonts/Arial">>, + NewData, [] ), file:write_file(io_lib:format("~s - ~s.png", [Title, integer_to_list(NewGeneration)]),NewChart), examples/gruff/stat_writer.erl examples/gruff/gruff_run.erl examples/gruff/stat_run.erl b1124555fc7ef36ed1d329ddbd8d891a6c5a51eb Tom Preston-Werner tom@mojombo.com http://github.com/mojombo/erlectricity/commit/6a4ca190a4c99108a8c45dbb01dd30d0560d7630 6a4ca190a4c99108a8c45dbb01dd30d0560d7630 2009-04-26T11:00:20-07:00 2009-04-26T11:00:20-07:00 polish up gruff example 44573a66405cf14bf2367b161fa89b9357168586 Tom Preston-Werner tom@mojombo.com