ADD: Introduce virtual and real file source into hierarchy.

This commit is contained in:
cobines 2009-07-18 07:03:04 +00:00
commit 2c235bb304
4 changed files with 590 additions and 533 deletions

File diff suppressed because it is too large Load diff

View file

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils,
uFileSource;
uRealFileSource;
type
@ -15,7 +15,7 @@ type
Empty placeholder for now, allows to check
whether a certain file source is local.
}
TLocalFileSource = class(TFileSource)
TLocalFileSource = class(TRealFileSource)
end;
implementation

View file

@ -0,0 +1,23 @@
unit uRealFileSource;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
uFileSource;
type
{en
Base class for any real file source
(filesystem, archive, network, ... - all sources able to produce real files).
}
TRealFileSource = class(TFileSource)
end;
implementation
end.

View file

@ -0,0 +1,24 @@
unit uVirtualFileSource;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
uFileSource;
type
{en
Base class for any virtual file source
(this can be any list of files, internal lists, temporary,
links to favourite files, results from search queries, etc.).
}
TVirtualFileSource = class(TFileSource)
end;
implementation
end.