index 54e81b433e3df56024c4f12d61faa4691e4acca0..7aeef80aeb1d3e9069814a1c883fd64094fe3286 100644 (file)
--- a/src/shared/wadreader.pas
+++ b/src/shared/wadreader.pas
function findDiskWad (fname: AnsiString): AnsiString;
+var
+ wadoptDebug: Boolean = false;
+ wadoptFast: Boolean = false;
+
+
implementation
uses
- SysUtils, Classes, BinEditor, e_log, g_options, utils, MAPSTRUCT;
+ SysUtils, Classes{, BinEditor}, e_log{, g_options}, utils, MAPSTRUCT;
function findDiskWad (fname: AnsiString): AnsiString;
{$ENDIF}
result := true;
{$IFDEF SFS_DWFAD_DEBUG}
- if gSFSDebug then
+ if wadoptDebug then
e_WriteLog(Format('DFWAD: file [%s] FOUND in [%s]; size is %d bytes', [name, fFileName, Len]), MSG_NOTIFY);
{$ENDIF}
exit;
exit;
end;
{$IFDEF SFS_DWFAD_DEBUG}
- if gSFSDebug then e_WriteLog(Format('TWADFile.ReadFile: FOUND [%s]', [rfn]), MSG_NOTIFY);
+ if wadoptDebug then e_WriteLog(Format('TWADFile.ReadFile: FOUND [%s]', [rfn]), MSG_NOTIFY);
{$ENDIF}
// cache this wad
try
- if gSFSFastMode then
+ if wadoptFast then
begin
if not SFSAddDataFile(rfn, true) then exit;
end
if fIter = nil then Exit;
fFileName := rfn;
{$IFDEF SFS_DWFAD_DEBUG}
- if gSFSDebug then e_WriteLog(Format('TWADFile.ReadFile: [%s] opened', [fFileName]), MSG_NOTIFY);
+ if wadoptDebug then e_WriteLog(Format('TWADFile.ReadFile: [%s] opened', [fFileName]), MSG_NOTIFY);
{$ENDIF}
Result := True;
end;