* Dotted filenames for package webidl

packages/webidl/namespaced/WebIdl.Defs.pp

@@ -0,0 +1,3 @@
+unit WebIdl.Defs;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i webidldefs.pp}

packages/webidl/namespaced/WebIdl.Parser.pp

@@ -0,0 +1,3 @@
+unit WebIdl.Parser;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i webidlparser.pp}

packages/webidl/namespaced/WebIdl.Scanner.pp

@@ -0,0 +1,3 @@
+unit WebIdl.Scanner;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i webidlscanner.pp}

packages/webidl/namespaced/WebIdl.ToPas2Js.pp

@@ -0,0 +1,3 @@
+unit WebIdl.ToPas2Js;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i webidltopas2js.pp}

packages/webidl/namespaced/WebIdl.ToPascal.pp

@@ -0,0 +1,3 @@
+unit WebIdl.ToPascal;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i webidltopas.pp}

packages/webidl/namespaced/WebIdl.ToWasmJob.pp

@@ -0,0 +1,3 @@
+unit WebIdl.ToWasmJob;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i webidltowasmjob.pp}

packages/webidl/namespaces.lst

@@ -0,0 +1,8 @@
+src/webidltopas2js.pp=namespaced/WebIdl.ToPas2Js.pp
+{s*:src/}=namespaced/
+{i+:src/}
+src/webidlparser.pp=namespaced/WebIdl.Parser.pp
+src/webidltowasmjob.pp=namespaced/WebIdl.ToWasmJob.pp
+src/webidltopas.pp=namespaced/WebIdl.ToPascal.pp
+src/webidldefs.pp=namespaced/WebIdl.Defs.pp
+src/webidlscanner.pp=namespaced/WebIdl.Scanner.pp

packages/webidl/src/webidldefs.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit webidldefs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, System.Contnrs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, contnrs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
   TWebIDLBaseType = (

packages/webidl/src/webidlparser.pp

@@ -12,7 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit webidlparser;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 {$IF FPC_FULLVERSION>=30301}
@@ -20,15 +22,20 @@ unit webidlparser;
 {$ENDIF}
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, System.Contnrs, WebIdl.Scanner, WebIdl.Defs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, Contnrs, webidlscanner, webidldefs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
   EWebIDLParser = Class(Exception);
 
   { TWebIDLContext }
 
-  TWebIDLVersion = webidlscanner.TWebIDLVersion;
+  TWebIDLVersion = {$IFDEF FPC_DOTTEDUNITS}WebIdl.Scanner{$ELSE}webidlscanner{$ENDIF}.TWebIDLVersion;
 
   TWebIDLContext = Class (TIDLBaseObject)
   private

packages/webidl/src/webidlscanner.pp

@@ -15,11 +15,17 @@
 {$mode objfpc}
 {$h+}
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit webidlscanner;
+{$ENDIF FPC_DOTTEDUNITS}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.SysUtils, System.Classes;
+{$ELSE FPC_DOTTEDUNITS}
 uses SysUtils, Classes;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 type
@@ -402,7 +408,11 @@ Function GetTokenNames(aTokenList : TIDLTokens) : String;
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.TypInfo;
+{$ELSE FPC_DOTTEDUNITS}
 uses typinfo;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Resourcestring
   SErrUnknownTerminator = 'Unknown terminator: "%s"';

packages/webidl/src/webidltopas.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit webidltopas;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode objfpc}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, System.Contnrs, WebIdl.Parser, WebIdl.Scanner, WebIdl.Defs, Pascal.CodeGenerator;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, contnrs, WebIDLParser, WebIDLScanner, WebIDLDefs, pascodegen;
+{$ENDIF FPC_DOTTEDUNITS}
 
 Type
 
@@ -208,7 +215,11 @@ function BaseConversionOptionsToStr(Opts: TBaseConversionOptions): string;
 
 implementation
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses System.TypInfo;
+{$ELSE FPC_DOTTEDUNITS}
 uses typinfo;
+{$ENDIF FPC_DOTTEDUNITS}
 
 function BaseConversionOptionsToStr(Opts: TBaseConversionOptions): string;
 var

packages/webidl/src/webidltopas2js.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit webidltopas2js;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, WebIDL.Defs, WebIDL.ToPascal, System.Contnrs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, webidldefs, webidltopas, Contnrs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   TPas2jsConversionOption = (

packages/webidl/src/webidltowasmjob.pp

@@ -12,14 +12,21 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit webidltowasmjob;
+{$ENDIF FPC_DOTTEDUNITS}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Classes, System.SysUtils, WebIdl.Defs, WebIdl.ToPascal, WebIdl.Scanner, WebIdl.Parser, System.Contnrs;
+{$ELSE FPC_DOTTEDUNITS}
 uses
   Classes, SysUtils, webidldefs, webidltopas, webidlscanner, webidlparser, Contnrs;
+{$ENDIF FPC_DOTTEDUNITS}
 
 type
   TJOB_JSValueKind = (