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

Diff of /FigKernelScripts/make_subsystems_from_clusters.pl

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

revision 1.1, Fri May 6 19:04:14 2005 UTC revision 1.2, Fri Jun 3 15:22:30 2005 UTC
# Line 3  Line 3 
3  $usage = "usage: make_subsystems_from_clusters KernelCSSs CouplingF DisambiguationPrefix SubsysDirectory User ProposedAssignmentsDirectory";  $usage = "usage: make_subsystems_from_clusters KernelCSSs CouplingF DisambiguationPrefix SubsysDirectory User ProposedAssignmentsDirectory";
4    
5  (  (
6   ($cssD      = shift $ARGV) && opendir(CSS,$cssD) &&   ($cssD      = shift @ARGV) && opendir(CSS,$cssD) &&
7   ($couplingF = shift $ARGV) &&   ($couplingF = shift @ARGV) &&
8   ($prefix    = shift $ARGV) &&   ($prefix    = shift @ARGV) &&
9   ($subsysD   = shift $ARGV) &&   ($subsysD   = shift @ARGV) &&
10   ($user      = shift $ARGV) &&   ($user      = shift @ARGV) &&
11   ($assignD   = shift $ARGV)   ($assignD   = shift @ARGV)
12  )  )
13      || die "aborted";      || die "aborted";
14    
# Line 21  Line 21 
21    
22  &FIG::verify_dir($tmpD);  &FIG::verify_dir($tmpD);
23    
24  $n = 1;  $N = 1;
25  foreach $css (@css)  foreach $css (@css)
26  {  {
27      if ($css =~ /^(\d+)-\.\.\.(\d+)\.\.\.-(\d+)/)      if ($css =~ /^(\d+)-\.\.\.(\d+)\.\.\.-(\d+)/)
# Line 35  Line 35 
35          {          {
36              $main_genome = $1;              $main_genome = $1;
37              $namne = "$genome-$beg-$n-$end";              $namne = "$genome-$beg-$n-$end";
38              &FIG::run("fill_in_roles parms.assignments $assignD/$name < $cssD/$css > $TmpD/with.roles");              &FIG::run("fill_in_roles $assignD/$name < $cssD/$css > $TmpD/with.roles");
39              open(TMP,"<$TmpD/with.roles") || die "could not open $tmpD/with.roles";              open(TMP,"<$TmpD/with.roles") || die "could not open $tmpD/with.roles";
40              $/ = "\n//\n";              $/ = "\n//\n";
41              if (defined($_ = <STDIN>) && defined($_ = <STDIN>))              if (defined($_ = <STDIN>) && defined($_ = <STDIN>))
# Line 53  Line 53 
53                  }                  }
54    
55                  $abbreviations = join(" ",@hypos);                  $abbreviations = join(" ",@hypos);
56                  &FIG::run("make_assignments_fit_initial_css $prefix . "_$n" $assignD/$name $abbreviations < $tmpD/with.roles > $tmpD/hypos.prefixed");                  &FIG::run("make_assignments_fit_initial_css $prefix\_$N $assignD/$name $abbreviations < $tmpD/with.roles > $tmpD/hypos.prefixed");
57                  &FIG::run("expand_multifunctional_roles < $tmpD/hypos.prefixed > $tmpD/expanded.multifunctionals");                  &FIG::run("expand_multifunctional_roles < $tmpD/hypos.prefixed > $tmpD/expanded.multifunctionals");
58                  &FIG::run("make_spreadsheet_and_notes $couplingF $subsysD $user < $tmpD/expanded.multifunctionals");                  &FIG::run("make_spreadsheet_and_notes $couplingF $subsysD $user < $tmpD/expanded.multifunctionals");
59                    $N++;
60              }              }
61              close(TMP);              close(TMP);
62          }          }
# Line 68  Line 69 
69      {      {
70          die "bad name: $css";          die "bad name: $css";
71      }      }
72    }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3