Adding scripts

- app_deps for application dependencies
- erl_crashdump_analyzer.sh for quick crashdump diagnostics

Author: ferd

script/app_deps.erl

@@ -0,0 +1,65 @@
+%%% Run with 'escript app_deps.erl'
+%%% Change the path in filelib:wildcard/1 as required to capture
+%%% all your dependencies.
+%%%
+%%% Rectangular nodes will represent library apps (no processes
+%%% involved) and the circular nodes will represent regular apps.
+%%% An arrow going from 'A -> B' means 'A depends on B'.
+%%%
+%%% This script depends on graphviz being present on the system.
+-module(app_deps).
+-export([main/1]).
+
+main(_) ->
+    AppFiles = filelib:wildcard("deps/*/ebin/*.app")
+               ++
+               filelib:wildcard("ebin/*.app"),
+    to_graphviz(read_deps(AppFiles)).
+
+read_deps(AppFiles) ->
+    [{App,
+      proplists:get_value(applications, Props, []),
+      apptype(Props)}
+     || {ok, [{_,App,Props}]} <-
+        [file:consult(AppFile) || AppFile <- AppFiles]].
+
+apptype(Props) ->
+    case proplists:get_value(mod, Props) of
+        undefined -> library;
+        _ -> regular
+    end.
+
+to_graphviz(Deps) ->
+    AllApps = lists:usort(lists:flatten(
+        [[{App,Type},DepList] || {App,DepList,Type} <- Deps]
+    )),
+    Bytes = ["digraph G { ",
+             "K=0.25; ratio=0.75; overlap=\"9:prism\"; ",
+             [io_lib:format("~p [shape=box] ", [App])
+              || App <- libapps(AllApps -- [kernel,stdlib])],
+             [[io_lib:format("~p->~p ", [App,Dep])
+               || Dep <- DepList -- [kernel, stdlib]]
+              || {App, DepList, _} <- Deps],
+            "}"],
+    file:write_file("app-deps.dot", Bytes),
+    os:cmd("dot app-deps.dot -Tpng -o app-deps.png").
+
+libapps([]) -> [];
+libapps([{App,library}|Apps]) -> [App|libapps(Apps)];
+libapps([{_,_}|Apps]) -> libapps(Apps);
+libapps([App|Apps]) ->
+    Dir = case code:lib_dir(App) of
+        {error, _} -> ""; % not an OTP app
+        DirPath -> DirPath
+    end,
+    Path = filename:join([Dir, "ebin", atom_to_list(App)++".app"]),
+    case lists:prefix(code:lib_dir(), Path) of
+        false ->
+            [App|libapps(Apps)]; % not OTP app, we don't care
+        true -> % deps of OTP deps: we don't care either.
+            {ok, [{_,App,Props}]} = file:consult(Path),
+            case apptype(Props) of
+                library -> [App | libapps(Apps)];
+                regular -> libapps(Apps)
+            end
+    end.

script/erl_crashdump_analyzer.sh

@@ -0,0 +1,69 @@
+#!/usr/bin/env bash
+DUMP=$1
+
+echo -e "analyzing $DUMP, generated on: " `head -2 $DUMP | tail -1` "\n"
+
+### SLOGAN ###
+grep Slogan: $DUMP -m 1
+
+### MEMORY ###
+echo -e "\nMemory:\n==="
+M=`grep -m 1 'processes' $DUMP | sed "s/processes: //"`
+let "m=$M/(1024*1024)"
+echo "  processes: $m Mb"
+M=`grep -m 1 'processes_used' $DUMP | sed "s/processes_used: //"`
+let "m=$M/(1024*1024)"
+echo "  processes_used: $m Mb"
+M=`grep -m 1 'system' $DUMP | sed "s/system: //"`
+let "m=$M/(1024*1024)"
+echo "  system: $m Mb"
+M=`grep -m 1 'atom' $DUMP | sed "s/atom: //"`
+let "m=$M/(1024*1024)"
+echo "  atom: $m Mb"
+M=`grep -m 1 'atom_used' $DUMP | sed "s/atom_used: //"`
+let "m=$M/(1024*1024)"
+echo "  atom_used: $m Mb"
+M=`grep -m 1 'binary' $DUMP | sed "s/binary: //"`
+let "m=$M/(1024*1024)"
+echo "  binary: $m Mb"
+M=`grep -m 1 'code' $DUMP | sed "s/code: //"`
+let "m=$M/(1024*1024)"
+echo "  code: $m Mb"
+M=`grep -m 1 'ets' $DUMP | sed "s/ets: //"`
+let "m=$M/(1024*1024)"
+echo "  ets: $m Mb"
+M=`grep -m 1 'total' $DUMP | sed "s/total: //"`
+let "m=$M/(1024*1024)"
+echo -e "  ---\n  total: $m Mb"
+
+### PROCESS MESSAGE QUEUES LENGTHS ###
+echo -e "\nDifferent message queue lengths (5 largest different):\n==="
+grep 'Message queue len' $DUMP | sed 's/Message queue length: //g' | sort -n -r | uniq -c | head -5 
+
+### ERROR LOGGER QUEUE LENGTH ###
+echo -e "\nError logger queue length:\n==="
+grep -C 10 'Name: error_logger' $DUMP -m 1| grep 'Message queue length' | sed 's/Message queue length: //g'
+
+
+### PORT/FILE DESCRIPTOR INFO ###
+echo -e "\nFile descriptors open:\n==="
+echo -e "  UDP: "   `grep 'Port controls linked-in driver:' $DUMP | grep 'udp_inet' | wc -l`
+echo -e "  TCP: "   `grep 'Port controls linked-in driver:' $DUMP | grep 'tcp_inet' | wc -l`
+echo -e "  Files: " `grep 'Port controls linked-in driver:' $DUMP | grep -vi 'udp_inet' | grep -vi 'tcp_inet' | wc -l`
+echo -e "  ---\n  Total: " `grep 'Port controls linked-in driver:' $DUMP | wc -l`
+
+### NUMBER OF PROCESSES ###
+echo -e "\nNumber of processes:\n==="
+grep '=proc:' $DUMP | wc -l
+
+### PROC HEAPS+STACK ###
+echo -e "\nProcesses Heap+Stack memory sizes (words) used in the VM (5 largest different):\n==="
+grep 'Stack+heap' $DUMP | sed "s/Stack+heap: //g" | sort -n -r | uniq -c | head -5
+
+### PROC OLDHEAP ###
+echo -e "\nProcesses OldHeap memory sizes (words) used in the VM (5 largest different):\n==="
+grep 'OldHeap' $DUMP | sed "s/OldHeap: //g" | sort -n -r | uniq -c | head -5
+
+### PROC STATES ###
+echo -e "\nProcess States when crashing (sum): \n==="
+grep 'State: ' $DUMP | sed "s/State: //g" | sort | uniq -c