Przeglądaj źródła

* Namespaced version of xterm

Michaël Van Canneyt 1 rok temu
rodzic
commit
0226838e9b

+ 3 - 0
packages/xterm/namespaced/Api.XTerm.pas

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

+ 10 - 7
packages/xterm/xterm.pp → packages/xterm/src/xterm.pp

@@ -2,8 +2,9 @@
   Xterm.js package, autogenerated from typescript description.
   This is still incomplete (some event handlers need to be correctly typed)
 }
-
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit xterm;
+{$ENDIF}
 
 {$MODE ObjFPC}
 {$H+}
@@ -11,7 +12,12 @@ Unit xterm;
 
 interface
 
-uses SysUtils, JS, Types, Web;
+uses 
+{$IFDEF FPC_DOTTEDUNITS}
+  System.SysUtils, JSApi.JS, System.Types, BrowserApi.Web;
+{$ELSE}
+  SysUtils, JS, Types, Web;
+{$ENDIF}
 
 Type
   // Forward class definitions
@@ -407,7 +413,7 @@ Type
       TIFunctionIdentifier = class external name 'Object' (TJSObject)
           prefix : string;
           intermediates : string;
-          final : string;
+          &final : string;
       end;
       
       TIParser = class external name 'Object' (TJSObject)
@@ -450,11 +456,8 @@ Type
           Property sendFocusMode : boolean Read FsendFocusMode; 
           Property wraparoundMode : boolean Read FwraparoundMode; 
       end;
-      
-    
   end;
   
-
-
 implementation
+
 end.