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

Comparing COMP/SCRAM/src/ActiveDoc/Parse.pm (file contents):
Revision 1.7 by sashby, Fri Dec 10 13:41:36 2004 UTC vs.
Revision 1.8 by sashby, Mon Sep 11 14:50:21 2006 UTC

# Line 36 | Line 36 | require 5.004;
36   use ActiveDoc::Switcher;
37   use ActiveDoc::TagContainer;
38   use ActiveDoc::GroupChecker;
39 – use Utilities::Verbose;
40 –
41 – @ISA=qw(Utilities::Verbose);
39  
40   sub new
41     {
# Line 136 | Line 133 | sub includeparse
133   sub addtag
134     {
135     my $self=shift;
139 –
136     $self->{tags}->addtag(@_);
141 –   $self->verbose(">> Adding tag ".@_." ");
137     }
138  
139   sub addgrouptags
140     {
141     my $self=shift;
147 –  
148 –   $self->verbose(">> Adding a group tag");
142     $self->{tags}->addtag("Group", \&Group_Start,$self,
143                           "", $self, \&Group_End, $self);
144     $self->{tags}->setgrouptag("Group");
# Line 154 | Line 147 | sub addgrouptags
147   sub addignoretags
148     {
149     my $self=shift;
157 –
158 –   $self->verbose(">> Adding an IGNORE tag");
150     $self->{gc}->exclude("ignore");
151     $self->{tags}->addtag("Ignore", \&Ignore_Start, $self,
152                           "",$self, \&Ignore_End,$self);
# Line 166 | Line 157 | sub contexttag
157     {
158     my $self=shift;
159     my $name=shift;
169 –  
170 –   $self->verbose("-- contexttag: ".$name." ");
160     $self->{tags}->setgrouptag($name);
161     }
162  
# Line 175 | Line 164 | sub opencontext
164     {
165     my $self=shift;
166     my $name=shift;
178 –
179 –   $self->verbose("-- opencontext: ".$name." ");
167     $self->{gc}->opencontext($name);
168     }
169  
# Line 184 | Line 171 | sub closecontext
171     {
172     my $self=shift;
173     my $name=shift;
187 –
188 –   $self->verbose("-- closecontext: ".$name." ");
174     $self->{gc}->closecontext($name);
175     }
176  
# Line 193 | Line 178 | sub includecontext
178     {
179     my $self=shift;
180     my $name=shift;
196 –
197 –   $self->verbose("-- includecontext : ".$name." ");
181     $self->{gc}->unexclude($name);
182     $self->{gc}->include($name);
183     }
# Line 203 | Line 186 | sub excludecontext
186     {
187     my $self=shift;
188     my $name=shift;
206 –   $self->verbose("-- excludecontext: ".$name." ");
189     $self->{gc}->exclude($name);
190     $self->{gc}->uninclude($name);
191     }
# Line 211 | Line 193 | sub excludecontext
193   sub cleartags
194     {
195     my $self=shift;
214 –   $self->verbose(">> Clearing TAGS");
196     $self->{tags}->cleartags();
197     }
198  
199   sub tags {
200           my $self=shift;
220 –         $self->verbose("-- tags");
201           return $self->{tags}->tags();
202   }
203  
# Line 229 | Line 209 | sub Group_Start
209     my $name=shift;
210     my $vars=shift;
211     my $lastgp;
232 –
233 –   $self->verbose(">> Group_Start: ".$name." ");
212     $lastgp="group::".$$vars{name};
213     $self->{switch}->checkparam($name, 'name');
214 <   $self->{gc}->opencontext("group::".$$vars{name});
237 <  
214 >   $self->{gc}->opencontext("group::".$$vars{name});  
215     }
216  
217   sub Group_End
218     {
219     my $self=shift;
220     my $name=shift;
244 –   my $lastgp;
245 –  
246 –   $self->verbose(">> Group_End: ".$name." ");
221     $self->{gc}->closelastcontext("group");
222     }
223  
# Line 251 | Line 225 | sub Ignore_Start
225     {
226     my $self=shift;
227     my $name=shift;
254 –  
255 –   $self->verbose(">> Ignore_Start: ".$name." ");
228     $self->{gc}->opencontext("ignore");
229     }
230  
231   sub Ignore_End
232     {
233     my $self=shift;
262 –
263 –   $self->verbose(">> Ignore_End: ".$name." ");
234     $self->{gc}->closecontext("ignore");
235     }
236  

Diff Legend

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