@@ -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';
@@ -0,0 +1,3 @@
+unit Pascal.DpkToLpk;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i dpktolpk.pp}
@@ -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
@@ -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;
Type
{ TPackageContainer }
@@ -49,7 +55,11 @@ Type
implementation
+uses Pascal.Scanner;
uses pscanner;
function TSimpleParser.ParseSource(AEngine: TPasTreeContainer;
const FPCCommandLine : Array of String;