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   (* --- Utils --- *)
  23   function sys_GetTicks (): Int64;
  24   procedure sys_Delay (ms: Integer);
  25
  26   (* --- Graphics --- *)
  27   function sys_GetDisplayModes (bpp: Integer): SSArray;
  28   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
  29   procedure sys_EnableVSync (yes: Boolean);
  30   procedure sys_Repaint;
  31
  32   (* --- Input --- *)
  33   function sys_HandleInput (): Boolean;
  34   procedure sys_RequestQuit;
  35
  36   (* --- Init --- *)
  37   procedure sys_Init;
  38   procedure sys_Final;
  39
  40 implementation
  41
  42   uses SysUtils;
  43
  44   (* --------- Utils --------- *)
  45
  46   function sys_GetTicks (): Int64;
  47   begin
  48     Result := Round(TimeStampToMSecs(DateTimeToTimeStamp(Now())))
  49   end;
  50
  51   procedure sys_Delay (ms: Integer);
  52   begin
  53     Sleep(ms)
  54   end;
  55
  56   (* --------- Graphics --------- *)
  57
  58   procedure sys_Repaint;
  59   begin
  60   end;
  61
  62   procedure sys_EnableVSync (yes: Boolean);
  63   begin
  64   end;
  65
  66   function sys_GetDisplayModes (bpp: Integer): SSArray;
  67   begin
  68     result := nil
  69   end;
  70
  71   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
  72   begin
  73     result := true
  74   end;
  75
  76   (* --------- Input --------- *)
  77
  78   function sys_HandleInput (): Boolean;
  79   begin
  80     result := false
  81   end;
  82
  83   procedure sys_RequestQuit;
  84   begin
  85   end;
  86
  87   (* --------- Init --------- *)
  88
  89   procedure sys_Init;
  90   begin
  91   end;
  92
  93   procedure sys_Final;
  94   begin
  95   end;
  96
  97 end.