소스 검색

* Namespaced version of xterm

Michaël Van Canneyt 1 년 전
부모
커밋
0226838e9b
2개의 변경된 파일13개의 추가작업 그리고 7개의 파일을 삭제
  1. 3 0
      packages/xterm/namespaced/Api.XTerm.pas
  2. 10 7
      packages/xterm/src/xterm.pp

+ 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.