home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 449.NETFIND.PAS < prev    next >
Pascal/Delphi Source File  |  1989-07-12  |  965b  |  43 lines
  1. procedure find_call(var t : post_str);
  2. var i,j : integer;
  3. begin
  4.   writeln;
  5.   multiple := 0;
  6.   j := max_old div 2;
  7.   i := j ;
  8.   while ( j <> 0 ) do
  9.   begin
  10.     j := j div 2;
  11.     if (t = net_list[i]^.suffix)
  12.     then
  13.       begin
  14.         while (i > 2) AND (t = net_list[i-1]^.suffix) do i := i - 1;
  15.         repeat
  16.           multiple := multiple + 1;
  17.           call[multiple] := i;
  18.           i := i + 1;
  19.         until (t <> net_list[i]^.suffix);
  20.         exit;
  21.       end
  22.     else
  23.       if (t < net_list[i]^.suffix) OR (net_list[i]^.suffix = '')
  24.       then i := i - j
  25.       else i := i + j;
  26.   end;
  27. end;
  28.  
  29. function new_there(pre: pre_str; a: area_str; suf: post_str):boolean;
  30. var i : integer;
  31. begin
  32.   for i := 1 to new_pntr do
  33.     if (suf = new_list[i]^.suffix) AND (pre = new_list[i]^.prefix)
  34.        AND (a = net_list[i]^.area)
  35.     then
  36.       begin
  37.         new_there := TRUE;
  38.         exit;
  39.       end;
  40.   new_there := FALSE;
  41. end;
  42.  
  43.