From 1e4a6845b91778de559c8b02dfde122c2f32f974 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 27 Nov 2023 23:54:30 +0100
Subject: [PATCH] * Namespaced OpenTok API

---
 packages/opentok/namespaced/Api.OpenTok.pas | 3 +++
 packages/opentok/{ => src}/libopentok.pas   | 7 ++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)
 create mode 100644 packages/opentok/namespaced/Api.OpenTok.pas
 rename packages/opentok/{ => src}/libopentok.pas (99%)

diff --git a/packages/opentok/namespaced/Api.OpenTok.pas b/packages/opentok/namespaced/Api.OpenTok.pas
new file mode 100644
index 0000000..9a5d526
--- /dev/null
+++ b/packages/opentok/namespaced/Api.OpenTok.pas
@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit Api.OpenTok;
+{$include ../src/libopentok.pas}
diff --git a/packages/opentok/libopentok.pas b/packages/opentok/src/libopentok.pas
similarity index 99%
rename from packages/opentok/libopentok.pas
rename to packages/opentok/src/libopentok.pas
index d8cbcec..797801b 100644
--- a/packages/opentok/libopentok.pas
+++ b/packages/opentok/src/libopentok.pas
@@ -14,8 +14,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-
+{$IFNDEF FPC_DOTTEDUNITS}
 unit libopentok;
+{$ENDIF}
 
 {$mode objfpc}
 {$modeswitch externalclass}
@@ -23,7 +24,11 @@ unit libopentok;
 interface
 
 uses
+{$IFNDEF FPC_DOTTEDUNITS}
+  JSApi.JS, BrowserApi.Web, System.Types;
+{$ELSE}
   JS, web, types;
+{$ENDIF}
 
 Type
   TJSMediaStreamTrack = class external name 'MediaStreamTrack' (TJSObject);