ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Utilities/Switcher.pm
(Generate patch)

Comparing COMP/SCRAM/src/Utilities/Switcher.pm (file contents):
Revision 1.3 by williamc, Fri Mar 19 14:08:25 1999 UTC vs.
Revision 1.4 by williamc, Mon Jun 7 15:02:57 1999 UTC

# Line 15 | Line 15 | sub new {
15          my $class=shift;
16          my $hash=shift;
17          my $file=shift;
18 +        my $objectname=shift;
19          my $self = {};
20 +        $self->{allw}=$objectname;
21          bless $self, $class;
22          $self->_initialise($hash,$file);
23          return $self;
# Line 118 | Line 120 | WHILELOOP: while ( ($word=shift @{$self-
120                          # Do we call the tag init routine?
121                          if ( ( defined ( ${$self->{labelhash}}{$rtname} )) &&
122                            ( ! ( ${$self->{labelhash}}{$rtname}=~/none/i )) ) {
123 <                          &{${$self->{labelhash}}{$rtname}}( $temp,
124 <                                @{$self->{tagblock}});
123 >                          &{${$self->{labelhash}}{$rtname}}( $self->{allw},
124 >                        $temp, @{$self->{tagblock}});
125                          }
126                          $self->_flipcontext($temp);    
127                          $#{$self->{tagblock}}= -1;
# Line 224 | Line 226 | sub _closeprevious {
226          ( ! ( ${$self->{labelhash}}{${$self->{lastcon}}[$#{$self->{lastcon}}]}
227                                          =~/none/i )) ) {
228      &{ ${$self->{labelhash}}{${$self->{lastcon}}[$#{$self->{lastcon}}]}}(
229 <         ${$self->{lastcon}}[$#{$self->{lastcon}}], @{$self->{tagblock}});
229 >        $self->{allw}, ${$self->{lastcon}}[$#{$self->{lastcon}}], @{$self->{tagblock}});
230     }
231    }
232   }
# Line 243 | Line 245 | sub checkparam($hash, $name, $key) {
245          $$hashref{$key}=~s/["']//;
246   }
247  
248 + #
249 + # return the current line number
250 + #
251 + sub line {
252 +        return $self->{linecount};
253 + }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines