通讯编程

开发平台：

Visual C++

xgraph.pl：源码内容

							sub plotPreamble {
    my($OUT, $title, $xlabel, $xrange, $ylabel, $yrange) = @_;
#    if (defined($ENV{'DISPLAY'})) {
# 	writeln('set terminal x11');
#    } else {
# 	writeln('set terminal postscript');
# 	writeln('set output "', $file, '.ps"');
#    }
    print $OUT <<EOH
TitleText: $title
Device: Postscript
BoundBox: true
Ticks: true
Markers: true
XUnitText: $xlabel
YUnitText: $ylabel
EOH
    ;
    print $OUT "NoLines: truen"	if (defined($opt_q));
}
sub plot {
    my($OUT, $append, $file, $ins, @vals) = @_;
    if ($ins =~ /plots+(d+)s*/) {
	$point = shift @vals;
	$max = $1 - 1;
	foreach $i (1..$max) {
	    plot($OUT, $append, "skip-$i", '', $point);
	}
	plot($OUT, $append, 'skip-' . ++$max, '', $point)	if ($#vals < $[);
    }
    print $OUT "n"$filen", @vals if ($#vals >= $[);
}
%linkFails = %linkRecov = ();
sub plotFails {
    my($OUT, $minY, $maxY, $tag, @vals) = @_;
    if ($#vals >= $[) {
	foreach $i (@vals) {
	    push(@{$linkFails{$tag}}, "move $i $minYn", "draw $i $maxYn");
	}
    }
}
sub plotRecov {
    my($OUT, $minY, $maxY, $tag, @vals) = @_;
    if ($#vals >= $[) {
	foreach $i (@vals) {
	    push(@{$linkRecov{$tag}}, "move $i $minYn", "draw $i $maxYn");
	}
    }
}
sub plotPostamble {
    my($OUT) = shift @_;
    print $OUT "Nolines: truen";
    foreach $i (keys %linkFails) {
	plot($OUT, 0, 'link ' . $i . ' fail', '', @{$linkFails{$i}});
    }
    foreach $i (keys %linkRecov) {
	plot($OUT, 0, 'link ' . $i . ' recovery', '', @{$linkRecov{$i}});
    }
    close(OUT);
}
1;

						