зеркало из https://github.com/mozilla/pjs.git
*** empty log message ***
This commit is contained in:
Родитель
67482ccf78
Коммит
c00f75d8b0
|
@ -1,5 +1,5 @@
|
|||
#!/usr/bonsaitools/bin/perl
|
||||
# $Id: find,v 1.2 1998-06-12 21:48:51 jwz Exp $
|
||||
# $Id: find,v 1.3 1998-06-12 21:58:37 jwz Exp $
|
||||
|
||||
# find -- Find files
|
||||
#
|
||||
|
@ -28,9 +28,12 @@ use LXR::Common;
|
|||
use LXR::Config;
|
||||
|
||||
sub find {
|
||||
print("<p align=center>\n",
|
||||
"Search for files using regular expressions\n",
|
||||
"<form method=get action=\"find\">\n");
|
||||
print("<P ALIGN=CENTER>\n",
|
||||
"Search for files (by name) using regular expressions.\n",
|
||||
"<BR>(Need some <A HREF=\"search-help.html\">Hints</A> ",
|
||||
"on performing searches?)\n");
|
||||
|
||||
print ("<form method=get action=\"find\">\n");
|
||||
|
||||
foreach ($Conf->allvariables) {
|
||||
if ($Conf->variable($_) ne $Conf->vardefault($_)) {
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
#!/usr/bonsaitools/bin/perl
|
||||
# $Id: ident,v 1.1 1998-06-11 23:56:16 jwz Exp $
|
||||
# $Id: ident,v 1.2 1998-06-12 21:58:37 jwz Exp $
|
||||
|
||||
# ident -- Look up identifiers
|
||||
#
|
||||
|
@ -41,6 +41,13 @@ use DB_File;
|
|||
|
||||
|
||||
sub ident {
|
||||
|
||||
print("<P ALIGN=CENTER>\n",
|
||||
"Free-text search for an identifier (function name, variable ",
|
||||
"name, typedef, etc.).\n",
|
||||
"<BR>(Need some <A HREF=\"search-help.html\">Hints</A> ",
|
||||
"on performing searches?)\n");
|
||||
|
||||
print("<form method=get action=\"ident\">\n");
|
||||
|
||||
foreach ($Conf->allvariables) {
|
||||
|
@ -50,8 +57,8 @@ sub ident {
|
|||
}
|
||||
}
|
||||
|
||||
print("Identifier: <input type=text name=\"i\" ",
|
||||
"value=\"",$identifier,"\" size=40>\n",
|
||||
print("<B>Identifier: </B><input type=text name=\"i\" ",
|
||||
"value=\"",$identifier,"\" size=50>\n",
|
||||
"<input type=submit value=\"Find\">\n",
|
||||
"</form>\n");
|
||||
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
#!/usr/bonsaitools/bin/perl
|
||||
# $Id: search,v 1.3 1998-06-12 21:45:34 jwz Exp $
|
||||
# $Id: search,v 1.4 1998-06-12 21:58:38 jwz Exp $
|
||||
|
||||
# search -- Freetext search
|
||||
#
|
||||
|
@ -30,9 +30,10 @@ use LXR::Config;
|
|||
$maxhits = 1000;
|
||||
|
||||
sub search {
|
||||
print("<p align=center>\n",
|
||||
"This search page is powered by ",
|
||||
"<a href=\"http://glimpse.cs.arizona.edu\">Glimpse</a>\n");
|
||||
print("<P ALIGN=CENTER>\n",
|
||||
"Free-text search through the source code, including comments.\n",
|
||||
"<BR>(Need some <A HREF=\"search-help.html\">Hints</A> ",
|
||||
"on performing searches?)\n");
|
||||
|
||||
print("<form method=get action=\"search\">\n");
|
||||
|
||||
|
@ -49,10 +50,7 @@ sub search {
|
|||
# $Query->checkbox("case",0,0,"Case sensitive search"),
|
||||
# $Query->checkbox("regexp",1,0,"Regular expression search"),
|
||||
# $Query->popup_menu("fuzz",[0,1,2,3,4,5,6,7],0),
|
||||
"</form>\n",
|
||||
|
||||
"<a href=\"search-help.html\">Hints</a> ",
|
||||
"making queries.\n");
|
||||
"</form>\n");
|
||||
|
||||
$| = 1; print('');
|
||||
|
||||
|
|
Загрузка…
Ссылка в новой задаче