Vichingo455-RePacks
/
xtool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

0.7.9 hotfix 1

This commit is contained in:
Razor12911 2023-09-18 02:42:53 +02:00 committed by GitHub
parent 16199e4908
commit 9d6a2d6e20
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
precompressor/PrecompEXE.pas
View File

@ -281,15 +281,15 @@ begin
DeleteFile(WorkDir[Instance, 0] + InFile[0]); DeleteFile(WorkDir[Instance, 0] + InFile[0]);
DeleteFile(WorkDir[Instance, 0] + OutFile[0]); DeleteFile(WorkDir[Instance, 0] + OutFile[0]);
S := Param[0]; S := Param[0];
S := ReplaceText(S, '<insize>', StreamInfo^.OldSize.ToString); S := ReplaceText(S, '[insize]', StreamInfo^.OldSize.ToString);
S := ReplaceText(S, '<outsize>', StreamInfo^.NewSize.ToString); S := ReplaceText(S, '[outsize]', StreamInfo^.NewSize.ToString);
Res := 0; Res := 0;
if ContainsText(S, '<fileres>') and Funcs^.GetResource(StreamInfo^.Resource, if ContainsText(S, '[fileres]') and Funcs^.GetResource(StreamInfo^.Resource,
nil, @Res) and (Res > 0) then nil, @Res) and (Res > 0) then
begin begin
T := StreamInfo^.Resource.ToHexString.ToLower + '.res'; T := StreamInfo^.Resource.ToHexString.ToLower + '.res';
S := ReplaceText(S, '<fileres>', T); S := ReplaceText(S, '[fileres]', T);
S := ReplaceText(S, '<ressize>', Res.ToString); S := ReplaceText(S, '[ressize]', Res.ToString);
T := WorkDir[Instance, 0] + T; T := WorkDir[Instance, 0] + T;
if not FileExists(T) then if not FileExists(T) then
with TFileStream.Create(T, fmCreate) do with TFileStream.Create(T, fmCreate) do
@ -377,15 +377,15 @@ begin
DeleteFile(WorkDir[Instance, 1] + InFile[1]); DeleteFile(WorkDir[Instance, 1] + InFile[1]);
DeleteFile(WorkDir[Instance, 1] + OutFile[1]); DeleteFile(WorkDir[Instance, 1] + OutFile[1]);
S := Param[1]; S := Param[1];
S := ReplaceText(S, '<insize>', StreamInfo^.NewSize.ToString); S := ReplaceText(S, '[insize]', StreamInfo^.NewSize.ToString);
S := ReplaceText(S, '<outsize>', StreamInfo^.OldSize.ToString); S := ReplaceText(S, '[outsize]', StreamInfo^.OldSize.ToString);
Res := 0; Res := 0;
if ContainsText(S, '<fileres>') and Funcs^.GetResource(StreamInfo^.Resource, if ContainsText(S, '[fileres]') and Funcs^.GetResource(StreamInfo^.Resource,
nil, @Res) and (Res > 0) then nil, @Res) and (Res > 0) then
begin begin
T := StreamInfo^.Resource.ToHexString.ToLower + '.res'; T := StreamInfo^.Resource.ToHexString.ToLower + '.res';
S := ReplaceText(S, '<fileres>', T); S := ReplaceText(S, '[fileres]', T);
S := ReplaceText(S, '<ressize>', Res.ToString); S := ReplaceText(S, '[ressize]', Res.ToString);
T := WorkDir[Instance, 1] + T; T := WorkDir[Instance, 1] + T;
if not FileExists(T) then if not FileExists(T) then
with TFileStream.Create(T, fmCreate) do with TFileStream.Create(T, fmCreate) do
@ -685,14 +685,15 @@ begin
S1 := Ini.ReadString(SL[I], 'Encode', '') S1 := Ini.ReadString(SL[I], 'Encode', '')
else else
S1 := Ini.ReadString(SL[I], 'Decode', ''); S1 := Ini.ReadString(SL[I], 'Decode', '');
S1 := ReplaceText(S1, '<codec>', List[K]); S1 := ReplaceText(S1, '[codec]', List[K]);
ExeStruct.Exec[X] := ExpandPath(PluginsPath, True) + GetCmdStr(S1, 0); ExeStruct.Exec[X] := ExpandPath(PluginsPath, True) + GetCmdStr(S1, 0);
ExeStruct.Param[X] := ''; ExeStruct.Param[X] := '';
ExeStruct.Mode[X] := 0; ExeStruct.Mode[X] := 0;
for J := 1 to GetCmdCount(S1) - 1 do for J := 1 to GetCmdCount(S1) - 1 do
begin begin
S2 := GetCmdStr(S1, J); S2 := GetCmdStr(S1, J);
if ContainsText(S2, '<library>') then if ContainsText(S2, '<library>') or ContainsText(S2, '[library]')
then
begin begin
SetBits(ExeStruct.Mode[X], STDIO_MODE, 0, 2); SetBits(ExeStruct.Mode[X], STDIO_MODE, 0, 2);
ExeStruct.IsLib[X] := True; ExeStruct.IsLib[X] := True;
@ -719,14 +720,13 @@ begin
ExeStruct.InFile[X] := ExtractStr('<filein>', S2) ExeStruct.InFile[X] := ExtractStr('<filein>', S2)
else else
ExeStruct.InFile[X] := ExtractStr('[filein]', S2); ExeStruct.InFile[X] := ExtractStr('[filein]', S2);
S2 := ReplaceText(S2, ExeStruct.InFile[X], S3);
ExeStruct.InFile[X] := ReplaceText(ExeStruct.InFile[X], ExeStruct.InFile[X] := ReplaceText(ExeStruct.InFile[X],
'<filein>', S3); '<filein>', S3);
ExeStruct.InFile[X] := ReplaceText(ExeStruct.InFile[X], ExeStruct.InFile[X] := ReplaceText(ExeStruct.InFile[X],
'[filein]', S3); '[filein]', S3);
S2 := ExeStruct.InFile[X]; if ContainsText(S2, '<filein>') then
if ContainsText(S2, '[filein]') then
continue; continue;
S2 := ExeStruct.InFile[X];
end end
else if ContainsText(S2, '<fileout>') or else if ContainsText(S2, '<fileout>') or
ContainsText(S2, '[fileout]') then ContainsText(S2, '[fileout]') then
@ -741,9 +741,9 @@ begin
'<fileout>', S3); '<fileout>', S3);
ExeStruct.OutFile[X] := ReplaceText(ExeStruct.OutFile[X], ExeStruct.OutFile[X] := ReplaceText(ExeStruct.OutFile[X],
'[fileout]', S3); '[fileout]', S3);
S2 := ExeStruct.OutFile[X]; if ContainsText(S2, '<fileout>') then
if ContainsText(S2, '[fileout]') then
continue; continue;
S2 := ExeStruct.OutFile[X];
end; end;
S2 := IfThen((Pos(' ', S2) > 0) or (S2 = ''), '"' + S2 + '"', S2); S2 := IfThen((Pos(' ', S2) > 0) or (S2 = ''), '"' + S2 + '"', S2);
ExeStruct.Param[X] := ExeStruct.Param[X] + ' ' + S2; ExeStruct.Param[X] := ExeStruct.Param[X] + ' ' + S2;