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

codetools: check fpc paths: save cache

Browse Source 
git-svn-id: trunk@26823 -
This commit is contained in:
mattias 2010-07-24 23:19:10 +00:00
parent 9bc17cf53f
commit 93b8c80fa1
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/codetools/examples/testfpcsrcunitrules.lpr
View File

@ -29,7 +29,7 @@ program TestFPCSrcUnitRules;
uses
Classes, SysUtils, CustApp, AVL_Tree, CodeToolManager, DefineTemplates,
FileProcs, CodeToolsStructs;
CodeToolsConfig, FileProcs, CodeToolsStructs;
const
ConfigFilename = 'codetools.config';
@ -62,6 +62,7 @@ var
FPCSrcDir: String;
UnitSet: TFPCUnitSetCache;
ConfigCache: TFPCTargetConfigCache;
Options: TCodeToolsOptions;
begin
// quick check parameters
ErrorMsg:=CheckOptions('hcTPF','help compiler targetos targetcpu fpcsrcdir');
@ -98,16 +99,28 @@ begin
if not DirPathExists(FPCSrcDir) then
Error('FPC source directory not found: '+FPCSrcDir,false);
CodeToolBoss.SimpleInit(ConfigFilename);
Options:=TCodeToolsOptions.Create;
Options.InitWithEnvironmentVariables;
if FileExistsUTF8(ConfigFilename) then
Options.LoadFromFile(ConfigFilename);
Options.FPCPath:=CompilerFilename;
Options.FPCOptions:='';
Options.TargetOS:=TargetOS;
Options.TargetProcessor:=TargetCPU;
Options.FPCSrcDir:=FPCSrcDir;
CodeToolBoss.Init(Options);
UnitSet:=CodeToolBoss.FPCDefinesCache.FindUnitSet(CompilerFilename,
TargetOS,TargetCPU,'',FPCSrcDir,true);
UnitSet.Init;
ConfigCache:=UnitSet.GetConfigCache(false);
Options.SaveToFile(ConfigFilename);
Options.Free;
ConfigCache:=UnitSet.GetConfigCache(false);
WriteCompilerInfo(ConfigCache);
WriteDuplicatesInPPUPath(ConfigCache);
WriteMissingPPUSources(UnitSet);
WriteDuplicateSources(UnitSet);