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

gir2pascal: Small code improvements.

Browse Source 
These changes are:
 1. Added line break to last line of generated files.
 2. Removed unused field `FEnumImpl` from `TGirConsoleConverter`.
 3. Moved command line from .lpi to .lps as this depends on the path
    of the user debugging the program.
This commit is contained in:
Abou Al Montacir 2023-05-27 12:18:24 +02:00 committed by Maxim Ganetsky
parent 749b703ea4
commit 050dfa3884
3 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tools/gir2pascal/gir2pascal.lpi
View File

@ -25,19 +25,7 @@
<DestinationDirectory Value="/tmp/publishedproject/"/>
</PublishOptions>
<RunParams>
<local>
<CommandLineParams Value="-wni /home/andrew/programming/lazarus-ccr.old/applications/gobject-introspection/girfiles-from-felix/Gtk-3.0.gir -o /tmp/gir-out"/>
<LaunchingApplication Use="True" PathPlusParams="/usr/bin/gnome-terminal -t &apos;Lazarus Run Output&apos; -e &apos;$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)&apos;"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<CommandLineParams Value="-wni /home/andrew/programming/lazarus-ccr.old/applications/gobject-introspection/girfiles-from-felix/Gtk-3.0.gir -o /tmp/gir-out"/>
<LaunchingApplication Use="True" PathPlusParams="/usr/bin/gnome-terminal -t &apos;Lazarus Run Output&apos; -e &apos;$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)&apos;"/>
</local>
</Mode0>
</Modes>
</RunParams>
<Units Count="11">
<Unit0>

1
tools/gir2pascal/gir2pascal.lpr
View File

@ -45,7 +45,6 @@ type
FUnitPrefix: String;
FOverWriteFiles: Boolean;
FOptions: TgirOptions;
FEnumImpl: TgirEnumImpl;
procedure AddDefaultPaths;
procedure AddPaths(APaths: String);
procedure VerifyOptions;

4
tools/gir2pascal/girpascalwritertypes.pas
View File

@ -2623,7 +2623,7 @@ begin
if FinalizeSection.Declarations.Count > 0 then
Str.WriteString(FinalizeSection.AsString);
Str.WriteString('end.');
Str.WriteString('end.' + LineEnding);
Result.Position:=0;
end;
@ -2633,7 +2633,7 @@ begin
if (goWantTest in FOptions) then
begin
FTestPascalFile.WriteString(FTestPascalBody.Text);
FTestPascalFile.WriteString('end.');
FTestPascalFile.WriteString('end.' + LineEnding);
//FTestCFile.Position:=0;
FTestPascalFile.Position:=0;
end;