Changeset 2657 for trunk/gsdl/perllib/plugins
- Timestamp:
- 2001-07-18T11:57:01+12:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/SRCPlug.pm
r2085 r2657 120 120 ($title = $file) =~ s/^$self->{'remove_prefix'}//; 121 121 } else { 122 ($title = $file) =~ s@^.* (/|\\)@@; # remove pathname by default122 ($title = $file) =~ s@^.*[/\\]@@; # remove pathname by default 123 123 } 124 124 $doc_obj->add_utf8_metadata ($cursection, "Title", $title); 125 $doc_obj->add_utf8_metadata ($cursection, "filename", $file); 125 # remove the gsdl prefix from the filename 126 my $relative_filename=$file; 127 $relative_filename =~ s@^.*?gsdl[/\\]@@; 128 $doc_obj->add_utf8_metadata ($cursection, "filename", $relative_filename); 126 129 127 130 # class information from .h and .cc and .C and .cpp files … … 166 169 # '# include ...' 167 170 # ' #include ...' 168 while ($includes =~ /\#\W?include/) { 171 # also make sure it contains an actual filename, as we don't 172 # do pre-processing (eg #including a macro). 173 while ($includes =~ /\#\s*include.*(\"|<)/) { 169 174 $includes =~ s/^.*?include.*?(\"|<)(.*)(\"|>).*$//m; 170 # $1 is now the filename between the "s.171 175 my $include=$2; 172 176 # remove leading pathname
Note:
See TracChangeset
for help on using the changeset viewer.