15 |
|
# file() : return the filename corresponding to url of the document |
16 |
|
# ProcessedFile() : return the filename corresponding to processed url |
17 |
|
# of the document |
18 |
< |
# line(number) : Return the line and fileobj corresponding to number in |
18 |
> |
# realline(number): Return the line and fileobj corresponding to number in |
19 |
|
# processed file |
20 |
|
# update() : update the preprocessed file as required. |
21 |
|
# store(filename) : |
36 |
|
"", $self, "", $self); |
37 |
|
} |
38 |
|
|
39 |
< |
sub line { |
39 |
> |
sub realline { |
40 |
|
my $self=shift; |
41 |
|
my $origline=shift; |
42 |
|
|
59 |
|
return ($line, $fileob); |
60 |
|
} |
61 |
|
|
62 |
+ |
sub line { |
63 |
+ |
my $self=shift; |
64 |
+ |
my $line=$self->{currentparser}->line(); |
65 |
+ |
return $line, $self; |
66 |
+ |
} |
67 |
+ |
|
68 |
|
sub url { |
69 |
|
my $self=shift; |
70 |
|
|