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:
timeless%mac.com 2001-07-16 20:15:03 +00:00
Родитель 8c27bc493c
Коммит b3128f1fb0
4 изменённых файлов: 15 добавлений и 15 удалений

Просмотреть файл

@ -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("&nbsp;"); return("&nbsp;");
} }
@ -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).