--- /dev/null
+#!/usr/local/bin/perl
+# (C) Hans Wolfgang Loidl, July 1995
+#############################################################################
+# Time-stamp: <Thu Oct 26 1995 18:23:00 Stardate: [-31]6498.62 hwloidl>
+#
+# Usage: SPLIT [options] <gr-file>
+#
+# Generate a set of granularity graphs out of the GrAnSim profile <gr-file>.
+# The granularity graphs are put into subdirs of the structure:
+# <basename of gr-file>-<spark-name>
+#
+# Options:
+# -s <list> ... a perl list of spark names; the given <gr-file> is scanned
+# for each given name in turn and granularity graphs are
+# generated for each of these sparks
+# -O ... use gr2RTS and RTS2gran instead of gran-extr;
+# this generates fewer output files (only granularity graphs)
+# but should be faster and far less memory consuming
+# -d <dir> ... use <dir> as basename for the sub-directories
+# -o <file> ... use <file> as basename for the generated latex files;
+# the overall result is in <file>.ps
+# -t <file> ... use <file> as gran-extr type template file
+# ('.' for local template, ',' for global template)
+# -A ... surpress generation of granularity profiles for overall .gr
+# -h ... help; print this text.
+# -v ... verbose mode.
+#
+#############################################################################
+
+require "getopts.pl";
+
+&Getopts('hvOAd:o:s:t:');
+
+do process_options();
+
+if ( $opt_v ) { do print_verbose_message(); }
+
+# ---------------------------------------------------------------------------
+# Init
+# ---------------------------------------------------------------------------
+
+$latex = "/usr/local/tex/bin/latex2e"; # or "/usr/local/tex/bin/latex2e"
+
+do all() if !$opt_A;
+
+foreach $s (@sparks) {
+ if ( -f $tmp_file ) { system "rm -f $tmp_file"; }
+ system "tf -H -s $s $gr_file > $tmp_file"
+ || die "Can't open pipe: tf -s $s $gr_file > $tmp_file\n";
+
+ if ( $opt_d ) {
+ $dir = $opt_d;
+ } else {
+ $dir = $gr_file;
+ }
+ $dir =~ s/\.gr//g;
+ $dir .= "-$s";
+
+ if ( ! -d $dir ) {
+ mkdir($dir,"755"); # system "mkdir $dir";
+ system "chmod u+rwx $dir";
+ }
+
+ system "mv $tmp_file $dir/$gr_file";
+ chdir $dir;
+ do print_template();
+ do print_va("Title",$s);
+ if ( -f $va_ps_file ) {
+ local ($old) = $va_ps_file;
+ $old =~ s/\.ps/-o.ps/g;
+ system "mv $va_ps_file $old";
+ }
+ if ( $opt_O ) {
+ system "gr2RTS -o $rts_file $gr_file; " .
+ "RTS2gran -t $template_file $rts_file; " .
+ "$latex $va_file; dvips $va_dvi_file > $va_ps_file";
+ } else {
+ system "gran-extr -t $template_file $gr_file; " .
+ "$latex $va_file; dvips $va_dvi_file > $va_ps_file";
+ }
+ chdir ".."; # system "cd ..";
+}
+
+exit 0;
+
+# -----------------------------------------------------------------------------
+
+sub all {
+
+ $dir = $gr_file;
+ $dir =~ s/\.gr//g;
+ $dir .= "-all";
+
+ if ( ! -d $dir ) {
+ mkdir($dir,"755"); # system "mkdir $dir";
+ system "chmod u+rwx $dir";
+ }
+
+ system "cp $gr_file $dir/$gr_file";
+ chdir $dir;
+ do print_template();
+ do print_va("All","all");
+ if ( -f $va_ps_file ) {
+ local ($old) = $va_ps_file;
+ $old =~ s/\.ps/-o.ps/g;
+ system "mv $va_ps_file $old";
+ }
+ if ( $opt_O ) {
+ system "gr2RTS -o $rts_file $gr_file; " .
+ "RTS2gran -t $template_file $rts_file; " .
+ "$latex $va_file; dvips $va_dvi_file > $va_ps_file";
+ } else {
+ system "gran-extr -t $template_file $gr_file; " .
+ "$latex $va_file; dvips $va_dvi_file > $va_ps_file";
+ }
+ chdir ".."; # system "cd ..";
+}
+
+# ---------------------------------------------------------------------------
+
+sub print_template {
+
+ open (TEMPL,">$template_file") || die "Can't open $template_file\n";
+
+ print TEMPL <<EOF;
+-- Originally copied from the master template: GrAn/bin/TEMPL
+-- Intervals for pure exec. times
+G: (1000, 2000, 3000, 4000, 5000, 10000, 20000, 30000, 40000, 50000, 100000, 200000, 300000)
+-- Intervals for communication (i.e. fetch) times
+F: (1000, 2000, 3000, 4000, 5000, 10000, 20000, 30000, 40000, 50000, 100000, 200000, 300000)
+-- Intervals for communication percentages
+C: (0, 1, 2, 5, 8, 10, 20, 30, 40, 50, 100)
+-- Intervals for no. of sparks
+S: (1, 2, 5)
+-- Intervals for heap allocations
+A: (10,20,30,40,50,100,200,300,400,500,1000,2000,3000)
+-- A: (100, 50000, 66000, 100000)
+
+
+g: g.dat
+f: f.dat
+c: c.dat
+s: s.dat
+a: a.dat
+
+-- Select file name corr coeff file
+Xcorr: CORR
+
+-- Select file names for GNUPLOT data files for cumulative runtime and
+-- cluster graphs
+Xcumulat-rts: cumu-rts.dat
+Xcumulat-fts: cumu-fts.dat
+Xcumulat-has: cumu-has.dat
+Xcumulat-cps: cumu-cps.dat
+Xclust-rts: clust-rts.dat
+Xclust-has: clust-has.dat
+Xclust-cps: clust-cps.dat
+
+-- Select file names for GNUPLOT data files for per proc. runnable time
+-- and per spark site runtime
+Xpe: pe.dat
+Xsn: sn.dat
+
+-- Select file names for sorted lists of runtimes, heap allocs, number of
+-- local and global sparks and communication percentage
+XRTS: RTS
+XFTS: FTS
+XHAS: HAS
+XLSPS: LSPS
+XGSPS: GSPS
+XCPS: CPS
+XCCPS: CPS
+
+-- Std log scaling
+L: .
+-- ('g',"xy",'Cg',"xy",'Ca',"xy")
+
+-- Gray level of impulses in the graph (0=black)
+i: 0.3
+
+-- Number of clusters
+k: 2
+
+-- Width of impulses (needed for gp-ext-imp)
+e: 150
+
+-- Input file
+-- -: soda.gr
+EOF
+
+ close(TEMPL);
+}
+
+# -----------------------------------------------------------------------------
+# NB: different file must be generated for $opt_O and default setup.
+# -----------------------------------------------------------------------------
+
+sub print_va {
+ local ($title, $spark) = @_;
+
+ open (VA,">$va_file") || die "Can't open $va_file\n";
+
+ if ( $opt_O ) {
+ print VA <<EOF;
+% Originally copied from master va-file: grasp/tests/va.tex
+\\documentstyle[11pt,psfig]{article}
+
+% Page Format
+\\topmargin=0cm %0.5cm
+\\textheight=24cm %22cm
+\\footskip=0cm
+\\oddsidemargin=0cm %0.75cm
+\\evensidemargin=0cm %0.75cm
+\\rightmargin=0cm %0.75cm
+\\leftmargin=0cm %0.75cm
+\\textwidth=16cm %14.5cm
+
+\\title{SPLIT}
+\\author{Me}
+\\date{Today}
+
+\\pssilent
+
+\\begin{document}
+
+\\pagestyle{empty}
+\%\\maketitle
+
+\\nopagebreak
+
+\\begin{figure}[t]
+\\begin{center}
+\\begin{tabular}{c}
+\\centerline{\\psfig{angle=270,width=7cm,file=$gran_file}}
+\\end{tabular}
+\\end{center}
+\\caption{Granularity {\\bf $spark}}
+\\end{figure}
+
+\\begin{figure}[t]
+\\begin{center}
+\\begin{tabular}{cc}
+\\psfig{angle=270,width=7cm,file=cumu-rts.ps} &
+\\psfig{angle=270,width=7cm,file=cumu-rts0.ps}
+\\end{tabular}
+\\end{center}
+\\caption{Cumulative Execution Times {\\bf $spark}}
+\\end{figure}
+
+\\end{document}
+EOF
+ } else {
+ print VA <<EOF;
+% Originally copied from master va-file: grasp/tests/va.tex
+\\documentstyle[11pt,psfig]{article}
+
+% Page Format
+\\topmargin=0cm %0.5cm
+\\textheight=24cm %22cm
+\\footskip=0cm
+\\oddsidemargin=0cm %0.75cm
+\\evensidemargin=0cm %0.75cm
+\\rightmargin=0cm %0.75cm
+\\leftmargin=0cm %0.75cm
+\\textwidth=16cm %14.5cm
+
+\\title{$title; Spark: $spark}
+\\author{}
+\\date{}
+
+\\begin{document}
+
+\\pagestyle{empty}
+%\\maketitle
+
+\\nopagebreak
+
+\\begin{figure}[t]
+\\begin{center}
+\\begin{tabular}{cc}
+\\psfig{angle=270,width=7cm,file=$gran_file} &
+\\psfig{angle=270,width=7cm,file=a.ps}
+\\end{tabular}
+\\end{center}
+\\caption{Granularity \\& Heap Allocations {\\bf $spark}}
+\\end{figure}
+
+\\begin{figure}[t]
+\\begin{center}
+\\begin{tabular}{cc}
+\\psfig{angle=270,width=7cm,file=f.ps} &
+\\psfig{angle=270,width=7cm,file=c.ps}
+\\end{tabular}
+\\end{center}
+\\caption{Fetching Profile {\\bf $spark}}
+\\end{figure}
+
+\\begin{figure}[t]
+\\begin{center}
+\\begin{tabular}{cc}
+\\psfig{angle=270,width=7cm,file=cumu-rts.ps} &
+\\psfig{angle=270,width=7cm,file=cumu-rts0.ps}
+\\end{tabular}
+\\end{center}
+\\caption{Cumulative Execution Times {\\bf $spark}}
+\\end{figure}
+
+\\end{document}
+EOF
+}
+ close (VA);
+}
+
+# -----------------------------------------------------------------------------
+
+sub process_options {
+
+ if ( $opt_h ) {
+ open(ME,$0) || die "Can't open myself ($0): $!\n";
+ $n = 0;
+ while (<ME>) {
+ last if $_ =~ /^$/;
+ print $_;
+ $n++;
+ }
+ close(ME);
+ exit ;
+ }
+
+ if ( $opt_s ) {
+ $opt_s =~ s/[\(\)\[\]]//g;
+ @sparks = split(/[,;. ]+/, $opt_s);
+ } else {
+ @sparks = ( 3, 4, 5, 6, 7, 8, 11, 12, 13, 14, 15);
+ }
+
+ if ( $#ARGV != 0 ) {
+ print "Usage: $0 [options] <gr-file>\n;";
+ print "Use -h option to get details\n";
+ exit 1;
+ }
+
+ $gr_file = $ARGV[0];
+ ($basename = $gr_file) =~ s/\.gr//;
+ $rts_file = $basename . ".rts"; # "RTS";
+ $gran_file = "g.ps"; # $basename . ".ps";
+ #$rts_file = $gr_file;
+ #$rts_file =~ s/\.gr/.rts/g;
+
+ if ( $opt_o ) {
+ $va_file = $opt_o;
+ $va_dvi_file = $va_file;
+ $va_dvi_file =~ s/\.tex/.dvi/g;
+ $va_ps_file = $va_file;
+ $va_ps_file =~ s/\.tex/.ps/g;
+ } else {
+ $va_file = "va.tex";
+ $va_dvi_file = "va.dvi";
+ $va_ps_file = "va.ps";
+ }
+
+ if ( $opt_t ) {
+ $template_file = $opt_t;
+ } else {
+ $template_file = "TEMPL";
+ }
+
+ $tmp_file = ",t";
+}
+
+# -----------------------------------------------------------------------------
+
+sub print_verbose_message {
+ print "Sparks: (" . join(',',@sparks) . ")\n";
+ print "Files: .gr " . $gr_file . " template " . $template_file .
+ " va " . $va_file . "\n";
+}
+
+# -----------------------------------------------------------------------------
projects / ghc-hetmet.git / blobdiff