-module(tickplus).

-compile([export_all]).

%%% Tick data loader for 
%%% http://www.regisdata.co.uk/tickdata.htm

%%% <Type>,<Date>,<Time>,<Price>,<Size>
%%% TRADE,20040901,00:02:01,1105.25,,1

load(Symbol, File) when is_list(File) ->
    {ok, DB} = tickdb:start(),
    {ok, B} = file:read_file(File),
    {Elapsed, V} = timer:tc(tickplus, load, [DB, Symbol, B]),
    %%load(Symbol, B);
    io:format("~w: ~.6. fms~n", [V, Elapsed / 1000]),
    tickdb:stop(DB).
    
load(_DB, _Symbol, <<>>) ->
    done;

load(DB, Symbol, B) when is_binary(B) ->
    {Data, Rest} = text:read_line(B),
    load_data(DB, Symbol, Data),
    load(DB, Symbol, Rest).

load_data(DB, Symbol, <<"TRADE,", B/binary>>) ->
    {_, B1} = text:read_word(B, $,), % skip
    {Date, B2} = text:read_date(B1, $,),
    {Time, B3} = text:read_time(B2, $,),
    {Price, B4} = text:read_price(B3, $,),
    {_, B5} = text:read_word(B4, $,),
    {Size, _} = text:read_number(B5, $,),
    ok = gen_server:cast(DB, {'ADD', 
			      tick, % series name
			      Date, Time, 
			      {tickplus, Symbol}, % key
			      [{price, Price},
			       {size, Size}]});

load_data(_DB, _Symbol, _) ->
    skip.