paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 23:08:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Tools, LazRes, optionally change resource name, when reading from file ignore empty lines and lines starting with #

Browse Source 
git-svn-id: trunk@40662 -
This commit is contained in:
jesus 2013-03-28 23:40:26 +00:00
parent af138e87a7
commit 019c1eeb6c
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tools/lazres.pp
View File

@ -64,7 +64,7 @@ var
begin
if ParamCount<2 then begin
debugln('Usage: ',ExtractFileName(ParamStrUTF8(0))
,' resourcefilename filename1 [filename2 ... filenameN]');
,' resourcefilename filename1[=resname1] [filename2[=resname2] ... filenameN=resname[N]]');
debugln(' ',ExtractFileName(ParamStrUTF8(0))
,' resourcefilename @filelist');
exit;
@ -87,12 +87,19 @@ begin
FileList.Delete(a);
end
else for a:=2 to ParamCount do FileList.Add(ParamStrUTF8(a));
// cleanup lines
for a:=fileList.Count-1 downto 0 do begin
s := Trim(filelist[a]);
if (s='') or (s[1]='#') then
filelist.Delete(a);
if filelist.Names[a]='' then
filelist[a] := filelist[a] + '=';
end;
ResourceFilename := ParamStrUTF8(1);
FullResourceFilename := ExpandFileNameUTF8(ResourceFilename);
// check that all resources exists and are not the destination file
for a:=0 to FileList.Count-1 do begin
S := FileList[a];
S := FileList.Names[a];
if not FileExistsUTF8(S)
then begin
debugln('ERROR: file not found: ', S);
@ -114,7 +121,7 @@ begin
ResMemStream:=TMemoryStream.Create;
try
for a:=0 to FileList.Count-1 do begin
BinFilename:=FileList[a];
BinFilename:=FileList.Names[a];
dbgout(BinFilename);
try
BinFileStream:=TFileStream.Create(UTF8ToSys(BinFilename),fmOpenRead);
@ -137,9 +144,12 @@ begin
end
else begin
ResourceType:=copy(BinExt,2,length(BinExt)-1);
ResourceName:=ExtractFileName(BinFilename);
ResourceName:=copy(ResourceName,1
,length(ResourceName)-length(BinExt));
ResourceName := FileList.ValueFromIndex[a];
if ResourceName='' then begin
ResourceName:=ExtractFileName(BinFilename);
ResourceName:=copy(ResourceName,1
,length(ResourceName)-length(BinExt));
end;
if ResourceName='' then begin
debugln(' ERROR: no resourcename');
halt(2);