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

Diff of /FigKernelScripts/make_MPS_model.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Tue Jul 17 16:17:00 2007 UTC revision 1.2, Fri Jul 20 15:05:09 2007 UTC
# Line 3  Line 3 
3  #  #
4  #  #
5  use strict;  use strict;
6  use FIG;  use FIGV;
7  use Scenario;  use Scenario;
8    
9  my ($genome_id) = @ARGV;  my ($genome_id,$orgdir) = @ARGV;
10    
11  my $debug = 0;  my $debug = 0;
 my $fig = new FIG;  
12    
13  unless (scalar (@ARGV) == 1)  unless (scalar (@ARGV) >= 1)
14  {  {
15      print STDERR "usage: make_MPS_model <genome_id>\n";      print STDERR "usage: make_MPS_model <genome_id>\n";
16      exit(-1);      exit(-1);
17  }  }
18    my $fig;
19    if($orgdir)
20    {
21        $fig = new FIGV($orgdir);
22    }
23    else
24    {
25        $fig = new FIGV;
26    }
27  chomp $genome_id;  chomp $genome_id;
28    Scenario::set_fig($fig);
29  print STDERR "Creating SBML model for genome $genome_id\n" if($debug);  print STDERR "Creating SBML model for genome $genome_id\n" if($debug);
30  print STDERR "\tStage 1 - Loading Scenarios, model inputs and biomass\n" if($debug);  print STDERR "\tStage 1 - Loading Scenarios, model inputs and biomass\n" if($debug);
31  my @scenarios = @{Scenario->get_genome_scenarios($genome_id,1)};  my @scenarios = @{Scenario->get_genome_scenarios($genome_id,1)};
32  my $filebase = "$FIG_Config::var/Models/$genome_id/Analysis/";  my $filebase = $fig->model_directory($genome_id)."/Analysis/";
33    
34  my %input_cpds;  my %input_cpds;
35  open(INPUTS,$filebase."inputs.txt")  open(INPUTS,$filebase."inputs.txt")

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3