line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
## Graph.pm is a graphing package that supports on-the-fly graphing |
2
|
|
|
|
|
|
|
## from the gnuplot, XRT, and Xmgrace graphing packages. |
3
|
|
|
|
|
|
|
## |
4
|
|
|
|
|
|
|
## $Id: Graph.pm,v 1.48 2006/06/07 21:09:32 emile Exp $ $Name: $ |
5
|
|
|
|
|
|
|
## |
6
|
|
|
|
|
|
|
## This software product is developed by Michael Young and David Moore, |
7
|
|
|
|
|
|
|
## and copyrighted(C) 1998 by the University of California, San Diego |
8
|
|
|
|
|
|
|
## (UCSD), with all rights reserved. UCSD administers the CAIDA grant, |
9
|
|
|
|
|
|
|
## NCR-9711092, under which part of this code was developed. |
10
|
|
|
|
|
|
|
## |
11
|
|
|
|
|
|
|
## There is no charge for this software. You can redistribute it and/or |
12
|
|
|
|
|
|
|
## modify it under the terms of the GNU General Public License, v. 2 dated |
13
|
|
|
|
|
|
|
## June 1991 which is incorporated by reference herein. This software is |
14
|
|
|
|
|
|
|
## distributed WITHOUT ANY WARRANTY, IMPLIED OR EXPRESS, OF MERCHANTABILITY |
15
|
|
|
|
|
|
|
## OR FITNESS FOR A PARTICULAR PURPOSE or that the use of it will not |
16
|
|
|
|
|
|
|
## infringe on any third party's intellectual property rights. |
17
|
|
|
|
|
|
|
## |
18
|
|
|
|
|
|
|
## You should have received a copy of the GNU GPL along with this program. |
19
|
|
|
|
|
|
|
## |
20
|
|
|
|
|
|
|
## IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY |
21
|
|
|
|
|
|
|
## PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL |
22
|
|
|
|
|
|
|
## DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF THIS |
23
|
|
|
|
|
|
|
## SOFTWARE, EVEN IF THE UNIVERSITY OF CALIFORNIA HAS BEEN ADVISED OF |
24
|
|
|
|
|
|
|
## THE POSSIBILITY OF SUCH DAMAGE. |
25
|
|
|
|
|
|
|
## |
26
|
|
|
|
|
|
|
## THE SOFTWARE PROVIDED HEREIN IS ON AN "AS IS" BASIS, AND THE |
27
|
|
|
|
|
|
|
## UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO PROVIDE MAINTENANCE, |
28
|
|
|
|
|
|
|
## SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. THE UNIVERSITY |
29
|
|
|
|
|
|
|
## OF CALIFORNIA MAKES NO REPRESENTATIONS AND EXTENDS NO WARRANTIES |
30
|
|
|
|
|
|
|
## OF ANY KIND, EITHER IMPLIED OR EXPRESS, INCLUDING, BUT NOT LIMITED |
31
|
|
|
|
|
|
|
## TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A |
32
|
|
|
|
|
|
|
## PARTICULAR PURPOSE, OR THAT THE USE OF THE SOFTWARE WILL NOT INFRINGE |
33
|
|
|
|
|
|
|
## ANY PATENT, TRADEMARK OR OTHER RIGHTS. |
34
|
|
|
|
|
|
|
## |
35
|
|
|
|
|
|
|
## |
36
|
|
|
|
|
|
|
## Contact: graph-dev@caida.org |
37
|
|
|
|
|
|
|
## |
38
|
|
|
|
|
|
|
## |
39
|
|
|
|
|
|
|
package Chart::Graph; |
40
|
4
|
|
|
4
|
|
20276
|
use Exporter(); |
|
4
|
|
|
|
|
9
|
|
|
4
|
|
|
|
|
464
|
|
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
$VERSION = '3.2'; |
43
|
|
|
|
|
|
|
@ISA = qw(Exporter); |
44
|
|
|
|
|
|
|
@EXPORT = qw(); |
45
|
|
|
|
|
|
|
@EXPORT_OK = qw(&gnuplot &xrt3d &xrt2d &xmgrace); |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
$cvs_Id = '$Id: Graph.pm,v 1.48 2006/06/07 21:09:32 emile Exp $'; |
48
|
|
|
|
|
|
|
$cvs_Author = '$Author: emile $'; |
49
|
|
|
|
|
|
|
$cvs_Name = '$Name: $'; |
50
|
|
|
|
|
|
|
$cvs_Revision = '$Revision: 1.48 $'; |
51
|
|
|
|
|
|
|
|
52
|
4
|
|
|
4
|
|
2612
|
use Chart::Graph::Utils qw(:USER); |
|
4
|
|
|
|
|
11
|
|
|
4
|
|
|
|
|
5819
|
|
53
|
4
|
|
|
4
|
|
4365
|
use Chart::Graph::Gnuplot qw(&gnuplot); |
|
4
|
|
|
|
|
16
|
|
|
4
|
|
|
|
|
851
|
|
54
|
4
|
|
|
4
|
|
4083
|
use Chart::Graph::Xrt2d qw(&xrt2d); |
|
4
|
|
|
|
|
14
|
|
|
4
|
|
|
|
|
500
|
|
55
|
4
|
|
|
4
|
|
28627
|
use Chart::Graph::Xrt3d qw(&xrt3d); |
|
4
|
|
|
|
|
16
|
|
|
4
|
|
|
|
|
515
|
|
56
|
4
|
|
|
4
|
|
4806
|
use Chart::Graph::Xmgrace qw(&xmgrace); |
|
4
|
|
|
|
|
15
|
|
|
4
|
|
|
|
|
965
|
|
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
# Create "global" variables for use in various parts of Chart-Graph. |
59
|
|
|
|
|
|
|
# use vars qw($debug $save_tmpfiles); |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
# debug level, people can set this with $Chart::Graph::debug = 1; after the |
62
|
|
|
|
|
|
|
# use Graph; to increase debug output. |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
$debug = 0; # turn debug mesg off by default |
65
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
# set this with $Chart::Graph::save_tmpfiles = 1; after use Graph; to keep |
67
|
|
|
|
|
|
|
# temporary (command) files used by the graphing packages around |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
$save_tmpfiles = 0; # turn tmpfiles off by default |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
1; |
73
|
|
|
|
|
|
|
__END__ |