Browse Source

* Namespaced OpenTok API

Michaël Van Canneyt 1 year ago
parent
commit
1e4a6845b9

+ 3 - 0
packages/opentok/namespaced/Api.OpenTok.pas

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

+ 6 - 1
packages/opentok/libopentok.pas → packages/opentok/src/libopentok.pas

@@ -14,8 +14,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
-
+{$IFNDEF FPC_DOTTEDUNITS}
 unit libopentok;
 unit libopentok;
+{$ENDIF}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$modeswitch externalclass}
 {$modeswitch externalclass}
@@ -23,7 +24,11 @@ unit libopentok;
 interface
 interface
 
 
 uses
 uses
+{$IFNDEF FPC_DOTTEDUNITS}
+  JSApi.JS, BrowserApi.Web, System.Types;
+{$ELSE}
   JS, web, types;
   JS, web, types;
+{$ENDIF}
 
 
 Type
 Type
   TJSMediaStreamTrack = class external name 'MediaStreamTrack' (TJSObject);
   TJSMediaStreamTrack = class external name 'MediaStreamTrack' (TJSObject);