[Bio] / FigKernelScripts / compare_scenarios.pl Repository:
ViewVC logotype

View of /FigKernelScripts/compare_scenarios.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (as text) (annotate)
Fri Nov 2 19:13:11 2007 UTC (12 years, 5 months ago) by dejongh
Branch: MAIN
CVS Tags: rast_rel_2008_06_18, rast_rel_2008_06_16, rast_rel_2008_07_21, rast_2008_0924, rast_rel_2008_04_23, rast_rel_2008_09_30, mgrast_rel_2008_0924, mgrast_rel_2008_0625, rast_rel_2008_10_09, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, rast_rel_2008_08_07
Changes since 1.3: +8 -9 lines
Hope College updates

use strict;
use model;
use FIGV;

my ($orgdir,$dont_copy);
while ((@ARGV > 0) && ($ARGV[0] =~ /^-/))
{
    my $arg = shift @ARGV;
    if ($arg =~ /^-orgdir/)
    {
	$orgdir = shift @ARGV;
    }
    elsif ($arg =~ /^-dont_copy/)
    {
	$dont_copy = 1;
    }
    else
    {
	die "Unknown option $arg\n";
    }
}

my ($genome_id) = @ARGV;

if (scalar @ARGV != 1)
{
    print "usage:  compare_scenarios [-dont_copy] genome-id";
    exit -1;
}

my $file = "$FIG_Config::global/Models/hope_supersets.txt";

if ($orgdir)
{
    my $fig = new FIGV($orgdir);
    model::set_fig($fig);
}

model::load_superset_file($file);
my $supersets = model::compare_supersets($genome_id, $dont_copy);

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3