[Bio] / FigKernelPackages / gjonewicklib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/gjonewicklib.pm

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

revision 1.10, Mon Apr 9 21:00:24 2007 UTC revision 1.11, Sat Mar 29 05:18:19 2008 UTC
# Line 3127  Line 3127 
3127      #  Loop while it is a comment:      #  Loop while it is a comment:
3128      while ( substr( $s, $ind, 1 ) eq "[" ) {      while ( substr( $s, $ind, 1 ) eq "[" ) {
3129          $ind++;          $ind++;
3130            my $depth = 1;
3131            my $ind2  = $ind;
3132    
3133          #  Find end          #  Find end
3134          if ( substr( $s, $ind ) !~ /^([^]]*)\]/ ) {          while ( $depth > 0 )
3135            {
3136                if ( substr( $s, $ind2 ) =~ /^([^][]*\[)/ )     # nested [ ... ]
3137                {
3138                    $ind2 += length( $1 );  #  Points at char just past [
3139                    $depth++;               #  If nested comments are allowed
3140                }
3141                elsif ( substr( $s, $ind2 ) =~ /^([^][]*\])/ )  # close bracket
3142                {
3143                    $ind2 += length( $1 );  #  Points at char just past ]
3144                    $depth--;
3145                }
3146                else
3147                {
3148              treeParseError( "comment missing closing bracket '["              treeParseError( "comment missing closing bracket '["
3149                             . substr( $s, $ind ) . "'" )                             . substr( $s, $ind ) . "'" )
3150          }          }
3151          my $comment = $1;          }
3152    
3153          #  Save if it includes any "text"          my $comment = substr( $s, $ind, $ind2-$ind-1 );
3154          if ( $comment =~ m/\S/ ) { push @clist, $comment }          if ( $comment =~ m/\S/ ) { push @clist, $comment }
3155    
3156          $ind += length( $comment ) + 1;     #  Comment plus closing bracket          $ind = $ind2;
3157    
3158          #  Skip white space          #  Skip white space
3159          if ( substr( $s, $ind ) =~ /^(\s+)/ ) { $ind += length( $1 ) }          if ( substr( $s, $ind ) =~ /^(\s+)/ ) { $ind += length( $1 ) }

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3