%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2013. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
-module(cdv_proc_wx).

-export([col_to_elem/1,
	 col_spec/0,
	 get_info/1,
	 get_detail_cols/1,
	 get_details/1,
	 detail_pages/0]).

-include_lib("wx/include/wx.hrl").
-include("crashdump_viewer.hrl").

%% Columns
-define(COL_ID,  0).
-define(COL_NAME, ?COL_ID+1).
-define(COL_STATE,?COL_NAME+1).
-define(COL_REDS, ?COL_STATE+1).
-define(COL_MEM,  ?COL_REDS+1).
-define(COL_MSG,  ?COL_MEM+1).

%% Callbacks for cdv_virtual_list
col_to_elem(id) -> col_to_elem(?COL_ID);
col_to_elem(?COL_ID)  -> #proc.pid;
col_to_elem(?COL_NAME) -> #proc.name;
col_to_elem(?COL_STATE) -> #proc.state;
col_to_elem(?COL_MEM)  -> #proc.memory;
col_to_elem(?COL_REDS) -> #proc.reds;
col_to_elem(?COL_MSG)  -> #proc.msg_q_len.

col_spec() ->
    [{"Pid", ?wxLIST_FORMAT_CENTRE,  120},
     {"Name or Initial Func", ?wxLIST_FORMAT_LEFT, 250},
     {"State", ?wxLIST_FORMAT_LEFT, 100},
     {"Reds", ?wxLIST_FORMAT_RIGHT, 100},
     {"Memory", ?wxLIST_FORMAT_RIGHT, 100},
     {"MsgQ",  ?wxLIST_FORMAT_RIGHT, 100}].

get_info(_) ->
    {ok,Info,TW} = crashdump_viewer:processes(),
    {Info,TW}.

get_detail_cols(_) ->
    {[?COL_ID],true}.

%% Callbacks for cdv_detail_win
get_details(Id) ->
    case crashdump_viewer:proc_details(Id) of
	{ok,Info,TW} ->
	    Proplist =
		crashdump_viewer:to_proplist(record_info(fields,proc),Info),
	    Title = io_lib:format("~s (~p)",[Info#proc.name, Id]),
	    {ok,{Title,Proplist,TW}};
	{error,{other_node,NodeId}} ->
	    Info = "The process you are searching for was residing on "
		"a remote node. No process information is available. "
		"Show information about the remote node?",
	    {yes_no, Info, fun()->cdv_virtual_list:start_detail_win(NodeId) end};
	{error,not_found} ->
	    Info = "The process you are searching for could not be found.",
	    {info,Info}
    end.

detail_pages() ->
    [{simple, "General Information",   fun init_gen_page/3},
     {simple, "Messages",   fun init_message_page/3},
     {simple, "Dictionary", fun init_dict_page/3},
     {simple, "Stack Dump", fun init_stack_page/3},
     {list,   "ETS tables", fun init_ets_page/3},
     {list,   "Timers",     fun init_timer_page/3}].

init_gen_page(Parent, _Pid, Info) ->
    Fields = info_fields(),
    cdv_detail_win:init_detail_page(Parent, Fields, Info).

init_message_page(Parent, Pid, _Info) ->
    init_memory_page(Parent, Pid, "MsgQueue").

init_dict_page(Parent, Pid, _Info) ->
    init_memory_page(Parent, Pid, "Dictionary").

init_stack_page(Parent, Pid, _Info) ->
    init_memory_page(Parent, Pid, "StackDump").

init_memory_page(Parent, Pid, What) ->
    Html =
	case crashdump_viewer:expand_memory(Pid,What) of
	    {ok,Memory} ->
		crashdump_viewer_html:expanded_memory(What,Memory);
	    {error,Reason} ->
		crashdump_viewer_html:warning(Reason)
	end,
    observer_lib:html_window(Parent,Html).

init_ets_page(Parent, Pid, _Info) ->
    cdv_virtual_list:start_link(Parent, cdv_ets_wx, Pid).

init_timer_page(Parent, Pid, _Info) ->
    cdv_virtual_list:start_link(Parent, cdv_timer_wx, Pid).

%%%-----------------------------------------------------------------
%%% Internal
info_fields() ->
    [{"Overview",
      [{"Initial Call",     init_func},
       {dynamic,            current_func},
       {"Registered Name",  name},
       {"Status",           state},
       {"Started",          start_time},
       {"Parent",           {click,parent}},
       {"Message Queue Len",msg_q_len},
       {"Reductions",       reds},
       {"Program counter",  prog_count},
       {"Continuation pointer",cp},
       {"Arity",arity}]},
     {scroll_boxes,
      [{"Last Calls",1,{plain,last_calls}}]},
     {scroll_boxes,
      [{"Links",1,{click,links}},
       {"Monitors",2,{click,monitors}},
       {"Monitored By",2,{click,mon_by}}]},
     {"Memory and Garbage Collection",
      [{"Memory",           memory},
       {"Stack and Heap",   stack_heap},
       {"Old Heap",         old_heap},
       {"Heap Unused",      heap_unused},
       {"Old Heap Unused",  old_heap_unused},
       {"Number of Heap Fragements", num_heap_frag},
       {"Heap Fragment Data",heap_frag_data},
       {"New Heap Start",   new_heap_start},
       {"New Heap Top",     new_heap_top},
       {"Stack Top",        stack_top},
       {"Stack End",        stack_end},
       {"Old Heap Start",   old_heap_start},
       {"Old Heap Top",     old_heap_top},
       {"Old Heap End",     old_heap_end}]}].