Changeset 248 for oup/current/FileClasses

Timestamp:

Nov 26, 2007, 12:02:28 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• AKEV.pas (modified) (2 diffs)
• AKVA.pas (modified) (2 diffs)
• BINA.pas (modified) (2 diffs)
• SUBT.pas (modified) (2 diffs)
• TXAN.pas (modified) (2 diffs)
• TXMP.pas (modified) (2 diffs)
• _DataTypes.pas (modified) (14 diffs)
• _EmptyFile.pas (modified) (1 diff)
• _FileTypes.pas (modified) (21 diffs)
• _MetaManager.pas (modified) (4 diffs)
• _MetaTypes.pas (modified) (3 diffs)

oup/current/FileClasses/AKEV.pas

@@ -7 +7 @@
 
 type
-  TFile_AKEV = class(TFile)
+  TFile_AKEV = class(TResource)
     public
       procedure InitDataFields; override;
@@ -23 +23 @@
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
     AddField(TLevelID, 'LevelID', '', []);
 

oup/current/FileClasses/AKVA.pas

@@ -7 +7 @@
 
 type
-  TFile_AKVA = class(TFile)
+  TFile_AKVA = class(TResource)
     public
       procedure InitDataFields; override;
@@ -23 +23 @@
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
     AddField(TLevelID, 'LevelID', '', []);
 

oup/current/FileClasses/BINA.pas

@@ -7 +7 @@
 
 type
-  TFile_BINA = class(TFile)
+  TFile_BINA = class(TResource)
       procedure SetOpened(Opened: Boolean); override;
     private
@@ -33 +33 @@
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
     AddField(TLevelID, 'LevelID', '', []);
 

oup/current/FileClasses/SUBT.pas

@@ -7 +7 @@
 
 type
-  TFile_SUBT = class(TFile)
+  TFile_SUBT = class(TResource)
       procedure SetOpened(Opened: Boolean); override;
     private
@@ -31 +31 @@
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
     AddField(TLevelID, 'LevelID', '', []);
     AddField(TUnused, 'Unused data', '', [16]);

oup/current/FileClasses/TXAN.pas

@@ -7 +7 @@
 
 type
-  TFile_TXAN = class(TFile)
+  TFile_TXAN = class(TResource)
     public
       procedure InitDataFields; override;
@@ -23 +23 @@
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
 
     AddField(TLevelID, 'LevelID', '', []);

oup/current/FileClasses/TXMP.pas

@@ -7 +7 @@
 
 type
-  TFile_TXMP = class(TFile)
+  TFile_TXMP = class(TResource)
     public
       procedure InitDataFields; override;
@@ -27 +27 @@
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
     AddField(TLevelID, 'LevelID', '', []);
 

oup/current/FileClasses/_DataTypes.pas

@@ -121 +121 @@
 
 
-  TFileID = class(TDataField)
+  TResourceID = class(TDataField)
     protected
       FFileID: Integer;
@@ -257 +257 @@
     for i := 0 to High(ExtraArgs) do
       FExtraArgs[i] := ExtraArgs[i];
-  FConnectionID := TFile(ParentFile).ConnectionID;
+  FConnectionID := TResource(ParentFile).ConnectionID;
 end;
 
@@ -305 +305 @@
   i: Integer;
 begin
-  fstream := TFile(FParentFile).FileStream;
+  fstream := TResource(FParentFile).FileStream;
   fstream.Seek(FOffset, soFromBeginning);
   SetLength(FString, FDataLength); 
@@ -351 +351 @@
   fstream: TMemoryStream;
 begin
-  fstream := TFile(FParentFile).FileStream;
+  fstream := TResource(FParentFile).FileStream;
   fstream.Seek(FOffset, soFromBeginning);
   fstream.Read(FInt, FDataLength);
@@ -428 +428 @@
   if FCounterSize > 0 then
   begin
-    fstream := TFile(FParentFile).FileStream;
+    fstream := TResource(FParentFile).FileStream;
     fstream.Seek(Offset, soFromBeginning);
     FBlockCount := 0;
@@ -463 +463 @@
   if FCounterSize > 0 then
   begin
-    fstream := TFile(FParentFile).FileStream;
+    fstream := TResource(FParentFile).FileStream;
     fstream.Seek(Offset, soFromBeginning);
     fstream.Write(FBlockCount, FCounterSize);
@@ -622 +622 @@
   fstream: TMemoryStream;
 begin
-  fstream := TFile(FParentFile).FileStream;
+  fstream := TResource(FParentFile).FileStream;
   fstream.Seek(FOffset, soFromBeginning);
   fstream.Read(FLevelID, 4);
@@ -640 +640 @@
 { TFileID }
 
-constructor TFileID.Create(ParentFile: TObject; ParentBlock: TContainer;
+constructor TResourceID.Create(ParentFile: TObject; ParentBlock: TContainer;
     Name, Description: String; ExtraArgs: array of const);
 begin
@@ -649 +649 @@
 end;
 
-function TFileID.GetValueAsString: String;
+function TResourceID.GetValueAsString: String;
 begin
   Result := IntToStr(FFileID);
 end;
 
-procedure TFileID.Update(Offset, Length: Integer);
+procedure TResourceID.Update(Offset, Length: Integer);
 var
   fstream: TMemoryStream;
 begin
-  fstream := TFile(FParentFile).FileStream;
+  fstream := TResource(FParentFile).FileStream;
   fstream.Seek(FOffset, soFromBeginning);
   fstream.Read(FFileID, 4);
@@ -667 +667 @@
 end;
 
-procedure TFileID.WriteData(stream: TStream);
+procedure TResourceID.WriteData(stream: TStream);
 var
   tempi: Integer;
@@ -731 +731 @@
   fstream: TMemoryStream;
 begin
-  fstream := TFile(FParentFile).FileStream;
+  fstream := TResource(FParentFile).FileStream;
   fstream.Seek(FOffset, soFromBeginning);
   fstream.Read(FFileID, 4);
@@ -781 +781 @@
   fstream: TMemoryStream;
 begin
-  fstream := TFile(FParentFile).FileStream;
+  fstream := TResource(FParentFile).FileStream;
   fstream.Seek(FOffset, soFromBeginning);
   fstream.Read(FRawAddress, 4);
@@ -868 +868 @@
   fstream: TMemoryStream;
 begin
-  fstream := TFile(FParentFile).FileStream;
+  fstream := TResource(FParentFile).FileStream;
   fstream.Seek(FOffset, soFromBeginning);
   fstream.Read(FBits, FDataLength);
@@ -900 +900 @@
   fstream: TMemoryStream;
 begin
-  fstream := TFile(FParentFile).FileStream;
+  fstream := TResource(FParentFile).FileStream;
   fstream.Seek(FOffset, soFromBeginning);
   fstream.Read(FFloat, FDataLength);

oup/current/FileClasses/_EmptyFile.pas

@@ -7 +7 @@
 
 type
-  TFile_Empty = class(TFile)
+  TFile_Empty = class(TResource)
   end;
 

oup/current/FileClasses/_FileTypes.pas

@@ -13 +13 @@
   end;
 
-  TFile = class(TTreeElement)
+  TResource = class(TTreeElement)
     protected
       FFileInfo: TFileInfo;
@@ -21 +21 @@
       FCached: Boolean;
       FChanged: Boolean;
+      FReplaced: Boolean;
 
       FDataFields: TBlock;
@@ -67 +68 @@
   end;
 
-
-  TFileType = class of TFile;
+type
+  TFileType = class of TResource;
 
 
@@ -80 +81 @@
 { TFileType }
 
-procedure TFile.CacheFile;
+procedure TResource.CacheFile;
 begin
   if not Assigned(FFileStream) then
@@ -90 +91 @@
 
 
-procedure TFile.CacheRawFile(Offset: Integer);
+procedure TResource.CacheRawFile(Offset: Integer);
 var
   i: Integer;
@@ -107 +108 @@
 end;
 
-procedure TFile.CacheAllRawFiles;
+procedure TResource.CacheAllRawFiles;
 var
   i: Integer;
@@ -117 +118 @@
 
 
-procedure TFile.DiscardFileCache;
+procedure TResource.DiscardFileCache;
 begin
   if Assigned(FFileStream) then
@@ -124 +125 @@
 end;
 
-procedure TFile.DiscardRawCache(Offset: Integer);
+procedure TResource.DiscardRawCache(Offset: Integer);
 var
   i: Integer;
@@ -139 +140 @@
 end;
 
-procedure TFile.DiscardAllRawCaches;
+procedure TResource.DiscardAllRawCaches;
 var
   i: Integer;
@@ -147 +148 @@
 end;
 
-procedure TFile.StoreFileCache;
+procedure TResource.StoreFileCache;
 begin
   Exit;
 end;
 
-procedure TFile.StoreRawCache(Offset: Integer);
+procedure TResource.StoreRawCache(Offset: Integer);
 begin
   Exit;
 end;
 
-procedure TFile.StoreAllRawCaches;
+procedure TResource.StoreAllRawCaches;
 var
   i: Integer;
@@ -169 +170 @@
 
 
-procedure TFile.SetOpened(Opened: Boolean);
+procedure TResource.SetOpened(Opened: Boolean);
 begin
   FOpened := Opened;
@@ -175 +176 @@
 
 
-constructor TFile.Create(ConnectionID, FileID: Integer);
+constructor TResource.Create(ConnectionID, FileID: Integer);
 var
   rawlist: TRawDataList;
@@ -199 +200 @@
 
 
-procedure TFile.Free;
+procedure TResource.Free;
 begin
   FDataFields.Free;
@@ -205 +206 @@
 
 
-function TFile.GetFieldByOffset(Offset: Integer): TDataField;
+function TResource.GetFieldByOffset(Offset: Integer): TDataField;
 begin
   Result := FDataFields.FieldByOffset[Offset];
@@ -211 +212 @@
 
 
-function TFile.GetRawCacheID(Offset: Integer): Integer;
+function TResource.GetRawCacheID(Offset: Integer): Integer;
 var
   i: Integer;
@@ -221 +222 @@
 end;
 
-function TFile.GetType: String;
+function TResource.GetType: String;
 begin
   Result := FFileInfo.Extension;
 end;
 
-function TFile.GetCaption: String;
+function TResource.GetCaption: String;
 begin
   Result := FFileInfo.Name;
@@ -234 +235 @@
 end;
 
-function TFile.GetChild(ID: Integer): TTreeElement;
+function TResource.GetChild(ID: Integer): TTreeElement;
 begin
   Result := FDataFields.Child[ID];
 end;
 
-function TFile.GetChildCount: Integer;
+function TResource.GetChildCount: Integer;
 begin
   if FDataFields <> nil then
@@ -248 +249 @@
 
 
-function TFile.GetEditor: TFrame;
+function TResource.GetEditor: TFrame;
 begin
   if not Assigned(FEditor) then
@@ -256 +257 @@
 
 
-procedure TFile.InitDataFields;
+procedure TResource.InitDataFields;
 begin
   if Assigned(FDataFields) then
@@ -265 +266 @@
 
 
-procedure TFile.InitEditor;
+procedure TResource.InitEditor;
 begin
   Exit;
@@ -274 +275 @@
 //*********************************************************
 //*********************************************************
-procedure TFile.ReCreateFile(fs: TStream);
+procedure TResource.ReCreateFile(fs: TStream);
 const
   temp0: array[0..31] of Byte =

oup/current/FileClasses/_MetaManager.pas

@@ -7 +7 @@
   TMetaManager = class
     protected
-      FFiles: array of TFile;
+      FFiles: array of TResource;
       FRoot: TExtensions;
       FConnectionID: Integer;
       FDataAccess: TObject;
       function GetFileCount: Integer;
-      function GetFileById(Id: Integer): TFile;
+      function GetFileById(Id: Integer): TResource;
     private
     public
@@ -21 +21 @@
       property Root: TExtensions read FRoot;
       property FileCount: Integer read GetFileCount;
-      property FileById[Id: Integer]: TFile read GetFileById;
+      property FileById[Id: Integer]: TResource read GetFileById;
   end;
 
@@ -41 +41 @@
 
 
-function TMetaManager.GetFileById(Id: Integer): TFile;
+function TMetaManager.GetFileById(Id: Integer): TResource;
 begin
   InitFile(Id);
@@ -64 +64 @@
       if finfo.Size > 0 then
       begin
-        for typei := 0 to High(FileDescs) do
+        for typei := 0 to High(ResourceDescs) do
         begin
-          if FileDescs[typei].ext = finfo.Extension then
+          if ResourceDescs[typei].ext = finfo.Extension then
           begin
-            FFiles[id] := TFileClass(FileDescs[typei].ftype).Create(FConnectionID, id);
+            FFiles[id] := TResourceClass(ResourceDescs[typei].ftype).Create(FConnectionID, id);
             Break;
           end;
         end;
-        if typei > High(FileDescs) then
+        if typei > High(ResourceDescs) then
           FFiles[id] := TFile_Empty.Create(FConnectionID, id);
       end else

oup/current/FileClasses/_MetaTypes.pas

@@ -18 +18 @@
 type
   TTreeElement = _TreeElement.TTreeElement;
-  TFile = _FileTypes.TFile;
+  TResource = _FileTypes.TResource;
   TFile_Empty = _EmptyFile.TFile_Empty;
   TExtension = _Extensions.TExtension;
@@ -28 +28 @@
   TArray = _DataTypes.TArray;
 
-  TFileID = _DataTypes.TFileID;
+  TResourceID = _DataTypes.TResourceID;
   TLevelID = _DataTypes.TLevelID;
   TInt = _DataTypes.TInt;
@@ -39 +39 @@
   TUnused = _DataTypes.TUnused;
 
-  TFileClass = class of TFile;
-  TFileDesc = record
+  TResourceClass = class of TResource;
+  TResourceDesc = record
     ext: String;
-    ftype: TFileClass;
+    ftype: TResourceClass;
   end;
 
 const
-  FileDescs: array[0..5] of TFileDesc = (
+  ResourceDescs: array[0..5] of TResourceDesc = (
     (ext: 'AKEV'; ftype: TFile_AKEV),
     (ext: 'AKVA'; ftype: TFile_AKVA),