#!/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";
}

# -----------------------------------------------------------------------------