зеркало из https://github.com/mozilla/pjs.git
Bugzilla Bug 90704 there is a correct spelling for gobbeldygook and this is not it
r=terry [C=WP, A=OED]
This commit is contained in:
Родитель
8c27bc493c
Коммит
b3128f1fb0
|
@ -19,7 +19,7 @@ If you don't have Perl installed, get it from
|
||||||
If you need a webserver, take a look at Apache at
|
If you need a webserver, take a look at Apache at
|
||||||
<URL:http://www.apache.org/>
|
<URL:http://www.apache.org/>
|
||||||
|
|
||||||
If you want Glimpse and the freetext searching facilites, visit
|
If you want Glimpse and the freetext searching facilities, visit
|
||||||
<URL:http://glimpse.cs.arizona.edu/>.
|
<URL:http://glimpse.cs.arizona.edu/>.
|
||||||
|
|
||||||
|
|
||||||
|
@ -109,7 +109,7 @@ The lxr.conf file:
|
||||||
|
|
||||||
baseurl
|
baseurl
|
||||||
The url for the root directory of your source. Tree name (if any)
|
The url for the root directory of your source. Tree name (if any)
|
||||||
is appened to this.
|
is appended to this.
|
||||||
|
|
||||||
|
|
||||||
htmlhead
|
htmlhead
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#!/usr/bonsaitools/bin/perl
|
#!/usr/bonsaitools/bin/perl
|
||||||
# $Id: Local.pm,v 1.6 2001-02-21 05:14:10 endico%mozilla.org Exp $
|
# $Id: Local.pm,v 1.7 2001-07-16 20:15:03 timeless%mac.com Exp $
|
||||||
# Local.pm -- Subroutines that need to be customized for each installation
|
# Local.pm -- Subroutines that need to be customized for each installation
|
||||||
#
|
#
|
||||||
# Dawn Endico <endico@mozilla.org>
|
# Dawn Endico <endico@mozilla.org>
|
||||||
|
@ -26,14 +26,14 @@ use LXR::Common;
|
||||||
# In mozilla search the beginning of a source file for a short
|
# In mozilla search the beginning of a source file for a short
|
||||||
# description. Not all files have them and the ones that do use
|
# description. Not all files have them and the ones that do use
|
||||||
# many different formats. Try to find as many of these without
|
# many different formats. Try to find as many of these without
|
||||||
# printing gobbeldygook or something silly like a file name or a date.
|
# printing gobbledygook or something silly like a file name or a date.
|
||||||
#
|
#
|
||||||
# Read in the beginning of the file into a string. I chose 60 because the
|
# Read in the beginning of the file into a string. I chose 60 because the
|
||||||
# Berkeley copyright notice is around 40 lines long so we need a bit more
|
# Berkeley copyright notice is around 40 lines long so we need a bit more
|
||||||
# than this.
|
# than this.
|
||||||
#
|
#
|
||||||
# Its common for file descriptions to be delimited by the file name or
|
# Its common for file descriptions to be delimited by the file name or
|
||||||
# the word "Description" which preceeds the description. Search the entire
|
# the word "Description" which precedes the description. Search the entire
|
||||||
# string for these. Sometimes they're put in odd places such as inside
|
# string for these. Sometimes they're put in odd places such as inside
|
||||||
# the copyright notice or after the code begins. The file name should be
|
# the copyright notice or after the code begins. The file name should be
|
||||||
# followed by a colon or some pattern of dashes.
|
# followed by a colon or some pattern of dashes.
|
||||||
|
@ -95,10 +95,10 @@ sub fdescexpand {
|
||||||
# save a copy for later
|
# save a copy for later
|
||||||
$copy = $desc;
|
$copy = $desc;
|
||||||
|
|
||||||
# Look for well behaved <filename><seperator> formatted
|
# Look for well behaved <filename><separator> formatted
|
||||||
# descriptions before we go to the trouble of looking for
|
# descriptions before we go to the trouble of looking for
|
||||||
# one in the first comment. The whitespace between the
|
# one in the first comment. The whitespace between the
|
||||||
# delimeter and the description may include a newline.
|
# delimiter and the description may include a newline.
|
||||||
if (($desc =~ s/(?:.*?$filename\s*?- ?-*\s*)([^\n]*)(?:.*)/$1/sgi) ||
|
if (($desc =~ s/(?:.*?$filename\s*?- ?-*\s*)([^\n]*)(?:.*)/$1/sgi) ||
|
||||||
($desc =~ s/(?:.*?$filename\s*?:\s*)([^\n]*)(?:.*)/$1/sgi) ||
|
($desc =~ s/(?:.*?$filename\s*?:\s*)([^\n]*)(?:.*)/$1/sgi) ||
|
||||||
($desc =~ s/(?:.*?Description:\s*)([^\n]*)(?:.*)/$1/sgi)
|
($desc =~ s/(?:.*?Description:\s*)([^\n]*)(?:.*)/$1/sgi)
|
||||||
|
@ -190,7 +190,7 @@ sub fdescexpand {
|
||||||
}
|
}
|
||||||
|
|
||||||
# If the description is still too long then assume it will look
|
# If the description is still too long then assume it will look
|
||||||
# like gobbeldygook and give up
|
# like gobbledygook and give up
|
||||||
if (length($desc) > 200 ) {
|
if (length($desc) > 200 ) {
|
||||||
return(" ");
|
return(" ");
|
||||||
}
|
}
|
||||||
|
@ -228,7 +228,7 @@ sub descexpand {
|
||||||
|
|
||||||
# Make sure there is no <span> embedded in our string. If so
|
# Make sure there is no <span> embedded in our string. If so
|
||||||
# then we've matched against the wrong /span and this string is junk
|
# then we've matched against the wrong /span and this string is junk
|
||||||
# so we'll throw it away and refrain from writing a descrioption.
|
# so we'll throw it away and refrain from writing a description.
|
||||||
# Disallowing embedded spans theoretically removes some flexibility
|
# Disallowing embedded spans theoretically removes some flexibility
|
||||||
# but this seems to be a little used tag and doing this makes lxr
|
# but this seems to be a little used tag and doing this makes lxr
|
||||||
# a lot faster.
|
# a lot faster.
|
||||||
|
@ -284,7 +284,7 @@ sub descexpand {
|
||||||
# it exists. If the file is short then just print the whole thing.
|
# it exists. If the file is short then just print the whole thing.
|
||||||
# For longer files print the first paragraph or so. As much as
|
# For longer files print the first paragraph or so. As much as
|
||||||
# possible make this work for randomly formatted files rather than
|
# possible make this work for randomly formatted files rather than
|
||||||
# inventing strict rules which create gobbeldygook when they're broken.
|
# inventing strict rules which create gobbledygook when they're broken.
|
||||||
sub dirdesc {
|
sub dirdesc {
|
||||||
my ($path) = @_;
|
my ($path) = @_;
|
||||||
|
|
||||||
|
@ -407,7 +407,7 @@ sub descreadme {
|
||||||
}
|
}
|
||||||
|
|
||||||
# if we have more than $maxlines then truncate to $chopto
|
# if we have more than $maxlines then truncate to $chopto
|
||||||
# and add an elipsis.
|
# and add an ellipsis.
|
||||||
if ($count > $maxlines) {
|
if ($count > $maxlines) {
|
||||||
$string =~ s/^((?:[\S \t]*\n){$chopto}?)(.*)/$1/s;
|
$string =~ s/^((?:[\S \t]*\n){$chopto}?)(.*)/$1/s;
|
||||||
chomp($string);
|
chomp($string);
|
||||||
|
@ -435,7 +435,7 @@ sub descreadme {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
# dme: substitute carraige returns and spaces in original text
|
# dme: substitute carriage returns and spaces in original text
|
||||||
# for html equivalent so we don't need to use <pre> and can
|
# for html equivalent so we don't need to use <pre> and can
|
||||||
# use variable width fonts but preserve the formatting
|
# use variable width fonts but preserve the formatting
|
||||||
sub convertwhitespace {
|
sub convertwhitespace {
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#!/usr/bonsaitools/bin/perl
|
#!/usr/bonsaitools/bin/perl
|
||||||
# $Id: search,v 1.7 1999-09-17 01:07:34 endico%mozilla.org Exp $
|
# $Id: search,v 1.8 2001-07-16 20:15:02 timeless%mac.com Exp $
|
||||||
|
|
||||||
# search -- Freetext search
|
# search -- Freetext search
|
||||||
#
|
#
|
||||||
|
@ -73,7 +73,7 @@ sub search {
|
||||||
$searchtext =~ s/([;,#><\-\$.^*[^|()\!])/\\$1/g;
|
$searchtext =~ s/([;,#><\-\$.^*[^|()\!])/\\$1/g;
|
||||||
}
|
}
|
||||||
exec($Conf->glimpsebin,"-i","-H".$Conf->dbdir,'-y','-n',$searchtext);
|
exec($Conf->glimpsebin,"-i","-H".$Conf->dbdir,'-y','-n',$searchtext);
|
||||||
print("Glimpse subprocess died unexpextedly: $!\n");
|
print("Glimpse subprocess died unexpectedly: $!\n");
|
||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -140,7 +140,7 @@ and '*' (the Kleene closure).
|
||||||
So, "glimpse ab.de" will match abcde, but "glimpse ab\\.de"
|
So, "glimpse ab.de" will match abcde, but "glimpse ab\\.de"
|
||||||
will not, and "glimpse ab*de" will not match ab*de, but
|
will not, and "glimpse ab*de" will not match ab*de, but
|
||||||
"glimpse ab\\*de" will.
|
"glimpse ab\\*de" will.
|
||||||
The meta character - is translated automatically to a hypen
|
The meta character - is translated automatically to a hyphen
|
||||||
unless it appears between [] (in which case it denotes a range of
|
unless it appears between [] (in which case it denotes a range of
|
||||||
characters).
|
characters).
|
||||||
|
|
||||||
|
|
Загрузка…
Ссылка в новой задаче