network: it should find correct files on POSIX now (and substitute extensions too)

[d2df-sdl.git] / src / sfs / sfs.pas

diff --git a/src/sfs/sfs.pas b/src/sfs/sfs.pas
index 7e466ce39701dd7ca88471e4e86171ce27413f99..69e4368573d2546f6ddbaaceff5da34d34ae5fbf 100644 (file)
--- 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