This commit is contained in:
jwz 1998-06-12 21:58:38 +00:00
Родитель 67482ccf78
Коммит c00f75d8b0
3 изменённых файлов: 23 добавлений и 15 удалений

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

@ -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('');