X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fsfs%2Fsfs.pas;h=69e4368573d2546f6ddbaaceff5da34d34ae5fbf;hp=7e466ce39701dd7ca88471e4e86171ce27413f99;hb=41d480b02f4d0257f13a87810c0053b8b0df3b13;hpb=4b8454ce2c4481d8778f30ec289d824366df78c6

diff --git a/src/sfs/sfs.pas b/src/sfs/sfs.pas
index 7e466ce..69e4368 100644
--- a/src/sfs/sfs.pas
+++ b/src/sfs/sfs.pas
@@ -244,9 +244,6 @@ function WildMatch (pattern, text: TSFSString): Boolean;
 function WildListMatch (wildList, text: TSFSString; delimChar: AnsiChar=':'): Integer;
 function HasWildcards (const pattern: TSFSString): Boolean;
 
-// this will compare only last path element from sfspath
-function SFSDFPathEqu (sfspath: string; path: string): Boolean;
-
 function SFSUpCase (ch: Char): Char;
 
 function utf8to1251 (s: TSFSString): TSFSString;
@@ -691,27 +688,6 @@ begin
   result := true;
 end;
 
-// this will compare only last path element from sfspath
-function SFSDFPathEqu (sfspath: string; path: string): Boolean;
-{var
-  i: Integer;}
-begin
-  result := SFSStrEqu(sfspath, path);
-(*
-  if not result and (length(sfspath) > 1) then
-  begin
-    i := length(sfspath);
-    while i > 1 do
-    begin
-      while (i > 1) and (sfspath[i-1] <> '/') do Dec(i);
-      if i <= 1 then exit;
-      writeln('{', sfspath, '} [', Copy(sfspath, i, length(sfspath)), '] : [', path, ']');
-      result := SFSStrEqu(Copy(sfspath, i, length(sfspath)), path);
-    end;
-  end;
-*)
-end;
-
 // adds '/' too
 function normalizePath (fn: string): string;
 var