[p5sagit/Devel-Size.git] / static / MemView.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Mojolicious::Lite;

use ORLite {
    file => '../x.db',
    package => "MemView",
    #user_version => 1,
    readonly => 1,
    #unicode => 1,
};

# Documentation browser under "/perldoc"
plugin 'PODRenderer';

get '/' => sub {
    my $self = shift;
    $self->render('index');
};

get '/jit_tree/:id/:depth' => sub {
    my $self = shift;
    my $id = $self->stash('id');
    my $depth = $self->stash('depth');
    warn "jit_tree $id $depth";
    my $jit_tree = _fetch_node($id, $depth, sub {
        my ($node, $children) = @_;
        $node->{'$area'} = $node->{self_size}+$node->{kids_size};
        $node->{child_count} = @$children if $children;
        my $jit_node = {
            id   => $node->{id},
            name => $node->{name},
            data => $node,
        };
        $jit_node->{children} = $children if $children;
        return $jit_node;
    });
if(1){
    use Devel::Dwarn;
    use Data::Dump qw(pp);
    local $jit_tree->{children};
    pp($jit_tree);
}
    $self->render_json($jit_tree);
};

sub _fetch_node {
    my ($id, $depth, $transform) = @_;
    my $node = MemView->selectrow_hashref("select * from node where id = ?", undef, $id);
    my $children;
    if ($depth && $node->{child_seqns}) {
        my @child_seqns = split /,/, $node->{child_seqns};
        $children = [ map { _fetch_node($_, $depth-1, $transform) } @child_seqns ];
    }
    $node = $transform->($node, $children) if $transform;
    return $node;
}


app->start;
__DATA__
@@ index.html.ep
% layout 'default';
% title 'Welcome';
Welcome to the Mojolicious real-time web framework!

@@ layouts/default.html.ep
<!DOCTYPE html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>Perl Memory Treemap</title>

<!-- CSS Files -->
<link type="text/css" href="css/base.css" rel="stylesheet" />
<link type="text/css" href="css/Treemap.css" rel="stylesheet" />

<!--[if IE]><script language="javascript" type="text/javascript" src="excanvas.js"></script><![endif]-->

<!-- JIT Library File -->
<script language="javascript" type="text/javascript" src="jit.js"></script>
<script language="javascript" type="text/javascript" src="//ajax.googleapis.com/ajax/libs/jquery/1.8.1/jquery.min.js"></script>

<!-- Example File -->
<script language="javascript" type="text/javascript" src="sprintf.js"></script>
<script language="javascript" type="text/javascript" src="tm.js"></script>
</head>

<body onload="init();">
<div id="container">

<div id="left-container">

<div class="text">
<h4>
Perl Memory TreeMap
</h4> 
    Clicking on a node will show a new TreeMap with the contents of that node.<br /><br />            
</div>

<a id="back" href="#" class="theme button white">Go to Parent</a>
</div>

<div id="center-container">
    <div id="infovis"></div>    
</div>

<div id="right-container">

<div id="inner-details"></div>

</div>

<div id="log"></div>
</div>
</body>
</html>
Commit	Line	Data
b2fc39a5	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 $jit_tree = _fetch_node($id, $depth, sub {
bb66f8a1	30	my ($node, $children) = @_;
	31	$node->{'$area'} = $node->{self_size}+$node->{kids_size};
	32	$node->{child_count} = @$children if $children;
	33	my $jit_node = {
	34	id => $node->{id},
	35	name => $node->{name},
	36	data => $node,
	37	};
	38	$jit_node->{children} = $children if $children;
	39	return $jit_node;
b2fc39a5	40	});
bb66f8a1	41	if(1){
	42	use Devel::Dwarn;
	43	use Data::Dump qw(pp);
	44	local $jit_tree->{children};
	45	pp($jit_tree);
	46	}
b2fc39a5	47	$self->render_json($jit_tree);
	48	};
	49
	50	sub _fetch_node {
	51	my ($id, $depth, $transform) = @_;
	52	my $node = MemView->selectrow_hashref("select * from node where id = ?", undef, $id);
bb66f8a1	53	my $children;
b2fc39a5	54	if ($depth && $node->{child_seqns}) {
b2fc39a5	55	my @child_seqns = split /,/, $node->{child_seqns};
bb66f8a1	56	$children = [ map { _fetch_node($_, $depth-1, $transform) } @child_seqns ];
b2fc39a5	57	}
bb66f8a1	58	$node = $transform->($node, $children) if $transform;
b2fc39a5	59	return $node;
	60	}
	61
	62
	63	app->start;
	64	__DATA__
	65	@@ index.html.ep
	66	% layout 'default';
	67	% title 'Welcome';
	68	Welcome to the Mojolicious real-time web framework!
	69
	70	@@ layouts/default.html.ep
	71	<!DOCTYPE html>
	72	<head>
	73	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
bb66f8a1	74	<title>Perl Memory Treemap</title>
b2fc39a5	75
	76	<!-- CSS Files -->
	77	<link type="text/css" href="css/base.css" rel="stylesheet" />
	78	<link type="text/css" href="css/Treemap.css" rel="stylesheet" />
	79
	80	<!--[if IE]><script language="javascript" type="text/javascript" src="excanvas.js"></script><![endif]-->
	81
	82	<!-- JIT Library File -->
	83	<script language="javascript" type="text/javascript" src="jit.js"></script>
	84	<script language="javascript" type="text/javascript" src="//ajax.googleapis.com/ajax/libs/jquery/1.8.1/jquery.min.js"></script>
	85
	86	<!-- Example File -->
bb66f8a1	87	<script language="javascript" type="text/javascript" src="sprintf.js"></script>
b2fc39a5	88	<script language="javascript" type="text/javascript" src="tm.js"></script>
	89	</head>
	90
	91	<body onload="init();">
	92	<div id="container">
	93
	94	<div id="left-container">
	95
b2fc39a5	96	<div class="text">
b2fc39a5	97	<h4>
bb66f8a1	98	Perl Memory TreeMap
b2fc39a5	99	</h4>
bb66f8a1	100	Clicking on a node will show a new TreeMap with the contents of that node.<br /><br />
b2fc39a5	101	</div>
	102
	103	<a id="back" href="#" class="theme button white">Go to Parent</a>
b2fc39a5	104	</div>
	105
	106	<div id="center-container">
	107	<div id="infovis"></div>
	108	</div>
	109
	110	<div id="right-container">
	111
	112	<div id="inner-details"></div>
	113
	114	</div>
	115
	116	<div id="log"></div>
	117	</div>
	118	</body>
	119	</html>