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

IDEIntf: added TLazCompilerOptions.GetUnitPath

Browse Source 
git-svn-id: trunk@33811 -
This commit is contained in:
mattias 2011-11-27 00:14:34 +00:00
parent 0079318916
commit eecec379ff
4 changed files with 34 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/compileroptions.pp
View File

@ -222,12 +222,6 @@ type
TLocalSubstitutionEvent = function(const s: string;
PlatformIndependent: boolean): string of object;
TCompilerOptionsParseType = (
coptUnparsed, // no macros resolved
coptParsed, // all macros resolved
coptParsedPlatformIndependent // all but platform macros resolved
);
TInheritedCompOptsParseTypesStrings =
array[TCompilerOptionsParseType] of TInheritedCompOptsStrings;
@ -528,25 +522,25 @@ type
function GetEffectiveTargetCPU: string; override;
function GetUnitPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string;
WithBaseDir: boolean = true): string; override;
function GetIncludePath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string;
WithBaseDir: boolean = true): string; override;
function GetSrcPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string;
WithBaseDir: boolean = true): string; override;
function GetDebugPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string;
WithBaseDir: boolean = true): string; override;
function GetLibraryPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string;
WithBaseDir: boolean = true): string; override;
function GetUnitOutputDirectory(RelativeToBaseDir: boolean): string; override;
function GetUnitOutPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed): string;
function GetObjectPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string;
WithBaseDir: boolean = true): string; override;
function GetPath(Option: TParsedCompilerOptString;
InheritedOption: TInheritedCompilerOption;
RelativeToBaseDir: boolean;

4
ide/editdefinetree.pas
View File

@ -36,7 +36,9 @@ interface
uses
Classes, SysUtils, FileProcs, FileUtil, IDEProcs, CodeToolManager,
DefineTemplates, CompilerOptions, TransferMacros, LinkScanner,
DefineTemplates, LinkScanner,
CompOptsIntf,
CompilerOptions, TransferMacros,
LazarusIDEStrConsts;

2
ide/frames/compiler_path_options.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Dialogs, Graphics,
Buttons, StdCtrls, LCLType, InterfaceBase,
IDEOptionsIntf, MacroIntf, IDEDialogs,
IDEOptionsIntf, MacroIntf, IDEDialogs, CompOptsIntf,
Project, CompilerOptions, LazarusIDEStrConsts, PathEditorDlg, LazConf,
IDEProcs, CheckCompilerOpts, ShowCompilerOpts, MainIntf;

24
ideintf/compoptsintf.pas
View File

@ -91,6 +91,12 @@ type
TCompilerDbgSymbolType = (dsAuto, dsStabs, dsDwarf2, dsDwarf2Set, dsDwarf3);
TCompilerOptionsParseType = (
coptUnparsed, // no macros resolved
coptParsed, // all macros resolved
coptParsedPlatformIndependent // all but platform macros resolved
);
const
crAll = [crCompile, crBuild, crRun];
@ -301,6 +307,24 @@ type
public
function GetEffectiveTargetOS: string; virtual; abstract;
function GetEffectiveTargetCPU: string; virtual; abstract;
function GetUnitPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string; virtual; abstract;
function GetIncludePath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string; virtual; abstract;
function GetSrcPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string; virtual; abstract;
function GetDebugPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string; virtual; abstract;
function GetLibraryPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string; virtual; abstract;
function GetObjectPath(RelativeToBaseDir: boolean;
Parsed: TCompilerOptionsParseType = coptParsed;
WithBaseDir: boolean = true): string; virtual; abstract;
public
// search paths:
property IncludePath: String read GetIncludePaths write SetIncludePaths; // alias IncPath