paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Dotted filenames for package webidl

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-06 14:57:59 +01:00
parent d23863c821
commit 64ae844825
13 changed files with 76 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/webidl/namespaced/WebIdl.Defs.pp Normal file
View File

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

3
packages/webidl/namespaced/WebIdl.Parser.pp Normal file
View File

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

3
packages/webidl/namespaced/WebIdl.Scanner.pp Normal file
View File

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

3
packages/webidl/namespaced/WebIdl.ToPas2Js.pp Normal file
View File

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

3
packages/webidl/namespaced/WebIdl.ToPascal.pp Normal file
View File

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

3
packages/webidl/namespaced/WebIdl.ToWasmJob.pp Normal file
View File

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

8
packages/webidl/namespaces.lst Normal file
View File

@ -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

7
packages/webidl/src/webidldefs.pp
View File

@ -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 = (

9
packages/webidl/src/webidlparser.pp
View File

@ -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

10
packages/webidl/src/webidlscanner.pp
View File

@ -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"';

11
packages/webidl/src/webidltopas.pp
View File

@ -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

7
packages/webidl/src/webidltopas2js.pp
View File

@ -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 = (

7
packages/webidl/src/webidltowasmjob.pp
View File

@ -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 = (