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

* Namespaced VSCode API

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-28 00:10:53 +01:00
parent 0226838e9b
commit 590b574fbe
4 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/vscode/namespaced/Api.VSCode.pas Normal file
View File

@ -0,0 +1,3 @@
{$DEFINE FPC_DOTTEDUNITS}
unit Api.VSCode;
{$include ../src/libvscode.pas}

3
packages/vscode/namespaced/Fcl.App.VSCode.pas Normal file
View File

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

21
packages/vscode/libvscode.pas → packages/vscode/src/libvscode.pas
View File

@ -1,4 +1,18 @@
{
This file is part of the Pas2JS run time library.
Copyright (c) 2017-2020 by the Pas2JS development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit libvscode;
{$ENDIF}
{$mode objfpc}
{$modeswitch externalclass}
@ -6,7 +20,12 @@ unit libvscode;
interface
uses Types, JS, Web;
uses
{$IFDEF FPC_DOTTEDUNITS}
System.Types, JSApi.JS, BrowserApi.Web;
{$ELSE}
Types, JS, Web;
{$ENDIF}
Type
TUint32DynArray = array of Cardinal;

7
packages/vscode/vscodeapp.pp → packages/vscode/src/vscodeapp.pp
View File

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