src/shared/utils.pas

   1 {$MODE DELPHI}
   2 unit utils;
   3
   4 interface
   5
   6 // does filename have one of ".wad", ".pk3", ".zip" extensions?
   7 function hasWadExtension (fn: string): Boolean;
   8
   9 // does filepath have ".XXX:\" in it?
  10 function isWadPath (fn: string): Boolean;
  11
  12 // adds ".wad" extension if filename doesn't have one of ".wad", ".pk3", ".zip"
  13 function addWadExtension (fn: string): string;
  14
  15
  16 implementation
  17
  18 uses
  19   SysUtils, sfs;
  20
  21
  22 function hasWadExtension (fn: string): Boolean;
  23 begin
  24   fn := ExtractFileExt(fn);
  25   result := SFSStrEqu(fn, '.wad') or SFSStrEqu(fn, '.pk3') or SFSStrEqu(fn, '.zip');
  26 end;
  27
  28
  29 function addWadExtension (fn: string): string;
  30 begin
  31   result := fn;
  32   if not hasWadExtension(result) then result := result+'.wad';
  33 end;
  34
  35
  36 function isWadPath (fn: string): Boolean;
  37 var
  38   p: Integer;
  39   s: string;
  40 begin
  41   result := false;
  42   while true do
  43   begin
  44     p := Pos(':', fn);
  45     if (p = 0) or (length(fn)-p < 1) then break;
  46     if (p-4 > 1) and (fn[p-4] = '.') and ((fn[p+1] = '\') or (fn[p+1] = '/')) then
  47     begin
  48       s := Copy(fn, p-4, 4);
  49       if SFSStrEqu(s, '.wad') or SFSStrEqu(s, '.pk3') or SFSStrEqu(s, '.zip') then
  50       begin
  51         result := true;
  52         exit;
  53       end;
  54     end;
  55     Delete(fn, 1, p);
  56   end;
  57 end;
  58
  59
  60 end.