[Lxr-commits] CVS: lxr ident,1.12,1.13

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr
In directory usw-pr-cvs1:/tmp/cvs-serv21593

Modified Files:
	ident 
Log Message:
Remove pre-CSS & template code


Index: ident
===================================================================
RCS file: /cvsroot/lxr/lxr/ident,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- ident	2001/11/18 03:31:33	1.12
+++ ident	2001/11/20 15:34:00	1.13
@@ -124,71 +124,6 @@
 			));
 }
 
-sub ident_ { 
-    print("Type the full name of an identifier to summarize ",
-	  "(a function name, variable name, typedef, etc).\n",
-	  "<p>Matches are case-sensitive.\n");                    
-
-    print("<form method=get action=\"ident\">\n");
-
-    foreach ($config->allvariables) {
-	if ($config->variable($_) ne $config->vardefault($_)) {
-	    print("<input type=hidden name=\"",$_, "\" ",
-		  "value=\"", $config->variable($_), "\">\n");
-	}
-    }
-    
-    print("<b>Identifier: </b><input type=text name=\"i\" ",
-	  "value=\"",$identifier,"\" size=15>\n",
-	  "<input type=submit value=\"Find\">\n",
-          "</form>\n");     
-
-    
-    if ($identifier) {
-	my @refs = $index->getindex($identifier, $release);
-
-	print("<span class=search-ident>$identifier</span>\n");
-
-	if (@refs) {
-	    my $def;
-
-	    # print("<ul>\n"); CSS _PH_
-	    print "<span class=search-ul>\n";
-	    while ($def = shift(@refs)) {
-		my ($file, $line, $type, $rel) = @$def;
-
-		$rel &&= "(member of ".idref($rel, "search-member", $rel).")";
-		
-		print("<span class=search-li1> $type_names{$type} in ".
-		      fileref("$file, line $line", "search-decl",
-			      $file, $line).
-		      " $rel</span>\n");
-	    }
-	    print "</span>\n";
-	    # print("</ul>\n");
-
-	    my @uses = $index->getreference($identifier, $release);
-
-	    if (@uses) {
-		@uses = sort { $$a[0] cmp $$b[0] } @uses;
-
-		my $ref;
-		while ($ref = shift(@uses)) {
-		    my ($file, $line) = @$ref;
-
-		    print("<span class=search-li2> ".
-			  fileref("$file, line $line", "search-ref",
-				  $file, $line).
-			  "</span>\n");
-		}
-	    }
-	}
-	else {
-	    print("<br><b>Not used</b>");
-	}
-    }
-}
-
 
 httpinit;