1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
{
FPCRes - Free Pascal Resource Converter
Part of the Free Pascal distribution
Copyright (C) 2008 by Giulio Bernardi
Source files handling
See the file COPYING, included in this distribution,
for details about the copyright.
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.
}
unit jarsourcehandler;
{$MODE OBJFPC} {$H+}
interface
uses
Classes, SysUtils, sourcehandler, zipper;
const
resbasedir = 'org'+DirectorySeparator+'freepascal'+DirectorySeparator+'rawresources'+DirectorySeparator;
type
ESourceFilesException = class(Exception);
ECantOpenFileException = class(ESourceFilesException);
EUnknownInputFormatException = class(ESourceFilesException);
type
{ TSourceFiles }
TJarSourceFiles = class(TSourceFiles)
private
protected
public
procedure Load(aResources : TZipper);reintroduce;
end;
implementation
uses msghandler, closablefilestream;
{ TJarSourceFiles }
procedure TJarSourceFiles.Load(aResources: TZipper);
var aStream : TClosableFileStream;
i : integer;
begin
if fFileList.Count<>0 then
begin
aResources.Entries.AddFileEntry('org/');
aResources.Entries.AddFileEntry('org/freepascal/');
aResources.Entries.AddFileEntry(resbasedir);
end;
try
for i:=0 to fFileList.Count-1 do
begin
Messages.DoVerbose(Format('Trying to open file %s...',[fFileList[i]]));
try
aStream:=TClosableFileStream.Create(fFileList[i],fmOpenRead or fmShareDenyWrite);
except
raise ECantOpenFileException.Create(fFileList[i]);
end;
astream.Free;
aResources.Entries.AddFileEntry(fFileList[i],resbasedir+fFileList[i]);
end;
Messages.DoVerbose(Format('%d resources read.',[aResources.Entries.Count]));
finally
end;
end;
end.
|
