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

Diff of /FigKernelScripts/svr_preferred_roles.pl

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

revision 1.2, Sun Dec 21 15:11:01 2014 UTC revision 1.3, Sun Dec 21 21:45:05 2014 UTC
# Line 45  Line 45 
45    
46  This is used only if the column containing functions is not the last.  This is used only if the column containing functions is not the last.
47    
48    =item -d
49    
50    This is used to print only lines in which the original and translated
51    functions differ
52    
53  =back  =back
54    
55  =head2 Output Format  =head2 Output Format
# Line 62  Line 67 
67  my $usage = "usage: svr_preferred_roles [-c column]";  my $usage = "usage: svr_preferred_roles [-c column]";
68    
69  my $column;  my $column;
70    my $just_diffs = 0;
71  my $i = "-";  my $i = "-";
72  my $rc  = GetOptions('c=i' => \$column,  my $rc  = GetOptions('c=i' => \$column,
73                         'd'   => \$just_diffs,
74                       'i=s' => \$i);                       'i=s' => \$i);
75  if (! $rc) { print STDERR $usage; exit }  if (! $rc) { print STDERR $usage; exit }
76    
# Line 74  Line 81 
81      for my $tuple (@tuples) {      for my $tuple (@tuples) {
82          my ($function, $line) = @$tuple;          my ($function, $line) = @$tuple;
83          my $updated_function = &update_function($function,$to);          my $updated_function = &update_function($function,$to);
84            if ((! $just_diffs) || ($function ne $updated_function))
85            {
86          print "$line\t$updated_function\n";          print "$line\t$updated_function\n";
87      }      }
88  }  }
89    }
90    
91  sub load_translations {  sub load_translations {
92      my $to = {};      my $to = {};

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3