From a4db719eb4ff6d62a733c0042c0b10716b0f141f Mon Sep 17 00:00:00 2001 From: nickysn Date: Mon, 8 Mar 2021 15:12:20 +0000 Subject: [PATCH] + introduced legacy code page functions to the video driver itself (they can optionally be implemented for operating systems with non-unicode consoles) git-svn-id: branches/unicodekvm@48911 - --- packages/rtl-console/src/amicommon/video.pp | 8 ++++-- packages/rtl-console/src/go32v2/video.pp | 28 ++++++++++++--------- packages/rtl-console/src/inc/videoh.inc | 28 ++++++++++++--------- packages/rtl-console/src/msdos/video.pp | 28 ++++++++++++--------- packages/rtl-console/src/netware/video.pp | 28 ++++++++++++--------- packages/rtl-console/src/netwlibc/video.pp | 28 ++++++++++++--------- packages/rtl-console/src/os2commn/video.pp | 28 ++++++++++++--------- packages/rtl-console/src/unix/video.pp | 4 +++ packages/rtl-console/src/win/video.pp | 7 ++++-- packages/rtl-console/src/win16/video.pp | 28 ++++++++++++--------- 10 files changed, 127 insertions(+), 88 deletions(-) diff --git a/packages/rtl-console/src/amicommon/video.pp b/packages/rtl-console/src/amicommon/video.pp index 15ced13254..82aec4a15e 100644 --- a/packages/rtl-console/src/amicommon/video.pp +++ b/packages/rtl-console/src/amicommon/video.pp @@ -849,7 +849,7 @@ end; const SysVideoDriver : TVideoDriver = ( InitDriver : @SysInitVideo; - InitEnhancedDriver: nil; + InitEnhancedDriver : Nil; DoneDriver : @SysDoneVideo; UpdateScreen : @SysUpdateScreen; ClearScreen : @SysClearScreen; @@ -859,7 +859,11 @@ const SetCursorPos : @SysSetCursorPos; GetCursorType : @SysGetCursorType; SetCursorType : @SysSetCursorType; - GetCapabilities : @SysGetCapabilities + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : Nil; + ActivateCodePage : Nil; + GetSupportedCodePageCount : Nil; + GetSupportedCodePage : Nil; ); {$ifdef Amiga68k} function CreateRastport: PRastPort; diff --git a/packages/rtl-console/src/go32v2/video.pp b/packages/rtl-console/src/go32v2/video.pp index d5d7ee83bd..2096b9f45e 100644 --- a/packages/rtl-console/src/go32v2/video.pp +++ b/packages/rtl-console/src/go32v2/video.pp @@ -306,18 +306,22 @@ end; Const SysVideoDriver : TVideoDriver = ( - InitDriver : @SysInitVideo; - InitEnhancedDriver: nil; - DoneDriver : @SysDoneVideo; - UpdateScreen : @SysUpdateScreen; - ClearScreen : Nil; - SetVideoMode : @SysSetVideoMode; - GetVideoModeCount : @SysGetVideoModeCount; - GetVideoModeData : @SysGetVideoModedata; - SetCursorPos : @SysSetCursorPos; - GetCursorType : @SysGetCursorType; - SetCursorType : @SysSetCursorType; - GetCapabilities : @SysGetCapabilities + InitDriver : @SysInitVideo; + InitEnhancedDriver : Nil; + DoneDriver : @SysDoneVideo; + UpdateScreen : @SysUpdateScreen; + ClearScreen : Nil; + SetVideoMode : @SysSetVideoMode; + GetVideoModeCount : @SysGetVideoModeCount; + GetVideoModeData : @SysGetVideoModedata; + SetCursorPos : @SysSetCursorPos; + GetCursorType : @SysGetCursorType; + SetCursorType : @SysSetCursorType; + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : Nil; + ActivateCodePage : Nil; + GetSupportedCodePageCount : Nil; + GetSupportedCodePage : Nil; ); initialization diff --git a/packages/rtl-console/src/inc/videoh.inc b/packages/rtl-console/src/inc/videoh.inc index a632ee2554..8487f4fe0f 100644 --- a/packages/rtl-console/src/inc/videoh.inc +++ b/packages/rtl-console/src/inc/videoh.inc @@ -53,18 +53,22 @@ type TEnhancedVideoBuf = array of TEnhancedVideoCell; TVideoDriver = Record - InitDriver : Procedure; - InitEnhancedDriver: Procedure; - DoneDriver : Procedure; - UpdateScreen : Procedure(Force : Boolean); - ClearScreen : Procedure; - SetVideoMode : Function (Const Mode : TVideoMode) : Boolean; - GetVideoModeCount : Function : Word; - GetVideoModeData : Function(Index : Word; Var Data : TVideoMode) : Boolean; - SetCursorPos : procedure (NewCursorX, NewCursorY: Word); - GetCursorType : function : Word; - SetCursorType : procedure (NewType: Word); - GetCapabilities : Function : Word; + InitDriver : Procedure; + InitEnhancedDriver : Procedure; + DoneDriver : Procedure; + UpdateScreen : Procedure(Force : Boolean); + ClearScreen : Procedure; + SetVideoMode : Function (Const Mode : TVideoMode) : Boolean; + GetVideoModeCount : Function : Word; + GetVideoModeData : Function(Index : Word; Var Data : TVideoMode) : Boolean; + SetCursorPos : procedure (NewCursorX, NewCursorY: Word); + GetCursorType : function : Word; + SetCursorType : procedure (NewType: Word); + GetCapabilities : Function : Word; + GetActiveCodePage : function : TSystemCodePage; + ActivateCodePage : procedure(CodePage: TSystemCodePage); + GetSupportedCodePageCount: function : Integer; + GetSupportedCodePage : function(Index: Integer): TSystemCodePage; end; const diff --git a/packages/rtl-console/src/msdos/video.pp b/packages/rtl-console/src/msdos/video.pp index 5198a0c88d..0fa7691333 100644 --- a/packages/rtl-console/src/msdos/video.pp +++ b/packages/rtl-console/src/msdos/video.pp @@ -279,18 +279,22 @@ end; Const SysVideoDriver : TVideoDriver = ( - InitDriver : @SysInitVideo; - InitEnhancedDriver: nil; - DoneDriver : @SysDoneVideo; - UpdateScreen : @SysUpdateScreen; - ClearScreen : Nil; - SetVideoMode : @SysSetVideoMode; - GetVideoModeCount : @SysGetVideoModeCount; - GetVideoModeData : @SysGetVideoModedata; - SetCursorPos : @SysSetCursorPos; - GetCursorType : @SysGetCursorType; - SetCursorType : @SysSetCursorType; - GetCapabilities : @SysGetCapabilities + InitDriver : @SysInitVideo; + InitEnhancedDriver : Nil; + DoneDriver : @SysDoneVideo; + UpdateScreen : @SysUpdateScreen; + ClearScreen : Nil; + SetVideoMode : @SysSetVideoMode; + GetVideoModeCount : @SysGetVideoModeCount; + GetVideoModeData : @SysGetVideoModedata; + SetCursorPos : @SysSetCursorPos; + GetCursorType : @SysGetCursorType; + SetCursorType : @SysSetCursorType; + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : Nil; + ActivateCodePage : Nil; + GetSupportedCodePageCount : Nil; + GetSupportedCodePage : Nil; ); initialization diff --git a/packages/rtl-console/src/netware/video.pp b/packages/rtl-console/src/netware/video.pp index 02204c34c6..c6e4235063 100644 --- a/packages/rtl-console/src/netware/video.pp +++ b/packages/rtl-console/src/netware/video.pp @@ -173,18 +173,22 @@ end; Const SysVideoDriver : TVideoDriver = ( - InitDriver : @SysInitVideo; - InitEnhancedDriver: nil; - DoneDriver : @SysDoneVideo; - UpdateScreen : @SysUpdateScreen; - ClearScreen : Nil; - SetVideoMode : @SysSetVideoMode; - GetVideoModeCount : @SysGetVideoModeCount; - GetVideoModeData : @SysGetVideoModedata; - SetCursorPos : @SysSetCursorPos; - GetCursorType : @SysGetCursorType; - SetCursorType : @SysSetCursorType; - GetCapabilities : @SysGetCapabilities + InitDriver : @SysInitVideo; + InitEnhancedDriver : Nil; + DoneDriver : @SysDoneVideo; + UpdateScreen : @SysUpdateScreen; + ClearScreen : Nil; + SetVideoMode : @SysSetVideoMode; + GetVideoModeCount : @SysGetVideoModeCount; + GetVideoModeData : @SysGetVideoModedata; + SetCursorPos : @SysSetCursorPos; + GetCursorType : @SysGetCursorType; + SetCursorType : @SysSetCursorType; + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : Nil; + ActivateCodePage : Nil; + GetSupportedCodePageCount : Nil; + GetSupportedCodePage : Nil; ); diff --git a/packages/rtl-console/src/netwlibc/video.pp b/packages/rtl-console/src/netwlibc/video.pp index f0fb283d69..29dc6342af 100644 --- a/packages/rtl-console/src/netwlibc/video.pp +++ b/packages/rtl-console/src/netwlibc/video.pp @@ -162,18 +162,22 @@ end; Const SysVideoDriver : TVideoDriver = ( - InitDriver : @SysInitVideo; - InitEnhancedDriver: nil; - DoneDriver : @SysDoneVideo; - UpdateScreen : @SysUpdateScreen; - ClearScreen : Nil; - SetVideoMode : @SysSetVideoMode; - GetVideoModeCount : @SysGetVideoModeCount; - GetVideoModeData : @SysGetVideoModedata; - SetCursorPos : @SysSetCursorPos; - GetCursorType : @SysGetCursorType; - SetCursorType : @SysSetCursorType; - GetCapabilities : @SysGetCapabilities + InitDriver : @SysInitVideo; + InitEnhancedDriver : Nil; + DoneDriver : @SysDoneVideo; + UpdateScreen : @SysUpdateScreen; + ClearScreen : Nil; + SetVideoMode : @SysSetVideoMode; + GetVideoModeCount : @SysGetVideoModeCount; + GetVideoModeData : @SysGetVideoModedata; + SetCursorPos : @SysSetCursorPos; + GetCursorType : @SysGetCursorType; + SetCursorType : @SysSetCursorType; + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : Nil; + ActivateCodePage : Nil; + GetSupportedCodePageCount : Nil; + GetSupportedCodePage : Nil; ); diff --git a/packages/rtl-console/src/os2commn/video.pp b/packages/rtl-console/src/os2commn/video.pp index 213b032666..967957c544 100644 --- a/packages/rtl-console/src/os2commn/video.pp +++ b/packages/rtl-console/src/os2commn/video.pp @@ -427,18 +427,22 @@ end; Const SysVideoDriver : TVideoDriver = ( - InitDriver : @SysInitVideo; - InitEnhancedDriver: nil; - DoneDriver : @SysDoneVideo; - UpdateScreen : @SysUpdateScreen; - ClearScreen : @SysClearScreen; - SetVideoMode : @SysSetVideoMode; - GetVideoModeCount : @SysGetVideoModeCount; - GetVideoModeData : @SysGetVideoModedata; - SetCursorPos : @SysSetCursorPos; - GetCursorType : @SysGetCursorType; - SetCursorType : @SysSetCursorType; - GetCapabilities : @SysGetCapabilities + InitDriver : @SysInitVideo; + InitEnhancedDriver : nil; + DoneDriver : @SysDoneVideo; + UpdateScreen : @SysUpdateScreen; + ClearScreen : @SysClearScreen; + SetVideoMode : @SysSetVideoMode; + GetVideoModeCount : @SysGetVideoModeCount; + GetVideoModeData : @SysGetVideoModedata; + SetCursorPos : @SysSetCursorPos; + GetCursorType : @SysGetCursorType; + SetCursorType : @SysSetCursorType; + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : nil; + ActivateCodePage : nil; + GetSupportedCodePageCount : nil; + GetSupportedCodePage : nil; ); procedure TargetEntry; diff --git a/packages/rtl-console/src/unix/video.pp b/packages/rtl-console/src/unix/video.pp index d153ca89dc..26c5670266 100644 --- a/packages/rtl-console/src/unix/video.pp +++ b/packages/rtl-console/src/unix/video.pp @@ -1380,6 +1380,10 @@ Const GetCursorType : @SysGetCursorType; SetCursorType : @SysSetCursorType; GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : Nil; + ActivateCodePage : Nil; + GetSupportedCodePageCount : Nil; + GetSupportedCodePage : Nil; ); initialization diff --git a/packages/rtl-console/src/win/video.pp b/packages/rtl-console/src/win/video.pp index d7763e2e41..a815689dd8 100644 --- a/packages/rtl-console/src/win/video.pp +++ b/packages/rtl-console/src/win/video.pp @@ -435,8 +435,11 @@ Const SetCursorPos : @SysSetCursorPos; GetCursorType : @SysGetCursorType; SetCursorType : @SysSetCursorType; - GetCapabilities : @SysGetCapabilities - + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : Nil; + ActivateCodePage : Nil; + GetSupportedCodePageCount : Nil; + GetSupportedCodePage : Nil; ); procedure TargetEntry; diff --git a/packages/rtl-console/src/win16/video.pp b/packages/rtl-console/src/win16/video.pp index 778e101c7f..1965e23a3c 100644 --- a/packages/rtl-console/src/win16/video.pp +++ b/packages/rtl-console/src/win16/video.pp @@ -255,18 +255,22 @@ end; const SysVideoDriver: TVideoDriver = ( - InitDriver: @SysInitVideo; - InitEnhancedDriver: nil; - DoneDriver: @SysDoneVideo; - UpdateScreen: @SysUpdateScreen; - ClearScreen: nil; - SetVideoMode: @SysSetVideoMode; - GetVideoModeCount: nil; - GetVideoModeData: nil; - SetCursorPos: @SysSetCursorPos; - GetCursorType: @SysGetCursorType; - SetCursorType: @SysSetCursorType; - GetCapabilities: @SysGetCapabilities; + InitDriver : @SysInitVideo; + InitEnhancedDriver : nil; + DoneDriver : @SysDoneVideo; + UpdateScreen : @SysUpdateScreen; + ClearScreen : nil; + SetVideoMode : @SysSetVideoMode; + GetVideoModeCount : nil; + GetVideoModeData : nil; + SetCursorPos : @SysSetCursorPos; + GetCursorType : @SysGetCursorType; + SetCursorType : @SysSetCursorType; + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : nil; + ActivateCodePage : nil; + GetSupportedCodePageCount : nil; + GetSupportedCodePage : nil; ); begin