mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-12-07 13:24:12 +00:00
backed out the last few changes; it's all messed up and I don't feel like messing with it right now.
This commit is contained in:
parent
54e0d585a2
commit
2eabc03b21
@ -8,7 +8,7 @@
|
||||
#variable: a, Architecture, (-)
|
||||
|
||||
# Define the base url for the LXR files.
|
||||
baseurl: http://cvs-mirror.mozilla.org/webtools/lxr/
|
||||
baseurl: http://gruntle/jwz/webtools/lxr/
|
||||
|
||||
# These are the templates for the HTML heading, directory listing and
|
||||
# footer, respectively.
|
||||
@ -21,11 +21,11 @@ sourcedirhead: template-sourcedir-head
|
||||
|
||||
|
||||
# The source is here.
|
||||
sourceroot: /opt/lxr-data/mozilla/
|
||||
sourceroot: /u/jwz/src/mozilla/
|
||||
srcrootname: mozilla
|
||||
|
||||
# prepend this to url
|
||||
virtroot: /webtools/lxr
|
||||
virtroot: /jwz/webtools/lxr
|
||||
|
||||
# "#include <foo.h>" is mapped to this directory (in the LXR source
|
||||
# tree)
|
||||
|
@ -1,5 +1,5 @@
|
||||
#!/usr/bonsaitools/bin/perl
|
||||
# $Id: source,v 1.8 1998/06/20 01:09:35 jwz Exp $
|
||||
# $Id: source,v 1.9 1998/06/20 01:29:23 jwz Exp $
|
||||
|
||||
# source -- Present sourcecode as html, complete with references
|
||||
#
|
||||
@ -29,56 +29,24 @@ use LXR::Common;
|
||||
use LXR::Config;
|
||||
|
||||
|
||||
# Search the beginning of a source file for a short description
|
||||
# to be displayed in directory listings. Not all files have
|
||||
# them and the ones that do use different formats so there are
|
||||
# lots of ways to end up with junk. The basic format is: a file
|
||||
# name possibly followed by a colon or dash(es) with whitespace
|
||||
# strewn in followed by the description and maybe some stray comment
|
||||
# characters. Don't be confused by #includes or rcs comments
|
||||
# at the beginning of the file.
|
||||
# -dme
|
||||
sub fdescexpand {
|
||||
my $linecount=0;
|
||||
|
||||
$desc= "";
|
||||
|
||||
#ignore files that aren't source code
|
||||
if (!(
|
||||
($filename =~ /\.c$/) |
|
||||
($filename =~ /\.h$/) |
|
||||
($filename =~ /\.cc$/) |
|
||||
($filename =~ /\.cp$/) |
|
||||
($filename =~ /\.cpp$/) |
|
||||
($filename =~ /\.java$/)
|
||||
)){
|
||||
return("");
|
||||
}
|
||||
|
||||
if (open(FILE, $Path->{'real'}."/".$filename)) {
|
||||
while(<FILE>){
|
||||
if($linecount++ > 40) {
|
||||
last;
|
||||
}elsif (/[$]Id: $filename/){
|
||||
#ignore cvs headers
|
||||
}elsif (/^#/){
|
||||
#ignore cpp directives
|
||||
}elsif (/$filename\s*- ?-*\s*/i){
|
||||
($null, $desc) = split(/ $filename\s*- ?-*\s*/i);
|
||||
if ($desc) {last};
|
||||
}elsif (/$filename\s*:\s*/i){
|
||||
($null, $desc) = split(/ $filename\s*:\s*/i);
|
||||
if ($desc) {last};
|
||||
}elsif (/$filename\s\s*/i){
|
||||
($null, $desc) = split(/ $filename\s\s*/i);
|
||||
if ($desc) {last};
|
||||
}
|
||||
}
|
||||
close(FILE);
|
||||
}
|
||||
#strip trailing asterisks and "*/"
|
||||
$desc =~ s#\*/?\s*$##;
|
||||
|
||||
# if (open(FILE, $Path->{'real'}."/".$filename)) {
|
||||
# while(<FILE>){
|
||||
# if(/$filename\s*--*\s*/i){
|
||||
# ($null, $desc) = split(/ $filename\s*--*\s*/i);
|
||||
# if ($desc) {last};
|
||||
# }elsif (/$filename\s*:\s*/i){
|
||||
# ($null, $desc) = split(/ $filename\s*:\s*/i);
|
||||
# if ($desc) {last};
|
||||
# }elsif (/$filename\s*/i){
|
||||
# ($null, $desc) = split(/ $filename\s*/i);
|
||||
# if ($desc) {last};
|
||||
# }
|
||||
# }
|
||||
# close(FILE);
|
||||
# }
|
||||
return($desc);
|
||||
}
|
||||
|
||||
@ -355,3 +323,6 @@ if (!($Path->{'file'} =~ /\.(html)$/)) {
|
||||
&makefooter('sourcedir');
|
||||
}
|
||||
}
|
||||
|
||||
#$len = length($file);
|
||||
#print ("length is: ", $len) ;
|
||||
|
Loading…
Reference in New Issue
Block a user