From 12db19c7f653f63b9ddda55343f42f9c3e9d106b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 26 Aug 2003 10:22:30 +0000
Subject: [PATCH] aded ibase src path to fcl interbase dir

git-svn-id: trunk@4526 -
---
 components/codetools/definetemplates.pas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/components/codetools/definetemplates.pas b/components/codetools/definetemplates.pas
index ffccfb0f49..76b4d8cba0 100644
--- a/components/codetools/definetemplates.pas
+++ b/components/codetools/definetemplates.pas
@@ -2925,6 +2925,9 @@ var
   UtilsDir, DebugSvrDir: TDefineTemplate;
   s: string;
   RTLWin32Dir: TDefineTemplate;
+  FCLDBDir: TDefineTemplate;
+  FCLDBInterbaseDir: TDefineTemplate;
+  SrcPathMacro: String;
 begin
   //writeln('CreateFPCSrcTemplate ',FPCSrcDir,': ',length(UnitSearchPath),' Valid=',UnitLinkListValid,' PPUExt=',PPUExt);
   Result:=nil;
@@ -2936,6 +2939,7 @@ begin
   SrcOS:='$('+ExternalMacroStart+'SrcOS)';
   TargetProcessor:='$('+ExternalMacroStart+'TargetProcessor)';
   IncPathMacro:='$('+ExternalMacroStart+'IncPath)';
+  SrcPathMacro:='$('+ExternalMacroStart+'SrcPath)';
   UnitLinks:=ExternalMacroStart+'UnitLinks';
   UnitTree:=nil;
 
@@ -3022,6 +3026,17 @@ begin
     +';'+Dir+'fcl'+DS+'inc'+DS
     +';'+Dir+'fcl'+DS+SrcOS+DS
     ,da_DefineRecurse));
+  FCLDBDir:=TDefineTemplate.Create('DB','DB','','db',da_Directory);
+  FCLDir.AddChild(FCLDBDir);
+  FCLDBInterbaseDir:=TDefineTemplate.Create('interbase','interbase','',
+    'interbase',da_Directory);
+  FCLDBDir.AddChild(FCLDBInterbaseDir);
+  FCLDBInterbaseDir.AddChild(TDefineTemplate.Create('SrcPath',
+    'SrcPath addition',
+    ExternalMacroStart+'SrcPath',
+    SrcPathMacro
+    +';'+Dir+'packages'+DS+'base'+DS+'ibase'
+    ,da_Define));
 
   // packages
   PackagesDir:=TDefineTemplate.Create('Packages',ctsPackageDirectories,'',