static/MemView.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Mojolicious::Lite;
   7
   8 use ORLite {
   9     file => '../x.db',
  10     package => "MemView",
  11     #user_version => 1,
  12     readonly => 1,
  13     #unicode => 1,
  14 };
  15
  16 # Documentation browser under "/perldoc"
  17 plugin 'PODRenderer';
  18
  19 get '/' => sub {
  20     my $self = shift;
  21     $self->render('index');
  22 };
  23
  24 get '/jit_tree/:id/:depth' => sub {
  25     my $self = shift;
  26     my $id = $self->stash('id');
  27     my $depth = $self->stash('depth');
  28     warn "jit_tree $id $depth";
  29     my $node_tree = _fetch_node_tree($id, $depth);
  30     my $jit_tree = _transform_node_tree($node_tree, sub {
  31         my ($node) = @_;
  32         my $children = delete $node->{children}; # XXX edits the src tree
  33         $node->{'$area'} = $node->{self_size}+$node->{kids_size};
  34         my $jit_node = {
  35             id   => $node->{id},
  36             name => $node->{name},
  37             data => $node,
  38         };
  39         $jit_node->{children} = $children if $children;
  40         return $jit_node;
  41     });
  42 if(1){
  43     use Devel::Dwarn;
  44     use Data::Dump qw(pp);
  45     local $jit_tree->{children};
  46     pp($jit_tree);
  47 }
  48     $self->render_json($jit_tree);
  49 };
  50
  51 sub _fetch_node_tree {
  52     my ($id, $depth) = @_;
  53     my $node = MemView->selectrow_hashref("select * from node where id = ?", undef, $id)
  54         or die "Node '$id' not found";
  55     if ($node->{child_seqns}) {
  56         my @child_seqns = split /,/, $node->{child_seqns};
  57         my $children;
  58         if (@child_seqns == 1) {
  59             my $child = _fetch_node_tree($child_seqns[0], $depth); # same depth
  60             # merge node into child
  61             # XXX id, depth, parent_seqn
  62             warn "Merged $node->{name} #$node->{id} with only child $child->{name} #$child->{id}\n";
  63             $child->{name} = "$node->{name} + $child->{name}";
  64             $child->{$_} += $node->{$_} for (qw(self_size));
  65             $child->{$_}  = $node->{$_} for (qw(parent_seqn));
  66             $node = $child;
  67         }
  68         elsif ($depth) {
  69             $children = [ map { _fetch_node_tree($_, $depth-1) } @child_seqns ];
  70             $node->{children} = $children;
  71             $node->{child_count} = @$children;
  72         }
  73     }
  74     return $node;
  75 }
  76
  77 sub _transform_node_tree {  # recurse depth first
  78     my ($node, $transform) = @_;
  79     if (my $children = $node->{children}) {
  80         $_ = _transform_node_tree($_, $transform) for @$children;
  81     }
  82     return $transform->($node);
  83 }
  84
  85
  86 app->start;
  87 __DATA__
  88 @@ index.html.ep
  89 % layout 'default';
  90 % title 'Welcome';
  91 Welcome to the Mojolicious real-time web framework!
  92
  93 @@ layouts/default.html.ep
  94 <!DOCTYPE html>
  95 <head>
  96 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
  97 <title>Perl Memory Treemap</title>
  98
  99 <!-- CSS Files -->
 100 <link type="text/css" href="css/base.css" rel="stylesheet" />
 101 <link type="text/css" href="css/Treemap.css" rel="stylesheet" />
 102
 103 <!--[if IE]><script language="javascript" type="text/javascript" src="excanvas.js"></script><![endif]-->
 104
 105 <!-- JIT Library File -->
 106 <script language="javascript" type="text/javascript" src="jit.js"></script>
 107 <script language="javascript" type="text/javascript" src="//ajax.googleapis.com/ajax/libs/jquery/1.8.1/jquery.min.js"></script>
 108
 109 <!-- Example File -->
 110 <script language="javascript" type="text/javascript" src="sprintf.js"></script>
 111 <script language="javascript" type="text/javascript" src="tm.js"></script>
 112 </head>
 113
 114 <body onload="init();">
 115 <div id="container">
 116
 117 <div id="left-container">
 118
 119 <div class="text">
 120 <h4>
 121 Perl Memory TreeMap
 122 </h4>
 123     Clicking on a node will show a new TreeMap with the contents of that node.<br /><br />
 124 </div>
 125
 126 <a id="back" href="#" class="theme button white">Go to Parent</a>
 127 </div>
 128
 129 <div id="center-container">
 130     <div id="infovis"></div>
 131 </div>
 132
 133 <div id="right-container">
 134
 135 <div id="inner-details"></div>
 136
 137 </div>
 138
 139 <div id="log"></div>
 140 </div>
 141 </body>
 142 </html>