Browse Source

* Namespace support

Michaël Van Canneyt 1 year ago
parent
commit
3fcd891577

+ 1 - 0
packages/fcl-passrc/fpmake.pp

@@ -19,6 +19,7 @@ begin
 {$endif ALLPACKAGES}
     P.Version:='3.3.1';
     P.Dependencies.Add('fcl-base');
+    P.Dependencies.Add('fcl-xml');
     P.Author := 'Sebastian Guenther';
     P.License := 'LGPL with modification, ';
     P.HomepageURL := 'www.freepascal.org';

+ 3 - 0
packages/fcl-passrc/namespaced/Pascal.DpkToLpk.pp

@@ -0,0 +1,3 @@
+unit Pascal.DpkToLpk;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i dpktolpk.pp}

+ 1 - 0
packages/fcl-passrc/namespaces.lst

@@ -9,3 +9,4 @@ src/pscanner.pp=namespaced/Pascal.Scanner.pp
 src/pastree.pp=namespaced/Pascal.Tree.pp
 src/pasuseanalyzer.pas=namespaced/Pascal.UseAnalyzer.pp
 src/paswrite.pp=namespaced/Pascal.Writer.pp
+src/dpktolpk.pp=namespaced/Pascal.DpkToLpk.pp

+ 10 - 0
packages/fcl-passrc/src/dpktolpk.pp

@@ -1,11 +1,17 @@
+{$IFNDEF FPC_DOTTEDUNITS}
 unit dpktolpk;
+{$ENDIF}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.Classes, System.SysUtils, Pascal.Tree, Pascal.Parser, Xml.Dom, Xml.Writer;
+{$ELSE}
   Classes, SysUtils, pastree, pparser, dom, XMLWrite;
+{$ENDIF}
 
 Type
   { TPackageContainer }
@@ -49,7 +55,11 @@ Type
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses Pascal.Scanner;
+{$ELSE}
 uses pscanner;
+{$ENDIF}
 
 function TSimpleParser.ParseSource(AEngine: TPasTreeContainer;
                      const FPCCommandLine : Array of String;