paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 16:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Small improvement to symbian build tool

Browse Source 
git-svn-id: trunk@9326 -
This commit is contained in:
sekelsenmat 2007-11-24 21:26:52 +00:00
parent 0ac6e82c1f
commit b1f8d613f8
4 changed files with 28 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
utils/mksymbian/compiler.pas
View File

@ -173,9 +173,23 @@ begin
{ Compiling the source files }
WriteLn('');
WriteLn('Compiling the source files');
WriteLn('Compiling file ' + vProject.MainSource);
WriteLn('');
AProcess.CommandLine := vProject.CompilerPath + ' -a -s -Fu' + vProject.RTLUnitsDir +
' -Tsymbian ' + vProject.MainSource;
WriteLn(AProcess.CommandLine);
AProcess.Execute;
WriteLn('');
WriteLn('Assembling file '+ vProject.MainSourceAsm);
WriteLn('');
AProcess.CommandLine := vProject.AssemblerPath + ' ' +
vProject.MainSourceAsm + ' -o ' + vProject.MainSourceObj;
WriteLn(AProcess.CommandLine);
AProcess.Execute;
{ Linking and library creation }
WriteLn('');
@ -299,15 +313,16 @@ begin
WriteLn('');
AProcess.CommandLine := vProject.CompilerPath + ' -a -s -Fu' + vProject.RTLUnitsDir +
' -Tsymbian QPasHello.pas';
' -Tsymbian ' + vProject.MainSource;
WriteLn(AProcess.CommandLine);
AProcess.Execute;
WriteLn('');
WriteLn('Assembling file QPasHello.s');
WriteLn('Assembling file '+ vProject.MainSourceAsm);
WriteLn('');
AProcess.CommandLine := vProject.AssemblerPath + ' QPasHello.s -o QPasHello.o';
AProcess.CommandLine := vProject.AssemblerPath + ' ' +
vProject.MainSourceAsm + ' -o ' + vProject.MainSourceObj;
WriteLn(AProcess.CommandLine);
AProcess.Execute;

5
utils/mksymbian/constants.pas
View File

@ -75,9 +75,12 @@ const
UID_SOURCE_FILENAME = 'QUID.cpp';
UID_OBJECT_FILENAME = 'QUID.o';
STR_ASSEMBLER_EXT = '.S';
STR_OBJECT_EXT = '.o';
STR_RESOURCE_TMP_EXT = '.pprsc';
STR_RESOURCE_EXT = '.rsc';
{ Strings from the project file }
const
{ Sections }

2
utils/mksymbian/mksymbian.lpi
View File

@ -2,7 +2,7 @@
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<Version Value="6"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>

5
utils/mksymbian/projectparser.pas
View File

@ -47,7 +47,8 @@ type
{ UIDs section }
UID2, UID3: string;
{ Files section }
MainSource, MainSourceNoExt, MainResource, RegResource: string;
MainSource, MainSourceNoExt, MainSourceAsm, MainSourceObj,
MainResource, RegResource: string;
{ Objects section }
ObjectFiles: TStringList;
public
@ -109,6 +110,8 @@ begin
MainSource := IniFile.ReadString(STR_PRJ_Files, STR_PRJ_MainSource, 'default.pas');
MainSourceNoExt := ExtractFileExt(MainSource);
MainSourceAsm := ChangeFileExt(MainSource, STR_ASSEMBLER_EXT);
MainSourceObj := ChangeFileExt(MainSource, STR_OBJECT_EXT);
MainResource := IniFile.ReadString(STR_PRJ_Files, STR_PRJ_MainResource, 'default.rss');
RegResource := IniFile.ReadString(STR_PRJ_Files, STR_PRJ_RegResource, 'default_reg.rss');