Forráskód Böngészése

* Namespaced version of xterm

Michaël Van Canneyt 1 éve
szülő
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.
   Xterm.js package, autogenerated from typescript description.
   This is still incomplete (some event handlers need to be correctly typed)
   This is still incomplete (some event handlers need to be correctly typed)
 }
 }
-
+{$IFNDEF FPC_DOTTEDUNITS}
 Unit xterm;
 Unit xterm;
+{$ENDIF}
 
 
 {$MODE ObjFPC}
 {$MODE ObjFPC}
 {$H+}
 {$H+}
@@ -11,7 +12,12 @@ Unit xterm;
 
 
 interface
 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
 Type
   // Forward class definitions
   // Forward class definitions
@@ -407,7 +413,7 @@ Type
       TIFunctionIdentifier = class external name 'Object' (TJSObject)
       TIFunctionIdentifier = class external name 'Object' (TJSObject)
           prefix : string;
           prefix : string;
           intermediates : string;
           intermediates : string;
-          final : string;
+          &final : string;
       end;
       end;
       
       
       TIParser = class external name 'Object' (TJSObject)
       TIParser = class external name 'Object' (TJSObject)
@@ -450,11 +456,8 @@ Type
           Property sendFocusMode : boolean Read FsendFocusMode; 
           Property sendFocusMode : boolean Read FsendFocusMode; 
           Property wraparoundMode : boolean Read FwraparoundMode; 
           Property wraparoundMode : boolean Read FwraparoundMode; 
       end;
       end;
-      
-    
   end;
   end;
   
   
-
-
 implementation
 implementation
+
 end.
 end.