paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-17 05:49:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Namespaced Atom API

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-27 22:49:40 +01:00
parent c1bd8440e4
commit b760667787
4 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/atom/namespaced/Api.Atom.pas Normal file
View File

@ -0,0 +1,3 @@
{$DEFINE FPC_DOTTEDUNITS}
unit Api.Atom;
{$include ../src/libatom.pp}

3
packages/atom/namespaced/Fcl.App.Atom.pas Normal file
View File

@ -0,0 +1,3 @@
{$DEFINE FPC_DOTTEDUNITS}
unit Fcl.App.Atom;
{$include ../src/atomapp.pp}

7
packages/atom/atomapp.pp → packages/atom/src/atomapp.pp
View File

@ -10,15 +10,20 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit atomapp; unit atomapp;
{$ENDIF}
{$mode objfpc} {$mode objfpc}
interface interface
uses uses
{$IFDEF FPC_DOTTEDUNITS}
System.Classes, System.SysUtils, JSApi.JS, Api.Atom, Fcl.CustApp;
{$ELSE}
Classes, SysUtils, JS, libatom, custapp; Classes, SysUtils, JS, libatom, custapp;
{$ENDIF}
Type Type
TAtomEnvironment = class (TJSObject) TAtomEnvironment = class (TJSObject)

7
packages/atom/libatom.pp → packages/atom/src/libatom.pp
View File

@ -10,8 +10,9 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit libatom; unit libatom;
{$ENDIF}
{$mode objfpc} {$mode objfpc}
{$modeswitch externalclass} {$modeswitch externalclass}
@ -19,7 +20,11 @@ unit libatom;
interface interface
uses uses
{$IFDEF FPC_DOTTEDUNITS}
JSApi.JS, System.Types, BrowserApi.Web;
{$ELSE}
JS, types, web; JS, types, web;
{$ENDIF}
Type Type
TAtomHandler = reference to procedure; TAtomHandler = reference to procedure;