Move unit EditDefineTree to package IdeConfig.

This commit is contained in:
Juha 2024-04-06 22:24:55 +03:00
parent 149b86fbbb
commit a08a14cef7
7 changed files with 28 additions and 29 deletions

View File

@ -1292,11 +1292,6 @@
<Filename Value="wordcompletion.pp"/> <Filename Value="wordcompletion.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit> </Unit>
<Unit>
<Filename Value="editdefinetree.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="EditDefineTree"/>
</Unit>
<Unit> <Unit>
<Filename Value="runparamsopts.pas"/> <Filename Value="runparamsopts.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>

View File

@ -1276,6 +1276,7 @@ resourcestring
lisNumberOfFilesToConvert = 'Number of files to convert: %s'; lisNumberOfFilesToConvert = 'Number of files to convert: %s';
lisConvertEncoding = 'Convert Encoding'; lisConvertEncoding = 'Convert Encoding';
lisConvertProjectOrPackage = 'Convert project or package'; lisConvertProjectOrPackage = 'Convert project or package';
lisEdtDefCurrentProject = 'Current Project';
lisNewEncoding = 'New encoding:'; lisNewEncoding = 'New encoding:';
lisFileFilter = 'File filter'; lisFileFilter = 'File filter';
lisFilesInASCIIOrUTF8Encoding = 'Files in ASCII or UTF-8 encoding'; lisFilesInASCIIOrUTF8Encoding = 'Files in ASCII or UTF-8 encoding';
@ -4244,21 +4245,6 @@ resourcestring
lisDiskDiffReloadCheckedFilesFromDisk = 'Reload checked files from disk'; lisDiskDiffReloadCheckedFilesFromDisk = 'Reload checked files from disk';
lisDiskDiffIgnoreAllDiskChanges = 'Ignore all disk changes'; lisDiskDiffIgnoreAllDiskChanges = 'Ignore all disk changes';
// edit define tree
lisEdtDefCurrentProject = 'Current Project';
lisEdtDefAllPackages = 'All packages';
lisEdtDefsAllProjects = 'All projects';
lisEdtDefsetFPCModeToDELPHI = 'set FPC mode to DELPHI';
lisEdtDefsetFPCModeToTP = 'set FPC mode to TP';
lisEdtDefsetFPCModeToGPC = 'set FPC mode to GPC';
lisEdtDefsetFPCModeToMacPas = 'set FPC mode to MacPas';
lisEdtDefsetFPCModeToFPC = 'set FPC mode to FPC';
lisEdtDefsetIOCHECKSOn = 'set IOCHECKS on';
lisEdtDefsetRANGECHECKSOn = 'set RANGECHECKS on';
lisEdtDefsetOVERFLOWCHECKSOn = 'set OVERFLOWCHECKS on';
lisEdtDefuseLineInfoUnit = 'use LineInfo unit';
lisEdtDefuseHeapTrcUnit = 'use HeapTrc unit';
// external tools // external tools
lisExtToolExternalTools = 'External Tools'; lisExtToolExternalTools = 'External Tools';
lisTheseSettingsAreStoredWithTheProject = 'These settings are stored with ' lisTheseSettingsAreStoredWithTheProject = 'These settings are stored with '

View File

@ -24,7 +24,7 @@
*************************************************************************** ***************************************************************************
Author: Mattias Gaertner Author: Mattias Gaertner
Abstract: Abstract:
- procedures to transfer the compiler options to the CodeTools - procedures to transfer the compiler options to the CodeTools
} }
@ -43,9 +43,7 @@ uses
// BuildIntf // BuildIntf
CompOptsIntf, CompOptsIntf,
// IdeConfig // IdeConfig
CompilerOptions, CompilerOptions, IdeConfStrConsts;
// IDE
LazarusIDEStrConsts;
// global // global
@ -255,7 +253,7 @@ begin
Result:=false; // no change Result:=false; // no change
if ParentTemplate=nil then if ParentTemplate=nil then
RaiseGDBException('UpdateCompilerOptionsTemplates internal error'); RaiseGDBException('UpdateCompilerOptionsTemplates internal error');
{ ToDo: { ToDo:
StackChecks StackChecks
@ -349,7 +347,7 @@ begin
Result:=Result or Result:=Result or
RemoveAutoGeneratedDefine(ParentTemplate,UseHeapTrcUnitDefTemplName); RemoveAutoGeneratedDefine(ParentTemplate,UseHeapTrcUnitDefTemplName);
end; end;
// custom options ----------------------------------------------------------- // custom options -----------------------------------------------------------
CustomOpts:=CodeToolBoss.DefinePool.CreateFPCCommandLineDefines( CustomOpts:=CodeToolBoss.DefinePool.CreateFPCCommandLineDefines(
FPCCmdLineDefTemplName,CompOpts.GetCustomOptions(coptParsed), FPCCmdLineDefTemplName,CompOpts.GetCustomOptions(coptParsed),
@ -392,7 +390,7 @@ begin
and (OldNode.Action=DefType) and (OldNode.Action=DefType)
and (dtfAutoGenerated in OldNode.Flags) and (dtfAutoGenerated in OldNode.Flags)
then exit; then exit;
OldNode.Name:=Name; OldNode.Name:=Name;
OldNode.Description:=Description; OldNode.Description:=Description;
OldNode.Variable:=Variable; OldNode.Variable:=Variable;

View File

@ -54,6 +54,7 @@ begin
t.Dependencies.AddUnit('compoptsmodes'); t.Dependencies.AddUnit('compoptsmodes');
t.Dependencies.AddUnit('coolbaroptions'); t.Dependencies.AddUnit('coolbaroptions');
t.Dependencies.AddUnit('diffpatch'); t.Dependencies.AddUnit('diffpatch');
t.Dependencies.AddUnit('editdefinetree');
t.Dependencies.AddUnit('editortoolbaroptions'); t.Dependencies.AddUnit('editortoolbaroptions');
t.Dependencies.AddUnit('environmentopts'); t.Dependencies.AddUnit('environmentopts');
t.Dependencies.AddUnit('etfpcmsgfilepool'); t.Dependencies.AddUnit('etfpcmsgfilepool');
@ -76,6 +77,7 @@ begin
T:=P.Targets.AddUnit('compoptsmodes.pas'); T:=P.Targets.AddUnit('compoptsmodes.pas');
T:=P.Targets.AddUnit('coolbaroptions.pas'); T:=P.Targets.AddUnit('coolbaroptions.pas');
T:=P.Targets.AddUnit('diffpatch.pas'); T:=P.Targets.AddUnit('diffpatch.pas');
P.Targets.AddImplicitUnit('editdefinetree.pas');
T:=P.Targets.AddUnit('editortoolbaroptions.pas'); T:=P.Targets.AddUnit('editortoolbaroptions.pas');
T:=P.Targets.AddUnit('environmentopts.pp'); T:=P.Targets.AddUnit('environmentopts.pp');
T:=P.Targets.AddUnit('etfpcmsgfilepool.pas'); T:=P.Targets.AddUnit('etfpcmsgfilepool.pas');

View File

@ -39,6 +39,10 @@ Files in this package are for the main configuration of the IDE."/>
<Filename Value="diffpatch.pas"/> <Filename Value="diffpatch.pas"/>
<UnitName Value="DiffPatch"/> <UnitName Value="DiffPatch"/>
</Item> </Item>
<Item>
<Filename Value="editdefinetree.pas"/>
<UnitName Value="EditDefineTree"/>
</Item>
<Item> <Item>
<Filename Value="editortoolbaroptions.pas"/> <Filename Value="editortoolbaroptions.pas"/>
<UnitName Value="EditorToolBarOptions"/> <UnitName Value="EditorToolBarOptions"/>

View File

@ -8,7 +8,7 @@ unit IdeConfig;
interface interface
uses uses
CompilerOptions, CompOptsModes, CoolBarOptions, DiffPatch, CompilerOptions, CompOptsModes, CoolBarOptions, DiffPatch, EditDefineTree,
EditorToolBarOptions, EnvironmentOpts, etFPCMsgFilePool, etMakeMsgParser, EditorToolBarOptions, EnvironmentOpts, etFPCMsgFilePool, etMakeMsgParser,
IDECmdLine, IdeConfStrConsts, IDEGuiCmdLine, IDEOptionDefs, IDEProcs, IDECmdLine, IdeConfStrConsts, IDEGuiCmdLine, IDEOptionDefs, IDEProcs,
IdeXmlConfigProcs, LazConf, ModeMatrixOpts, ParsedCompilerOpts, IdeXmlConfigProcs, LazConf, ModeMatrixOpts, ParsedCompilerOpts,

View File

@ -22,9 +22,23 @@ resourcestring
lisTMFunctionAppendPathDelimiter = 'Function: append path delimiter'; lisTMFunctionAppendPathDelimiter = 'Function: append path delimiter';
lisTMFunctionChompPathDelimiter = 'Function: remove trailing path delimiter'; lisTMFunctionChompPathDelimiter = 'Function: remove trailing path delimiter';
lisTMunknownMacro = '(unknown macro: %s)'; lisTMunknownMacro = '(unknown macro: %s)';
lisEndlessLoopInMacros = 'Endless loop in macros';
// Component Name Validity
lisComponentNameIsNotAValidIdentifier = 'Component name "%s" is not a valid identifier'; lisComponentNameIsNotAValidIdentifier = 'Component name "%s" is not a valid identifier';
lisComponentNameIsAPascalKeyword = 'Component name "%s" is a Pascal keyword.'; lisComponentNameIsAPascalKeyword = 'Component name "%s" is a Pascal keyword.';
lisEndlessLoopInMacros = 'Endless loop in macros'; // edit define tree
lisEdtDefAllPackages = 'All packages';
lisEdtDefsAllProjects = 'All projects';
lisEdtDefsetFPCModeToDELPHI = 'set FPC mode to DELPHI';
lisEdtDefsetFPCModeToTP = 'set FPC mode to TP';
lisEdtDefsetFPCModeToGPC = 'set FPC mode to GPC';
lisEdtDefsetFPCModeToMacPas = 'set FPC mode to MacPas';
lisEdtDefsetFPCModeToFPC = 'set FPC mode to FPC';
lisEdtDefsetIOCHECKSOn = 'set IOCHECKS on';
lisEdtDefsetRANGECHECKSOn = 'set RANGECHECKS on';
lisEdtDefsetOVERFLOWCHECKSOn = 'set OVERFLOWCHECKS on';
lisEdtDefuseLineInfoUnit = 'use LineInfo unit';
lisEdtDefuseHeapTrcUnit = 'use HeapTrc unit';
implementation implementation