src/game/stub/g_system.pas

   1 (* Copyright (C)  Doom 2D: Forever Developers
   2  *
   3  * This program is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, version 3 of the License ONLY.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  14  *)
  15 {$INCLUDE ../shared/a_modes.inc}
  16 unit g_system;
  17
  18 interface
  19
  20   uses Utils;
  21
  22   (* --- Graphics --- *)
  23   function sys_GetDisplayModes (bpp: Integer): SSArray;
  24   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
  25   procedure sys_EnableVSync (yes: Boolean);
  26   procedure sys_Repaint;
  27
  28   (* --- Input --- *)
  29   function sys_HandleInput (): Boolean;
  30   procedure sys_RequestQuit;
  31
  32 {$IFDEF ENABLE_TOUCH}
  33   function sys_IsTextInputActive (): Boolean;
  34   procedure sys_ShowKeyboard (yes: Boolean);
  35 {$ENDIF}
  36
  37   (* --- Init --- *)
  38   procedure sys_Init;
  39   procedure sys_Final;
  40
  41   var (* hooks *)
  42     sys_CharPress: procedure (ch: AnsiChar) = nil;
  43     sys_ScreenResize: procedure (w, h: Integer) = nil;
  44
  45 implementation
  46
  47   uses SysUtils;
  48
  49   (* --------- Graphics --------- *)
  50
  51   procedure sys_Repaint;
  52   begin
  53   end;
  54
  55   procedure sys_EnableVSync (yes: Boolean);
  56   begin
  57   end;
  58
  59   function sys_GetDisplayModes (bpp: Integer): SSArray;
  60   begin
  61     result := nil
  62   end;
  63
  64   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
  65   begin
  66     result := true
  67   end;
  68
  69   (* --------- Input --------- *)
  70
  71 {$IFDEF ENABLE_TOUCH}
  72   function sys_IsTextInputActive (): Boolean;
  73   begin
  74     Result := false
  75   end;
  76
  77   procedure sys_ShowKeyboard (yes: Boolean);
  78   begin
  79   end;
  80 {$ENDIF}
  81
  82   function sys_HandleInput (): Boolean;
  83   begin
  84     result := false
  85   end;
  86
  87   procedure sys_RequestQuit;
  88   begin
  89   end;
  90
  91   (* --------- Init --------- *)
  92
  93   procedure sys_Init;
  94   begin
  95   end;
  96
  97   procedure sys_Final;
  98   begin
  99   end;
 100
 101 end.