index 2997bce0abac0b94b78c6a49f96b45dca027c65e..df0de0fc591a48ffe3d16ce7f68ba412fd781b85 100644 (file)
--- a/src/shared/wadreader.pas
+++ b/src/shared/wadreader.pas
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
-{$MODE DELPHI}
+{$INCLUDE a_modes.inc}
unit wadreader;
-{$DEFINE SFS_DWFAD_DEBUG}
+{$DEFINE SFS_DFWAD_DEBUG}
{$DEFINE SFS_MAPDETECT_FX}
interface
end;
{$ENDIF}
result := true;
- {$IFDEF SFS_DWFAD_DEBUG}
+ {$IFDEF SFS_DFWAD_DEBUG}
if wadoptDebug then
e_WriteLog(Format('DFWAD: file [%s] FOUND in [%s]; size is %d bytes', [name, fFileName, Len]), MSG_NOTIFY);
{$ENDIF}
e_WriteLog(Format('TWADFile.ReadFile: error looking for [%s]', [FileName]), MSG_NOTIFY);
exit;
end;
- {$IFDEF SFS_DWFAD_DEBUG}
+ {$IFDEF SFS_DFWAD_DEBUG}
if wadoptDebug then e_WriteLog(Format('TWADFile.ReadFile: FOUND [%s]', [rfn]), MSG_NOTIFY);
{$ENDIF}
// cache this wad
fIter := SFSFileList(rfn);
if fIter = nil then Exit;
fFileName := rfn;
- {$IFDEF SFS_DWFAD_DEBUG}
+ {$IFDEF SFS_DFWAD_DEBUG}
if wadoptDebug then e_WriteLog(Format('TWADFile.ReadFile: [%s] opened', [fFileName]), MSG_NOTIFY);
{$ENDIF}
Result := True;
fn := Format(' -- memwad %d -- ', [uniqueCounter]);
Inc(uniqueCounter);
- {$IFDEF SFS_DWFAD_DEBUG}
- e_WriteLog(Format('TWADFile.ReadMemory: [%s]', [fn]), MSG_NOTIFY);
+ {$IFDEF SFS_DFWAD_DEBUG}
+ if wadoptDebug then e_WriteLog(Format('TWADFile.ReadMemory: [%s]', [fn]), MSG_NOTIFY);
{$ENDIF}
try
if fIter = nil then Exit;
fFileName := fn;
- {$IFDEF SFS_DWFAD_DEBUG}
- e_WriteLog(Format('TWADFile.ReadMemory: [%s] opened', [fFileName]), MSG_NOTIFY);
+ {$IFDEF SFS_DFWAD_DEBUG}
+ if wadoptDebug then e_WriteLog(Format('TWADFile.ReadMemory: [%s] opened', [fFileName]), MSG_NOTIFY);
{$ENDIF}
{