X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fsfs%2FsfsZipFS.pas;h=2f4c613c996c2321804159b120bf3202e31cba17;hb=c737ec14212534a2b7069615641afdf329ea8cb4;hp=9db434e96973cdd3b87a66ea7435a038cb83c7f6;hpb=5472594f32e33da0c66606ec9eebc8f798ef6b54;p=d2df-sdl.git diff --git a/src/sfs/sfsZipFS.pas b/src/sfs/sfsZipFS.pas index 9db434e..2f4c613 100644 --- a/src/sfs/sfsZipFS.pas +++ b/src/sfs/sfsZipFS.pas @@ -1,9 +1,8 @@ -(* Copyright (C) DooM 2D:Forever Developers +(* Copyright (C) Doom 2D: Forever Developers * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. + * the Free Software Foundation, version 3 of the License ONLY. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -18,8 +17,9 @@ // dfwad : D2D:F wad archives // {.$DEFINE SFS_DEBUG_ZIPFS} -{$MODE DELPHI} -{$R+} +{$INCLUDE ../shared/a_modes.inc} +{$SCOPEDENUMS OFF} +{.$R+} unit sfsZipFS; interface @@ -416,7 +416,9 @@ begin result := StrEquCI1251(prefix, 'zip') or StrEquCI1251(prefix, 'pk3') or - StrEquCI1251(prefix, 'dfwad'); + StrEquCI1251(prefix, 'dfz') or + StrEquCI1251(prefix, 'dfwad') or + StrEquCI1251(prefix, 'dfzip'); end; procedure TSFSZipVolumeFactory.Recycle (vol: TSFSVolume);