diff --git a/src/sfs/sfs.pas b/src/sfs/sfs.pas
index 948b470c4f554901e00fce4f6a8b2e640c675498..5e5c0d258237d2e0cbcd84e0171aaaddf9931b98 100644 (file)
--- a/src/sfs/sfs.pas
+++ b/src/sfs/sfs.pas
+(* 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, 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
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ *)
// streaming file system (virtual)
-{$MODE DELPHI}
-{$R+}
+{$INCLUDE ../shared/a_modes.inc}
+{$SCOPEDENUMS OFF}
+{.$R+}
{.$DEFINE SFS_VOLDEBUG}
unit sfs;
// íèêàêèõ ïàäåíèé íà íåïðàâèëüíûå èíäåêñû!
function GetFiles (index: Integer): TSFSFileInfo; virtual;
- procedure removeCommonPath (); virtual;
-
public
// pSt íå îáÿçàòåëüíî çàïîìèíàòü, åñëè îí íå íóæåí.
constructor Create (const pFileName: AnsiString; pSt: TStream); virtual;
type
TVolumeInfo = class
+ public
fFactory: TSFSVolumeFactory;
fVolume: TSFSVolume;
fPackName: AnsiString; // äëÿ îäíîãî è òîãî æå ôàéëà áóäåò òîëüêî îäèí òîì!
fFiles := TObjectList.Create(true);
end;
-procedure TSFSVolume.removeCommonPath ();
-begin
-end;
-
procedure TSFSVolume.DoDirectoryRead ();
var
f, c: Integer;
sfi.fPath := normalizePath(sfi.fPath);
if (length(sfi.fPath) = 0) and (length(sfi.fName) = 0) then sfi.Free else Inc(f);
end;
- removeCommonPath();
end;
destructor TSFSVolume.Destroy ();