/
main.pl
83 lines (63 loc) · 2.18 KB
/
main.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
#!/usr/bin/perl
#======================================
# author : sean chen
# mail : funningboy@gmail.com
# publish : 2010/12/03
#
# how to use it?
# perl main.pl
# dot -Tpng cc.dot > cc.png
#
# require : graphviz http://www.graphviz.org/
#======================================
use CDFG;
use strict;
use Data::Dumper;
my $tt = CDFG->new();
$tt->set_time_weighted_vertex('#::0',0);
$tt->set_time_weighted_vertex('*::0',0);
$tt->set_time_weighted_vertex('*::1',0);
$tt->set_time_weighted_vertex('*::2',0);
$tt->set_time_weighted_vertex('*::3',0);
$tt->set_time_weighted_vertex('+::0',0);
$tt->set_time_weighted_vertex('*::4',0);
$tt->set_time_weighted_vertex('*::5',0);
$tt->set_time_weighted_vertex('+::1',0);
$tt->set_time_weighted_vertex('<::0',0);
$tt->set_time_weighted_vertex('-::0',0);
$tt->set_time_weighted_vertex('-::1',0);
$tt->set_time_weighted_vertex('#::1',0);
$tt->set_time_weighted_edge('#::0','*::0',0);
$tt->set_time_weighted_edge('#::0','*::1',0);
$tt->set_time_weighted_edge('#::0','*::2',0);
$tt->set_time_weighted_edge('#::0','*::3',2);
$tt->set_time_weighted_edge('#::0','+::0',0);
$tt->set_time_weighted_edge('*::0','*::4',2);
$tt->set_time_weighted_edge('*::1','*::4',2);
$tt->set_time_weighted_edge('*::2','*::5',2);
$tt->set_time_weighted_edge('*::3','+::1',2);
$tt->set_time_weighted_edge('+::0','<::0',1);
$tt->set_time_weighted_edge('*::4','-::0',2);
$tt->set_time_weighted_edge('-::0','-::1',1);
$tt->set_time_weighted_edge('*::5','-::1',2);
$tt->set_time_weighted_edge('-::1','#::1',1);
$tt->set_time_weighted_edge('+::1','#::1',1);
$tt->set_time_weighted_edge('<::0','#::1',1);
# initial set
$tt->run_time_weighted_ini();
# ASAP flow
$tt->run_time_weighted_test();
$tt->run_time_weighted_ASAP();
$tt->rst_time_weighted_ASAP();
# dump or not
$tt->dump_ASAP_graphviz_file('ASAP.dot');
# ALAP flow
$tt->run_time_weighted_test();
$tt->run_time_weighted_max_path();
$tt->run_time_weighted_ALAP();
$tt->rst_time_weighted_ALAP();
# dump or not
$tt->dump_ALAP_grpahviz_file('ALAP.dot');
# report
my $rpt = $tt->run_report();
print Dumper($rpt);